Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > VB6 > save текста из комбобокс

Автор: aleksLAN 27.4.2006, 16:46

заранее извиняюсь если вопрос тупой, но на басике програмировать начал совсем недавно...

Код

Private Sub Command4_Click() 
If Text8.Text <> "" Then
    Combo1.AddItem Text8.Text
End If
If Text9.Text <> "" Then
    Combo2.AddItem Text9.Text
End If
If Text9.Text <> "" Then
    Combo3.AddItem Text10.Text
End If
End Sub

значит так данные введённые в текстбоксе переходят в комбобокс и мне надо чтобы после ввода данных всё это сохранилось куда-нить, а потом это можно было бы загружать.
P.S. как сделать чтобы текст введённый в текстбоксе после нажатия на кнопку удалялся.

Автор: boevik 27.4.2006, 16:48

Цитата(aleksLAN @ 27.4.2006, 16:46

)

P.S. как сделать чтобы текст введённый в текстбоксе после нажатия на кнопку удалялся

Код


Text8.Text = ""

Автор: aleksLAN 28.4.2006, 12:49

2boevik
Спасибо.
А как сделать так чтобы появлялось диалоговое окно открытия файла и диалоговое окно сохранения файла ...
Ну сосбна это ^ небольшая коректировка первого вопроса

Автор: boevik 28.4.2006, 13:46

Поищи как работать с CommonDialog.

К примеру, http://forum.vingrad.ru/index.php?showtopic=26543&unread=1&hl=showopen,and,dialog

Автор: aleksLAN 28.4.2006, 16:00

10х =)
[обновлено]
набрёл сюда http://www.microsoft.com/Rus/Msdn/Activ/MSVB/Archive/Applications/Examples/VB-application-1.mspx
но всё равно чёто не врублюсь как вызвать диалоговое окно. если не сложно прошу привести пример. (save and load)
Прошу меня извинить меня за мою "тупость"...

Автор: amt 28.4.2006, 23:40

Кинь на форму объект CommonDialog

далее где-нибудь вставь код

Код


CommonDialog1.ShowOpen

или

Код


CommonDialog1.ShowSave

Чтобы узнать имя и путь выбранного файла можно сделать так

Код


CommonDialog1.ShowOpen 
strFile=CommonDialog1.FileName 'путь и имя файла

или

Код


strNFile=CommonDialog1.FileTitl 'имя файла

Автор: aleksLAN 29.4.2006, 11:56

Спасибо.
ещё один вопрос я почти всё сделал... только как мне сделать так чтобы ВСЕ строки в текстбоксе сохранялись в файл, а не только выбраная.

Код

Private Sub mnuLoad_Click()
'CommonDialog1.ShowOpen
CommonDialog1.ShowOpen
strFileName = CommonDialog1.FileName
nFreeFile = FreeFile
If strFileName <> "" Then
Open strFileName For Input As nFreeFile
nFileLenght = FileLen(strFileName)
strFileContent = Input(nFileLenght, #nFreeFile)
kz.Combo1.Text = strFileContent
Close
End If
End Sub

Private Sub mnuSave_Click()
nFreeFile = FreeFile
CommonDialog1.ShowSave
strFileName = CommonDialog1.FileName
If strFileName <> "" Then
Open strFileName For Output As nFreeFile
strFileContent = kz.Combo1.Text
Print #nFreeFile, strFileContent
Close
End If
End Sub

и ещё один вопрос

Код

If Text2.Text <> "" Then
    Combo4.AddItem Text2.Text
End If
Text2.Text = ""

как сделать так чтобы данные из текстбокса которые перешли в комбобокс сразу выбирались и не приходилось бы искать их самому в комбобоксе.

Автор: amt 29.4.2006, 23:03

Цитата

так чтобы ВСЕ строки в текстбоксе сохранялись в файл, а не только выбраная.

Здесь наверное имеется ввиду строки в ComdoBox, а не TextBox.
Тогда так

Код


For i=0 to Combo1.ListCount-1
Print #xxx, Combo1.List(i)
Next i

Цитата

Добавь в

Цитата

If Text2.Text <> "" Then
Combo4.AddItem Text2.Text
End If

Код


Combo4.Text=Text2.Text

Автор: aleksLAN 30.4.2006, 08:40

Цитата

Здесь наверное имеется ввиду строки в ComdoBox, а не TextBox.

да, спасибо всем!!! всё у меня вопросов нет.