سؤالين بسيطين في صناديق النص :

قم بتعديل الخاصية Scroll Bars للـ Text Box

لها القيم التالية :

0 - لا يوجد شريط تمرير أبداً

1 = شريط تمرير أفقي

2 = شريط تمرير عمودي

3 = شريطين تمرير (عمودي و أفقي)

السلام عليكم ورحمة الله وبركاته

بالنسبة للمشكلة الاولى غير فى الخاصية ScrollBars للـ TextBox

وبالنسبة للمشكلة الثانية استخدم الكود

Private Sub Text1_Mousedown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then Clipboard.Clear
End Sub

السلام عليك

بالنسبة لخاصية Multiline يكفي أن تجعل خاصية ScrollBars تأخذ فيمة غير none

- منزلق أفقي فقط Horizontal

- منزلق عمودي فقط Vertical

- كلاهما معا Both

أما خاصية Locked فهي تحدد إذا ما كان مسموحا بتحريك أو تغيير حجم textbox

وإذا أردت أن تجعل textbox للقراءة فقط فاجعل خاصية ReadOnly تحمل قيمة True

بالتوفيق إن شاء الله

ChoclatB0y (h)

خاصية ReadOnly متوفرة فقط فى بيئة الدوت نت اما فى الفيبى6 فلا توجد :rolleyes:

أخى محمد المهدى ...

جرب ان تستخدم shift+insert أو CTRL+V ستجد ان الكلام سينسخ فى ال textbox أيضا يعنى التحقق من الفأرة لا يكفى

واليكم كود مشابه ولكنه فعال وهو عندما يتم تفعيل ال textbox

Private Sub Text1_GotFocus()
Clipboard.Clear
End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
KeyCode = 0
Clipboard.Clear
End Sub


Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Clipboard.Clear
End Sub

أصلا اذا كانت خاصية التكست بوكس Locked=True لا يمكن نسخ أي نص فيها !!

تستطيع ياكريزى باختيار Paste من القائمة المنبثقة :rolleyes:

ياروكت الازرار CTRL+V غير مفعلة عند اغلاق مربع النص اما SHIFT+INSERT فهى تعمل :rolleyes:

شكرا للإخوة الكرام MoaM و GHOST2010 و choclatboy و VB6-Rocket و crazy-man بالفعل ردود جميلة و ليس من المخجل أن أعترف بأني كنت أجهلها ...

فعلا يا جماعة لا أجمل من الأخوة العلمية.

إيــاس