home *** CD-ROM | disk | FTP | other *** search
/ Mastering Visual Basic 5 / MasteringVisualBasic5.iso / dameware / cal32 / cal32.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-08-26  |  4.0 KB  |  131 lines
  1. VERSION 4.00
  2. Begin VB.Form Form1 
  3.    Caption         =   "Form1"
  4.    ClientHeight    =   4935
  5.    ClientLeft      =   1095
  6.    ClientTop       =   1515
  7.    ClientWidth     =   6720
  8.    Height          =   5340
  9.    Left            =   1035
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   4935
  12.    ScaleWidth      =   6720
  13.    Top             =   1170
  14.    Width           =   6840
  15.    Begin VB.TextBox Text3 
  16.       Height          =   285
  17.       Left            =   2040
  18.       TabIndex        =   6
  19.       Top             =   4320
  20.       Width           =   2415
  21.    End
  22.    Begin VB.TextBox Text2 
  23.       Height          =   285
  24.       Left            =   2040
  25.       TabIndex        =   2
  26.       Top             =   3720
  27.       Width           =   2415
  28.    End
  29.    Begin VB.TextBox Text1 
  30.       Height          =   285
  31.       Left            =   2040
  32.       TabIndex        =   1
  33.       Top             =   3120
  34.       Width           =   2415
  35.    End
  36.    Begin CAL32Lib.Cal32 Cal321 
  37.       Height          =   2175
  38.       Left            =   2055
  39.       TabIndex        =   0
  40.       Top             =   615
  41.       Width           =   2400
  42.       _Version        =   65536
  43.       _ExtentX        =   4233
  44.       _ExtentY        =   3836
  45.       _StockProps     =   33
  46.       BackColor       =   12632256
  47.       BorderStyle     =   1
  48.       BeginProperty DaysOfWeekFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  49.          name            =   "MS Sans Serif"
  50.          charset         =   0
  51.          weight          =   700
  52.          size            =   8.25
  53.          underline       =   0   'False
  54.          italic          =   0   'False
  55.          strikethrough   =   0   'False
  56.       EndProperty
  57.       BeginProperty DateCaptionFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  58.          name            =   "MS Sans Serif"
  59.          charset         =   0
  60.          weight          =   700
  61.          size            =   8.25
  62.          underline       =   0   'False
  63.          italic          =   0   'False
  64.          strikethrough   =   0   'False
  65.       EndProperty
  66.       BeginProperty DayFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  67.          name            =   "MS Sans Serif"
  68.          charset         =   0
  69.          weight          =   400
  70.          size            =   8.25
  71.          underline       =   0   'False
  72.          italic          =   0   'False
  73.          strikethrough   =   0   'False
  74.       EndProperty
  75.       Draw3D          =   -1  'True
  76.       SelectedDayTextColor=   16776960
  77.    End
  78.    Begin VB.Label Label4 
  79.       Caption         =   "Using String Format"
  80.       Height          =   255
  81.       Left            =   480
  82.       TabIndex        =   7
  83.       Top             =   4320
  84.       Width           =   1455
  85.    End
  86.    Begin VB.Label Label3 
  87.       Caption         =   "Try the right mouse button"
  88.       Height          =   615
  89.       Left            =   4800
  90.       TabIndex        =   5
  91.       Top             =   1560
  92.       Width           =   1335
  93.    End
  94.    Begin VB.Label Label2 
  95.       Caption         =   "Using String Date"
  96.       Height          =   255
  97.       Left            =   600
  98.       TabIndex        =   4
  99.       Top             =   3720
  100.       Width           =   1335
  101.    End
  102.    Begin VB.Label Label1 
  103.       Caption         =   "Using Date"
  104.       Height          =   255
  105.       Left            =   960
  106.       TabIndex        =   3
  107.       Top             =   3120
  108.       Width           =   975
  109.    End
  110. Attribute VB_Name = "Form1"
  111. Attribute VB_Creatable = False
  112. Attribute VB_Exposed = False
  113. Private Sub Cal321_DateChanged(ByVal NewDate As Date)
  114. Text1.Text = NewDate
  115. Text3.Text = Cal321.GetDateAsFormat("%m/%d/%Y")
  116. End Sub
  117. Private Sub Cal321_DateStringChanged(ByVal NewStringDate As String)
  118. Text2.Text = NewStringDate
  119. End Sub
  120. Private Sub Command1_Click()
  121. 'Unload Form1
  122. 'Dim NewForm As New Form2
  123. Form2.Show
  124. End Sub
  125. Private Sub Text1_Change()
  126. End Sub
  127. Private Sub Text2_Change()
  128. End Sub
  129. Private Sub Text3_Change()
  130. End Sub
  131.