form2.frm

用VB编写自制小闹钟程序

VERSION 5.00
Object = "{6BF52A50-394A-11D3-B153-00C04F79FAA6}#1.0#0"; "wmp.dll"
Begin VB.Form Form2 
   Caption         =   "提醒"
   ClientHeight    =   6195
   ClientLeft      =   60
   ClientTop       =   420
   ClientWidth     =   6495
   Icon            =   "Form2.frx":0000
   LinkTopic       =   "Form2"
   Picture         =   "Form2.frx":030A
   ScaleHeight     =   6195
   ScaleWidth      =   6495
   StartUpPosition =   3  'Windows Default
   Begin VB.PictureBox Picture1 
      Height          =   1815
      Left            =   -120
      Picture         =   "Form2.frx":10CA
      ScaleHeight     =   1755
      ScaleWidth      =   6555
      TabIndex        =   2
      Top             =   0
      Width           =   6615
   End
   Begin VB.CommandButton Command1 
      Caption         =   "确定"
      Height          =   495
      Left            =   5040
      TabIndex        =   1
      Top             =   3720
      Width           =   855
   End
   Begin VB.Label Label1 
      Caption         =   "提醒："
      Height          =   1095
      Left            =   240
      TabIndex        =   3
      Top             =   2040
      Width           =   6135
   End
   Begin WMPLibCtl.WindowsMediaPlayer WindowsMediaPlayer1 
      Height          =   495
      Left            =   0
      TabIndex        =   0
      Top             =   3720
      Width           =   3135
      URL             =   "周杰伦  -千里之外.wav"
      rate            =   1
      balance         =   0
      currentPosition =   0
      defaultFrame    =   ""
      playCount       =   1
      autoStart       =   -1  'True
      currentMarker   =   0
      invokeURLs      =   -1  'True
      baseURL         =   ""
      volume          =   50
      mute            =   0   'False
      uiMode          =   "full"
      stretchToFit    =   0   'False
      windowlessVideo =   0   'False
      enabled         =   -1  'True
      enableContextMenu=   -1  'True
      fullScreen      =   0   'False
      SAMIStyle       =   ""
      SAMILang        =   ""
      SAMIFilename    =   ""
      captioningID    =   ""
      enableErrorDialogs=   0   'False
      _cx             =   5530
      _cy             =   873
   End
End
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Form1.Show
Unload Me
End Sub
Private Sub Form_Load()
Dim int1 As Integer

For int1 = 1 To Form1.ListView1.ListItems.Count
  If Time = CDate(Form1.ListView1.ListItems(int1)) Then
  Label1 = "提醒：" & Form1.ListView1.ListItems(int1).ListSubItems(1)
  
    End If
  Next
End Sub