代码搜索：MsgBox
找到约 3,543 项符合「MsgBox」的源代码
代码结果 3,543
www.eeworm.com/read/214827/15086496
m about.m
function about
msgbox('这是我编写的一个简单的计算器，由于时间仓促,还不太完善。');
www.eeworm.com/read/114100/15110775
txt 如何判断某一窗体是否被装载.txt
可 以 访 问 Forms集 合 ， 这 个 集 合 中 包 括 了 所 有 已 经 装 载 的 窗 体 ， 如 ：
For i = 0 To Forms.Count - 1
If Forms(i).Caption = "欢 迎 " Then
MsgBox "欢 迎 窗 体 已 经 加 载 ！ "
End If
Next
www.eeworm.com/read/114100/15111672
txt 如何检测指定目录下的指定文件是否存在.txt
用 Dir函 数 ， 如 果 函 数 返 回 为 空 字 符 串 则 文 件 不 存 在 ， 如 ：
If Dir("C:\Win95\My.txt") = "" Then MsgBox "文 件 不 存 在 。 "
www.eeworm.com/read/266670/11215999
txt 跟我学编程.txt
一个在黑客界引起轰动的菜鸟教材---跟我学编程系列
84542649 发表于 2005-12-23 12:39:47
一个在黑客界引起轰动的菜鸟教材---跟我学编程系列
跟我学编程系列
原黑白新区记忆碎片的帖子！转贴上来，供大家学习！！！
发现大部分黑白的朋友都不会编程, 这可不是件好事, 所以这次我就写了一个简单的编程教程, 讲一下VBScript. ...
www.eeworm.com/read/147670/12540377
bas module1.bas
Attribute VB_Name = "Module1"
Public strsql As String ' sql 语句
'Public carTime(), carSpeed(), carLong(), carLat() As Double '车辆的数据
Public userLon() As Double
Pu
www.eeworm.com/read/205267/15322576
txt readme.txt
created on 12/09/99
'****************************************************************
'* MsgBoxEx.exe - Custom MsgBox procedure for VB
'******************************************************
'*
www.eeworm.com/read/113072/15471014
txt 2.txt
简单验证
10 Then
MsgBox "请输入一个 1 到 10 之间的数字。"
Else
MsgBox "谢谢。"
End If
Else
MsgBox "请输入一个数字。"
End If
End Sub
-->
简单验证
请输入一个 1 到 10 之间的数字：
www.eeworm.com/read/108775/15575723
bas main.bas
Attribute VB_Name = "Module1"
Option Explicit
Public mw As String
Sub main()
Dim i As Integer, pas(7) As String
Dim zb As Database
Dim re As Recordset
Set zb = OpenDatabase(App.Path + "/zb.mdb"