代码搜索：MsgBox
找到约 3,543 项符合「MsgBox」的源代码
代码结果 3,543
www.eeworm.com/read/114100/15112785
txt 如何自动下载http文件.txt
在 VB中 有 一 个 Internet Transfer Control控 件 可 以 用 来 下 载 HTTP和 FTP文 件 。 下 面 是 一 个 例 子 ：
Private Sub Command2_Click()
MsgBox Inet1.OpenURL("http://www.nb.zj.cninfo.net/stock/stock.dbf")
www.eeworm.com/read/443266/1750934
tpl 2dbc2dce1b1a6217596c99b517d65eb0.tpl
left@@@Text##
欢迎访问$(SiteName)$$$left@@@UserEntry##登录&&login.asp||注册&®ister.asp||忘记密码&&forget.asp##我的短信&&msgbox.asp||我的收藏&&marker.asp||我的控制台&&console
www.eeworm.com/read/183774/9140157
txt acad.txt
Private Sub CommandButton1_Click()
If Val(TextBox1.text)
www.eeworm.com/read/161098/10451686
m ex0426.m
%使用输入对话框、消息框、出错框、帮助框、提问框
prompt={'请输入阻尼系数','请输入无阻尼振荡频率'};
defans={'0.707','1'};
p=inputdlg(prompt,'输入参数',1,defans)
msgbox('阻尼系数输入范围出错','警告','warn')
warndlg('阻尼系数输入范围出错','警告')
errordlg('阻尼系
www.eeworm.com/read/298099/7974352
m ex0426.m
%使用输入对话框、消息框、出错框、帮助框、提问框
prompt={'请输入阻尼系数','请输入无阻尼振荡频率'};
defans={'0.707','1'};
p=inputdlg(prompt,'输入参数',1,defans)
msgbox('阻尼系数输入范围出错','警告','warn')
warndlg('阻尼系数输入范围出错','警告')
errordlg('阻尼系
www.eeworm.com/read/140057/13112886
m ex0426.m
%使用输入对话框、消息框、出错框、帮助框、提问框
prompt={'请输入阻尼系数','请输入无阻尼振荡频率'};
defans={'0.707','1'};
p=inputdlg(prompt,'输入参数',1,defans)
msgbox('阻尼系数输入范围出错','警告','warn')
warndlg('阻尼系数输入范围出错','警告')
errordlg('阻尼系
www.eeworm.com/read/478650/6712580
m ex0426.m
%使用输入对话框、消息框、出错框、帮助框、提问框
prompt={'请输入阻尼系数','请输入无阻尼振荡频率'};
defans={'0.707','1'};
p=inputdlg(prompt,'输入参数',1,defans)
msgbox('阻尼系数输入范围出错','警告','warn')
warndlg('阻尼系数输入范围出错','警告')
errordlg('阻尼系
www.eeworm.com/read/158241/11630596
m ex0426.m
%使用输入对话框、消息框、出错框、帮助框、提问框
prompt={'请输入阻尼系数','请输入无阻尼振荡频率'};
defans={'0.707','1'};
p=inputdlg(prompt,'输入参数',1,defans)
msgbox('阻尼系数输入范围出错','警告','warn')
warndlg('阻尼系数输入范围出错','警告')
errordlg('阻尼系
www.eeworm.com/read/463249/7185163
bas startup.bas
Attribute VB_Name = "startup"
Option Explicit
'
' 启动程序Main
'
' 该程序在主窗体载入前执行，主要是让用户选择是启动服务器程序还是客户端程序
'
Sub Main()
Dim dwRet As Long
dwRet = MsgBox("单击""是""启动服务器进程, 单击""否""启动客户端程序。
www.eeworm.com/read/141362/13017189
txt 新建 文本文档 (5).txt
form1:
Private Sub Command1_Click()
Dim cls2 As Class2
Set cls2 = New Class2
cls2.getstr2 (CStr(Text1.Text))
'MsgBox CStr(cls2.a0)
Dim a(10) As String
a(0) = cls2.a0 'kaohao
a(1) = cls2.a1