代码搜索：VB
找到约 10,000 项符合「VB」的源代码
代码结果 10,000
www.eeworm.com/read/108103/6186025
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/108103/6186036
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/108103/6186037
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/108103/6186042
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
www.eeworm.com/read/37019/899181
vb--
Type=Exe
Form=Mouse-RightButton-Menu.frm
Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\windows\SysWow64\stdole2.tlb#OLE Automation
Object={3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0
www.eeworm.com/read/37019/899182
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/37019/899183
vb--
www.eeworm.com/read/37019/899184
vb--
VERSION 5.00
Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX"
Begin VB.Form Form1
Caption = "鼠标右键菜单设计"
ClientHeight = 2475
ClientLeft = 225