代码搜索：VB 有哪些应用？
找到约 10,000 项符合「VB 有哪些应用？」的源代码
代码结果 10,000
www.eeworm.com/read/338159/3320073
vb bmp.vb
'**************************
' FastScript v1.0
' Bitmap demo
'**************************
sub MakePattern(b)
dim i, j
for i = 0 to b.Width - 1
for j = 0 to b.Hei
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/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/3320076
vb testunit.vb
imports "unit1.vb"
Unit1Proc("hello from main proc")
www.eeworm.com/read/338159/3320077
vb localvar.vb
' FastScript v1.0
' Local variables demo
dim i
sub OK(i)
ShowMessage(i)
i = 11
end sub
i = 10
if i = 10 then OK(1)
OK(i)
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
www.eeworm.com/read/334463/3367965
vb comminit.vb
Module CommInit
' 串行口初始化
Public Sub SCIinit(ByRef MSComm1 As AxMSCommLib.AxMSComm, ByVal COMx As Byte, ByVal SCIFormat As String)
If MSComm1.PortOpen = True Then
MSComm
www.eeworm.com/read/334463/3367967
vb assemblyinfo.vb
Imports System
Imports System.Reflection
Imports System.Runtime.InteropServices
' 程序集的常规信息通过下列
' 属性集控制。更改这些属性值可
' 修改与程序集关联的信息。
' 检查程序集的属性值
www.eeworm.com/read/334463/3367969
vb recvandsend.vb
Module RecvAndSend
Public Sub SendRecv(ByVal MCUno As Byte)
Dim SendData(3) As Byte '写数据帧需要4字节，所以读数据帧后添2字节0
Dim RecvData() As Byte
Dim DelayTime As Integer
www.eeworm.com/read/334463/3367971
vb dbconnect.vb
Imports System.Data.OleDb
Module DBConnect
REM 数据库的连接
Public Function GetConn() As OleDbConnection
Dim connStr As String
connStr = " Provider=Microsoft.Jet.OLEDB.4.0; Data