Beispiele
Übersicht
Beispiele 2
Beispiele 3
Beispiele 4
Beispiele 5
Beispiele 6
Beispiele 7
Erweiterungen
 

Menue


#Include Once "window9.bi" Var hwnd = OpenWindow("Nr. 3a",30,30,480,320,_ WS_VISIBLE Or WS_SYSMENU) WindowColor(hwnd, BGR(200,200,200)) CenterWindow(hwnd) Dim As HMENU hMessages,MenName hMessages=Create_Menu() MenName=MenuTitle(hMessages,"Datei") MenuItem(11,MenName,"&Hilfe") MenuItem(12,MenName,"&Info") MenuItem(13,MenName,"&Ende") Do Var event=WindowEvent() If event=EventClose Then End If event=EventMenu Then Select Case EventNumber Case 11 MessBox("Hilfe","Dies ist die Hilfe!") Case 12 MessBox("Info", "Dies ist ein Info!") Case 13 MessBox("Ende", "Dies ist das Ende!") End End Select EndIf Loop

TextGadget


#Include Once "window9.bi" #Include "WinVers.bas" #Include "CPU_ID.bas" Var hwnd = OpenWindow("Nr. 4a",30,30,300,480,WS_VISIBLE Or WS_SYSMENU) WindowColor(hwnd, BGR(200,200,200)) CenterWindow(hwnd) TextGadget(13,20,20,250,18,__FB_SIGNATURE__ ,SS_CENTER) SetGadgetColor(13,BGR(255,0,0),BGR(255,255,0),3) TextGadget(14,20,50,250,40,GetOSplatform) SetGadgetColor(14,0,BGR(255,255,255),3) Dim cpu As CPU_ID TextGadget(17,20,100,250,290,cpu.WinInfo) TextGadget(15,20,400,250,18,"3D-Rahmen",SS_SUNKEN) SetGadgetColor(15,BGR(100,100,100),BGR(255,255,255),3) TextGadget(16,20,425,250,18,"Einfacher Rahmen",WS_BORDER) Do Loop Until WaitEvent= EventClose