منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
تحديد كافة النص وقت أن يتم الاختيار لمربع النص - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : الأقسام التعليمية - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=90)
+--- قسم : مكتبة أكواد المنتدى (http://vb4arb.com/vb/forumdisplay.php?fid=111)
+---- قسم : مكتبة أكواد الفيجوال بيسك 6 (http://vb4arb.com/vb/forumdisplay.php?fid=116)
+---- الموضوع : تحديد كافة النص وقت أن يتم الاختيار لمربع النص (/showthread.php?tid=5831)

تحديد كافة النص وقت أن يتم الاختيار لمربع النص - RaggiTech - 17-10-12

كاتب الموضوع : AhmedEssawy

الدالة التي تقوم بعملية التحديد


كود :
Public Sub AutoSelectText(EditControl As Object)
'Defining edit control as object
'lets you do this with any control that
'supports SelStart and SelLength
On Error GoTo ErrorHandler
Dim lTextLength As Long
lTextLength = Len(EditControl.Text)
If lTextLength Then
EditControl.SelStart = 0
EditControl.SelLength = lTextLength

End If
ErrorHandler:
Exit Sub
End Sub
وفي الحدث الخاص باختيار مربع النص :


كود :
Private Sub Text1_GotFocus()
AutoSelectText Text1
End Sub