دستورات حل پروژه :

Private Sub m11_Click()
t1.Alignment = 0
End Sub

Private Sub m111_Click()
t1.Alignment = 2
End Sub

Private Sub m1111_Click()
t1.Alignment = 1
End Sub

Private Sub t1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
PopupMenu m1
End If
End Sub

 نکته ۱: شما می بایست از قسمت Menu Editor تیک گزینه های Enabled و Visible را بردارید.

نکته ۲ : پیشنهاد می شود خصوصیت (Multi Line ) تکس باکس را برابر با True قرار دهید تا امکان نوشتن در بیش از یک سطر ممکن باشد.

نظرات شما عزیزان:

مصطفی

ساعت11:29---5 فروردين 1391

[وب سایت]

سلام...
وبلاگ فوق العاده ای داری
بازم بیا پیشم
بای تا های

نام :

آدرس ایمیل:

وب سایت/بلاگ :

متن پیام:

نظر خصوصی

 کد را وارد نمایید:

 

 

 

عکس شما

آپلود عکس دلخواه: