سوال: سؤال در مورد راست کلیک [بایگانی]

Hassan2500

پنج شنبه 15 تیر 1391, 21:54 عصر

the king

جمعه 16 تیر 1391, 00:41 صبح

سلام

این کد باید چطوری نوشته بشه که اگه در تکست1 راست کلیک کردیم اگه فوکوس داخل تکست1 نبود فوکوس به آخر حروف تکست1 بپرد و بعد گزینه های راست کلیک ظاهر بشه و اگه فوکوس داخلش بود فوکوس همون جا که در تکست1 است باقی بمونه و گزینه های راست کلیک ظاهر بشه

Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbRightButton Then
If Not (ActiveControl Is Text1) Then
Text1.SelStart = Len(Text1.Text)
End If
End If
End Sub