代码搜索：MsgBox
找到约 3,543 项符合「MsgBox」的源代码
代码结果 3,543
www.eeworm.com/read/217875/14945950
bas 备份.bas
Attribute VB_Name = "备份"
'
' If getDB Then '如果 weboy 数据库存在，则...
' If getUsersTable And getConsumersTable Then '如果 users 表及 consumer 表存在，则...
'
www.eeworm.com/read/115670/15005434
frm borrow.frm
VERSION 5.00
Begin VB.Form Form2
BorderStyle = 1 'Fixed Single
Caption = "借书"
ClientHeight = 1665
ClientLeft = 45
ClientTop = 330
ClientW
www.eeworm.com/read/216160/15025141
ats while.ats
Section Main
var @a as atsint
@a = 1
While @a < 5
msgbox @a
@a = @a +1
Wend
End Section
www.eeworm.com/read/216160/15025155
ats do.ats
Section Main
var @a as atsint
@a = 1
do @a < 5
msgbox @a
@a = @a +1
loop @a < 5
End Section
www.eeworm.com/read/216160/15025162
ats testmyobj.ats
Section Main
var @a as AtsString
@a = myobj.getname()
msgbox @a
End Section
www.eeworm.com/read/216160/15025169
ats if.ats
Section Main
Var @a as AtsInt
@a = 3
if @a == 2 then
msgbox "2"
elseif @a == 3 then
msgbox "3"
else
msgbox "other"
end if
End Section
www.eeworm.com/read/216160/15025175
ats goto.ats
Section Main
Var @a as AtsString
@a = "abc"
if @a == "abc" then
goto end
end if
msgbox "eee"
end:
msgbox "end"
End Section
www.eeworm.com/read/215274/15066019
txt mainfrom.txt
'数据库是用VB自带的VisData建立的，一共有3个表，分别为:Cou、CouInfo、StuInfo。
'Cou为选课记录表，CouInfo为课程基本信息表、StuInfo为学生信息表。
'打开数据库的函数放在Module1.bas文件中供整个程序调用
'在每个按钮的代码中均有简单的拼写检查功能并且忽略用户输入的空格
''''''''''''''''选课系统模块'''''''''' ...
www.eeworm.com/read/114100/15111192
txt 报错violation of primary key constraint 表主键列如何设置错误陷阱来容错.txt
由于您在表中设置了主键，在表中不能存在相同的主键值。所以插入一个已存有的列值时，当然会出现错误提示。解决此问题有很多种方法，比如:
1.在插入之前可以先判断,是否存在此列值，如果存在就提示。
2.使用On error goto ErrNumber
......
exit sub
errNumber:
if err.n
www.eeworm.com/read/114100/15113166
txt 如何利用vb实现操作系统或者某一应用程序的自动关闭.txt
退出操作系统可以调用Windows API的ExitWindowsEx函数。
例子：
1、建立一个窗体，在上面放置4个按钮，按钮设置如下：
控件 控件名 Caption属性
---------------------------------------------------
CommandButton cmdLogoff 注销