Question

vb6 分别获取IP第三段

VB6如何获取IP的前三段，如：192.168.123.78分别为192,168,123

Answer 1

Private Sub Command1_Click()
    Dim a As String, tmpStr As String, i As Long
    a = "192.168.123.78"
    For i = 0 To 2
        tmpStr = tmpStr & Split(a, ".")(i) & ","
    Next i
    MsgBox tmpStr
End Sub

追问

搞定

追答

'关注我们的网站   http://www.mirll.com