tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]  [ワード検索]  [Home]

タイトル IPアドレス
投稿日: 2008/06/30(Mon) 10:03
投稿者IP
テキストボックスに
0.0.0.0〜255.255.255.255のアドレスだけしか入力させないプログラムを書いたのですが
予想される規定を色々考えて書いていたら、
めちゃくちゃ変数を使い長い文になってしまいました。
Timer1_Timer内で
Dim PortCheck1 As Boolean           'ポート名確認
Dim PortCheck2 As Boolean
Dim PortCheck3 As Boolean
Dim PortCheck4 As Boolean
Dim PortCheck5 As Boolean
Dim PortCheck6 As Boolean
PortCheck1 = PortName.Text Like "*#.*#.*#.*#"          
PortCheck2 = PortName.Text Like "*.*.*.####"          
PortCheck3 = PortName.Text Like "*.*.*.#####"
PortCheck4 = PortName.Text Like "*.*.*.######"
PortCheck5 = PortName.Text Like "*.*.*.#######"
PortCheck6 = PortName.Text Like "*.*.*.########"
↑このように定義し(一部です・・・。)
If PortCheck1 = True And PortCheck2 = False _
    And PortCheck3 = False And PortCheck4 = False _
    And PortCheck5 = False And PortCheck6 = False Then
↑このようにいくつもFalseかTrueか判別させ入力させないという文にしました。

このような長い文ではなく下記の
・0.0.0.0〜255.255.255.255まで
・もちろんピリオド "." は3つまで
・特殊記号を使わない
・大文字不可
これらの条件を満たすコーディングを思いついた方、
解答宜しくお願いいたします。

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。