Textbox waarde instellen met muis wiel

Status
Niet open voor verdere reacties.
LuckyFm

LuckyFm

Gebruiker
Lid geworden
3 feb 2015
Berichten
91
Beste forum leden,

Na lang zoeken op Google kom ik er niet uit, wellicht is hier iemand die mij verder kan helpen.

In mijn formulier heb ik een textbox txtMake1 deze box stelt het aantal te maken punten in voor speler 1.

Nu zou ik graag willen dat ik de waarde van txtMake1 kan verhogen met het scrol wiel van mijn muis.
Ik weet dat ik dat heel simpel kan typen maar er staat geen toetsenbord mij de monitor die staat 10 meter verder op.
Nu doe ik de linker en rechter muisknop met deze code:

Code: 
Private Sub txtCarMake1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
   Dim Car1 As Integer
   Select Case Button
     Case 1: Car1 = Car1
           Select Case Shift
                  Case 0: Car1 = Car1 + 10
                  Me.txtCount1 = Me.txtCount1 + Car1
           End Select
     Case 2: Car1 = Car1
           Select Case Shift
                  Case 0: Car1 = Car1 + 1
                  Me.txtCount1 = Me.txtCount1 + Car1
           End Select
     Case 3: Car1 = Car1
           Select Case Shift
                  Case 0: Car1 = Null
           End Select
   End Select
   Me.txtCarMake1 = Me.txtCount1
End Sub

Dus wiel om hoog txtxMake1 = txtMake1 + 1 en wiel naar beneden -1 dan natuurlijk.

Heeft iemand enig idee of dit mogelijk is en als het mogelijk is hoe ik dit werkend zou kunnen krijgen.

Alvast bedankt voor de hulp.

Gr, Luc
 
Helpt zoiets u verder?
 

Bijlagen

  • Spin.xlsb
    19,2 KB · Weergaven: 32
Daar heb je een Spinbutton control voor nodig, en die kan je ongeveer zo aansturen:
Code: 
Public varAct As Long

Private Sub SpinButton3_Updated(Code As Integer)
    Select Case Me.SpinButton3
        Case Is < varAct
            Me.Tekst0.Value = Nz(Me.Tekst0.Value, 0) - 1
       Case Is > varAct
            Me.Tekst0.Value = Nz(Me.Tekst0.Value, 0) + 1
    End Select
     varAct = Me.SpinButton3
End Sub
Ik zou het never nooit niet met een muishandeling doen.
 
Ik zou het never nooit niet met een muishandeling doen.

OctaFish, Juist omdat het toetsenbord aan de andere kant staat leek het mij wel makkelijk omdat met het muiswiel te doen.
Dit is ook een hele mooie oplossing, maar als het kan zou ik het ook met de muis willen kunnen.
Als dat te moeilijk wordt houd ik het bij de spinbutton want die werkt ook erg goed.

Gr, luc.
 
Je hebt alleen een Mousewheel event op formulier niveau, niet voor tekstvakken.
 
Je kunt ook nog een numeriek keyboard formulier overwegen met daarop knoppen voor de cijfers. Dat roep je dan op als je in het tekstvak klikt, en dan kun je met de muis de juiste cijfers aanklikken om het gewenste getal te genereren. Sowieso een insteek die mij veel beter bevalt als een spinner knop of een muiswiel actie, zeker als het om grotere getallen gaat. Ik moet er niet aan denken dat ik het getal 952 moet maken met een spinner...
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan