Op deze website gebruiken we cookies om content en advertenties te personaliseren, om functies voor social media te bieden en om ons websiteverkeer te analyseren. Ook delen we informatie over uw gebruik van onze site met onze partners voor social media, adverteren en analyse. Deze partners kunnen deze gegevens combineren met andere informatie die u aan ze heeft verstrekt of die ze hebben verzameld op basis van uw gebruik van hun services. Meer informatie.

Akkoord

Vraag & Antwoord

Programmeren

Geen tweede "MouseOver" effect in VBA6?

-=DDA=- Raptor
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

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