vb6使用整理1

1.16进制字符串转换成10进制数值

    Dim l_value As Double
    l_value = Val("&H" & "FF")

2.Split的使用

Private Sub Command5_Click()
    Dim l_datas() As String
    Dim l_str As String
    dim i as integer
    l_str = "01 02 03 04 05"
    l_datas = Split(l_str, " ")
    for i = lbound(l_datas) to ubound(l_datas)
        debug.print l_datas(i)
    next i
End Sub