yun.frm

简单时间程序,可以定时执行任务,显示当前时间到前台窗口

VERSION 5.00
Begin VB.Form yun 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "选择要运行的程序"
   ClientHeight    =   1425
   ClientLeft      =   2760
   ClientTop       =   3750
   ClientWidth     =   4410
   ControlBox      =   0   'False
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1425
   ScaleWidth      =   4410
   ShowInTaskbar   =   0   'False
   Begin VB.Frame Frame1 
      BorderStyle     =   0  'None
      Caption         =   "Frame1"
      Height          =   2115
      Left            =   -7
      TabIndex        =   5
      Top             =   1440
      Visible         =   0   'False
      Width           =   4425
      Begin VB.DriveListBox Drive1 
         Height          =   300
         Left            =   30
         TabIndex        =   8
         Top             =   150
         Width           =   1875
      End
      Begin VB.DirListBox Dir1 
         Height          =   1560
         Left            =   30
         TabIndex        =   7
         Top             =   480
         Width           =   1875
      End
      Begin VB.FileListBox File1 
         Height          =   1890
         Left            =   1980
         Pattern         =   "*.exe"
         TabIndex        =   6
         Top             =   150
         Width           =   2355
      End
      Begin VB.Line Line1 
         BorderColor     =   &H80000002&
         BorderStyle     =   6  'Inside Solid
         BorderWidth     =   3
         DrawMode        =   9  'Not Mask Pen
         X1              =   -180
         X2              =   4770
         Y1              =   60
         Y2              =   60
      End
   End
   Begin VB.CommandButton OKButton 
      Caption         =   "确定"
      Height          =   345
      Left            =   1813
      TabIndex        =   4
      Top             =   1050
      Width           =   825
   End
   Begin VB.CommandButton CancelButton 
      Caption         =   "取消"
      Height          =   345
      Left            =   2668
      TabIndex        =   3
      Top             =   1050
      Width           =   825
   End
   Begin VB.CommandButton Command1 
      Caption         =   "浏览"
      Height          =   345
      Left            =   3523
      TabIndex        =   2
      Top             =   1050
      Width           =   825
   End
   Begin VB.ComboBox Combo1 
      Height          =   300
      ItemData        =   "yun.frx":0000
      Left            =   77
      List            =   "yun.frx":0016
      TabIndex        =   0
      Top             =   660
      Width           =   4245
   End
   Begin VB.Label Label1 
      Caption         =   $"yun.frx":0061
      Height          =   555
      Left            =   62
      TabIndex        =   1
      Top             =   60
      Width           =   4275
   End
End
Attribute VB_Name = "yun"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub CancelButton_Click()
Unload Me
主窗体.Show
End Sub

Private Sub Combo1_Change()
OKButton.Enabled = True
End Sub

Private Sub Combo1_Click()
Select Case Combo1.Text
 Case "*.exe"
   File1.Pattern = "*.exe"
 Case "*.txt;*.doc;*.ini"
   File1.Pattern = "*.txt;*.doc;*.ini"
 Case "*.jpg;*.bmp"
   File1.Pattern = "*.jpg;*.bmp"
 Case "*.url"
   File1.Pattern = "*.url"
 Case "*.htm;*.html;*.mht"
   File1.Pattern = "*.htm;*.html;*.mht"
 Case "*.*"
   File1.Pattern = "*.*"
End Select
End Sub

Private Sub Command1_Click()
Me.Height = 4000
Frame1.Visible = True
End Sub

Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub

Private Sub File1_Click()
If Right(Dir1.Path, 1) = "\" Then
Combo1.Text = Dir1.Path + File1.FileName
Else
Combo1.Text = Dir1.Path + "\" + File1.FileName
End If
End Sub

Private Sub File1_DblClick()
If Right(Dir1.Path, 1) = "\" Then
Combo1.Text = Dir1.Path + File1.FileName
Else
Combo1.Text = Dir1.Path + "\" + File1.FileName
End If
OKButton_Click
End Sub

Private Sub Form_Load()
Drive1.Drive = "c:\"
OKButton.Enabled = False
   Dim sz(1) As String
读取 "yun", "left", sz(0), 主窗体.MyName
If sz(0) = "No" Then
Me.Left = (Screen.Width - Me.Width) / 2
Else
Me.Left = Val(sz(0))
End If
读取 "yun", "top", sz(1), 主窗体.MyName
If sz(1) = "No" Then
Me.Top = (Screen.Height - Me.Height) / 2
Else
Me.Top = Val(sz(1))
End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
 写入创建 "yun", "left", Me.Left, 主窗体.MyName
 写入创建 "yun", "top", Me.Top, 主窗体.MyName
End Sub

Sub OKButton_Click()
Dim tmptext As String
tmptext = Combo1.Text
If tmptext = "" Or InStr(tmptext, "*") <> 0 Then
  MsgBox "请输入"
  Else
  YunXing (tmptext)
End If
End Sub