代码搜索：MsgBox
找到约 3,543 项符合「MsgBox」的源代码
代码结果 3,543
www.eeworm.com/read/266485/4272188
vbs efile.vbs
dim lcountmx_efile
lcountmx_efile = 0
function dodel_efile(l)
if MsgBox("您确定要删除吗？",1,"操作提示")=1 then
dim Str
execute("Str = document.editor.EfileN"&Cstr(l)&".value")
If Str"" Then
www.eeworm.com/read/414384/11115576
m gskmadem8puzzle.m
clc;
pzstat = input('enter a puzzle in 3 x 3 form (use 0 for space) ..........: ');
pzrstat = [1 2 3;4 5 6;7 8 0];
intv000 = size(pzstat);
if not(all(intv000 == [3 3]))
msgbox('Input is not
www.eeworm.com/read/147202/12577023
bas main.bas
Attribute VB_Name = "MainStart"
Sub Main()
'连接数据库
Dim DBstatus As Boolean
DBstatus = cn.OpenDB
If Not DBstatus Then
MsgBox "数据库连接失败,请先正确配置数据库."
Exit Sub
End
www.eeworm.com/read/113555/15453278
htm 修改书.htm
sub check
if instr(frm.bookid.value,"'")0 then
msgbox("您输入了非法字符")
frm.bookid.value=""
frm.bookid.focus
exit sub
end if
frm.submit
end sub
www.eeworm.com/read/109925/15545588
bas submain.bas
Attribute VB_Name = "Module2"
Sub main()
On Error Resume Next
Call conn
If mAdoCon.State 1 Then
MsgBox "数据库连接失败!"
Exit Sub
End If
frmLogin.Show 1
If UserID "" Then
frmTip.Show
www.eeworm.com/read/106050/15648238
bas submain.bas
Attribute VB_Name = "Module2"
Sub main()
On Error Resume Next
Call conn
If mAdoCon.State 1 Then
MsgBox "数据库连接失败!"
Exit Sub
End If
frmLogin.Show 1
If UserID "" Then
frmTip.Show
www.eeworm.com/read/100929/15860001
bas submain.bas
Attribute VB_Name = "Module2"
Sub main()
On Error Resume Next
Call conn
If mAdoCon.State 1 Then
MsgBox "数据库连接失败!"
Exit Sub
End If
frmLogin.Show 1
If UserID "" Then
frmTip.Show
www.eeworm.com/read/284864/8886434
cpp card.cpp
/*
#include
#include
#include
#include
#include "data.h"
#include "newgrid.h"
#include "msgbox.h"
#include "submenu.h"
PayEdit::PayEdit(struct RECT