frmip.frm

ip地址框架,不允许输入超过255数字的。 格式为0.0.0.0控件

VERSION 5.00
Begin VB.Form Form1 
   BackColor       =   &H8000000A&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "IP 地址框控件"
   ClientHeight    =   1455
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   4140
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1455
   ScaleWidth      =   4140
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Command2 
      Caption         =   "设置 IP"
      Height          =   345
      Left            =   1515
      TabIndex        =   3
      Top             =   825
      Width           =   1200
   End
   Begin Project1.ipBox ipBox1 
      Height          =   285
      Left            =   165
      TabIndex        =   1
      Top             =   420
      Width           =   3015
      _ExtentX        =   5318
      _ExtentY        =   503
   End
   Begin VB.CommandButton Command1 
      Caption         =   "获取 IP"
      Height          =   345
      Left            =   180
      TabIndex        =   0
      Top             =   825
      Width           =   1200
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "IP 地址:"
      Height          =   180
      Left            =   195
      TabIndex        =   2
      Top             =   180
      Width           =   720
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'****************************************************************************
'人人为我，我为人人
'枕善居汉化收藏整理
'发布日期：05/04/15
'描  述：IP地址框控件
'网  站：http://www.mndsoft.com/blog/
'e-mail：[e-mail]
'OICQ  : 88382850
'****************************************************************************
Private Sub Command1_Click()
    MsgBox "您输入的IP 地址是:" & vbCrLf & ipBox1.Address, vbInformation, "信息"
End Sub

Private Sub Command2_Click()
Dim sInput As String
    sInput = InputBox("请输入信息的IP" _
    & vbCrLf & "注意:必须输入数字，并以'.'间隔.")
    ipBox1.Address = sInput
End Sub