Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Последние темы форума

Показать новые сообщения »

Почтовая рассылка

Подписчиков: 11625
Последний выпуск: 19.06.2015

vb6 обновит список в combo полученный из текстового файла

32K
26 сентября
assei
24 / / 03.04.2013
Ребята здравствуйте! подскажите как в имеющимся коде обновит список в combo1, полученный из текстового файла

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


так и ни кто не смог ни кто ответить на мой вопрос.....что-же будем ждать
318
02 октября
UserNet2008
717 / / 03.04.2010
Код:
Option Explicit

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 .
32K
09 октября
assei
24 / / 03.04.2013
bnet]
..................
P/S
Редактор кода VB6 .[/quote]я не совсем все понял из того что в коде, пожалуйста возможно просмотреть мой пример, (на кнопку первый вариант не обращайте внимание) вопрос по combo1
Прикрепленные файлы:
355 Кб
Загрузок: 14
318
11 октября
UserNet2008
717 / / 03.04.2010
Цитата: assei

я не совсем все понял из того что в коде, пожалуйста возможно просмотреть мой пример, (на кнопку первый вариант не обращайте внимание) вопрос по 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)

Знаете кого-то, кто может ответить? Поделитесь с ним ссылкой.

Ваш ответ

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог