/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
[VB&] Mus over Knap
Fra : Henrik C


Dato : 17-04-03 16:23

Hej NG
Jeg har en Form med 2 knapper der kan skifte Caption efter om musen er over
eller ikke, hvordan laver jeg min kode om så det er grafikken der skifter
altså hvis min knap har et billede og et andet når musen er over
her kommer min kode hvordan skal den se ud vis det er billedet jeg vil
skifte ved mus over og ikke Caption

mvh H Cichosz

Dim ImageShown As Boolean

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As
Single, Y As Single)
If Not ImageShown Then
ImageShown = True
Command1.Caption = "NEEEEJ"
End If
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single,
Y As Single)
If ImageShown Then
ImageShown = False
Command1.Caption = "OK"
Command2.Caption = "OLLee"
End If
End Sub


Private Sub Command2_MouseMove(Button As Integer, Shift As Integer, X As
Single, Y As Single)
If Not ImageShown Then
ImageShown = True
Command2.Caption = "ÅÅeee"
End If
End Sub



 
 
Martin Wiboe (19-04-2003)
Kommentar
Fra : Martin Wiboe


Dato : 19-04-03 19:50


> Jeg har en Form med 2 knapper der kan skifte Caption efter om musen er
over
> eller ikke, hvordan laver jeg min kode om så det er grafikken der skifter
> altså hvis min knap har et billede og et andet når musen er over
> her kommer min kode hvordan skal den se ud vis det er billedet jeg vil
> skifte ved mus over og ikke Caption

Ændr Picture-property'en istedet for caption, således:

Dim ImageShown As Boolean

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As
Single, Y As Single)
If Not ImageShown Then
ImageShown = True
Command1.Caption = "NEEEEJ"
command1.Picture = "c:\Billede1.bmp"
End If
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As
Single,
Y As Single)
If ImageShown Then
ImageShown = False
Command1.Caption = "OK"
Command2.Caption = "OLLee"
Command1.Picture = "c:\Billede2.bmp"
Command2.Picture = "c:\Billede3.bmp"

End If
End Sub


Private Sub Command2_MouseMove(Button As Integer, Shift As Integer, X As
Single, Y As Single)
If Not ImageShown Then
ImageShown = True
Command2.Caption = "ÅÅeee"
Command2.Picture = "c:\Billede4.bmp"
End If
End Sub

Du må selv lige ordne systemet i det, men det er sådan det gøres. Ellers
kontakt mig, vi har jo snakket sammen før

Martin




Søg
Reklame
Statistik
Spørgsmål : 177558
Tips : 31968
Nyheder : 719565
Indlæg : 6408925
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste