Gadget ›› IpAddressGadget

IpAddressGadget

構文

ID= IpAddressGadget(Number, x , y , Width , Height )

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

オプション

ID - ガジェット・ハンドル

Number - 識別子 (正の整数 1,2,3,4 など)

x,y,Width,Height- 場所とサイズ

プラットホーム

Windows

例:

#Include "window9.bi"

Dim As integer hwnd,event
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

http://mneniya.ucoz.ru/