VBNet - все что Вы хотели знать о VB, но не знали где найти!

Visual Basic, .NET, ASP, VBA, VBScript

	Проверить, существует ли мышь
	Этот код покажет, есть ли мышь на компьютере Const SM_CMOUSEBUTTONS = 43 Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long Public Function CheckMouse() As Boolean If GetSystemMetrics(SM_CMOUSEBUTTONS) > 0 Then CheckMouse = True Else CheckMouse = False End If End Function Private Sub Form_Load() MsgBox "Проверка мыши на существование: " & CheckMouse End Sub

VBNet online (всего: 52050)

Лучшие материалы

ActiveX контролы (112)

Примеры кода (546)

Статьи по VB (136)