VBNet - Форум - Form1 OnTop\OffTop

Вопрос: Form1 OnTop\OffTop Добавлено: 25.08.04 12:27

Автор вопроса: Nord

Private Declare Function SetWindowPos Lib "user32" (ByVal h%, ByVal hb%, ByVal x%, ByVal Y%, ByVal cx%, ByVal cy%, ByVal F%) As Integer
Const SWP_NOMOVE = 2
Const SWP_NOSIZE = 1
Const flags = SWP_NOMOVE Or SWP_NOSIZE
Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2

Private Sub Command1_Click()
res = SetWindowPos(Form1.hwnd, HWND_TOPMOST, 0, 0, 0, 0, flags) ' В W98 ->Ок. В WXP ->Runtime error 6 Overflow
End Sub

Private Sub Command2_Click()
res = SetWindowPos(Form1.hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, flags)
End Sub

Люди может другой способ есть?
Ответить

Ответы Всего ответов: 8

Номер ответа: 1 Автор ответа: Kodo Разработчик Offline Client ICQ: 293048085 Вопросов: 37 Ответов: 457	Профиль \| \| #1	Добавлено: 25.08.04 12:30
	Конечно, есть! Это где ты такую SetWindowPos нарыл?????? Private Declare Function SetWindowPos Lib "user32.dll" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long Все пашет в XP! Ответить

Номер ответа: 2 Автор ответа: Nord Вопросов: 15 Ответов: 28	Профиль \| \| #2	Добавлено: 25.08.04 12:32
	Сайт такой есть VBNet Ответить

Номер ответа: 3 Автор ответа: Kodo Разработчик Offline Client ICQ: 293048085 Вопросов: 37 Ответов: 457	Профиль \| \| #3	Добавлено: 25.08.04 12:35
	? где? нука дай мне ссылку где у нас SetWindowPos as Integer? Посмотреть охота! Ответить

Номер ответа: 4 Автор ответа: Kodo Разработчик Offline Client ICQ: 293048085 Вопросов: 37 Ответов: 457	Профиль \| \| #4	Добавлено: 25.08.04 12:46
	Вот тебе VBNet: http://www.vbnet.ru/unfaq/showtopic.asp?id=69 Где ты нашел такую уродскую декларацию, понятия не имею. Хотя бы API Viewer юзай, что-ли! А то так каждую функцию будешь декларить %a, %b, &c ... Так же не фига не понятно, какой параметр за что отвечает! Ответить

Номер ответа: 5 Автор ответа: LamerOnLine ICQ: 334781088 Вопросов: 108 Ответов: 2822	Профиль \| \| #5	Добавлено: 25.08.04 13:03
	Логично. Ты посмотри типы переменных в VB.NET. Там Integer соответствует Long из VB6. MSDN: Visual Basic Language Concepts Integer Data Type Changes in Visual BasicSee Also Data Type Summary \| Integer Data Type \| Short Data Type \| Long Data Type \| Programming Element Support Changes Summary \| Declare Statement Visual Basic .NET updates the integer data types for interoperability with other programming languages and with the common language runtime. The following table shows correspondences between integer types in Visual Basic 6.0 and Visual Basic .NET. Integer Size Visual Basic 6.0 type and type character Visual Basic .NET type and type character Common language runtime type 8 bits, signed (none) (none) System.SByte 16 bits, signed Integer ( Short (none) System.Int16 32 bits, signed Long (& Integer ( System.Int32 64 bits, signed (none) Long (& System.Int64 On 32-bit systems, 32-bit integer operations are faster than either 16-bit or 64-bit integer operations. This means that in Visual Basic .NET, Integer is the most efficient and fundamental numeric type. You can improve performance in your applications by changing your Long declarations to Integer when you migrate to Visual Basic .NET. Note If you are interfacing with components created on platforms other than Visual Basic .NET, you must take care that your data types correspond to those of the other components. For example, if you use a Declare statement to refer to an external procedure created in Visual Basic 6.0, and the procedure defines an Integer argument (two bytes in Visual Basic 6.0), you must identify that argument as Short in the Declare statement, because that is the two-byte integer type in Visual Basic .NET. See Also Data Type Summary \| Integer Data Type \| Short Data Type \| Long Data Type \| Programming Element Support Changes Summary \| Declare Statement -------------------------------------------------------------------------------- Send feedback to Microsoft © 2001 Microsoft Corporation. All rights reserved. Ответить

Номер ответа: 6 Автор ответа: Kodo Разработчик Offline Client ICQ: 293048085 Вопросов: 37 Ответов: 457	Профиль \| \| #6	Добавлено: 25.08.04 13:13
	Это ты мне? Я знаю это прекрасно! Начитался уже такой радости, когда только .NET вышла и я интересовался, что это и стоит ли на него переходить. Ответить

Номер ответа: 7 Автор ответа: Nord Вопросов: 15 Ответов: 28	Профиль \| \| #7	Добавлено: 25.08.04 14:28
	To Kodo: http://www.vbnet.ru/faq/showtopic.asp?id=46 посмотри рас охота Ответить

Номер ответа: 8 Автор ответа: Kodo Разработчик Offline Client ICQ: 293048085 Вопросов: 37 Ответов: 457	Профиль \| \| #8	Добавлено: 25.08.04 14:38
	2Nord : sorry Админы, что это тут у Вас на сайте творится? Дезинформацию выкладываете! Что же это такое? Ответить

Страница: 1 |