VB2008 Type Cast Exception

Question

У меня есть форма с текстовым полем (скажем, TextBox1).Это поле строкового типа.

При нажатии на кнопку у меня есть следующий код:

Dim field1 As String

If (TextBox1.Text) Then field1 = TextBox1.Text Else MsgBox("TextBox1 Code can not be empty. Enter proper value!", vbCritical, "Empty TextBox1")

Я построил решение и запустил его.Когда форма открыта, я ничего не вводил в TextBox1.Я нажал на кнопку.Выдается исключение, как показано ниже:

InvalidCastException was unhandled
Conversion from string "" to type 'Boolean' is not valid.

Может кто-нибудь подсказать, как мне справиться с этим исключением?Кроме того, почему он все равно пытается конвертировать мою строку в Bool?

Answer 1

Проблема заключается в следующем:

If (TextBox1.Text)

Он пытается преобразовать TextBox1.Text в Boolean, чтобы увидеть, идти в блок или нет.Вы могли иметь в виду:

If (TextBox1.Text <> "")