185 - MINUSCULO MAIUSCULO
Private Sub command1_click()
1 Dim newitem As String
2 newitem = Text1.Text
3 If newitem <> [Ô][Ô] Then Combo1.AddItem newitem
End Sub
Private Sub command2_click()
1 Combo1.Clear
End Sub
Private Sub Command3_Click()
1 Dim selItemIndex As Integer
2 selItemIndex = Combo1.ListIndex
3 If selItemIndex = -1 Then
4 MsgBox [Ô]no item selected.[Ô]
5 Else
6 Combo1.RemoveItem (ItemIndex) [ô]<<<<<<<<<<<<<<<<<<ESTA LINHAVA ESTAVA DANDO ERRO ([Ô]Method or Data Member Not File[Ô])erro na pág 258 do livro ed.Moderna vb 6 para leigos
7 End If
End Sub
Private Sub command4_click()
1 If Combo1.Locked = True Then
2 Combo1.Locked = False
3 Command4.Caption = [Ô]Locked Combox[Ô]
4 Else
5 Combo1.Locked = True
6 Command4.Caption = [Ô]Unlock ComboBox[Ô]
7 End If
End Sub
Private Sub Combo1_click()
1 Dim selitem As String
2 selitem = Combo1.Text
3 MsgBox [Ô]You selected: & selitem[Ô]
End Sub
Private Sub Command5_Click()
1 End
End Sub
Private Sub Form_Load()
1 Combo1.AddItem [Ô]elephant[Ô]
2 Combo1.AddItem [Ô]Cheetah[Ô]
3 Combo1.AddItem [Ô]Lion[Ô]
4 Combo1.AddItem [Ô]Giraffe[Ô]
5 Combo1.AddItem [Ô]Monkey[Ô]
6 Combo1.AddItem [Ô]Boa constrictor[Ô]
7 Combo1.AddItem [Ô]Antelop[Ô]
8 Combo1.AddItem [Ô]Water Buffalo[Ô]
9 Combo1.BackColor = RGB(255, 255, 0)
10 Combo1.ForeColor = RGB(0, 0, 255)
11 Combo1.Text = [Ô][Ô]
12 Command1.Caption = [Ô]Add New Item :[Ô]
13 Command1.Caption = [Ô]Add New Item:[Ô]
14 Command2.Caption = [Ô]Remove All Itens[Ô]
15 Command3.Caption = [Ô]Remove Selected Item[Ô]
16 Command4.Caption = [Ô]Lock ComboBox[Ô]
17 Text1.Text = [Ô]Default Item[Ô]
End Sub
[ô] Este código não teria que transformar as palavras minúsculas em MAIÚSCULAS ?
Private Sub TextTry_KeyPress(KeyAscii As Integer) [ô]<<<<<<<<<<<<<<<<<<
[ô] Converte qualquer letra minúscula em nmaiúscula [ô]<<<<<<<<<<<<<<<<<<
1 If (KeyAscii >= 97) And (KeyAscii <= 122) Then [ô]<<<<<<<<<<<<<<<<<<
2 KeyAscii = KeyAscii - 32 [ô] ajusta para maiúscula [ô]<<<<<<<<<<<<<<<<<<
3 End If [ô]<<<<<<<<<<<<<<<<<<
End Sub [ô]<<<<<<<<<<<<<<<<<<
A melhor forma de se resolver isto é com as funções Ucase$() e Lcase$(), pois assim independente do conjunto de caractreres utilizado o VB faz a conversão para vc já tratando eventuais erros internamente.
[ô]maiusculo
Private Sub Form_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase$(Chr$(KeyAscii)))
End Sub
[ô]minusculo
Private Sub Form_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(LCase$(Chr$(KeyAscii)))
End Sub
não precisa mais do que isso
Citação:LOPESCOM escreveu:
coloque esse código no seu form
[ô]maiusculo
Private Sub Form_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase$(Chr$(KeyAscii)))
End Sub
[ô]minusculo
Private Sub Form_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(LCase$(Chr$(KeyAscii)))
End Sub
não precisa mais do que isso
Veja você mesmo :
Citação:MANCKENNA escreveu:
LOPESCOM escreveu:
coloque esse código no seu form
[ô]maiusculo
Private Sub Form_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase$(Chr$(KeyAscii)))
End Sub
[ô]minusculo
Private Sub Form_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(LCase$(Chr$(KeyAscii)))
End Sub
não precisa mais do que isso
Veja você mesmo :
Seis abandonaram eu porque , tô comendo muito sem pagar ou tô fazendo pregunta difici ?..........
Abandonam eu não gente coloquem este trem deste código certo ai no meu projeto pre eu ver isso funcionando e poder aprender também uai......
Quanto ao deixar maiusculo, acerte o nome da texbox assim:
Citação:Private Sub TextTry_KeyPress(KeyAscii As Integer) [ô]<<<<<<<<<<<<<<<<<<
[ô] Converte qualquer letra minúscula em nmaiúscula [ô]<<<<<<<<<<<<<<<<<<
1 If (KeyAscii >= 97) And (KeyAscii <= 122) Then [ô]<<<<<<<<<<<<<<<<<<
2 KeyAscii = KeyAscii - 32 [ô] ajusta para maiúscula [ô]<<<<<<<<<<<<<<<<<<
3 End If [ô]<<<<<<<<<<<<<<<<<<
End Sub
para:
Private Sub Text1_KeyPress(KeyAscii As Integer) [ô]<<<<<<<<<<<<<<<<<<
[ô] Converte qualquer letra minúscula em nmaiúscula [ô]<<<<<<<<<<<<<<<<<<
1 If (KeyAscii >= 97) And (KeyAscii <= 122) Then [ô]<<<<<<<<<<<<<<<<<<
2 KeyAscii = KeyAscii - 32 [ô] ajusta para maiúscula [ô]<<<<<<<<<<<<<<<<<<
3 End If [ô]<<<<<<<<<<<<<<<<<<
End Sub
Quando click na combo é para exibir o nome selecionado. Tambem acertei
Veja o seu exemplo com tudo funcionando:
