Private Sub Text1_KeyPress(KeyAscii As Integer)
If (KeyAscii > Asc("9") Or KeyAscii < Asc("0")) And KeyAscii <> Asc("") And KeyAscii <> 45 And KeyAscii <> 8 Then KeyAscii = 0
End Sub
'这种方法有缺陷，用户可以输入3333，建议你使用下面的方法
Private Sub Text1_LostFocus() '文本框失去焦点
If IsNumeric(Text1Text) = False Then
MsgBox "请输入数字", vbExclamation
ElseIf Trim(Text1Text) = "" Then
MsgBox "文本框不能为空", vbExclamation
Else
Exit Sub
End If
Text1SetFocus
Text1SelStart = 0
Text1SelLength = Len(Text1Text)
End Sub
<html>
<head>
<title>作业</title>
<script>
function welcome(){
windowalert("欢迎进入");
}
</script>
</head>
<body onload="welcome();">
这是老师布置的d窗作业
</body>
</html>
说明：把以上直接保存为html网页文件即可
首先确定你的VC版本，对于VC60最方便，直接编译成release就可以，发布到任何电脑都能直接跑。对于VC71及以上版本，需要编译成release并且runtime library选择MT（默认是MD）。选择MT的话编译后程序体积会稍微大一点，无论是VC2003(71)/VC2005(80)/VC2008(90)/VC2010(100)都可以用这种方式直接发布程序而无需安装任何运行库。（注意：楼下说的不对，使用MT编译是不需要安装vcredist的！！！）
如果你使用了MFC，那么请编译时静态链接MFC库，虽然最终程序体积大点，但是可以直接在任何电脑上跑，还是值得的。
如果你使用了ATL，那么也一样，请编译时静态链接ATL库。
如果你使用了CLR，那么没辙了，最终用户必须要安装对应的NET版本，否则不能运行。
先说这些了，我自己也是花了好几个月才搞明白这些事情，希望对你有用。
添加windowsh 头文件
然后调用 MessageBoxA 函数就可以调出你要提示框，照我下面给你的调用示例直接用就可以
MessageBoxA(NULL,"提示信息","窗口标题",MB_OK);
当然MessageBox这函数还有很多用法，有其他需求的话上网查一下MessageBox函数，到处都是。
以上就是关于怎样编写vb程序 在textbox中输入字母时，d出提示对话框。急！全部的内容，包括:怎样编写vb程序 在textbox中输入字母时，d出提示对话框。急！、用javascript编写一个程序，要求：网页运行的时候d出对话框：欢迎进入、VC6编译运行程序d框出现：远程可执行文件的路径和文件名等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！
欢迎分享，转载请注明来源：内存溢出
微信扫一扫
支付宝扫一扫
评论列表（0条）