![]() Все то, что вы найдёте здесь,
Однажды встанет Вам удачей! |
![]() |
|
![]() |
||
Помощь проекту |
Visual Basic
Как в Visual Basic определить свернуто окно или нет?Public Declare Function IsIconic Lib "user32.dll" (ByVal hwnd As Long) As Long
Как в Visual Basic определить текущие координаты курсора?Public Declare Function GetCursorPos Lib "user32.dll" (lpPoint As POINTAPI) As Long
Как в Visual Basic определить тип элемента управления?Private Sub myFunc(ctl As Control)
Как в Visual Basic определить является ли символо верхнего регистра?Public Declare Function IsCharUpper Lib "user32" Alias "IsCharUpperA" (ByVal cChar As Byte) As Long
Как в Visual Basic определить является ли символо нижнего регистра?Public Declare Function IsCharLower Lib "user32" Alias "IsCharLowerA" (ByVal cChar As Byte) As Long
Как в Visual Basic организовать ввод только целых чисел?Private Sub Text1_KeyPress(KeyAscii As Integer)
Как в Visual Basic открыть дверцу CD-ROM программно?Public Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Открыть дверцу CD-Rom: mciSendString "Set CDAudio Door Open Wait", 0&, 0&, 0&
Закрыть дверцу CD-Rom: mciSendString "Set CDAudio Door Closed Wait", 0&, 0&, 0&
Как в Visual Basic отправить копьютер спать?Описание функции записываем в модуль Public Declare Function SetSystemPowerState Lib "kernel32" (ByVal fSuspend As Long, ByVal fForce As Long) As Long
А в нужный момент вызываем функцию: SetSystemPowerState 0&, 0&
Как в Visual Basic отследить многократный запуск программы?Поместите этот код в Form_Load If App.PrevInstance Then
Как в Visual Basic отследить нажатие клавиши?Public Declare Function GetKeyState Lib "user32.dll" (ByVal nVirtKey As Long) As Integer
Код вертуальных клавиш Const VK_LSHIFT = &HA0 ' Левый Shift
Пример: Dim keystate As Long ' состояние клавиши
|
|
![]() |
||
Dosugoff2008.narod.ru | Огромное спасибо всем кто, так или иначе, участвовал в создании этой коллекции |