COMBO1.REMOVEITEMSELITEMINDEX

MANCKENNA 01/09/2009 15:45:41
#321585
Alguém consegue ver [Ô]erro[Ô] nesta linha ?

[Ô]Combo1.RemoveItemselItemIndex[Ô]

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.RemoveItemselItemIndex [ô]<<<<<<<<<<<<<<<<<<ESTA LINHA ESTÁ DANDO ERRO ([Ô]Method or Data Member Not File[Ô])
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 Label1.Caption = [Ô]Enter a 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
MANCKENNA 01/09/2009 15:47:07
#321586
Ai vai o formulário , pois não sei como zipar tudo junto
ROBIU 01/09/2009 16:04:05
#321588 Resposta escolhida
Se for só isso:
Combo1.RemoveItem (ItemIndex)
MANCKENNA 01/09/2009 20:20:15
#321630
Citação:

ROBIU escreveu:
Se for só isso:

Combo1.RemoveItem (ItemIndex)



Matou a páu , '(deve ser erro do livro ou então a nova versão não aceita o código anterior, pois foi só mudar pra funcionar , agora só pra te pertubar me diga porque a letra [ô]a[Ô] do primeiro botão [Ô]command1[Ô] o nome Caption [Ô]Add New Item[Ô] insiste em ficar minúsculo em tempo de execução (quando o programa está rodando).......
ROBIU 02/09/2009 11:12:10
#321692
Amigo, isso é erro de digitação mesmo. Note que quando você digita o nome de um objeto e dá o (.), ele exibe a lista das propriedades e métodos do objeto para você selecionar. Caso exija parâmetros, ele mostra os parâmetros necessãrios entre parênteses. Ex

Crie um projeto novo e insira um comboBox. Se não inserir, não vai aparecer. Em qualquer lugar do código (Não é para executar, só para mostrar)
Combo1.   [ô]=>> Vai aparecer a lista de propriedades. Escreva as iniciais da propriedade (Rem...) e vai selecionar a propriedade 
Combo1.RemoveItem  [ô] Selecionamos esta propriedade e adicionamos ao código com [Ô]TAB[Ô]. [Ô]Tecla Espaço[Ô] vemos que pede argumento.
Combo1.RemoveItem(ItemIndex) [ô]ItemIndex é uma variavel integer definida anteriormente.


Para sua outra duvida, veja sua linha 13. O a está minúsculo mesmo. é aí que está definindo o caption do butão:
Citação:

13 Command1.Caption = [Ô]add New Item[Ô]




Coloque:

13 Command1.Caption = [Ô]Add New Item[Ô]


Lembre-se de que não deve tratar mais de um assunto no mesmo tópico
MANCKENNA 02/09/2009 19:35:09
#321750
[Ô]SOLUCIONADO[Ô]
Parabéns quem sabe sabe....
Tópico encerrado , respostas não são mais permitidas
Voltar