代码搜索：FastScript
找到约 496 项符合「FastScript」的源代码
代码结果 496
www.eeworm.com/read/338159/3320074
vb forms.vb
' FastScript v1.0
' Forms demo
dim f, b
sub ButtonClick(Sender)
ShowMessage(Sender.Name)
f.ModalResult = mrOk
end sub
sub ButtonMouseMove(Sender)
b.Cap
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
www.eeworm.com/read/338159/3320069
vb string.vb
' FastScript v1.0
' String demo
dim i, j
dim s as String
s = "Hello World!\r\nIt's working!"
j = 0
for i = 1 to Length(s)
if s[i] = " " then Inc(j)
www.eeworm.com/read/338159/3320075
vb case.vb
' FastScript v1.0
' 'Case' operator demo
dim i = 0, j
select case i
case 1: j = 1
case 2..10: j = 2: Inc(j)
case else: j = 10
end select
ShowMessage(j)
www.eeworm.com/read/338159/3320071
vb file.vb
' FastScript v1.0
' Files demo
dim fs, s
fs = new TFileStream("test.txt", fmCreate)
s = "Testing file..."
fs.Write(s, Length(s))
fs.Write(#13#10, 2)
s
www.eeworm.com/read/338159/3320082
vb defparams.vb
' FastScript v1.0
' Default params demo
sub p1(i, j = 1)
ShowMessage(IntToStr(i) + " " + IntToStr(j))
end sub
dim i
p1(0)
p1(1, 2)
p1(0)
i = 0
Inc(i)
I