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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  طريقة لجعل الفورم او البرنامج في مقدمة البرامج Ahmad Jawad 0 817 28-10-12, 11:39 AM
آخر رد: Ahmad Jawad
  كود لجعل الفورم يتحرك بشكل تدريجي RaggiTech 0 802 17-10-12, 03:44 PM
آخر رد: RaggiTech
  لجعل النافذة تضيء (Flash Window) RaggiTech 0 373 17-10-12, 02:20 PM
آخر رد: RaggiTech
  لمسح كافة صناديق النص في الفورم RaggiTech 0 307 17-10-12, 12:59 AM
آخر رد: RaggiTech
  لجعل الفورم دوماً في المقدمة RaggiTech 0 313 17-10-12, 12:56 AM
آخر رد: RaggiTech
  تحديد كافة النص وقت أن يتم الاختيار لمربع النص RaggiTech 0 285 17-10-12, 12:32 AM
آخر رد: RaggiTech

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


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