فيجول بيسك
بسم الله الرحمن الرحيم
مرحبا بك عزيزي الزائر. المرجوا منك أن تعرّف بنفسك و تدخل المنتدى معنا. إن لم يكن لديك حساب بعد, نتشرف بدعوتك لإنشائه.


منتدى الفيجول بيسك
 
الرئيسيةالرئيسية  البوابةالبوابة  اليوميةاليومية  س .و .جس .و .ج  بحـثبحـث  الأعضاءالأعضاء  المجموعاتالمجموعات  التسجيلالتسجيل  دخول  

شاطر | 
 

 جعلا الحرف الاول في الكلمة حرف كبير Capital letter

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


المساهمات : 26
تاريخ التسجيل : 26/02/2011

مُساهمةموضوع: جعلا الحرف الاول في الكلمة حرف كبير Capital letter   الجمعة أبريل 01, 2011 6:20 pm

جعلا الحرف الاول في الكلمة حرف كبير Capital letter

اضف الاداة كومبو بوكس الى الفورم
ثم اضف الكود التلي الى قسم الاجراء العام


الكود:

Private Function ccProperCase(MySourceControl As Control)
On Error GoTo ErrH
Dim strString As String
strString = MySourceControl.Text
If IsNull(strString) Then Exit Function
strString = StrConv(strString, vbProperCase)
MySourceControl.SelStart = Len(strString)
MySourceControl.Text = strString
Exit Function
ErrH:
MsgBox "Error at ccProperCase:::- " & Err.Number & " - " & Err.Description, vbCritical
Exit Function
End Function

Private Sub Combo1_Change()
Call ccProperCase(Combo1)
End Sub
بعد تشغي البرنامج داخل الكومبو بكس اكتب مثلا



open فانها سوف تصبح Open


.
الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو http://visualbasic.alamontada.com
 
جعلا الحرف الاول في الكلمة حرف كبير Capital letter
استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1
 مواضيع مماثلة
-
» فيلم Ripper 2: Letter from Within

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
فيجول بيسك :: فيجول بيسك Visual Basic-
انتقل الى: