FDateTime

Erstellt ein Datum oder Zeit - Control

PropertyDatentyp(Read/Write)Hinweise
LeftInteger (R/W) Linke Position
TopInteger (R/W) Obere Position
WidthInteger (R/W) Weite
HeightInteger (R/W) Höhe
ClientHeightInteger (R) Höhe des Clientbereiches
ClientWidthInteger (R) Breite des Clientbereiches
VisibleInteger (R/W) TRUE = sichtbar (voreingestellt) ; FALSE = nicht sichtbar
EnabledInteger (R/W) TRUE = aktiv (voreingestellt) ; FALSE = inaktiv
ColorUInteger (R/W) Hintergrundfarbe des Kalenders und des Control-String
TextColorUInteger (R/W) Textfarbe des Kalender
HandleHWND (R) Handle des Control (nur lesen !)
CtHandleHWND (R) Handle des Containers (nur lesen !)
alle visuellen Control haben ein eigenes unsichtbares Container Elternfenster
TipString (W) Der hier zugeordnete String wird als ToolTip angezeigt
DateTime String (R/W) Aktuell ausgewähltes Datum. Der Rückgabestring hat das Format: mm/dd/yyyy/dw
(Monat/Tag/Jahr/Wochentag). Wochentag als Zahl: 0=Sonntag,1=Montag, 2=Dienstag .... 6=Samstag.
Wenn Style TimePick ist wird HH/MM/SS (Stunde, 24 St./Minute/Sekunde ) zurückgegeben.
Soll das Datum hier gesetzt werden, muss der String das Format mm/dd/yyyy ohne dw(Wochentag) haben ! Wenn Style TimePick ist,muss der String das Format HH/MM/SS haben.
SUB ArgumenteHinweis
Create (ByVal hParent As HWND,
ByVal x As Integer,
ByVal y As Integer
ByVal w As Integer
ByVal h As Integer
ByVal styl As Integer )
Elternfenster
Pos. links
Pos. Top
Weite
Höhe
Style als optionaler Parameter. Ohne ist Null. Style kann folgende sein:
0 = kurzes Datum; 1 = kurzes Datum mit Checkbox; 2 = Langes Datum; 3 = langes Datum mit Checkbox;
4 = Zeit (HH/MM/SS); 5 = Zeit mit Checkbox
Invalidate keine Veranlasst das senden einer WM_PAINT Botschaft
Repaint keine Wie Invalidate aber mit Nicht-Clientbereich
setFont (Face As String,
ByVal size As Integer,
ByVal bold As Integer,
ByVal italic As Integer,
ByVal underlin As Integer)
Schrift-Name
Schriftgröße
1=bold,0=normal
1=italic,0=normal
1=underlin,0=normal
Event SUBArgumenteHinweis
onChange(sDateTime as String) Datum oder Zeit wird geändert.
Der Rückgabestring hat das Format: mm/dd/yyyy/dw (Monat/Tag/Jahr/Wochentag) wenn Style DatePick ist. Wochentag als Zahl: 0=Sonntag,1=Montag, 2=Dienstag .... 6=Samstag.
Wenn Style TimePick ist wird HH/MM/SS (Stunde, 24 St./Minute/Sekunde ) zurückgegeben.
onLButtondown(ByVal x As Short, ByVal y As Short) Wenn auf dem Control mit der linker Mousetaste geklickt wird
x und y ist dabei die Position des Mousezeigers
onRButtondown(ByVal x As Short, ByVal y As Short) Wenn auf dem Control mit der rechter Mousetaste geklickt wird
x und y ist dabei die Position des Mousezeigers

 

Beispiel:
       
#Include "winFBgui.bi"

Dim Shared As FForm form1
Dim Shared As FDateTime date1,date2,date3,date4,time1,time2
Dim Shared As fButton btn1

Sub date1_Change( newDate As String)
MessageBox(0, newDate ,"Inf",MB_OK)
End Sub

Sub time1_Change( newDate As String)
MessageBox(0, newDate ,"Inf",MB_OK)
End Sub

Sub btn1_Click
form1.FormClose
End Sub

' Fenter erstellen
form1.Create("Test 1",90,90,400,300)
form1.Color = &HFFBFBF

date1.Create(form1.Handle,10,10,110,30) ' Stil 0 kann weggelassen werden'
date1.onChange = @date1_Change

date2.Create(form1.Handle,10,50,110,30, 1) ' Stil 1

date3.Create(form1.Handle,10,90,210,30, 2) ' Stil 2
date4.Create(form1.Handle,10,130,210,30, 3) ' Stil 3

time1.Create(form1.Handle,250 ,10,80,30, 4) ' Stil 4
time1.onChange = @time1_Change
time2.Create(form1.Handle,250 ,50,100,30, 5) ' Stil 5

btn1.create(Form1.Handle,"Exit",150,200,100,30)
btn1.onClick = @btn1_Click
'
'-----------------------------------------------------------
' alles anzeigen
form1.Show
ExitProcess(0)
End
Beispiel