تحديد النص داخل TextBox

[Akram Galal]

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

أريد كود أو عمل زر يقوم بتحديد النص داخل TextBox

كما هو موضح في الصورة

جزاكم الله خيرا.

[حسونة حسين]

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

يمكنك ذلك عن طريق خاصيه

EnterFieldBehavior

تحتاج فقط إلى ضبطها على fmEnterFieldBehaviorSelectAll

هذه هي القيمة الافتراضية لهذه الخاصية ، لذا لن تحتاج إلى فعل أي شيء ما لم تقم بتغيير قيمة الخاصية بمجرد الضغط على الزر tab في الكيبورد

كما يمكنك الاستفادة من هذا الموضوع 

ويمكنك ايضا عن طريق هذا الكود

Dim boolEnter As Boolean

Private Sub TextBox1_Enter()
    boolEnter = True
End Sub

Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, _
ByVal X As Single, ByVal Y As Single)
    If boolEnter = True Then
        With TextBox1
            .SelStart = 0
            .SelLength = Len(.Text)
        End With
        boolEnter = False
    End If
End Sub