Hello VBForums
Hello everyone
Please gentelmans
If you can help me solve this problem ..
In my form1 i have Frame 1 with Text1 and Frame2 with Text2
I also have a code to put the first letters of words of a sentence in uppercase
But this code in Text1 works very very well and in Text2 not working properly
My code :
Thank you in advance for help
Cordially
MADA BLACK
![Name: 3.jpg
Views: 1
Size: 33.1 KB]()
![Name: 4.jpg
Views: 1
Size: 31.7 KB]()
Hello everyone
Please gentelmans
If you can help me solve this problem ..
In my form1 i have Frame 1 with Text1 and Frame2 with Text2
I also have a code to put the first letters of words of a sentence in uppercase
But this code in Text1 works very very well and in Text2 not working properly
My code :
Code:
Dim MADA As Boolean
Private Sub Command1_Click()
Form1.Frame1.Visible = True
Form1.Frame2.Visible = False
End Sub
Private Sub Command2_Click()
Form1.Frame2.Visible = True
Form1.Frame1.Visible = False
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If MADA = False Then
KeyAscii = KeyAscii - 32
MADA = True
End If
If KeyAscii = 32 Then
MADA = False
End If
Text1.SetFocus
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
If MADA = False Then
KeyAscii = KeyAscii - 32
MADA = True
End If
If KeyAscii = 32 Then
MADA = False
End If
Text2.SetFocus
End SubCordially
MADA BLACK