на главную Dosugoff
Все то, что вы найдёте здесь,
Однажды встанет Вам удачей!
RuWeb.net - гибкий хостинг
Закажи рекламу на Rambler.ru, Mail.ru, Aport.ru! От 130 руб. за все!


Помощь проекту

Visual Basic

Страница: 1 2 3 4 5 6 7 8 9 10 11
  1. Как в Visual Basic определить свернуто окно или нет?
  2. Как в Visual Basic определить текущие координаты курсора?
  3. Как в Visual Basic определить тип элемента управления?
  4. Как в Visual Basic определить является ли символо верхнего регистра?
  5. Как в Visual Basic определить является ли символо нижнего регистра?
  6. Как в Visual Basic организовать ввод только целых чисел?
  7. Как в Visual Basic открыть дверцу CD-ROM программно?
  8. Как в Visual Basic отправить копьютер спать?
  9. Как в Visual Basic отследить многократный запуск программы?
  10. Как в 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

Type POINTAPI
x As Long
y As Long
End Type

Dim coord As POINTAPI
Dim a as Long
a = GetCursorPos(coord)
Print coord.x
Print coord.y
Как в Visual Basic определить тип элемента управления?
Private Sub myFunc(ctl As Control)
Dim sCtlType As String
sCtlType = TypeName(ctl)
Select Case sCtlType
Case "TextBox"
...
Case "CommandButton"
...
End Select
End Sub
Как в 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)
KeyAscii = Only_Number(KeyAscii)
End Sub

' функция выборки числовых данных
Function Only_Number(theParam As Integer)
If InStr("1234567890" & Chr(8), Chr(theParam)) > 0 Then
Only_Number = theParam
Else
Only_Number = 0
End If
End Function
Как в 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
MsgBox "Приложение уже запущено"
End
End If
Как в Visual Basic отследить нажатие клавиши?
Public Declare Function GetKeyState Lib "user32.dll" (ByVal nVirtKey As Long) As Integer

Код вертуальных клавиш

Const VK_LSHIFT = &HA0 ' Левый Shift
Const VK_RSHIFT = &HA1 ' Правый Shift
Const VK_LCONTROL = &HA2 ' Левый Ctrl
Const VK_RCONTROL = &HA3 ' Правый Ctrl
Const VK_LMENU = &HA4 ' Левый Alt
Const VK_RMENU = &HA5 ' Правый Alt

Пример:

Dim keystate As Long ' состояние клавиши
keystate = GetKeyState(VK_RETURN) ' Читаем текущее состояние клавиши ENTER
If (keystate And &H1) = &H1 Then ' Отобразим состояние переключателя клавиши ENTER
Print "Клавиша ENTER в настоящее время переключается"
Else
Print "Клавиша ENTER в настоящее время не переключается"
End If
If (keystate And &H80) = &H80 Then ' Нажимается ли Клавиша ENTER или нет
Print "Клавиша ENTER в настоящее время нажата"
Else
Print "Клавиша ENTER сейчас не нажата"
End If
Страница: 1 2 3 4 5 6 7 8 9 10 11
Система авторегистрации в каталогах, статьи про раскрутку сайтов, web дизайн, flash, photoshop, хостинг, рассылки; форум, баннерная сеть, каталог сайтов, услуги продвижения и рекламы сайтов
Dosugoff2008.narod.ru Огромное спасибо всем кто, так или иначе, участвовал в создании этой коллекции
Hosted by uCoz