Visual Basic – 电气人生

使用API函数

Private Declare Function SetWindowText Lib “user32” Alias “SetWindowTextA” (ByVal hwnd As Long, ByVal lpString As String) As Long

Private Sub Command1_Click()

SetWindowText Form1.hwnd, “hellworld!”

End Sub

内置函数

数学函数

Abs（）求绝对值

Sgn（）返回符号

字符串函数

Len（string）获取字符串长度

Right（string，length）截取字符串

Mid（string，start，length）截取字符串

Ltrim（string）前导去空格

RTrim（string）去后缀空格

Trim（string）去前导尾随空格

类型转换函数

Asc

Chr

Val

Str

判断函数

IsNull

IsNumeric

IsArray

日期和时间函数

Date

Now

Time

随机函数

Randomize初始化随机数生成器

Rnd

格式化函数

Format

WinSock控件网络通信示例

服务器端程序

Private Sub CommandButton1_Click()

Winsock1.LocalPort = 5600

Winsock1.Listen

End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)

If Winsock1.State <> sockclosed Then Winsock1.Close

Winsock1.Accept requestID

End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)

Dim s As String

Winsock1.GetData s

TextBox1.Text = s

End Sub

Private Sub TextBox2_Change()

Winsock1.SendData Me.TextBox2.Text

End Sub

客户端程序

Private Sub CommandButton1_Click()

Winsock1.RemoteHost = “127.0.0.1”

Winsock1.RemotePort = 5600

Winsock1.Connect

End Sub

Private Sub TextBox1_Change()

Winsock1.SendData Me.TextBox1.Text

End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)

Dim s As String

Winsock1.GetData s

Me.TextBox2.Text = s

End Sub

集合

Private Sub CommandButton1_Click()

Dim ctl As Control

For Each ctl In Me.Controls

MsgBox ctl.Name

Next ctl

End Sub

结果

列表框和集合框也属于集合的范畴。

树状视图也是用集合的范畴。

运行时错误处理

程序中存在的错误，我们希望程序不要崩溃，还能继续运行，这时候就需要错误处理。

VB有一个全局类Err，专门针对错误处理的类，有如下常用的属性和方法。

属性\方法	说明
Number	用于标识该错误的专用号码
Source	当前VB项目的名字
Description	表义性的错误消息。如果某个错误没有这个字符串，本属性就会指明“应用程序定义的错误或对象定义的错误“
Clear	清除Err对象的属性
Raise	运行时生成错误

示例程序

Private Sub Command1_Click()

On Error GoTo War

Text3.Text = Text1.Text / Text2.Text

War:

If Err.Number = 13 Then

MsgBox “数据类型错误”, vbOKOnly, “错误提示”

Err.Clear

Exit Sub

End If

If Err.Number = 11 Then

MsgBox “除数不能为0！”, vbOKOnly, “错误提示”

Err.Clear

Exit Sub

End If

End Sub