GuiIPAddress

[Schlumpf]

Hi,

in this sample the IPinputbox hasn't the standard font. is it possible to use GuiIPAddress with the standard font?

expandcollapse popup

#include <GuiIPAddress.au3>

Opt("MustDeclareVars", 1)

_Main()

Func _Main()
    Local $msg, $hgui, $button, $hIPAddress
    Local $tab, $tab_item, $tab_item2
   
    $hgui = GUICreate("IP Address Control", 300, 170)
   
    $tab = GUICtrlCreateTab(10, 10, 280, 130)
    $tab_item = GUICtrlCreateTabItem("test")
   
    $hIPAddress = _GUICtrlIpAddressCreate ($hgui, 20, 40, 121, 21)
    GUICtrlCreateInput("standard input", 20, 64, 121, 21)
    _GUICtrlIpAddressSet ($hIPAddress, "24.168.2.128")
    GUICtrlCreateTabItem("")
   
    $tab_item2 = GUICtrlCreateTabItem("test2")
    GUICtrlCreateTabItem("")
   
    $button = GUICtrlCreateButton("Exit", 100, 140, 100, 25)

    GUISetState(@SW_SHOW)


    While 1
        $msg = GUIGetMsg()
       
        Select
            Case $msg = $GUI_EVENT_CLOSE Or $msg = $button
                Exit
            Case $tab
                If GUICtrlRead($tab) = 0 Then
                    _GUICtrlIpAddressShowHide ($hIPAddress, @SW_SHOW)
                Else
                    _GUICtrlIpAddressShowHide ($hIPAddress, @SW_HIDE)
                EndIf
        EndSelect
    WEnd
EndFunc   ;==>_Main

[Danny35d]

You can use _GUICtrlIpAddressSetFont($hIPAddress, "MS Sans Serif", 10, 400, False)

[GaryFrost]

You can use _GUICtrlIpAddressSetFont($hIPAddress, "MS Sans Serif", 10, 400, False)

all you reall need to do is

_GUICtrlIpAddressSetFont($hIPAddress, "MS Sans Serif")

The rest default to those values