تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تحديد كافة النص وقت أن يتم الاختيار لمربع النص
#1
كاتب الموضوع : 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
}}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  لجعل النص يكتب في الأحرف الكبيرة فقط RaggiTech 0 333 17-10-12, 02:53 PM
آخر رد: RaggiTech
  تحديد المعرف unc الخاص بجهاز على الشبكة RaggiTech 0 319 17-10-12, 02:17 PM
آخر رد: RaggiTech
  لمسح كافة صناديق النص في الفورم RaggiTech 0 306 17-10-12, 12:59 AM
آخر رد: RaggiTech

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم