|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (ActiveX/Controles/DLL)
|
|
 |
Título da Dica: Recuperar o último item selecionado de um ComboBox
|
 |
|
|
|
Postada em 11/2/2003 por Salgadinho
Coloque 1 combo e 3 botoes no form....
Private Sub Combo1_Click()
cmdGravar.Enabled = True
End Sub
Private Sub cmdGravar_Click()
'Apaga o q esta registrado
'Grava o novo item
Open App.Path & "\ArqTeste.txt" For Output As #1
Print #1, Combo1.Text
Close #1
Combo1.ListIndex = -1
End Sub
Private Sub cmdMostrar_Click()
On Error Resume Next
Dim Item As String
'Lê o q tem no arquivo
Open App.Path & "\ArqTeste.txt" For Input As #1
Line Input #1, Item 'Impoem a variavel Item
'o valor da primeira linha, caso vc quisesse
'pegar a segunda linha era soh colocar outro
'Line Input #1 e assim por diante
Close #1
Combo1.Text = Item
End Sub
Private Sub cmdSair_Click()
End
End Sub
Private Sub Form_Load()
With Me.Combo1
.AddItem "Item 1"
.AddItem "Item 2"
.AddItem "Item 3"
.AddItem "Item 4"
.AddItem "Item 5"
End With
Call cmdMostrar_Click
End Sub
|
|
|
|
|
