代码搜索：VB
找到约 10,000 项符合「VB」的源代码
代码结果 10,000
www.eeworm.com/read/37019/899186
vb--
www.eeworm.com/read/37039/1066915
vb-
[SCC]
SCC=This is a source code control file
[字体颜色框设计.vbp]
SCC_Project_Name=this project is not under source code control
SCC_Aux_Path=
www.eeworm.com/read/37039/1066916
vb-
www.eeworm.com/read/37039/1066917
vb-
Type=Exe
Form=Form1.frm
Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\Windows\SysWOW64\stdole2.tlb#OLE Automation
Object={F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0; COMDLG32.OCX
I
www.eeworm.com/read/37039/1066918
vb-
VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form VB字体颜色框调用
Caption = "字体颜色框调用"
ClientHeight = 2595
ClientLeft = 1
www.eeworm.com/read/338159/3320067
vb for.vb
' FastScript v1.0
' 'For' operator demo
dim i
for i = 0 to 9
if i = 1 then
ShowMessage(1)
elseif i = 2 then
ShowMessage(2)
elseif i = 3 then
www.eeworm.com/read/338159/3320078
vb is.vb
' FastScript v1.0
' 'is' operator demo
dim o, p
o = new TObject
p = new TPersistent
if o is TObject then
ShowMessage("o is TObject")
end if
if p is TObject
www.eeworm.com/read/338159/3320079
vb if.vb
' FastScript v1.0
' 'If' operator demo
dim i
i = 10
if i = 10 then i = 1
if i = 1 then
ShowMessage(1)
elseif i = 2 then
ShowMessage(2)
elseif i =
www.eeworm.com/read/338159/3320084
vb with.vb
' FastScript v1.0
' With operator demo
dim f, b
sub ButtonClick(Sender)
ShowMessage(Sender.Name)
f.ModalResult = mrOk
end sub
sub ButtonMouseMove(Sender)
b.Cap