textbox and mouse_down event

[bolcskei]

Hi guys,

I would like to make sensible textbox to mouse_down event.

I have created userform1, textbox4. Can anybody help me, why the following code is wrong?

Private Sub Textbox4_MouseDown(ByVal Button As Integer)
If Button = 1 Then UserForm2.Show
End Sub

Thanks.

Boris

[mebhas]

maybe u should use the click event.

[bolcskei]

maybe u should use the click event.

can you send me an example?

thanks boris

[Mark Gambo]

Hi guys,

I would like to make sensible textbox to mouse_down event.

I have created userform1, textbox4. Can anybody help me, why the following code is wrong?

Private Sub Textbox4_MouseDown(ByVal Button As Integer)
If Button = 1 Then UserForm2.Show
End Sub

Thanks.

Boris

This code works fine for me:

Private Sub Text1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 1 Then Form2.Show
End Sub

[bolcskei]

This code works fine for me:

Private Sub Text1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 1 Then Form2.Show
End Sub

it writes me "Procedure declaration does not match description of event or procedure having the same name" error.

Boris

[mebhas]

it writes me "Procedure declaration does not match description of event or procedure having the same name" error.

u should change the text1_mouseup to textbox4_mouseup

and as for the click event,

Private Sub TextBox4_Click()
    Form2.Show
End Sub

[bolcskei]

u should change the text1_mouseup to textbox4_mouseup

and as for the click event,

Private Sub TextBox4_Click()
    Form2.Show
End Sub

That time I have changed it to

Private Sub Textbox4_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then UserForm2.Show
End Sub

But it did not worked. I was also trying

Private Sub TextBox4_click()
UserForm2.Show (vbModeless)
End Sub

At the moment works me:

Private Sub textbox4_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
If Cancel.Value = False Then UserForm2.Show
End Sub

May be I have version of VB where the click event do not work, but I do not understand the problem with mouse_down, because in help I have found it.

[Hack]

Are you using VB or VBA?

[bolcskei]

Are you using VB or VBA?

I have Visual Basic Editor as a part of office and thefore I think I have VBA.

[Hack]

I have Visual Basic Editor as a part of office and thefore I think I have VBA.

And that is why some of the proposed solutions that have been posted aren't working for you. VBA is a subset of VB, and many of the features of VB are not supported in VBA.

You will receive VBA specific help from the Office Development folks.

Moved.

[bolcskei]

And that is why some of the proposed solutions that have been posted aren't working for you. VBA is a subset of VB, and many of the features of VB are not supported in VBA.

You will receive VBA specific help from the Office Development folks.

Moved.

Thank you