السلام عليكم ورحمة الله وبركاته
ايها الاخوة جزتكم الله خير اريد ان اعرف كيف يمكن جعل اول حرف بالتكست كبير واللغة المستعملة هي الانجليزية
:blink:
[ تمت الإجابة ]كيف يمكن جعل التكست بوكس يكتب اول حرف كبير
تفضل
If Len(Me.Text1) > 0 Then Me.Text1 = UCase(Left(Me.Text1, 1)) & Right(Me.Text1, Len(Me.Text1) - 1)
كن كالنخيل عن الأحقاد مرتفعا .. يرمى بصخر فيرمى أطيب الثمر
السلام عليكم
اخي بارك الله فيك غلى الاستجابة
الكود اخي فيه مشكل حيث انني عندما اكتب فانه يقوم بكنابة الحروف بالمعكوس والحروف كلها كبيرة وانا احتاج الحرف الاول فقط
وشكرا على المساعدة
السلام عليكــم ورحمـة الله وبركاتــه ،،
لظبط الحرف الأول فقط قم باستخدام الكود ادناه
Dim TMPSel As Integer
If Len(Me.Text1.Text) > 0 Then
If UCase(Left(Me.Text1.Text, 1)) <> Left(Me.Text1.Text, 1) Then
TMPSel = Me.Text1.SelStart
Me.Text1.Text = UCase(Left(Me.Text1.Text, 1)) & Right(Me.Text1.Text, Len(Me.Text1.Text) - 1)
Me.Text1.SelStart = TMPSel
End If
End If
End Sub
Private Sub Text1_Change()
اما لظبط الحروف كلها .. الحرف الاول من كل كلمة Capital والباقي Small
Dim TMPSel As Integer
If Me.Text1.Text <> StrConv(Me.Text1.Text, vbProperCase) Then
TMPSel = Me.Text1.SelStart
Me.Text1.Text = StrConv(Me.Text1.Text, vbProperCase)
Me.Text1.SelStart = TMPSel
End If
End Sub
Private Sub Text1_Change()
اعتذر عن عدم تمكني للمتابعه الدورية في وقتنا الحالي
فليقبل الجميع تقديري واحترامي .. ولكم تحياتي
شكرا اخي ضبطت معاي المرة