title image


Smiley Oder so...
Option Explicit

 

Dim bOver As Boolean

 

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

    mo True

End Sub

 

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

    mo False

End Sub

Private Sub mo(over As Boolean)

    If over <> bOver Then

        If over Then

            Command1.Caption = "Over!"

        Else

            Command1.Caption = "Not over1"

        End If

        bOver = over

    End If

End Sub





Code eingefügt mit Syntaxhighlighter 1.9
Moderation is OK, but not to excess...



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: