我想设计成textbox中有数值则BTN为可见，若没有数值BTN不可见应该怎么写这个语句。

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If TextBox1.Text.Length = 0 Then  '这里是关键
            button1.Visible = False
        Else ： button1.Visible = True
        End If

    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        If TextBox1.Text.Length = 0 Then
            button1.Visible = False
        Else ： button1.Visible = True
        End If

    End Sub
End Class 哈哈，终于作出来了

你这是判断是否有内容，不一定是数值啊。
还应该加一句判断是不是数字

多谢！~

顶顶！！

顶顶顶1

你的判断  文本框中是否是数字  可以用js实现
<script language=javascript>
function onlyNum()
{
if(!((event.keyCode>=48&&event.keyCode<=57)||(event.keyCode>=96&&event.keyCode<=105)))
//考虑小键盘上的数字键
event.returnvalue=false;
}
</script>
要求文本框中 只输数字

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        Button1.Visible = IIf(IsNumeric(TextBox1.Text), True, False)
    End Sub

顶上！