VPF::Заполнено ли поле... - Форум программистов

Musja

Дата 14.9.2006, 18:18 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

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

Есть небольшая и простенькая "програмка" точнее форма, написанная в VBA.
Состоящая из двух строк(TextBox1 и TextBox2) и картинки (Image1)
Она полностью работает, единственное что необходимо так это сделать чтобы сообщение "Поздоровайтесь со мной" не исчезало из TextBox1 до тех пор пока во втором поле TextBox2 не будет введён какой либо текст, а затем "программа" переходила к Counter = 3 и дальше выполняла всё как написано.
Сколько не пробовала ничего не получилось smile

Скажите с помощью чего это можно осуществить и где можно про это почитать...

Код


Private Sub CommandButton1_Click()
'Данная процедура использует статическую переменную для
'подсчета щелчков
Static Counter As Integer    'Счетчик начинается с нуля
Counter = Counter + 1
If Counter = 1 Then
    TextBox1.Text = "Здравствуйте!"
  ElseIf Counter = 2 Then
       TextBox2.Text = ""
       TextBox1.Text = "Поздоровайтесь со мной!"
End If

If Counter = 3 Then
     TextBox1.Text = "Введите ваше имя!"
     Image1.Picture = LoadPicture("D:\1.jpg")
End If

If Counter = 4 Then
     TextBox1.Text = "Добро пожаловать " + TextBox2.Text
     Image1.Picture = LoadPicture("D:\2.jpg")
   If TextBox2 = "" Then
      TextBox1.Text = "Добро пожаловать Аноним"
       Image1.Picture = LoadPicture("D:\3.jpg")
   End If
End If

End Sub

boevik

Дата 14.9.2006, 18:37 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

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

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

Проверить, есть ли что либо в Text2, если нет, выходим из процедуры:

Код


Private Sub CommandButton1_Click()
'Данная процедура использует статическую переменную для
'подсчета щелчков
Static Counter As Integer    'Счетчик начинается с нуля
if len(text2.text) = 0 then
   msgbox "введите имя"
   exit sub
end if
Counter = Counter + 1
If Counter = 1 Then
    TextBox1.Text = "Здравствуйте!"
  ElseIf Counter = 2 Then
       TextBox2.Text = ""
       TextBox1.Text = "Поздоровайтесь со мной!"
End If

If Counter = 3 Then
     TextBox1.Text = "Введите ваше имя!"
     Image1.Picture = LoadPicture("D:\1.jpg")
End If

If Counter = 4 Then
     TextBox1.Text = "Добро пожаловать " + TextBox2.Text
     Image1.Picture = LoadPicture("D:\2.jpg")
   If TextBox2 = "" Then
      TextBox1.Text = "Добро пожаловать Аноним"
       Image1.Picture = LoadPicture("D:\3.jpg")
   End If
End If

End Sub

--------------------

Никогда не говори никогда

Musja

Дата 15.9.2006, 16:37 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

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

boevik, спасибо что откликнулись!
Я имела ввиду немного другое.
Дело в том, что TextBox2 не всегда заполнен. А если сделать как предлагаете вы, получится что TextBox2 всегда должен быть заполнен иначе выводится сообщение.
Просто не должно переходить к Counter = 3 пока не будет введено приветствие т.е. зациклиться на Counter = 2

Код


  ElseIf Counter = 2 Then    
       TextBox2.Text = ""    
       TextBox1.Text = "Поздоровайтесь со мной!"

Сделать надо здесь. Что бы я не пробовала "программа" частично престаёт работать.

boevik

Дата 15.9.2006, 16:41 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

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

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

Musja, код который я предложил не сложно переделать в то что тебе требуется.
Hint: передвинуть мою вставку на несколько строк ниже и counter уменьшить

Это сообщение отредактировал(а) boevik - 15.9.2006, 16:42

--------------------

Никогда не говори никогда

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