home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 4 Unleashed / Visual_Basic_4_Unleashed_SAMS_Publishing_1995.iso / source / chap30 / sscal2.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-07-30  |  2.5 KB  |  75 lines
  1. VERSION 4.00
  2. Begin VB.Form ssyear 
  3.    Caption         =   "Sheridan Year View Control"
  4.    ClientHeight    =   6030
  5.    ClientLeft      =   1095
  6.    ClientTop       =   1515
  7.    ClientWidth     =   6720
  8.    Height          =   6435
  9.    Left            =   1035
  10.    LinkTopic       =   "Form2"
  11.    ScaleHeight     =   6030
  12.    ScaleWidth      =   6720
  13.    Top             =   1170
  14.    Width           =   6840
  15.    Begin SSCalendarWidgets_A.SSYear SSYear1 
  16.       Height          =   6015
  17.       Left            =   0
  18.       TabIndex        =   0
  19.       Top             =   0
  20.       Width           =   6675
  21.       _version        =   65536
  22.       _extentx        =   11774
  23.       _extenty        =   10610
  24.       _stockprops     =   78
  25.       caption         =   "SSYear1"
  26.       BeginProperty captionfont {FB8F0823-0164-101B-84ED-08002B2EC713} 
  27.          name            =   "MS Sans Serif"
  28.          charset         =   1
  29.          weight          =   700
  30.          size            =   12
  31.          underline       =   0   'False
  32.          italic          =   0   'False
  33.          strikethrough   =   0   'False
  34.       EndProperty
  35.       BeginProperty dayfont {FB8F0823-0164-101B-84ED-08002B2EC713} 
  36.          name            =   "Small Fonts"
  37.          charset         =   1
  38.          weight          =   400
  39.          size            =   6.75
  40.          underline       =   0   'False
  41.          italic          =   0   'False
  42.          strikethrough   =   0   'False
  43.       EndProperty
  44.       dayname(1)      =   "Sun"
  45.       dayname(2)      =   "Mon"
  46.       dayname(3)      =   "Tue"
  47.       dayname(4)      =   "Wed"
  48.       dayname(5)      =   "Thu"
  49.       dayname(6)      =   "Fri"
  50.       dayname(7)      =   "Sat"
  51.       maxdate         =   "9998/12/30"
  52.       stylesets.count =   3
  53.       stylesets(0).name=   "Sunday"
  54.       stylesets(0).forecolor=   255
  55.       stylesets(1).name=   "Holidays"
  56.       stylesets(1).forecolor=   65280
  57.       stylesets(2).name=   "Saturday"
  58.       stylesets(2).forecolor=   16711680
  59.       showcentury     =   -1  'True
  60.       startmonth      =   8
  61.    End
  62. Attribute VB_Name = "ssyear"
  63. Attribute VB_Creatable = False
  64. Attribute VB_Exposed = False
  65. Option Explicit
  66. Private Sub Form_Load()
  67. SSYear1.X.Day("08/28/95").StyleSet = "holidays"
  68. SSYear1.X.Day("11/13/95").StyleSet = "holidays"
  69. SSYear1.X.Day("12/26/95").StyleSet = "holidays"
  70. SSYear1.X.Day("12/27/95").StyleSet = "holidays"
  71. SSYear1.X.Day("02/02/96").StyleSet = "holidays"
  72. SSYear1.X.Day("04/14/96").StyleSet = "holidays"
  73. SSYear1.X.Day("04/17/96").StyleSet = "holidays"
  74. End Sub
  75.