Older Version
Newer Version
Alyce
Apr 8, 2009
[[#1]] [[code format="freebasic"]] 'Make a custom control hyperlink with a Liberty BASIC graphicbox. '-----------------------------------------------------------------' [SetupWindow] NoMainWin WindowWidth = 400 WindowHeight = 200 UpperLeftX = Int((DisplayWidth-WindowWidth)/2) UpperLeftY = Int((DisplayHeight-WindowHeight)/2) Link1.Width = 80 Link1.Height = 26 GraphicBox #Win.Link1, 4, 4, Link.Width, Link.Height Stylebits #Win.Link1, 0, _WS_BORDER, 0, 0 Open "Hyperlink Custom Control" For Window As #Win #Win, "TrapClose [Quit.Win]" Wait [Quit.Win] Close #Win End [Link1.Click] Wait [Link1.Move] Wait [[code]]