[VB6] picturbox synlig og ikke

Der findes ikke nogle ordentlige procedurer til at klare den slags mouse-out og mouse-in in Visual Basic, men det kan fx gøres på følgende måde:

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Y >= Picture1.Top _
      And Y <= Picture1.Top + Picture1.Height _
      And X >= Picture1.Left _
      And X <= Picture1.Left + Picture1.Width Then
        Picture1.Visible = True
    Else
        Picture1.Visible = False
    End If
End Sub

- Mikkel

det svar er bare perfekt hvordan laver man så det samme med 2 forskellige pictureboxe altså picture1 er synlig vis man holder musen over pictur1 så bliver picture2 synlig og vis man fjerner den så bliver den ikke synlig
mvh HC

Jeg er ikke helt sikker på at jeg forstår hvad du mener? Men prøv med denne kode -- Det kan jeg være jeg gætter rigtigt :o)

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Picture1.Visible = False
    Picture2.Visible = True
End Sub

Private Sub Picture2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Picture1.Visible = True
    Picture2.Visible = False
End Sub

Det skal lige siges, at ovenstående kode skal erstatte den, jeg skrev tidligere..

tak skal du have det virker også som det skal
;-) mvh HC....