کد راست کلیک

[sinashahab]

سلام
من می خواستم چگونه میشه وقتی راست کلیک کردم منوی file یا about باز بشه ؟:لبخند:

[ebrahimashori]

dar roydad MouseDown Form Ya Kontrol cod zir ra benvis
PopupMenu
dar jeloy kod bala khl menoy sakhteh shode ra bk,ds

[hrj1981]

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Select Case Button
Case Is = 2
Me.PopupMenu نام منو, , X, Y
End Select
End Sub

[sinashahab]

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Select Case Button
Case Is = 2
Me.PopupMenu نام منو, , X, Y
End Select
End Sub
سلام
این جوری هم میشه :لبخند:

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
Me.PopupMenu Yor Menu, , X, Y
End If
End Sub