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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Textbox и Кнопка 
:(
    Опции темы
Vadok
  Дата 22.12.2003, 20:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



Люди помоги плиз .....у меня такая проблема : у меня на форме два textbox`a и одна кнопка ...
кнопка когда на ниё кликаешь должно появиться слово " привет" .......но мне надо что бы это слово появлялось в том textbox"е в котором я нахожусь!!!! exclamation.gif
PM MAIL ICQ   Вверх
cardinal
Дата 22.12.2003, 20:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Инженер
****


Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: 19
Всего: 99



Помести на форму два TextBox по имени Text (с разными Index) и кнопку.

Код
Dim pointer As Integer

Private Sub Command1_Click()
Text(pointer).Text = "Привет!"
End Sub


Private Sub Text_LostFocus(Index As Integer)
pointer = Index
End Sub





--------------------
Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино".  А. и Б. Стругацкие
PM   Вверх
ssb
Дата 22.12.2003, 20:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



Делаешь переменную, в которой будет содержаться имя активного текстбокса. Каждму из ник в собітии focus (или как там еще?) прописываешь присвоение этой переменной определенного имени. При клике на кнопке проверяешь значение переменной.
PM MAIL   Вверх
Vadok
Дата 22.12.2003, 21:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



у меня ещё есть кнопка которая должна очищать сожержимое всех textbox ....но так как у меня
2 textbox`a с одинаковым именем ...то он показует ошибку... .....чё делать...confused.gif
PM MAIL ICQ   Вверх
cardinal
Дата 22.12.2003, 22:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Инженер
****


Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: 19
Всего: 99



Код
Private Sub Command1_Click()
Dim n As Object
For Each n In Text
n.Text = ""
Next
End Sub



--------------------
Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино".  А. и Б. Стругацкие
PM   Вверх
Vadok
Дата 22.12.2003, 23:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



пасибо... БОЛЬШОЕ ...но у меня ещё вопрос.....когда я написал в ручьную какоето слово в textbox а потом нажал клавишу которая добовляет слово " привет" .. и у меня то что я напечатал ...поменялось все на " привет " ...мне надо что бы к тому что есть добовлялось слово "привет"
PM MAIL ICQ   Вверх
Vadok
Дата 22.12.2003, 23:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



ВСЁ БОЛЬШОЕ СПАСИБО,,,,,,я РАзобрался...
PM MAIL ICQ   Вверх
Vadok
Дата 23.12.2003, 00:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



а как мне прибавить то что у меня в 1 textbox + 2 textbox = 3 textbox

тоисть например если я ввожу число в 1 textbox "1" а во втором 2 textbox " 2" то в третем должно получиться "3"
PM MAIL ICQ   Вверх
kostik_16
Дата 23.12.2003, 00:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: 1



Если тебе надо приьавить строки, то пишешь:
text3.text = text1.text & text2.text

Если числа, то:

text3.text = text1.text + text2.text

Вот так!!!!!!!!
PM MAIL   Вверх
Vadok
Дата 23.12.2003, 01:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



у меня textbox первый и второй называеться одинаково у них только разные Index()
PM MAIL ICQ   Вверх
shilnik
Дата 23.12.2003, 05:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: 1



text(3).text = text(1).text + text(2).text


--------------------
каталог товаров qp1
PM MAIL WWW   Вверх
Vadok
Дата 23.12.2003, 07:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



оно не прибовляет а одно соединяет с другим.....например :
text(1).text = 1 а в text(2).text = 2 то в text(3).text получанться "12"

PM MAIL ICQ   Вверх
shilnik
Дата 23.12.2003, 10:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: 1



Элементарно: text(3).text = text(1).text & text(2).text



--------------------
каталог товаров qp1
PM MAIL WWW   Вверх
shilnik
Дата 23.12.2003, 10:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: 1



Цитата(Vadok @ 23.12.2003, 00:01)
а как мне прибавить то что у меня в 1 textbox + 2 textbox = 3 textbox

тоисть например если я ввожу число в 1 textbox "1" а во втором 2 textbox " 2" то в третем должно получиться "3"

Так что все-таки надоconfused.gifconfused.gif?


--------------------
каталог товаров qp1
PM MAIL WWW   Вверх
cardinal
Дата 23.12.2003, 15:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Инженер
****


Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: 19
Всего: 99



kostik_16, ты сам пробовал, что написал?
shilnik, вопрос поставлен понятно, в след. раз сначала думать, а потом писать.
Товарищи я в этой теме уже нашел 3 бесполезных ответа.
Мы здесь не для того чтобы набирать очки за ответы, а для того чтобы помогать друг другу.

Вот то, что человек хотел:
Код
Text(2) = CInt(Text(0)) + CInt(Text(1))



--------------------
Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино".  А. и Б. Стругацкие
PM   Вверх
Страницы: (3) Все [1] 2 3 
Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

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

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

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

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


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.

 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »


 




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


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

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