投稿日	： 2005/08/17(Wed) 09:14
投稿者	： いな
Ｅメール	：
ＵＲＬ	：
タイトル	： Re: textboxのチェックのかけ方

入力された値をSPLITを使って「-」で分け、
それぞれのインデックスに対し、ISNUMERICを使っては？

某掲示板に投稿されていたサンプルです、これはIP Addressのチェック関数ですが
応用して作成してみては？

Public Function ChkIPAddrssFormat(strIPAddress As String) As Boolean
    
Dim tmpArray() As String
Dim intCnt As Integer
    
    ChkIPAddrssFormat = False
    
    '前後のTrimは削除する
    strIPAddress = Trim$(strIPAddress)
    
    '値が入力されてい無い場合は無視する
    If strIPAddress = "" Then
        ChkIPAddrssFormat = True
        Exit Function
    End If
    
    tmpArray = Split(strIPAddress, ".")
    '"."が3つ(=IPv4)以外はエラー(IPv6は意識しない)
    If (UBound(tmpArray) <> 3) Then
        Exit Function
    Else
        For intCnt = 0 To UBound(tmpArray)
            '文字列、空白はエラー
            If (Trim(tmpArray(intCnt)) = "") Or (IsNumeric(Trim(tmpArray(intCnt))) = False)
Then
                Exit Function
            '値が0〜255の範囲に無いものはエラー
            ElseIf ((CInt(Trim(tmpArray(intCnt))) < 0) Or (CInt(Trim(tmpArray(intCnt))) >
255)) Then
                Exit Function
            End If
        Next
    End If
    ChkIPAddrssFormat = True

End Function

★ - textboxのチェックのかけ方 - wlw 08/17-03:12No.4132
• Re: textboxのチェックのかけ方 - いな 08/17-09:14 No.4135
  • Re^2: textboxのチェックのかけ方 - wlw 08/17-15:41 No.4139