Модераторы: Akina
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> save текста из комбобокс, и load 
:(
    Опции темы
aleksLAN
Дата 27.4.2006, 16:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 10
Регистрация: 27.4.2006

Репутация: нет
Всего: нет
заранее извиняюсь если вопрос тупой, но на басике програмировать начал совсем недавно...
Код
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. как сделать чтобы текст введённый в текстбоксе после нажатия на кнопку удалялся.  

Это сообщение отредактировал(а) aleksLAN - 27.4.2006, 16:46
PM MAIL   Вверх
boevik
Дата 27.4.2006, 16:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1452
Регистрация: 31.5.2004
Где: Израиль

Репутация: 12
Всего: 35
Цитата(aleksLAN @  27.4.2006,  16:46 Найти цитируемый пост)
P.S. как сделать чтобы текст введённый в текстбоксе после нажатия на кнопку удалялся

Код

Text8.Text = "" 
 


--------------------
Никогда не говори никогда
PM MAIL WWW   Вверх
aleksLAN
Дата 28.4.2006, 12:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 10
Регистрация: 27.4.2006

Репутация: нет
Всего: нет
2boevik 
Спасибо.
А как сделать так чтобы появлялось диалоговое окно открытия файла и диалоговое окно сохранения файла ...
Ну сосбна это ^ небольшая коректировка первого вопроса 
PM MAIL   Вверх
boevik
Дата 28.4.2006, 13:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1452
Регистрация: 31.5.2004
Где: Израиль

Репутация: 12
Всего: 35
Поищи как работать с CommonDialog.

К примеру, ссылка 


--------------------
Никогда не говори никогда
PM MAIL WWW   Вверх
aleksLAN
Дата 28.4.2006, 16:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 10
Регистрация: 27.4.2006

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

Это сообщение отредактировал(а) aleksLAN - 28.4.2006, 16:24
PM MAIL   Вверх
amt
Дата 28.4.2006, 23:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 249
Регистрация: 26.10.2004
Где: г. Волгоград

Репутация: 3
Всего: 3
Кинь на форму объект CommonDialog

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

CommonDialog1.ShowOpen 

или
Код

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

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

или
Код

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

Это сообщение отредактировал(а) amt - 28.4.2006, 23:42
--------------------
С точки зрения банальной эрудиции не каждый индивидуум способен игнорировать тенденции парадоксальных эмоций.
PM MAIL   Вверх
aleksLAN
Дата 29.4.2006, 11:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 10
Регистрация: 27.4.2006

Репутация: нет
Всего: нет
Спасибо.
ещё один вопрос я почти всё сделал... только как мне сделать так чтобы ВСЕ строки в текстбоксе сохранялись в файл, а не только выбраная.
Код
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 = ""

как сделать так чтобы данные из текстбокса которые перешли в комбобокс сразу выбирались и не приходилось бы искать их самому в комбобоксе. 
PM MAIL   Вверх
amt
Дата 29.4.2006, 23:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 249
Регистрация: 26.10.2004
Где: г. Волгоград

Репутация: 3
Всего: 3
Цитата

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

Здесь наверное имеется ввиду строки в 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
  

Это сообщение отредактировал(а) amt - 29.4.2006, 23:05
--------------------
С точки зрения банальной эрудиции не каждый индивидуум способен игнорировать тенденции парадоксальных эмоций.
PM MAIL   Вверх
aleksLAN
Дата 30.4.2006, 08:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 10
Регистрация: 27.4.2006

Репутация: нет
Всего: нет
Цитата
Здесь наверное имеется ввиду строки в ComdoBox, а не TextBox.

да, спасибо всем!!! всё у меня вопросов нет. 
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.1026 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.