Jag har ett formulär som har en textbox och en label (skall bli mer men vi börjar där). I händelsen MouseDown finns inparametern Button. Om den är 1 är det vänstermusknapp, om den är 2 är det höger. HejFånga upp högerklick.
För att förklara enkelt vill jag att textbox'en skall få texten "vänster" om man klickat med vänster musknapp på label'n.
Och textbox'en skall få texten "höger" om man klickar med höger musknapp på label'n.
Att fånga upp Vänster musknapp är ju enkelt, men hur fångar jag upp om höger musknapp trycks ner?
Och hur stänger jag av den snabbmeny som kommer upp när man klickar med höger musknapp i formuläret?
Tacksam för svar
/MagnusSv: Fånga upp högerklick.
Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
End SubSv: Fånga upp högerklick.
Option Explicit
'Viktigt Text1 propertie Multiline skall vara True
Private Sub Label1_MouseUp(Button As Integer, _
Shift As Integer, X As Single, Y As Single)
'Man bör ha detta i MouseUp
If Button = 1 Then
Text1.Alignment = 0
Text1 = Label1
Else
'Tror att detta skall hindra PopUp
Button = 0
Text1.Alignment = 1
Text1 = Label1
End If
End Sub
mvh
Sven