home *** CD-ROM | disk | FTP | other *** search
/ Microsoft DirectX SDK 7.0 / Dx7.bin / DXF / samples / multimedia / vbsamples / dsound / src / memo / frmcalendar.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-07-07  |  2.1 KB  |  65 lines
  1. VERSION 5.00
  2. Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
  3. Begin VB.Form frmCalendar 
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "VB MEMO"
  6.    ClientHeight    =   2625
  7.    ClientLeft      =   45
  8.    ClientTop       =   330
  9.    ClientWidth     =   2940
  10.    Icon            =   "frmCalendar.frx":0000
  11.    LinkTopic       =   "Form1"
  12.    LockControls    =   -1  'True
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   2625
  16.    ScaleWidth      =   2940
  17.    StartUpPosition =   3  'Windows Default
  18.    Begin MSComCtl2.MonthView cal 
  19.       Height          =   2370
  20.       Left            =   120
  21.       TabIndex        =   0
  22.       Top             =   120
  23.       Width           =   2700
  24.       _ExtentX        =   4763
  25.       _ExtentY        =   4180
  26.       _Version        =   393216
  27.       ForeColor       =   -2147483630
  28.       BackColor       =   -2147483633
  29.       Appearance      =   1
  30.       StartOfWeek     =   24510465
  31.       CurrentDate     =   36320
  32.    End
  33. Attribute VB_Name = "frmCalendar"
  34. Attribute VB_GlobalNameSpace = False
  35. Attribute VB_Creatable = False
  36. Attribute VB_PredeclaredId = True
  37. Attribute VB_Exposed = False
  38. ''---------------------------------------------------------------
  39. ''This application requires MDAC to be on the system, Please
  40. ''ensure MDAC is on the system or this sample will not run
  41. ''---------------------------------------------------------------
  42. Private Sub cal_DateDblClick(ByVal DateDblClicked As Date)
  43.     D = cal.Day
  44.     M = cal.Month
  45.     Y = cal.Year
  46.     frmMemo.Show 1
  47. End Sub
  48. Private Sub cal_Mouseup(Button As Integer, Shift As Integer, X As Single, Y As Single)
  49.     Call BoldDays(cal)
  50. End Sub
  51. Private Sub Form_Activate()
  52.     cal.ShowToday = True
  53.     Call cal_Mouseup(1, 0, 0, 0)
  54. End Sub
  55. Private Sub Form_Load()
  56.     If rs Is Nothing Then Call INITDB
  57.     Show
  58.     cal.Value = Date
  59.     DoEvents
  60. End Sub
  61. Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  62.     Call CLEANUPSND
  63.     End
  64. End Sub
  65.