Alyce
Apr 8, 2009
[[#1]][[#a]] [[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]] [[#b]] [[#c]] [[#d]] [[#e]] [[#f]] [[#g]] [[#h]] [[#i]] [[#j]] [[#k]] [[#l]] [[#a]]