Visual Basic FAQ

Как поменять местами кнопки мыши?

Option Explicit
Private Declare Function SwapMouseButton Lib "user32" (ByVal bSwap As Long) As Long
Private i As Byte
' На форме должны находиться: 1) Timer, 2) Label
Private Sub Form_Load()
    Timer1.Interval = 1000
    Call SwapMouseButton(1)
    i = 30
End Sub

Private Sub Timer1_Timer()
    If i > 0 Then
        i = i - 1
        Label1.Caption = "Прежняя функциональность мыши будет возвращена через " & i & " сек."
    Else
        Timer1.Enabled = False
        Call SwapMouseButton(0)
        Label1.Caption = "Функциональность возвращена"
    End If
End Sub

Запись опубликована on 28.12.2008 at 22:27 и размещена в рубрике: Мышь. Вы можете читать комментарии, используя RSS-ленту. Вы можете оставить комментарий, или отправить трекбек с Вашего сайта.