home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / vb_code1 / dt01 / demo.frm next >
Text File  |  1993-12-02  |  3KB  |  117 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "Demo"
  6.    ClientHeight    =   3792
  7.    ClientLeft      =   1272
  8.    ClientTop       =   1632
  9.    ClientWidth     =   5496
  10.    FontBold        =   -1  'True
  11.    FontItalic      =   0   'False
  12.    FontName        =   "MS Sans Serif"
  13.    FontSize        =   13.8
  14.    FontStrikethru  =   0   'False
  15.    FontUnderline   =   0   'False
  16.    ForeColor       =   &H00000000&
  17.    Height          =   4212
  18.    Left            =   1224
  19.    LinkTopic       =   "Form1"
  20.    MaxButton       =   0   'False
  21.    MinButton       =   0   'False
  22.    ScaleHeight     =   3792
  23.    ScaleWidth      =   5496
  24.    Top             =   1260
  25.    Width           =   5592
  26.    Begin SSPanel Panel3D2 
  27.       AutoSize        =   3  'AutoSize Child To Panel
  28.       BackColor       =   &H00FF0000&
  29.       BevelOuter      =   1  'Inset
  30.       BevelWidth      =   3
  31.       BorderWidth     =   6
  32.       Caption         =   "Date Tracker Demo"
  33.       FloodColor      =   &H00FF80FF&
  34.       Font3D          =   0  'None
  35.       FontBold        =   -1  'True
  36.       FontItalic      =   -1  'True
  37.       FontName        =   "MS Sans Serif"
  38.       FontSize        =   13.8
  39.       FontStrikethru  =   0   'False
  40.       FontUnderline   =   0   'False
  41.       ForeColor       =   &H00FFFFFF&
  42.       Height          =   612
  43.       Left            =   600
  44.       RoundedCorners  =   0   'False
  45.       TabIndex        =   0
  46.       Top             =   240
  47.       Width           =   4332
  48.    End
  49.    Begin SSPanel Panel3D1 
  50.       AutoSize        =   3  'AutoSize Child To Panel
  51.       BackColor       =   &H00C0C0C0&
  52.       BevelOuter      =   1  'Inset
  53.       BevelWidth      =   2
  54.       Caption         =   "Panel3D1"
  55.       Font3D          =   0  'None
  56.       Height          =   336
  57.       Left            =   600
  58.       RoundedCorners  =   0   'False
  59.       TabIndex        =   2
  60.       Top             =   1200
  61.       Width           =   1692
  62.       Begin ComboBox Combo1 
  63.          Height          =   288
  64.          Left            =   24
  65.          TabIndex        =   1
  66.          Text            =   "Combo1"
  67.          Top             =   24
  68.          Width           =   1644
  69.       End
  70.    End
  71.    Begin CommandButton Command1 
  72.       Caption         =   "&End"
  73.       FontBold        =   -1  'True
  74.       FontItalic      =   0   'False
  75.       FontName        =   "Times New Roman"
  76.       FontSize        =   13.8
  77.       FontStrikethru  =   0   'False
  78.       FontUnderline   =   0   'False
  79.       Height          =   492
  80.       Left            =   3600
  81.       TabIndex        =   3
  82.       Top             =   3000
  83.       Width           =   1332
  84.    End
  85. End
  86.  
  87. Sub Combo1_DropDown ()
  88.  
  89.     calendar combo1
  90.  
  91. End Sub
  92.  
  93. Sub Command1_Click ()
  94.  
  95.     End
  96.  
  97. End Sub
  98.  
  99. Sub Form_Load ()
  100.  
  101. ' ==========================================
  102. ' Loading the 'Date Tracker' form here is
  103. ' unnecessary, but makes the first call
  104. ' as fast/slow as all subsequent calls.
  105. ' ==========================================
  106.  
  107.     Load frmCalendar
  108.  
  109.  
  110.  
  111. ' Initialize date in combo box.
  112. ' -----------------------------
  113.     combo1.Text = Format$(Now, "dd-mmm-yyyy")
  114.  
  115. End Sub
  116.  
  117.