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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=6056)

لجعل النص يكتب في الأحرف الكبيرة فقط - RaggiTech - 17-10-12

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

الديكلاريشن

كود :
Private Const ES_UPPERCASE = &H8&
Private Const GWL_STYLE = (-16)
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

كود :
' ضع تكست بوكس
Private Sub Form_Load()
Dim tmp As Long
tmp = SetWindowLong(Text1.hwnd, GWL_STYLE, GetWindowLong(Text1.hwnd, GWL_STYLE) Or ES_UPPERCASE)
End Sub
أرجوا النقاط