Private Sub Form_Load()
if Me.txt_ksfs.Text=Me.txt_psfs.Text then
'
Else
xx = MsgBox("失败", 48, "信息提示")
Unload Me
End If
End Sub
怎么else失败就出错误,代码怎么改呀unload me不能这么关闭吗?
if Me.txt_ksfs.Text=Me.txt_psfs.Text then
'
Else
xx = MsgBox("失败", 48, "信息提示")
Unload Me
End If
End Sub
怎么else失败就出错误,代码怎么改呀unload me不能这么关闭吗?
解决方案 »
- 对RichEdit20控件发送WM_GETTEXT得到的是乱码?如何解决呀
- 数据的合并删除,问题简单,但不容易解决。请赐教
- 为什么在Winsock的ConnectionRequest事件中要调用Winsock1.close()?
- 为什么我在想excel中写入数据的时候都写到一列中去了?
- vb+ado方式远程访问/操纵Sybase数据库,我应该安装哪个驱动?另外打包的时候应该给客户安装什么库?
- 数据备份和恢复
- 26号放假回家了,家里是小猫会很少来这里了,感谢大家以前的帮助,散分!!!
- 想让图片的大小,自适应ImagBox,应该怎么办?
- :) 555555 没有弄到票 北京到青岛的,完蛋了,怎么回家啊?不过了,散分!
- vb中datagrid控件的用法
- 江湖救急---关于公交车系统地图的问题---来者有分!!!
- 高手请帮忙,关于串口的数据不完整
建议你这么做
在 Form1.Show 前Load Form1
if Form1.txt_ksfs.Text=Form.txt_psfs.Text then
Unload Form1
else
Form1.Show
end if另外,你题目上的问题,如果没有什么特别的要求,把
ControlBox 设为 False
建议你这么做
在 Form1.Show 前Load Form1
if Form1.txt_ksfs.Text=Form1.txt_psfs.Text then
Form1.Show
else
xx = MsgBox("失败", 48, "信息提示")
Unload Form1
end if