Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: Пара вопросов по Textbox Добавлено: 14.08.09 15:26  

Автор вопроса:  Алексей
Коллеги!

У меня пара вопросов по textbox:

1) Если на форме несколько textbox, то как можно перемещать курсор с одного бокса в другой нажатием Enter?
2)Как прописать код, который бы при пустом textbox выводил бы msgbox
На VBA работает код:
if textbox1.value = "" then msgbox("***")
На VB этот код не работает...
Заранее спасибо за подсказки!

Ответить

  Ответы Всего ответов: 2  

Номер ответа: 1
Автор ответа:
 UnDeAdZak



Вопросов: 80
Ответов: 476
  Профиль | | #1 Добавлено: 14.08.09 17:27
нада делать по другому.
Привожу пример для Visual Basic 6,0
1)
  1.  
  2. Private Sub Text1_KeyPress(KeyAscii As Integer)
  3. if keyascii = Vbkeyenter then
  4. Text2.SetFocus
  5. end if
  6. End Sub


2)
  1.  
  2. If textbox1.text = "" then
  3. textbox1.text = msgbox("бла-бла-бла")
  4. end if

Ответить

Номер ответа: 2
Автор ответа:
 AWP



ICQ: 345685652 

Вопросов: 96
Ответов: 1212
  Web-сайт: xawp.narod.ru
 Профиль | | #2 		Добавлено: 14.08.09 20:52
Чуть подправлю втрой пункт.
  1.  
  2. Private Sub textbox1_Change()
  3.   If textbox1.text = "" then
  4.   textbox1.text = msgbox("бла-бла-бла")
  5.   end if
  6. End Sub



Хотя не советую вызывать MsgBox, т.к. Он будет очень раздражать. Лучше подсказку или что-то в этом роде.

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам