|
|
|
|
|
Dicas
|
|
Visual Basic (Arquivos/Diretórios)
|
|
|
Título da Dica: Carregar um combo box com os dados de um arquivo texto
|
|
|
|
Postada em 3/9/2002 por Ageu Elias Rove
ageu.rover@bol.com.br
************************************************************ como char a sub Call CarregaTxtComboBox(cmb_FiltroTabela, App.Path & "\FiltroTab.aux")
*********************************************************** Public Sub CarregaTxtComboBox(nmCombo As ComboBox, ArqTxt As String) On Error GoTo trata_erro Screen.MousePointer = 11
Dim ContItem As Integer Dim Linha As String
If FileExist(ArqTxt) = False Then Screen.MousePointer = 1 MsgBox "Arquivo " & ArqTxt & " não encontrado.", vbCritical Exit Sub End If
Open ArqTxt For Input As #1
ContItem = 1
Do Until EOF(1) = True DoEvents Line Input #1, Linha If Mid(Linha, 1, 4) = "CMP=" Then nmCombo.AddItem LTrim(RTrim(Mid(Linha, 5))) nmCombo.ItemData(nmCombo.NewIndex) = ContItem ContItem = ContItem + 1 End If Loop Close #1 Screen.MousePointer = 1
trata_erro: If Err.Number <> 0 Then Screen.MousePointer = 1 MsgBox Err.Number & Chr(13) & Err.Description, vbInformation, "Mensagem" Exit Sub End If
End Sub
******************************************************** exemplo do arquivo texto:
#### CAMPOS DA TABELA DE Produtos CMP= CODPROD CMP= DESCRICAO CMP= EMBALAGEM CMP= QTEST CMP= PUNIT CMP= PVENDA1 CMP= PVENDA2 CMP= PVENDA3 CMP= PERDESC CMP= PERCOMISSAO #### FIM TABELA CLIENTE
|
|
|
|
|