Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Showwindows
Message
De
27/12/2010 12:40:53
Issam Mansour
Jordan Business Machines
Amman, Jordanie
 
 
À
Tous
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Titre:
Showwindows
Versions des environnements
Visual FoxPro:
VFP 9 SP2
Divers
Thread ID:
01493938
Message ID:
01493938
Vues:
109
Hi,

I used the following code to have a calender on my forms, but how to use showwindow = 1 with a ceated form.

#DEFINE C_CALCAPTION_LOC "Data Calendar"
oCalForm = Create('form')
oCalForm.NewObject("oleCalendar","_olecalendar","_datetime")

WITH oCalForm.oleCalendar
.date_column = "Date()"
.RefreshDisplay()
.BackColor = THISFORM.BackColor
.Visible = .T.
ENDWITH
WITH oCalForm
.AutoCenter = .T.
.BorderStyle = 2
.MaxButton = .F.
.MinButton = .F.
.Height = oCalForm.oleCalendar.Height
.Width = oCalForm.oleCalendar.Width
.Caption = C_CALCAPTION_LOC
ENDWITH

oCalForm.Show(1)
THISFORM.Refresh



regards
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform