代码搜索：MsgBox
找到约 3,543 项符合「MsgBox」的源代码
代码结果 3,543
www.eeworm.com/read/262947/11383848
frm frmlogin.frm
VERSION 5.00
Begin VB.Form FrmLogin
BorderStyle = 1 'Fixed Single
Caption = "身份验证"
ClientHeight = 2130
ClientLeft = 45
ClientTop = 330
Cl
www.eeworm.com/read/262754/11391822
au3 setup_cd.au3
;首先判断卡巴是不是已经安装在系统
If RegRead("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run","avp") "" Then
MsgBox(64,"Note","系统已经安装卡巴,无须再安装！")
Exit
EndIf
If FileExists(@systemdir & "\pecmd.exe") The
www.eeworm.com/read/404768/11478859
txt vbscript 页面的简单样例.txt
一个简单页面
使用 Microsoft? Internet Explorer 可以查看用以下 HTML 代码制作的页面。如果单击页面上的按钮，可看到 VBScript 的运行结果。
一个简单首页
www.eeworm.com/read/404122/11491530
frm frmlogin.frm
VERSION 5.00
Begin VB.Form FrmLogin
BorderStyle = 1 'Fixed Single
Caption = "身份验证"
ClientHeight = 2130
ClientLeft = 45
ClientTop = 330
Cl
www.eeworm.com/read/157527/11696370
bas moduleoffice.bas
Attribute VB_Name = "Moduleoffice"
Public offpassword As String
Public Function exitproject()
Dim response As Integer
response = MsgBox("真的要退出程序吗?", vbYesNo, "退出")
If response = vbYes Then
E
www.eeworm.com/read/345187/11828882
pas datamodule.pas
unit DataModule;
interface
uses
SysUtils, Classes, DB, ADODB, ExtFunc;
type
TDM = class(TDataModule)
adoc: TADOConnection;
procedure DataModuleCreate(Sender: TObject);
priv
www.eeworm.com/read/155761/11850766
bas mrankmainmodule.bas
Attribute VB_Name = "MainModule"
Sub Main()
Dim mtxA(5, 4) As Double
Dim nRankA As Integer
mtxA(1, 1) = 1: mtxA(1, 2) = 2: mtxA(1, 3) = 3: mtxA(1, 4) = 4
mtxA(2, 1) = 5:
www.eeworm.com/read/344225/11898856
lua swap palette indexes.lua
-- Swap palette indexes
function main ()
local w = mappy.getValue(mappy.MAPWIDTH)
local h = mappy.getValue(mappy.MAPHEIGHT)
if (w == 0) then
mappy.msgBox ("Swap palette indexes", "You ne
www.eeworm.com/read/257016/11959975
txt vba03-4.txt
Sub MyMacro()
Dim pMxDocument As IMxDocument
Dim pMaps As IMaps
Dim pMap As IMap
On Error GoTo SUB_ERROR
Set pMxDocument = Application.Document
Set pMaps = pMxDocument.Ma