تحويل النصوص إلي أحرف كبيرة في جميع الأدوات علي النموذج

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

default تحويل النصوص إلي أحرف كبيرة في جميع الأدوات علي النموذج

مُساهمة من طرف Admin في الأحد يونيو 24, 2007 10:40 am

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 Const GWL_STYLE = (-16)
Private Const ES_UPPERCASE& = &H8&

Public Sub ConvertToUpperCase(ctlCollection As Object)
On Error GoTo vbErrorHandler

Dim lStyle As Long
Dim lRet As Long
Dim cCtl As Control

For Each cCtl In ctlCollection
If TypeOf cCtl Is TextBox Then
lStyle = GetWindowLong(cCtl.hwnd, GWL_STYLE)
lStyle = lStyle Or ES_UPPERCASE
lRet = SetWindowLong(cCtl.hwnd, GWL_STYLE, lStyle)
End If
Next


Exit Sub

vbErrorHandler:
ShowError Err.Number, Err.Description, Err.Source & "::ConvertToUpperCase"

End Sub


عدل سابقا من قبل في الخميس أغسطس 16, 2007 10:40 am عدل 1 مرات

_________________
إذا أعجبك موضوع من مواضيعي فلا تقل شكـراً ...
بل قل الآتـي ::
اللهم اغفر له ولوالديه ولزوجته وابنائه ولأخوانه واخواته ولسائر المسلمين ماتقدم من ذنبهم وما تأخر..
وقِهم عذاب القبر وعذاب النار..
و أدخلهم الفردوس الأعلى مع الأنبياء والشهداء والصالحين ..
واجعل دعاءهم مستجاب في الدنيا والآخرة ..
اللـهم آميـن..اللـهم آميـن..اللـهم آميـن..

اخوكم جاد القرعان
الأردن- الطفيلة
jadquraan@yahoo.com
jad_quraansoft@hotmail.com
00962777765709
avatar
Admin
jadquraan
jadquraan

عدد الرسائل : 125
العمر : 35
تاريخ التسجيل : 19/10/2006

معاينة صفحة البيانات الشخصي للعضو http://jad4vb.lightbb.com

الرجوع الى أعلى الصفحة اذهب الى الأسفل

default رد: تحويل النصوص إلي أحرف كبيرة في جميع الأدوات علي النموذج

مُساهمة من طرف سما في الأربعاء أغسطس 15, 2007 4:01 pm

الف شكر اخي الغالي انت مبدع ومبرمج عبقري جدا

سما
عضو نشط
عضو نشط

عدد الرسائل : 12
تاريخ التسجيل : 15/08/2007

معاينة صفحة البيانات الشخصي للعضو

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى