报警类型选择.frm

u8

VERSION 5.00
Begin VB.Form FrmAlarmAdvan 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "业务类型选择"
   ClientHeight    =   3165
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   5745
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3165
   ScaleWidth      =   5745
   StartUpPosition =   1  '所有者中心
   Begin VB.CheckBox Chk_SelectAll 
      Caption         =   "全部选定(&A)"
      Height          =   255
      Left            =   4200
      TabIndex        =   4
      Top             =   2040
      Width           =   1575
   End
   Begin VB.CommandButton Cmd_Restore 
      Caption         =   "恢复(&R)"
      Height          =   375
      Left            =   120
      TabIndex        =   3
      Top             =   2580
      Width           =   1335
   End
   Begin VB.CommandButton Cmd_Cancel 
      Cancel          =   -1  'True
      Caption         =   "取消(&C)"
      Height          =   375
      Left            =   4200
      TabIndex        =   2
      Top             =   2580
      Width           =   1395
   End
   Begin VB.CommandButton Cmd_OK 
      Caption         =   "确定(&O)"
      Default         =   -1  'True
      Height          =   375
      Left            =   2760
      TabIndex        =   1
      Top             =   2580
      Width           =   1335
   End
   Begin VB.ListBox Lst_BillType 
      Columns         =   2
      Height          =   1740
      Left            =   120
      Style           =   1  'Checkbox
      TabIndex        =   0
      Top             =   180
      Width           =   5475
   End
   Begin VB.Line Line2 
      BorderColor     =   &H80000014&
      X1              =   120
      X2              =   5580
      Y1              =   2415
      Y2              =   2415
   End
   Begin VB.Line Line1 
      BorderColor     =   &H80000010&
      X1              =   120
      X2              =   5580
      Y1              =   2400
      Y2              =   2400
   End
End
Attribute VB_Name = "FrmAlarmAdvan"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private AlBill As New clsAlarmBill

Private Sub Chk_SelectAll_Click()
    Lst_BillType.Enabled = (Chk_SelectAll.Value = 0)
End Sub

Private Sub Cmd_Cancel_Click()
    Unload Me
End Sub

Private Sub Cmd_OK_Click()
    'SaveProperty
    Dim i As Long
    For i = 0 To Lst_BillType.ListCount - 1
        AlBill.SaveValue Lst_BillType.List(i), Lst_BillType.Selected(i)
    Next i
    AlBill.SaveValue AlBill.sName(0), Me.Chk_SelectAll.Value
    Unload Me
End Sub

Private Sub Cmd_Restore_Click()
    LoadProperty
End Sub

Private Sub Form_Activate()
    LoadProperty
End Sub

Private Sub Form_Load()
    '
End Sub

Private Sub LoadProperty()
    Dim i As Long
    
    With Lst_BillType
        .Clear
        
        For i = 1 To AlBill.iCount - 1
            .AddItem AlBill.sName(i)
            .Selected(.NewIndex) = AlBill.bEnabled(i)
        Next i
    End With
    Chk_SelectAll.Value = IIf(AlBill.bEnabled(0), 1, 0)
End Sub