Gadget ›› HyperlinkGadget

HyperLinkGadget

構文

hwnd=HyperLinkGadget( gadget,x,y,width,height,stringlink)

Function HyperLinkGadget(ByVal gadget As long, ByVal x As long, ByVal y As long, ByVal w As long, ByVal h As long, ByRef textlink As String="") As HWND

説明

リンク - ガジェットを作成することができます。

オプション

gadget - ガジェット番号（ゼロより大きい任意の自然数、1、2、3、4など）

x,y,width,height - ガジェットの場所とサイズ

stringlink - インターネットのアドレスを持つ文字列

プラットホーム

Windows , Linux

例:

#Include "window9.bi"
Dim As Integer event
Dim As HWND hwnd
hwnd=OpenWindow("",10,10,220,100) : CenterWindow(hwnd)
HyperLinkGadget(1,10,10,180,20,"https://users.freebasic-portal.de/freebasicru/w9start.html")
Do
  event=WaitEvent()
  If Event=EventClose Then End
  If event=eventgadget Then
    If EventNumber=1 Then
      RunProgram("https://users.freebasic-portal.de/freebasicru/w9start.html")
    EndIf
  EndIf
Loop

http://mneniya.ucoz.ru/