home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Programming Tool Box
/
SIMS_2.iso
/
tool
/
various
/
kalend
/
main.frm
< prev
next >
Wrap
Text File
|
1995-02-27
|
3KB
|
116 lines
VERSION 2.00
Begin Form Form6
BackColor = &H00C0C0C0&
Caption = "Kalendar Demos"
ClientHeight = 4080
ClientLeft = 60
ClientTop = 345
ClientWidth = 3015
Height = 4605
Left = 0
LinkTopic = "Form6"
ScaleHeight = 4080
ScaleWidth = 3015
Top = -120
Width = 3135
Begin ComboBox cmbDemos
Height = 300
Left = 90
Style = 2 'Dropdown List
TabIndex = 2
Top = 90
Width = 2790
End
Begin PictureBox Picture1
Align = 2 'Align Bottom
BackColor = &H00C0C0C0&
Height = 3600
Left = 0
ScaleHeight = 3570
ScaleWidth = 2985
TabIndex = 0
Top = 480
Width = 3015
Begin TextBox txtSampleDescription
Height = 3480
Left = 45
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 1
Top = 30
Width = 2895
End
End
End
Option Explicit
Sub cmbDemos_Click ()
UnloadAll
Select Case cmbDemos.ListIndex
Case 0
ShowForm Form1
Case 1
ShowForm Form2
Case 2
ShowForm Form3
Case 3
ShowForm Form4
Case 4
ShowForm Form5
End Select
End Sub
Sub Form_Load ()
cmbDemos.AddItem "Property Demo"
cmbDemos.AddItem "Draw Your Own"
cmbDemos.AddItem "Drag & Drop"
cmbDemos.AddItem "Moon Kalendar"
cmbDemos.AddItem "Time Lines"
Me.Move 0, 0
cmbDemos.ListIndex = 0
CR = Chr(13) + Chr(10)
SetupSomeExampleData
End Sub
Sub Form_Unload (Cancel As Integer)
UnloadAll
End Sub
Sub SetupSomeExampleData ()
' For the drag and drop demo.
DateInfoAdd Date, "TODAY"
DateInfoAdd Date + 5, "Dentist Appt."
DateInfoAdd Date - 7, "Meet Susanne"
DateInfoAdd #1962-03-18#, "Kevin's Birthday"
DateInfoAdd Date + 8, "Zach To library" & CR & "Call Mom"
' For the time line demo.
DateRangeAdd Date, Date + 1, "Vacation", &HFF8080
DateRangeAdd Date - 10, Date - 3, "Seminar", RGB(255, 0, 0)
DateRangeAdd Date + 10, Date + 20, "Finish Project", RGB(0, 255, 0)
End Sub
Sub ShowForm (F As Form)
Load F
F.Move Form6.Left + Form6.Width, 0
F.Show
End Sub
Sub UnloadAll ()
On Error Resume Next
Unload Form1
Unload Form2
Unload Form3
Unload Form4
Unload Form5
End Sub