كيف نظهر التذيل فى التكست

السلام عليكم

إستخدم الـ Tool Tip لأجل إظهار التنبيه للمستخدم عن طريق مثلاً الـ Timer

ثم في نفس الحدث tick أجري إختبار للتحقق من حالة الـ Caps Lock

وذلك عن طريق الـ API بهذا الشكل

 Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Integer) As Integer

ثم الـ Timer بهذا الشكل

 Private Sub Timer1_Tick(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim capslocki As Integer
        capslocki = GetKeyState(&H14)
        If capslocki And 1 Then
            Me.ToolTip1.SetToolTip(Me.TextBox2, "Warning CapsLock On!!")
        Else
            Me.ToolTip1.SetToolTip(Me.TextBox2, "")
        End If
    End Sub

شاهد المثال المرفق نفس النصوص البرمجية ولكن بإسلوب أخر

والله أعلم

CapsLockOnOff.zip

اخي الكريم

عندما تختار نوع الرمز الذي سيظهر على التكست بوكس بدلا من الكتابة التي سيدخلها المستخدم فان هذه الخاصية تعمل تلقائيا

انا طبقتها على 2003 ونجحت تماما