GUICtrlIpAddress_Create Function

[y0_Aero]

Hello i was wondering if anyone could point out what's wrong with this code.

It's on it's own TAB and the IP Address inputbox displays but also shows on every other Tab aswell and i can't see where it references the other tabs?

$TabSheet3 = GUICtrlCreateTabItem("IP Tools")
GUICtrlSetState(-1,$GUI_SHOW)
GUICtrlCreateLabel("Ping an IP Address", 40, 48, 116, 20)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
$Button5 = GUICtrlCreateButton("Ping", 48, 104, 97, 25)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
$IPAddress1 = _GUICtrlIpAddress_Create($Form1, 24, 72, 145, 25)
_GUICtrlIpAddress_Set($IPAddress1, "127.0.0.1")

Any help would be appreciated.

 

[Kovacic]

Any chance you could post the complete code so we can run it? Even if you just add whatever includes you are using and strip out the stuff you don't need.

 

This will make it easier for people to help out.

[y0_Aero]

expandcollapse popup

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#include <Inet.au3>
#include <GuiIPAddress.au3>

Global $YourIP = _GetIp()

$Form1 = GUICreate("Toolbox", 423, 309, 485, 177)
$PageControl1 = GUICtrlCreateTab(0, 8, 444, 320)
$TabSheet1 = GUICtrlCreateTabItem("Home")
$Pic2 = GUICtrlCreatePic("\\path", 4, 33, 417, 273)
$TabSheet2 = GUICtrlCreateTabItem("Project")
$Edit1 = GUICtrlCreateEdit("", 16, 72, 385, 185)
GUICtrlSetData(-1, "Edit1")
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Button1 = GUICtrlCreateButton("Run Script", 16, 264, 89, 25)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Button2 = GUICtrlCreateButton("Clear Text", 328, 264, 73, 25)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Label1 = GUICtrlCreateLabel("Enter the workstation names below ", 32, 56, 362, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Button3 = GUICtrlCreateButton("Export Script", 224, 264, 89, 25)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Button4 = GUICtrlCreateButton("Import File", 120, 264, 89, 25)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$TabSheet3 = GUICtrlCreateTabItem("IP Tools")
GUICtrlSetState(-1,$GUI_SHOW)
GUICtrlCreateLabel("Ping an IP Address", 40, 48, 116, 20)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
$Button5 = GUICtrlCreateButton("Ping", 48, 104, 97, 25)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
$IPAddress1 = _GUICtrlIpAddress_Create($Form1, 24, 72, 145, 25)
_GUICtrlIpAddress_Set($IPAddress1, "127.0.0.1")
$TabSheet4 = GUICtrlCreateTabItem("CMD")
$TabSheet5 = GUICtrlCreateTabItem("Programs")
$TabSheet6 = GUICtrlCreateTabItem("Active Directory")
$About = GUICtrlCreateTabItem("About")
GUICtrlCreateTabItem("")
GUISetState(@SW_SHOW)

Hey Kovacic, Above is my whole GUI code including includes, every other tab works fine and doesn't overlap to other tabs it's just that IP input box.

[Kovacic]

This fixes your issue, but it doesn't want to seem to keep the value of the control. Most controls work fine with tabs (except tables and custom built controls like this one), so I am just closing it when not in use. If this doesnt work for you, you may want to search for a method to simply move it off the view of the GUI while not in use ( like 1000,1000).

 

expandcollapse popup

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#include <Inet.au3>
#include <GuiIPAddress.au3>



Global $YourIP = _GetIp()

$Form1 = GUICreate("Toolbox", 423, 309, 485, 177)
$PageControl1 = GUICtrlCreateTab(0, 8, 444, 320)
$TabSheet1 = GUICtrlCreateTabItem("Home")
$Pic2 = GUICtrlCreatePic("\\path", 4, 33, 417, 273)
$TabSheet2 = GUICtrlCreateTabItem("Project")
$Edit1 = GUICtrlCreateEdit("", 16, 72, 385, 185)
GUICtrlSetData(-1, "Edit1")
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Button1 = GUICtrlCreateButton("Run Script", 16, 264, 89, 25)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Button2 = GUICtrlCreateButton("Clear Text", 328, 264, 73, 25)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Label1 = GUICtrlCreateLabel("Enter the workstation names below ", 32, 56, 362, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Button3 = GUICtrlCreateButton("Export Script", 224, 264, 89, 25)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Button4 = GUICtrlCreateButton("Import File", 120, 264, 89, 25)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$TabSheet3 = GUICtrlCreateTabItem("IP Tools")
GUICtrlSetState(-1,$GUI_SHOW)
GUICtrlCreateLabel("Ping an IP Address", 40, 48, 116, 20)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
$Button5 = GUICtrlCreateButton("Ping", 48, 104, 97, 25)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
$IPAddress1 = _GUICtrlIpAddress_Create($Form1, 24, 72, 145, 25)
_GUICtrlIpAddress_Set($IPAddress1, "127.0.0.1")
$TabSheet4 = GUICtrlCreateTabItem("CMD")
$TabSheet5 = GUICtrlCreateTabItem("Programs")
$TabSheet6 = GUICtrlCreateTabItem("Active Directory")
$About = GUICtrlCreateTabItem("About")
GUICtrlCreateTabItem("")
GUISetState(@SW_SHOW)

Global $LastIP = "127.0.0.1"

While 1

    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
         Case $PageControl1
            $LastIP = GuiCtrlRead($IPAddress1)
            if GUICtrlRead($PageControl1) = 2 then 
            $IPAddress1 = _GUICtrlIpAddress_Create($Form1, 24, 72, 145, 25)
            GuiCtrlSetData($IPAddress1, $LastIP)
            else
            _GUICtrlIpAddress_Destroy ($IPAddress1)
            endif

    EndSwitch
WEnd

 

[Melba23]

y0_Aero,

The IPAddress control is created by a UDF and not by a native AutoIt function, so the tabs will not automatically deal with it. You need to do the hiding/showing yourself - the Tabs tutorial in the Wiki shows you how you do this.

M23

 

[Zedna]

Here is exactly the same question answered with nice/simple example:

 

Edited December 9, 2015 by Zedna