VBNet - Форум - Проблема с TextBox в VBA (Exsel 2003)

Вопрос: Проблема с TextBox в VBA (Exsel 2003) Добавлено: 26.05.08 11:42

Автор вопроса: Desperado | ICQ: 159642116

Есть Userform созданный в VBA (запущенной из MS Excel) на ней распологается поле ввода TextBox1 и кнопка
CommandButton1

Код следующий

Dim sНаименование_группы As String

Private Sub Добавление_группы_в_список_групп_материалов()
sНаименование_группы = TextBox1.Text
MsgBox sНаименование_группы
End Sub

Private Sub CommandButton1_Click()
If TextBox1.Value = "" Then MsgBox "Вы не ввели имя новой группы"
Call Добавление_группы_в_список_групп_материалов
End Sub

После запуска кода к выполнению наблюдаю следующее.

Если в TextBox1 не ввожу ничего и нажимаю на кнопку, выскакивает сообщение "Вы не ввели имя новой группы" (То что нужно!)

А вот если ввожу, поидее после нажатия кнопки должна произойти передача переменной sНаименование_группы текста который я ввел в поле TextBox1, а потом появления сообщения с этим текстом. Но в реале, что бы я не ввел, появляется пустой MsgBox так как будто я ничего и не вводил.

То же самое и при замене в коде свойства TextBox1.Text на TextBox1.Value. Еще более странно то, что если я пишу код с прямым присвоением TextBox1.Value = "Что либо..."
и связываю этот код с событием Click для CommandButton1

После нажатия на кнопку в поле TextBox1 ничего не появляется.

Я уже сломал Моск, перечитал все справочники, думаю может это глюк Бэйсика такой. Подскажите плиз кто опытный может я че ни понимаю или не так пишу.
Ато очень надо.

Заранее всем спасибо за ответы.
Ответить

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

Номер ответа: 1 Автор ответа: StrongMax Вопросов: 1 Ответов: 4	Профиль \| \| #1	Добавлено: 26.05.08 12:14
	Вот так в VB 6 работает, только проверил. Добавить не чего. Dim NameGroup As String Private Sub AddTxt() NameGroup = Txt.Text MsgBox NameGroup End Sub Private Sub Com_Click() If Txt.Text = "" Then MsgBox "Вы не ввели имя новой группы" Else Call AddTxt End If End Sub Ответить

Номер ответа: 2 Автор ответа: Администратор ICQ: 278109632 Вопросов: 42 Ответов: 3949	Web-сайт: domkratt.com Профиль \| \| #2	Добавлено: 26.05.08 14:28
	У меня все работает. ХЗ. Ответить

Страница: 1 |