Vraag & Antwoord

Programmeren

Geen tweede "MouseOver" effect in VBA6?

2 antwoorden
  • Ik heb met VBA6 een progje gemaakt die de kleinste van 4 getallen kan uitrekenen. Hierbij heb ik één knop die de berekening uitvoert en nog een knop die het progje afsluit (allebij commandbuttons). Ik heb bij de eerste deze code gebruikt voor de mouseover effect: [code:1:d7862b0a02]Private Sub cmdKleinsteBepalen_MouseMove(Button As Integer, _ Shift As Integer, X As Single, Y As Single) With cmdKleinsteBepalen .FontSize = 14 End With End Sub Private Sub Form_MouseMove(Button As Integer, Shift As _ Integer, X As Single, Y As Single) With cmdKleinsteBepalen .FontSize = 12 End With End Sub[/code:1:d7862b0a02] Deze bewerk ik en vul dit in bij de tweede knop: [code:1:d7862b0a02]Private Sub cmdStop_MouseMove(Button As Integer, _ Shift As Integer, X As Single, Y As Single) With cmdStop .FontSize = 20 End With End Sub Private Sub Form_MouseMove(Button As Integer, Shift As _ Integer, X As Single, Y As Single) With cmdStop .FontSize = 18 End With End Sub[/code:1:d7862b0a02] Maar als ik dan mijn progje wil testen zegt ie: "Compile error: Ambiguous name detected: Form_MouseMove" Wat moet ik nu doen om het geheel te laten werken??? Maarten
  • [quote:6cbe660125="-=DDA=- Raptor"] Wat moet ik nu doen om het geheel te laten werken??? [/quote:6cbe660125] [code:1:6cbe660125]Private Sub cmdKleinsteBepalen_MouseMove(Button As Integer, _ Shift As Integer, X As Single, Y As Single) cmdKleinsteBepalenFontSize = 14 End Sub Private Sub cmdStop_MouseMove(Button As Integer, _ Shift As Integer, X As Single, Y As Single) cmdStop.FontSize = 20 End Sub Private Sub Form_MouseMove(Button As Integer, Shift As _ Integer, X As Single, Y As Single) cmdKleinsteBepalen.FontSize = 12 cmdStop.FontSize = 18 End Sub[/code:1:6cbe660125]

Beantwoord deze vraag

Weet jij het antwoord op deze vraag? Registreer of meld je aan met je account

Dit is een gearchiveerde pagina. Antwoorden is niet meer mogelijk.