Question

vb6.0中,判断文本框中是否输入文本,如果是则弹出提示框"是否继续运行“，并且有”是“”否“两个选项，求

Answer 1

Private Sub TextBox1_KeyPress1(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress If e.KeyChar >= "A" And e.KeyChar <= "Z" Or e.KeyChar >= "a" And e.KeyChar <= "z" Then e.Handled = False Else MessageBox.Show ("只能输入字母！") e.Handled = True Exit Sub End IfEnd Sub