سؤال در مورد تکست

[Hassan2500]

سلام
1- کد اینکه وقتی روی نوشته های تکست1 کلیک کنی بعد تمام متن تکست1 آبی بشه برای کپی کردن و Clipboard هم پاک بشه چی میشه؟
2- کد اینه روی تکست راست کلیک کنی و راست کلیک عمل نکنه چی میشه؟

[ASedJavad]

سلامبرای انتخاب تمام متن:
text1.selstart=0
text1.sellength=len(text1)


برای پاک شدن کلیپبرد:
clipboard.clear


این هم برای سوال دومت:
PopUpMenu در تکست باکس (http://barnamenevis.org/showthread.php?189224-PopUpMenu-%D8%AF%D8%B1-%D8%AA%DA%A9%D8%B3%D8%AA-%D8%A8%D8%A7%DA%A9%D8%B3)

[Hassan2500]

اگه میشه سورسی که گذاشتم اصلاحش کنید که برای حروف فارسی هم بتونه عمل کنه اونجور بهتر متوجه میشم

[m.4.r.m]

بده برنامتو کامل کنیم راحت خودتو اذیت نکن

[Hassan2500]

مشکل من این کده من میخام فقط وقتی لیبل چپ کلیک شد من رو به سایت مورد نظر ببره نه با راست کلیک کردن
Private Sub Label1_Click()
Shell ("Explorer http://barnamenevis.org")
End Sub

[محسن واژدی]

سلام
کد زیر را بررسی کنید (البته اگه منظورتون رو درست متوجه شده باشم):
Private Sub Label1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbKeyLButton Then
Shell "Explorer http://barnamenevis.org"
End If
End Sub

موفق باشید

[Hassan2500]

با این کدی که دادی درست شد.