Property | Datentyp(Read/Write) | Hinweise |
SimplePanel | Integer (R/W) | True = SimplePanel ; False = mehrere Parts (False = voreingestellt) |
SimpleText | String (R/W) | Text der angezeigt wird |
Sub/Function | Argumente | Hinweise |
SUB Create | (ByVal hParent As HWND) | Handle des Elternfenster |
SUB AddPanels | (ByVal PartWidth As Integer) | Weite des Part (Beim letzten aufruf, also beim am weitesten rechts liegenden Panel sollte der Wert -1 sein. Das bewirkt die ausdehnung bis zum rechten Rand ) |
SUB SetPanelText | (ByVal Part As Integer, txt As String) | Setzt den Text in die Part-Nr (Nummerierung mit 0 beginnend) |
SUB setSize | (ByVal w As short,ByVal h As Short) | Löst eine WM_SIZE Botschaft aus. Ist zwingend Notwendig |
In das EventSub onSize des Elternfester sollte setSize(w,h) eingestellt werden.
#Include "winFBgui.bi" Dim Shared As FForm form1 Dim Shared As FStatusbar status1 Sub form1_Size(ByVal x As Integer,ByVal y As Integer,ByVal f As Integer) status1.setSize(x,y) End Sub ' ' Fenter erstellen form1.Create("Test 1",90,90,450,320) form1.onSize = @form1_Size status1.Create(form1.Handle) 'Panels status1.AddPanels(50) status1.AddPanels(100) status1.AddPanels(-1) 'Texte status1.SetPanelText(0,"INS") status1.SetPanelText(1,"Part1") status1.SetPanelText(2,"Letzter Part") '------ Show entält MessageLoop - muss immer am Ende sein ------------ form1.Show ExitProcess(0) End