USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  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
 


CyberWEB Network Ltda.    © Copyright 2000-2021   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página