代码搜索:MsgBox
找到约 3,543 项符合「MsgBox」的源代码
代码结果 3,543
www.eeworm.com/read/100983/15858991
bas encipher.bas
Attribute VB_Name = "Encipher"
Public pass As String
Function DeCipher(Ciphered$, pazz$)
Dim start$, endd$
If pazz$ = "" Then MsgBox "Please put in a password", 12, "Ciphe
www.eeworm.com/read/100983/15859003
bas encipher.bas
Attribute VB_Name = "Encipher"
Public pass As String
Function DeCipher(Ciphered$, pazz$)
Dim start$, endd$
If pazz$ = "" Then MsgBox "Please put in a password", 12, "Ciphe
www.eeworm.com/read/100591/15870426
makefile
NAME=msgbox
$(NAME).exe: $(NAME).obj
link /SUBSYSTEM:WINDOWS /LIBPATH:c:\masm32\lib $(NAME).obj
$(NAME).obj: $(NAME).asm
ml /c /coff /Cp $(NAME).asm
www.eeworm.com/read/427309/8952419
bas module1.bas
Attribute VB_Name = "Module1"
Public Function connectdatabase() As Boolean
ConnectionString = "provider=sqloledb.1;persist security info=false;user id=sa;initial catalog=stu;datasource=localhost"
S
www.eeworm.com/read/383095/8973847
bas mlumainmodule.bas
Attribute VB_Name = "MainModule"
Sub Main()
Dim mtxA(4, 4) As Double
Dim mtxL(4, 4) As Double
Dim mtxU(4, 4) As Double
' 原矩阵
mtxA(1, 1) = 2: mtxA(1, 2) = 4: mtxA(1, 3
www.eeworm.com/read/426641/9007704
html web32.html
Dim d
Set d=CreateObject("Scripting.Dictionary")
d.Add"a","chicago"
d.Add"b","new york"
item_count=d.Count
MsgBox item_count
myitem
www.eeworm.com/read/180159/9317587
frm wind.frm
VERSION 5.00
Object = "{10336011-AB2C-11D4-8E1C-00002100DD42}#4.0#0"; "MWAX.ocx"
Begin VB.Form wind
Caption = "wind"
ClientHeight = 5565
ClientLeft = 60
Client
www.eeworm.com/read/180159/9317615
frm examples.frm
VERSION 5.00
Object = "{10336011-AB2C-11D4-8E1C-00002100DD42}#4.0#0"; "MWAX.OCX"
Begin VB.Form examples
Caption = "SmartCOS examples "
ClientHeight = 6540
ClientLeft
www.eeworm.com/read/168642/9903750
bas mlumainmodule.bas
Attribute VB_Name = "MainModule"
Sub Main()
Dim mtxA(4, 4) As Double
Dim mtxL(4, 4) As Double
Dim mtxU(4, 4) As Double
' 原矩阵
mtxA(1, 1) = 2: mtxA(1, 2) = 4: mtxA(1, 3
www.eeworm.com/read/164738/10090728
frm main_xtgl_mm.frm
VERSION 5.00
Begin VB.Form main_xtgl_mm
BorderStyle = 3 'Fixed Dialog
Caption = "密码修改"
ClientHeight = 3180
ClientLeft = 2715
ClientTop = 3690