GetIpAddress

Синтаксис

Function GetIpAddress(ByVal gadget As long) As String

Описание

Функция получает строку из IpAddressGadget

Параметры

gadget - номер гаджета

Платформы

Windows

Пример

#Include "window9.bi"
Dim As integer event
Dim As HWND hwnd
hwnd=OpenWindow("1",300,10,190,150)
ButtonGadget(1,10,10,150,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
        ? GetIpAddress(2)
     EndIf
  EndIf
Loop

Результат

255.10.1.1

Created with the Personal Edition of HelpNDoc: Free help authoring tool