[color=red]判断Check复选框是否被选中[/color]
Check1.Value为1是选中,为0是没选中
[color=red]删除数组中的一个值[/color]
比如数组xh中有10个值,现删除第5个值
[color=red]获得数组大小[/color]
UBound(xh)
[color=red]创建动态数组[/color]
ReDim Preserve xh(UBound(xh) + 10) '变大后原有值不变,变小后则后边值会变没
[color=red]创建一个返回数组型的函数[/color]
返回数组型函数定义
调用
使用
msgBox xh(1)
[color=red]删除本地图片[/color]
Kill ("D:\temp.jpg")
黑色头发:http://heisetoufa.iteye.com/
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/