vb6 обновит список в combo полученный из текстового файла
Private Sub Combo1_Click()
Dim ff As Integer, Text As String, LastName As String, row As Integer
Do
LastName = Trim$(Combo1.Text)
Loop While LastName = ""
ff = FreeFile
Open App.Path & "BDконтрагенты.CSV" For Input As #ff
Text = Input(LOF(ff), #ff)
Close #ff
row = FindSurname(Text, LastName)
If row = 0 Then
Text2.Text = ""
MsgBox "данные не найдены, 48, "СООБЩЕНИЕ!"
Else
Text1(7).Text = GetValue(Text, row, 7)
End If
End Sub
так и ни кто не смог ни кто ответить на мой вопрос.....что-же будем ждать
Private Sub cmb1_Click()
Dim str_Data$
Dim str_DataArr$()
Dim a%
str_Data = cmb1.List(cmb1.ListIndex)
str_DataArr = Split(str_Data, ",")
For a = 0 To UBound(str_DataArr)
txt_1(a) = str_DataArr(a)
Next
End Sub
Private Sub Form_Load()
Dim int_File%
Dim str_Data$
Dim str_DataArr$()
Dim a%
int_File = FreeFile
Open App.Path & "test.csv" For Input As int_File
str_Data = Input(LOF(int_File), int_File)
Close int_File
str_DataArr = Split(str_Data, vbCrLf)
Text1.Text = str_Data
For a = 0 To UBound(str_DataArr)
cmb1.AddItem str_DataArr(a)
Next
cmb1.ListIndex = 0
End Sub
TextBox отмечен желтым и формат файла test.csv.
P/S
Редактор кода VB6 .
..................
P/S
Редактор кода VB6 .[/quote]я не совсем все понял из того что в коде, пожалуйста возможно просмотреть мой пример, (на кнопку первый вариант не обращайте внимание) вопрос по combo1
я не совсем все понял из того что в коде, пожалуйста возможно просмотреть мой пример, (на кнопку первый вариант не обращайте внимание) вопрос по combo1
Не чево я смотреть не буду.
Вот вам пояснение к коду если этого мало то это не ко мне!
Создайте новый проект
Добавить на форму 4 объекта
1)ComboBox - (Name)cmb1
2)TextBox - (Name)Text1
3)Frame - (Name)Frame1
4)В контейнер Frame вставить TextBox - (Name)txt_1
Потом правой кнопкой скопировать txt_1 и вставить, второй txt_1. Редактор кода VB6 выдаст сообщение:
"You already have a control named 'txt_1'. Do you want to create a control array?"
"Такой контрол уже есть с именем 'txt_1'. Вы хотите создать массив?" "ДА"
Далее добавляем третий txt_1
Смотрим окно Properties и должны видеть txt_1(0),txt_1(1),txt_1(2)
Скопировать код выше в Редактор кода VB6
Сохранить проэкт.
Открыть папку проекта и создать текстовый файл
aaa,aaa1,aaa2
bbb,bbb1,bbb2
ccc,ccc1,ccc2
Сохранить файл(test.txt) и переименовать(test.csv)