VB 判断Check复选框是否被选中,删除数组中的一个值,创建动态数组,获得数组大小,创建一个返回数组型的函数,删除本地图片...

[color=red]判断Check复选框是否被选中[/color]

Check1.Value为1是选中,为0是没选中

If Check1.Value = 1 Then
MsgBox "选中"
End If

[color=red]删除数组中的一个值[/color]

比如数组xh中有10个值,现删除第5个值

Dim tmp As Integer
For tmp = 4 To 9
    xh(tmp) = xh(tmp + 1)
Next

[color=red]获得数组大小[/color]

UBound(xh)

[color=red]创建动态数组[/color]

ReDim Preserve xh(UBound(xh) + 10) '变大后原有值不变,变小后则后边值会变没

[color=red]创建一个返回数组型的函数[/color]

返回数组型函数定义

Public Function Load_XH(comText As String, xh() As String)
    xh(0) = 0
    xh(1) = 1
    xh(2) = 2
End Function

调用

Dim xh(10) As String
Call Load_XH(Combo1.Text, xh) '返回一个数组函数

使用

msgBox xh(1)

[color=red]删除本地图片[/color]

Kill ("D:\temp.jpg")

黑色头发:http://heisetoufa.iteye.com/