frmoption.frm

通用样品管理系统是一个商业程序,功能界面都还不错!

VERSION 5.00
Object = "{FE0065C0-1B7B-11CF-9D53-00AA003C9CB6}#1.0#0"; "COMCT232.OCX"
Begin VB.Form frmOption 
   AutoRedraw      =   -1  'True
   BorderStyle     =   4  'Fixed ToolWindow
   Caption         =   "请确定自动播放的时间"
   ClientHeight    =   1575
   ClientLeft      =   45
   ClientTop       =   270
   ClientWidth     =   3705
   Icon            =   "frmOption.frx":0000
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1575
   ScaleWidth      =   3705
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  '所有者中心
   Begin VB.CheckBox Check2 
      Caption         =   "循环播放"
      Height          =   225
      Left            =   285
      TabIndex        =   6
      Top             =   1155
      Width           =   1110
   End
   Begin VB.CheckBox Check1 
      Caption         =   "保存设置"
      Height          =   195
      Left            =   1710
      TabIndex        =   5
      Top             =   1185
      Width           =   1425
   End
   Begin VB.Frame Frame1 
      Caption         =   "输入自动播放的间隔时间"
      ForeColor       =   &H000000C0&
      Height          =   840
      Left            =   270
      TabIndex        =   0
      Top             =   210
      Width           =   3210
      Begin ComCtl2.UpDown UpDown1 
         Height          =   270
         Left            =   1140
         TabIndex        =   3
         Top             =   405
         Width           =   270
         _ExtentX        =   476
         _ExtentY        =   476
         _Version        =   327681
         Value           =   2
         BuddyControl    =   "Text1"
         BuddyDispid     =   196610
         OrigLeft        =   1275
         OrigTop         =   345
         OrigRight       =   1545
         OrigBottom      =   720
         Max             =   44
         Min             =   1
         SyncBuddy       =   -1  'True
         BuddyProperty   =   0
         Enabled         =   -1  'True
      End
      Begin VB.CommandButton Command1 
         Caption         =   "开始(&S)"
         Default         =   -1  'True
         Height          =   345
         Left            =   1995
         TabIndex        =   2
         Top             =   345
         Width           =   1065
      End
      Begin VB.TextBox Text1 
         Height          =   315
         Left            =   255
         Locked          =   -1  'True
         TabIndex        =   1
         TabStop         =   0   'False
         Text            =   "50"
         Top             =   375
         Width           =   1170
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         Caption         =   "秒"
         ForeColor       =   &H00800000&
         Height          =   180
         Left            =   1515
         TabIndex        =   4
         Top             =   450
         Width           =   180
      End
   End
End
Attribute VB_Name = "frmOption"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Check1_Click()
 SaveSetting App.EXEName, "Sample Display", "AutoPlay", Text1.Text
 SaveSetting App.EXEName, "Sample Display", "Cycle", Check2.Value
End Sub

Private Sub Command1_Click()
 frmView.V_Toolbar.Buttons.Item(1).Image = frmView.ToolImage.ListImages.Item(7).Index
 frmView.V_Toolbar.Buttons.Item(2).Enabled = False
 frmView.V_Toolbar.Buttons.Item(3).Enabled = False
 frmView.V_Toolbar.Buttons.Item(4).Enabled = False
 frmView.V_Toolbar.Buttons.Item(5).Enabled = False
 frmView.V_Toolbar.Buttons.Item(7).Enabled = False
 frmView.V_Toolbar.Buttons.Item(1).ToolTipText = "停止自动浏览"
 frmView.AutoTimer.Interval = Val(Text1.Text) * 1000
 frmView.AutoTimer.Enabled = True
 If Check2.Value = 1 Then
    frmView.CycleP = True
     Else
    frmView.CycleP = False
 End If
 Unload Me
End Sub

Private Sub Form_Load()
 frmOption.HelpContextID = 7
 Text1.Text = GetSetting(App.EXEName, "Sample Display", "AutoPlay")
 Check2.Value = Val(GetSetting(App.EXEName, "Sample Display", "Cycle"))
 If Val(Text1.Text) = 0 Then
    Text1.Text = 50
 End If
End Sub