home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 14 / IOPROG_14.ISO / soft / sdkjava / sdkjava.exe / SDKJava.cab / Samples / ActiveXBeans / JCalendar / VB / JCalendar.frm (.txt) next >
Encoding:
Visual Basic Form  |  1998-03-05  |  4.0 KB  |  130 lines
  1. VERSION 5.00
  2. Object = "{6F146B03-E7CF-11D0-B8E7-0000F81ECCE7}#1.0#0"; "JCalendar.tlb"
  3. Begin VB.Form Form1 
  4.    Caption         =   "Form1"
  5.    ClientHeight    =   4460
  6.    ClientLeft      =   4930
  7.    ClientTop       =   3660
  8.    ClientWidth     =   6560
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   4460
  11.    ScaleWidth      =   6560
  12.    Begin VB.CommandButton nextMonth 
  13.       Caption         =   "next month"
  14.       Height          =   490
  15.       Left            =   600
  16.       TabIndex        =   6
  17.       Top             =   3960
  18.       Width           =   970
  19.    End
  20.    Begin VB.TextBox yearText 
  21.       BeginProperty Font 
  22.          Name            =   "MS Sans Serif"
  23.          Size            =   8.29
  24.          Charset         =   0
  25.          Weight          =   400
  26.          Underline       =   0   'False
  27.          Italic          =   0   'False
  28.          Strikethrough   =   0   'False
  29.       EndProperty
  30.       Height          =   320
  31.       Left            =   3720
  32.       TabIndex        =   4
  33.       Text            =   "Text1"
  34.       Top             =   480
  35.       Width           =   1210
  36.    End
  37.    Begin VB.ComboBox monthList 
  38.       BeginProperty Font 
  39.          Name            =   "MS Sans Serif"
  40.          Size            =   8.29
  41.          Charset         =   0
  42.          Weight          =   400
  43.          Underline       =   0   'False
  44.          Italic          =   0   'False
  45.          Strikethrough   =   0   'False
  46.       EndProperty
  47.       Height          =   280
  48.       ItemData        =   "JCalendar.frx":0000
  49.       Left            =   1560
  50.       List            =   "JCalendar.frx":002A
  51.       Style           =   2  'Dropdown List
  52.       TabIndex        =   1
  53.       Top             =   480
  54.       Width           =   1330
  55.    End
  56.    Begin JCalendar.JCalendar JCalendar1 
  57.       Height          =   2890
  58.       Left            =   960
  59.       OleObjectBlob   =   "JCalendar.frx":0090
  60.       TabIndex        =   0
  61.       Top             =   960
  62.       Width           =   4570
  63.    End
  64.    Begin VB.Label Label3 
  65.       Caption         =   "Year"
  66.       BeginProperty Font 
  67.          Name            =   "MS Sans Serif"
  68.          Size            =   8.29
  69.          Charset         =   0
  70.          Weight          =   400
  71.          Underline       =   0   'False
  72.          Italic          =   0   'False
  73.          Strikethrough   =   0   'False
  74.       EndProperty
  75.       Height          =   250
  76.       Left            =   3720
  77.       TabIndex        =   5
  78.       Top             =   240
  79.       Width           =   850
  80.    End
  81.    Begin VB.Label Label2 
  82.       Caption         =   "Month"
  83.       BeginProperty Font 
  84.          Name            =   "MS Sans Serif"
  85.          Size            =   8.29
  86.          Charset         =   0
  87.          Weight          =   400
  88.          Underline       =   0   'False
  89.          Italic          =   0   'False
  90.          Strikethrough   =   0   'False
  91.       EndProperty
  92.       Height          =   250
  93.       Left            =   1560
  94.       TabIndex        =   3
  95.       Top             =   240
  96.       Width           =   490
  97.    End
  98.    Begin VB.Label Label1 
  99.       Caption         =   "Label1"
  100.       Height          =   370
  101.       Left            =   2880
  102.       TabIndex        =   2
  103.       Top             =   2040
  104.       Width           =   850
  105.    End
  106. Attribute VB_Name = "Form1"
  107. Attribute VB_GlobalNameSpace = False
  108. Attribute VB_Creatable = False
  109. Attribute VB_PredeclaredId = True
  110. Attribute VB_Exposed = False
  111. Private Sub JCalendar1_yearChanged(ByVal Parameter0 As Long, ByVal Parameter1 As Long)
  112. yearText.Text = JCalendar1.Year
  113. End Sub
  114. Private Sub monthList_Click()
  115. JCalendar1.Month = monthList.ListIndex
  116. End Sub
  117. Private Sub Form_Load()
  118. monthList.ListIndex = JCalendar1.Month
  119. yearText.Text = JCalendar1.Year
  120. End Sub
  121. Private Sub JCalendar1_monthChanged(ByVal Parameter0 As String, ByVal Parameter1 As String)
  122. monthList.ListIndex = JCalendar1.Month
  123. End Sub
  124. Private Sub yearText_Change()
  125. JCalendar1.Year = yearText.Text
  126. End Sub
  127. Private Sub nextMonth_Click()
  128. JCalendar1.nextMonth
  129. End Sub
  130.