home *** CD-ROM | disk | FTP | other *** search
/ Microsoft DirectX SDK 7.0 / Dx7.bin / DXF / samples / multimedia / vbsamples / dsound / src / memo / frmmemo.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-08-04  |  4.1 KB  |  139 lines
  1. VERSION 5.00
  2. Begin VB.Form frmMemo 
  3.    BorderStyle     =   4  'Fixed ToolWindow
  4.    Caption         =   "Current Memo"
  5.    ClientHeight    =   3765
  6.    ClientLeft      =   45
  7.    ClientTop       =   285
  8.    ClientWidth     =   4800
  9.    LinkTopic       =   "Form1"
  10.    LockControls    =   -1  'True
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   3765
  14.    ScaleWidth      =   4800
  15.    ShowInTaskbar   =   1  'True
  16.    StartUpPosition =   3  'Windows Default
  17.    Begin VB.Frame fraMemo 
  18.       Height          =   3615
  19.       Left            =   120
  20.       TabIndex        =   0
  21.       Top             =   0
  22.       Width           =   4575
  23.       Begin VB.CommandButton cmdLister 
  24.          Caption         =   "Listen to Record"
  25.          Height          =   375
  26.          Left            =   240
  27.          TabIndex        =   8
  28.          Top             =   1920
  29.          Width           =   1575
  30.       End
  31.       Begin VB.CommandButton cmdSave 
  32.          Caption         =   "Save Memo"
  33.          Height          =   375
  34.          Left            =   240
  35.          TabIndex        =   7
  36.          Top             =   2400
  37.          Width           =   1575
  38.       End
  39.       Begin VB.CommandButton cmdDelete 
  40.          Caption         =   "Delete Memo"
  41.          Height          =   375
  42.          Left            =   240
  43.          TabIndex        =   6
  44.          Top             =   2880
  45.          Width           =   1575
  46.       End
  47.       Begin VB.CommandButton cmdRecord 
  48.          Caption         =   "Record Memo"
  49.          Height          =   375
  50.          Left            =   240
  51.          TabIndex        =   5
  52.          Top             =   1440
  53.          Width           =   1575
  54.       End
  55.       Begin VB.CommandButton cmdPlay 
  56.          Caption         =   "Play Memo"
  57.          Height          =   375
  58.          Left            =   240
  59.          TabIndex        =   4
  60.          Top             =   960
  61.          Width           =   1575
  62.       End
  63.       Begin VB.ListBox lstMemos 
  64.          Height          =   2400
  65.          Left            =   2040
  66.          TabIndex        =   3
  67.          Top             =   960
  68.          Width           =   2415
  69.       End
  70.       Begin VB.Label lblDate 
  71.          Caption         =   "Label2"
  72.          Height          =   375
  73.          Left            =   720
  74.          TabIndex        =   2
  75.          Top             =   240
  76.          Width           =   3735
  77.       End
  78.       Begin VB.Label lblDatelbl 
  79.          AutoSize        =   -1  'True
  80.          Caption         =   "Date:"
  81.          Height          =   195
  82.          Left            =   240
  83.          TabIndex        =   1
  84.          Top             =   240
  85.          Width           =   390
  86.       End
  87.    End
  88. Attribute VB_Name = "frmMemo"
  89. Attribute VB_GlobalNameSpace = False
  90. Attribute VB_Creatable = False
  91. Attribute VB_PredeclaredId = True
  92. Attribute VB_Exposed = False
  93. Private Sub cmdDelete_Click()
  94.     If lstMemos.Text <> "" And lstMemos.Text <> "NO CURRENT MEMOS" Then
  95.         Call DEL_REC(lstMemos.Text)
  96.         R_LST
  97.     End If
  98. End Sub
  99. Private Sub cmdLister_Click()
  100.     Call Play_Sound
  101. End Sub
  102. Private Sub cmdPlay_Click()
  103.     If lstMemos.Text <> "" Then Play_Sound_From_db lstMemos.Text, hWnd
  104. End Sub
  105. Private Sub cmdRecord_Click()
  106.     Call record_memo(hWnd)
  107. End Sub
  108. Private Sub cmdSave_Click()
  109.     Call SaveToDB
  110.     Call R_LST
  111. End Sub
  112. Private Sub R_LST()
  113.     lstMemos.Clear
  114.     ''''''''''''''''''''''' memos?
  115.     If Not HAS_MEMO(M, D, Y) Then
  116.         lstMemos.AddItem "NO CURRENT MEMOS"
  117.     Else
  118.             If rs Is Nothing Then INITDB
  119.             
  120.             rs.MoveFirst
  121.             Do While Not rs.EOF
  122.                 If rs!Month = M Then
  123.                     If rs!Day = D Then
  124.                         If rs!Year = Y Then
  125.                             lstMemos.AddItem rs!Name '& " :" & rs!tm
  126.                         End If
  127.                     End If
  128.                 End If
  129.                 rs.MoveNext
  130.             Loop
  131.             
  132.     End If
  133. End Sub
  134. Private Sub Form_Load()
  135.     ''''''''''''''''''''''' cal
  136.     lblDate.Caption = M & "/" & D & "/" & Y
  137.     Call R_LST
  138. End Sub
  139.