紧急求助解决_GUICtrlIpAddress_Create问题
本帖最后由 ssjoe 于 2010-11-6 01:13 编辑各位大虾们，请求帮忙解决以下的问题！
一、Input框能否只允许输入数字但不要提示，也不可以复制
二、在IP窗口为空时或者最前段和后段为空时按钮同时不可以，但输入正确的IP段后才可用
三、能在Input窗口输入大于255时IP窗口变灰色不可自填写IP，但小于255时IP窗口可以也可自行填写！#include <GuiConstants.au3>
#include <WindowsConstants.au3>
#include <GuiIPAddress.au3>
Opt("GUIOnEventMode", 1)
$flag = ""
$Form1 = GUICreate("Form1", 294, 85)
GUISetOnEvent($GUI_EVENT_CLOSE, "GetMain")
$Button1 = GUICtrlCreateButton("Button1", 190, 30, 80, 25, 0)
$Label1 = GUICtrlCreateLabel("", 58, 4, 60, 28)
$Input1 = GUICtrlCreateInput("", 10, 20, 169, 25)
$IPAddress1 = _GUICtrlIpAddress_Create($Form1, 10, 50, 169, 25)
_GUICtrlIpAddress_Set($IPAddress1, "0.0.0.0")
GUISetState()
GUICtrlSetOnEvent($Button1, "GetMain")
GUICtrlSetOnEvent($Input1,"GetMain")
GUIRegisterMsg($WM_NOTIFY, "CheckInput")
GUIRegisterMsg($WM_CTLCOLOREDIT, "CheckInput")
ControlFocus ( "Form1", "", $Input1)
While 1
Sleep(1000)
WEnd
Func GetMain()
Switch @GUI_CtrlId
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
MsgBox(0,"",GUICtrlRead($Input1))
EndSwitch
EndFunc
Func CheckInput()
$Select1 = GUICtrlRead($Input1)
If $Select1 = "" Then
If BitAND(GUICtrlGetState($Button1), $GUI_ENABLE) = $GUI_ENABLE Then
GUICtrlSetState($Button1, $GUI_DISABLE)
GUICtrlSetData($Label1, "")
_GUICtrlIpAddress_Set($IPAddress1, "0.0.0.0")
EndIf
Else
If BitAND(GUICtrlGetState($Button1), $GUI_DISABLE) = $GUI_DISABLE Then
GUICtrlSetState($Button1, $GUI_ENABLE)
EndIf
If GUICtrlRead($Input1) <> $flag Then
if StringIsDigit($Select1) <> 1 then $Select1 = ""
if $Select1 <> "" And $Select1 <=254 then
GUICtrlSetData($Label1, GUICtrlRead($Input1))
_GUICtrlIpAddress_Set($IPAddress1, "192.168.0." & GUICtrlRead($Input1))
Else
GUICtrlSetData($Label1, "")
_GUICtrlIpAddress_Set($IPAddress1, "0.0.0.0")
Endif
$flag = GUICtrlRead($Input1)
EndIf
EndIf
EndFunc 怎么回事呢？怎么没人可以帮得到这个忙吗？是否无法解决这个问题啊？ 急啊。。。。那位大虾能帮上忙啊。。。 那位老师可以帮忙解决一下吧。。。万分感谢！ 奇怪的设计需求。不要太过于的考虑界面了。 我想应该是。。。因为没人会想出这样的问题。相信这个功能比较难现实吧。。。唉。。。 #include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GuiIPAddress.au3>
#include <GuiEdit.au3>
Opt("GUIOnEventMode", 1)
$Form1 = GUICreate("Form1", 294, 85)
GUISetOnEvent($GUI_EVENT_CLOSE, "GetMain")
GUISetOnEvent($GUI_EVENT_PRIMARYUP, "GetMain")
$Button1 = GUICtrlCreateButton("Button1", 190, 30, 80, 25, 0)
GUICtrlSetOnEvent($Button1, "GetMain")
GUICtrlSetState($Button1, $GUI_DISABLE)
$Label1 = GUICtrlCreateLabel("", 58, 4, 60, 28)
$Input1 = GUICtrlCreateInput("", 10, 20, 169, 25)
GUICtrlSetLimit($Input1, 3) ;只能输入三个字符
$IPAddress1 = _GUICtrlIpAddress_Create($Form1, 10, 50, 169, 25)
_WinAPI_EnableWindow($IPAddress1, False)
_GUICtrlIpAddress_Set($IPAddress1, "0.0.0.0")
GUIRegisterMsg($WM_COMMAND, "WM_COMMAND") ;注册WM_COMMAND消息
ControlFocus("Form1", "", $Input1)
GUISetState()
While 1
Sleep(100)
WEnd
Func GetMain()
Switch @GUI_CtrlId
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
MsgBox(0, "", GUICtrlRead($Input1))
Case $GUI_EVENT_PRIMARYUP
_GUICtrlEdit_SetSel($Input1, 3, 3)
EndSwitch
EndFunc ;==>GetMain
Func WM_COMMAND($hWnd, $Msg, $wParam, $lParam) ;消息处理
$nNotifyCode = BitShift($wParam, 16)
$nID = BitAND($wParam, 0x000FFFF)
Switch $nID
Case $Input1
Switch $nNotifyCode
Case $EN_CHANGE
$Select = GUICtrlRead($Input1)
If StringIsDigit($Select) And $Select <> "" And $Select <= 254 Then
_GUICtrlIpAddress_Set($IPAddress1, "192.168.0." & $Select)
GUICtrlSetState($Button1, $GUI_ENABLE)
_WinAPI_EnableWindow($IPAddress1, True)
Else
GUICtrlSetData($Input1, "")
_GUICtrlIpAddress_Set($IPAddress1, "0.0.0.0")
GUICtrlSetState($Button1, $GUI_DISABLE)
_WinAPI_EnableWindow($IPAddress1, False)
EndIf
EndSwitch
EndSwitch
EndFunc ;==>WM_COMMAND
回复 7# 风行者
非常感谢，我要的就是这样，我不知道你是否同一人。不管如何。我也是感谢你的帮忙。
不知能否再帮忙解决一下这个问题呢？
在IP窗口为空时或者前段和后段为空时按钮同时不可用，但输入正确的IP段后才可用
例如：
在Input窗口输入1时,IP窗口自动获得的值是"192.168.0.1"这样是正常了，
但在Input窗口还等于1时,IP窗口修改了地址为：0.0.0.0、192.168.0.0、192.168.0.、0.168.0.1、.168.0.1时，按钮同时变灰色不可用。
但输入正确的IP地址，按钮才可以正常使用，能否再帮忙解决一下！
简单的说就是修改IP地址前段或后段为空或为0时按钮不可用！ 大虾们都去那了，问题是否很难解决，还是无法解决这个问题呢？ 还没有大虾能帮到忙啊？ 回复 8# ssjoe
7#不是已经给了个大致的模板了吗，条件自己修改呀，多加几条判断就行了
还有，你那个正确的ip指的是什么？
页:
[1]