HyperLinkGadget

Синтаксис

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,w,h - расположение и размеры гаджета

textlink - текст (ссылка)

Платформы

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://freebasic.net/forum/")
Do
  event=WaitEvent()
  If Event=EventClose Then End
  If event=eventgadget Then
     If EventNumber=1 Then
        RunProgram("firefox", "https://freebasic.net/forum/")
     EndIf
  EndIf
Loop

Результат

Created with the Personal Edition of HelpNDoc: Single source CHM, PDF, DOC and HTML Help creation