也可以模拟 Internet 协议的IP格式由四个三位数字段组成，每个字段单独处理。
实际应用中通常是用 in_addr 结构表示IP地址。
in_addr结构简单可以这样理解：
struct in_addr {
    u_char s_b1;
    u_char s_b2;
    u_char s_b3;
    u_char s_b4;
};

of=CREATEOBJECT("form1")
of.show(1)

DEFINE CLASS form1 as Form
    ADD OBJECT label1 as label WITH left=10,top=10,width=135,height=16,backcolor=0x00FFFFFF,;
        BorderStyle=1,caption="     .     .     .     "
    ADD OBJECT ip1 as text_ip WITH left=11,top=11,width=30,height=14
    ADD OBJECT ip2 as text_ip WITH left=42,top=11,width=30,height=14
    ADD OBJECT ip3 as text_ip WITH left=78,top=11,width=30,height=14
    ADD OBJECT ip4 as text_ip WITH left=114,top=11,width=30,height=14
ENDDEFINE

DEFINE CLASS text_ip as TextBox 
    Alignment = 2
    BorderStyle = 0
    Margin = 0
    Format = "Z" 
    InputMask = "999"
    value = 0
    PROCEDURE valid
        RETURN BETWEEN(this.Value,0,255)
    ENDPROC
ENDDEFINE

可以进一步完成兼容ipv4与6,下面是验证地址有效性（只判断）
CLEAR
DECLARE INTEGER inet_pton IN ws2_32.dll INTEGER af, STRING src, STRING @dst

cIPv4Addr = SPACE(4)
cInput = "192.168.1.1"
nResult = inet_pton(2, cInput, @cIPv4Addr)
IF nResult = 1 THEN
  ? "IPv4地址有效"
ELSE
  ? "IPv4地址无效"
ENDIF

cIPv6Addr = SPACE(16)
cInput = "2001:1db8:35a3:ff00:0130:8a2e:0370:7334"
nResult = inet_pton(23, cInput, @cIPv6Addr)
IF nResult = 1 THEN
  ? "IPv6地址有效"
ELSE
  ? "IPv6地址无效"
ENDIF
*!*    CLEAR DLLS "inet_pton"

ds也是建议用container+textbox+label来解决

重新思考了一下ipaddress控件的逻辑，总算避坑了，完美解决。代码更新在1楼，赶快下载运用去吧。

让ds给我评价一下，好像评价不错。

下次更新，考虑ipv6。。。

[此贴子已经被作者于2025-10-12 18:12编辑过]

这个很实用，谢谢