MouseMove, checkbox og label

En måde er at lægge en Frame bagved din checkbox, og så ændre caption på label når du har mousemove på framen. Jeg ser ikke de helt store andre muligheder for det.

Kedde

Hva med å sette Label1.Caption til noe når musen er over Check1, og når den er over Form1, blir Label1.Caption nullet ut.

Private Sub Check1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Label1.Caption = \"Hei\"
End Sub

Private Sub Form1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Label1.Caption = \"\"
End Sub

...eller bare bruke ToolTPrivate Sub Check1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Label1.Caption = \"Hei\"
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Label1.Caption = \"\"
End Sub

...eller bare skrive en tekst i Check1 sin ToolTipText...

// theHollow (Norge)

Beklager at noe kom to ganger. Mye å gjøre på en gang :)

// theHollow (Norge)

TheHollow> din måde var den jeg havde beskrevet som \"ikke acceptabel løsning\".
men tak for din gode vilje :-)

Jeg er klar over det med tooltiptext men det er ikke godt nok til det jeg skal bruge det til...

Du tænker på en slags MouseOut event? If so -- så lytter jeg lige med! :)

Du kan prøve at indsætte følgende i en form med en label kontrol og en check kontrol:

Private Type POINTAPI
    X As Long
    Y As Long
End Type
Private Declare Function GetCursorPos Lib \"user32\" _
                        (lpPoint As POINTAPI) As Long
Private Declare Function WindowFromPoint Lib \"user32\" _
                        (ByVal xPoint As Long, _
                        ByVal yPoint As Long) As Long
                     

Private Function WindowUnderCursor() As Long
Dim ptAPI As POINTAPI
GetCursorPos ptAPI
WindowUnderCursor = WindowFromPoint(ptAPI.X, ptAPI.Y)
End Function

Private Sub Check1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Timer1.Enabled = False Then Timer1.Enabled = True
Label1.Caption = \"hej med dig\"
End Sub

Private Sub Timer1_Timer()
Dim lHwnd As Long
lHwnd = WindowUnderCursor
If lHwnd <> Check1.hwnd Then
    Label1.Caption = \"\"
    Timer1.Enabled = False
End If
End Sub

Du skal også have en timerkontorl på formen

Hej Kamak

Har du set på mit forslag til løsning af dit problem. Hvis du har problemer med det må du endelig vende tilbage

Hej Kamak
Jeg synes jeg fortjener et snarligt svar ??

Jeg skal venligst henlede opmærksomheden på de generelle regler for brugen af Eksperten.dk. Der er bl. a følgende regel:

\"Alle brugere skal bestræbe sig på at svare på spørgsmål så hurtigt som muligt, og ligeledes afgive udlovede point, såfremt der er kommet et acceptabelt svar. Således bliver svartiden generelt reduceret.\"

Det forekommer mig at du efterhånden bevæger dig på kanten af denne regel. Eller med andre ord - tag dig dog sammen og svar ?

undskyld forsinkelsen - tak for hjælpen