代码搜索：MsgBox
找到约 3,543 项符合「MsgBox」的源代码
代码结果 3,543
www.eeworm.com/read/232960/14175646
frm frmlogon.frm
VERSION 5.00
Begin VB.Form frmLogon
BorderStyle = 1 'Fixed Single
Caption = "系统登录"
ClientHeight = 2055
ClientLeft = 45
ClientTop = 330
Cl
www.eeworm.com/read/232960/14175701
frm form1.frm
VERSION 5.00
Begin VB.Form Form1
BorderStyle = 1 'Fixed Single
Caption = "系统登录"
ClientHeight = 1830
ClientLeft = 45
ClientTop = 330
Clien
www.eeworm.com/read/129736/14230235
frm frmgetsv.frm
VERSION 5.00
Begin VB.Form frmGetSv
BorderStyle = 0 'None
Caption = "服务器加载中..."
ClientHeight = 1185
ClientLeft = 0
ClientTop = 0
ClientWi
www.eeworm.com/read/231379/14237384
frm frmtypes.frm
VERSION 5.00
Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX"
Object = "{F0D2F211-CCB0-11D0-A316-00AA00688B10}#1.0#0"; "MSDATLST.OCX"
Begin VB.Form frmTypes
Caption
www.eeworm.com/read/231019/14260392
bas systemmodule.bas
Attribute VB_Name = "SystemModule"
Option Explicit
Private msgtitle As String ' 提示信息的标题
Public Enum enumIcon
hxxdError = 1 '错误
hxxdQuery = 2 '询问
hxxdWarning =
www.eeworm.com/read/128708/14280904
mac objcreat.mac
Sub Test()
Dim obj
Set obj = CreateObject("Excel.Application")
If Not obj Is Nothing Then
obj.Visible = True
MsgBox "Excel is running"
obj.Quit
Set obj = Nothing
End If
www.eeworm.com/read/128708/14280911
mac simple3.mac
MsgBox ScriptEngine & " version " & ScriptEngineMajorVersion & "." & ScriptEngineMinorVersion & "." & ScriptEngineBuildVersion & vbCrLf & Now,64,"ScriptControl"
www.eeworm.com/read/128708/14280914
mac objrun.mac
Dim app
On Error Resume Next
Set app = Nothing
Set app = GetObject( , "MSDev.Application")
If Not app Is Nothing Then
MsgBox app.Name & " " & app.Version & " is running" & vbCrLf & vbC
www.eeworm.com/read/230581/14281142
ats createsubmyobj.ats
Section Main
var @a as AtsString
var subobj as AtsObject
set subobj = myobj.CreateSubObj()
msgbox subobj.GetMyName()
End Section