IP输入框，这样的控件该怎么做呢？

Question

给点提示 ：）
什么都行
谢谢

Answer 1

一个比较笨的办法
使用文本框，
初始化时为“   .   .   ."
在textChange事件中使text中的内容格式化成上面的格式，（而且还要判断输入的长度来设置光标的位置，以及限制必须输入数字等）

Answer 2

四个TextBox加在一起的那种IP输入筐吗？只让输入数字且数字小于等于255就行了，应该不难吧？都是操作TextBox的 KeyPress事件和Change事件,判断如果一TextBox输入了三位数立即跳到下一个TextBox中，如果按了 . 也跳到下一个 TextBox中如果是放在一个TextBox中，那可能是麻烦一些了，VB没有像Delphi中那好用的MaskEdit

Answer 3

这东西早就叫人提交FAQ的，怎么还是没有人做？
楼主看完 提交 FAQ ，别忘了！
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
'''将以下代码 copy 到记事本，保存为 FrmMain 后运行
VERSION 5.00
Begin VB.Form FrmMain 
   AutoRedraw      =   -1  'True
   BorderStyle     =   1  'Fixed Single
   Caption         =   "IP控件演示"
   ClientHeight    =   3195
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton CmdSet 
      Caption         =   "设置结果"
      Height          =   495
      Left            =   240
      TabIndex        =   2
      Top             =   1500
      Width           =   885
   End
   Begin VB.TextBox Text1 
      Height          =   315
      Left            =   1380
      TabIndex        =   1
      Text            =   "Text1"
      Top             =   960
      Width           =   2595
   End
   Begin VB.CommandButton CmdGet 
      Caption         =   "取得结果"
      Height          =   435
      Left            =   210
      TabIndex        =   0
      Top             =   870
      Width           =   885
   End
End
Attribute VB_Name = "FrmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option ExplicitPrivate Declare Function CreateWindowEx Lib "user32" Alias "CreateWindowExA" (ByVal dwExStyle As Long, ByVal lpClassName As String, ByVal lpWindowName As String, ByVal dwStyle As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hWndParent As Long, ByVal hMenu As Long, ByVal hInstance As Long, lpParam As Any) As Long
Private Declare Function DestroyWindow Lib "user32" (ByVal hwnd As Long) As LongPrivate Declare Function INITCOMMONCONTROLSEX Lib "comctl32.dll" Alias "InitCommonControlsEx" (ByRef TLPINITCOMMONCONTROLSEX As INITCOMMONCONTROLSEX) As Long
Private Type INITCOMMONCONTROLSEX
    dwSize As Long 'size of this structure
    dwICC As Long 'flags indicating which classes to be initialized
End Type
Private Const ICC_INTERNET_CLASSES As Long = &H800Private Const WS_CHILD As Long = &H40000000
Private Const WS_GROUP As Long = &H20000
Private Const WS_TABSTOP As Long = &H10000
Private Const WS_VISIBLE As Long = &H10000000Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As LongPrivate Const WM_SETFONT As Long = &H30
Private Const WM_GETFONT As Long = &H31Private Const WM_USER As Long = &H400
Private Const IPM_CLEARADDRESS As Long = (WM_USER + 100)
Private Const IPM_SETADDRESS   As Long = (WM_USER + 101)
Private Const IPM_GETADDRESS   As Long = (WM_USER + 102)
Private Const IPM_SETRANGE     As Long = (WM_USER + 103)
Private Const IPM_SETFOCUS     As Long = (WM_USER + 104)
Private Const IPM_ISBLANK      As Long = (WM_USER + 105)'#define FIRST_IPADDRESS(x)  ((x>>24) & 0xff)
'#define SECOND_IPADDRESS(x) ((x>>16) & 0xff)
'#define THIRD_IPADDRESS(x)  ((x>>8) & 0xff)
'#define FOURTH_IPADDRESS(x) (x & 0xff)
'#define MAKEIPRANGE(low, high)    ((LPARAM)(WORD)(((BYTE)(high) << 8) + (BYTE)(low)))
'#define MAKEIPADDRESS(b1,b2,b3,b4)  ((LPARAM)(((DWORD)(b1)<<24)+((DWORD)(b2)<<16)+((DWORD)(b3)<<8)+((DWORD)(b4))))
Private IP1 As LongPublic Function FIRST_IPADDRESS(ByVal x As Long) As Byte
    FIRST_IPADDRESS = ((x And &H7F000000) \ &H1000000) Or (((x And &H80000000) <> 0) And &H80)
End FunctionPublic Function SECOND_IPADDRESS(ByVal x As Long) As Byte
    SECOND_IPADDRESS = (x And &HFF0000) \ &H10000
End FunctionPublic Function THIRD_IPADDRESS(ByVal x As Long) As Byte
    THIRD_IPADDRESS = (x And &HFF00&) \ &H100
End FunctionPublic Function FOURTH_IPADDRESS(ByVal x As Long) As Byte
    FOURTH_IPADDRESS = x And &HFF
End FunctionPublic Function MAKEIPRANGE(ByVal low As Byte, ByVal high As Byte) As Long
    MAKEIPRANGE = high * &H100& Or low
End FunctionPublic Function MAKEIPADDRESS(ByVal b1 As Byte, ByVal b2 As Byte, ByVal b3 As Byte, ByVal b4 As Byte) As Long
    MAKEIPADDRESS = ((b1 And &H7F) * &H1000000 Or (b1 And &H80) <> 0 And &H80000000) Or (b2 * &H10000) Or (b3 * &H100&) Or (b4)
End FunctionPrivate Sub CmdGet_Click()
    Dim TempLng As Long
    
    SendMessage IP1, IPM_GETADDRESS, 0, TempLng
    
    Text1.Text = FIRST_IPADDRESS(TempLng) & "," & SECOND_IPADDRESS(TempLng) & "," & THIRD_IPADDRESS(TempLng) & "," & FOURTH_IPADDRESS(TempLng)
    
End SubPrivate Sub CmdSet_Click()
    SendMessage IP1, IPM_SETADDRESS, 0, ByVal MAKEIPADDRESS(1, 2, 3, 4)
    
End SubPrivate Sub Form_Load()
    Dim CommCtrl As INITCOMMONCONTROLSEX
    
    CommCtrl.dwSize = Len(CommCtrl)
    CommCtrl.dwICC = ICC_INTERNET_CLASSES
    
    If INITCOMMONCONTROLSEX(CommCtrl) Then
        IP1 = CreateWindowEx(0, "SysIPAddress32", "IPADDR1", _
                WS_CHILD Or WS_TABSTOP Or WS_GROUP Or WS_VISIBLE, _
                (Me.ScaleX(Me.ScaleWidth, Me.ScaleMode, vbPixels) - 128) \ 2, 10, 128, 20, _
                Me.hwnd, 0, App.hInstance, ByVal 0&)
        If IP1 Then
            '将IP控件的字体设置的根窗体一样 用宋体
            SendMessage IP1, WM_SETFONT, SendMessage(Me.hwnd, WM_GETFONT, 0, ByVal 0&), ByVal 0&
        Else
            MsgBox "不能创建控件", vbCritical, "错误！"
            End
        End If
        
    Else
        MsgBox "不能创建控件", vbCritical, "错误！"
        End
    End If
    
End SubPrivate Sub Form_Unload(Cancel As Integer)
    DestroyWindow IP1
    
End Sub

Answer 4

哦，不对，是应该 “另存为 FrmMain.frm”

Answer 5

上面的代码是用API 制作纯IP地址控件，和系统的一样BCB 中到是有现成的控件谁有兴趣可以用上面的代码把它改成控件或者模块形式拿来共享我懒的贴了

Answer 6

MaskEdit可以很简单地实现呀，

Answer 7

麻烦楼上说用MaskEdit “很简单实现”的把代码帖出来给我学习一下之前我用类似的方法“基本”实现了，但是和要求的还是有差距例如不好实现IP 范围的控制，有效性的控制，TAB 和.用来挑格的功能等等
既然有人有简单的方法，不如拿出来共享一下

Answer 8

wxy_xiaoyu(☆然也☆ =＞ .NET 努力ing)出的都是精品

Answer 9

不好意思，我不是高手，maskedit是完全可以做一个小数点的判断，如果我们用两个不就可以了，我是这样想的，呵呵，把外框变成像一个，

Answer 10

to:   wxy_xiaoyu(☆然也☆ =＞ .NET 努力ing)    虽然我们个数一样，但你的星，我是角，我不是针对哪个人，我只是一个这样的想法，不好意思，请见谅，希望我们能交朋友，

Answer 11

wxy_xiaoyu(☆然也☆ =＞ .NET 努力ing)高手啊！！

Answer 12

to:   wxy_xiaoyu(☆然也☆ =＞ .NET 努力ing) 
你好，我想看看你做的那个控件，
谢了先~~还有源码 呵呵~

Answer 13

hehe,有看到wxy_xiaoyu(☆然也☆ =＞ .NET 努力ing) 发芽了你现在.net 阿

Answer 14

to yinbin(yinbin) : 误会啊误会，我没有什么敌意啊。我之前是用过编辑框做的，但是怎么都不好用。如果你有用它做的，我真的想看看啊。

Answer 15

to   mysterious(空折枝) : 油箱我记下了，回头给你发。to  nik_Amis(Azrael) ：我的 .net 真是菜鸟级的。努力ing...

Answer 16

TO:wxy_xiaoyu(☆然也☆ =＞ .NET 努力ing)
谢了！！！