IpAddressGadget

Синтаксис

Function IpAddressGadget(ByVal gadget As Integer, ByVal x As Integer, ByVal y As Integer, ByVal w As Integer, ByVal h As Integer) As HWND

Описание

Гаджет выводящий IP адрес.
Установить IP в гаджет можно функцией SetIpAddress.
Получить IP из гаджета можно функцией GetIpAddress

Параметры

gadget - идентификатор\номер (любое натуральное число больше нуля, может быть 1,2,3,4 и др.)

x,y,w,h - расположение и размеры

Платформы

Windows

Пример

#Include "window9.bi"
Dim As integer event
dim as HWND hwnd
hwnd=OpenWindow("1",300,10,230,150)
ButtonGadget(1,10,10,200,30,"Получить из гаджета адрес")
IpAddressGadget(2,10,50,150,20)
SetIpAddress(2,"255.10.1.1")
Do
  event=WaitEvent()
  If event=EventClose Then End
  If event=eventgadget Then
     If eventnumber()=1 then
        MessBox("",GetIpAddress(2))
     EndIf
  EndIf
Loop

Результат

Created with the Personal Edition of HelpNDoc: Full featured multi-format Help generator