代码搜索：msgbox
找到约 3,543 项符合「msgbox」的源代码
代码结果 3,543
www.eeworm.com/read/338050/12326821
frm frmlogin.frm
VERSION 5.00
Begin VB.Form FrmLogin
BorderStyle = 1 'Fixed Single
Caption = "身份验证"
ClientHeight = 2160
ClientLeft = 45
ClientTop = 330
Cl
www.eeworm.com/read/149542/12366034
frm form1.frm
VERSION 5.00
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 3795
ClientLeft = 60
ClientTop = 345
ClientWidth = 5970
LinkTopic
www.eeworm.com/read/149542/12366384
frm form1.frm
VERSION 5.00
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 2295
ClientLeft = 60
ClientTop = 345
ClientWidth = 6615
LinkTopic
www.eeworm.com/read/148678/12444404
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/132050/14112622
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/131795/14125716
dat vb_fun6b.dat
语法
----
Choose(index, choice-1[, choice-2, ... [, choice-n]])
Choose 函数的语法具有以下几个部分：
部分 描述
index 必要参数,数值表达式或字段,它的运算结果是一个数值,且界于 1 和可选择的项目数之间.
choice 必要参数,Variant 表达式,包含可选择项目的其中之一.
www.eeworm.com/read/233385/14156422
bas admin.bas
Attribute VB_Name = "admin"
'用户增加
Public Function adminadd()
ado.admin_rs.AddNew
admin_rs.Fields("a_name").Value = frmadd.txtname.Text
admin_rs.Fields("a_pwd").Value = frmadd.txtpwd.T
www.eeworm.com/read/233385/14156433
bas module1.bas
Attribute VB_Name = "Module1"
Public con As New ADODB.Connection
Public admin_rs As New ADODB.Recordset
Sub main()
con.ConnectionString = "driver=sql server;server=.;uid=sa;pwd=123;database=
www.eeworm.com/read/233385/14156453
bas sys.bas
Attribute VB_Name = "sys"
Sub lock_t()
'系统临时锁定--------------------------------------------------------
Dim pwd As String
Dim pwdr As String
Dim unlockt As String
pwd = InputBox("请设置解锁密