www.pudn.com > vb625557712344.rar > FrmTypeSel.frm, change:2005-06-03,size:3105b

VERSION 5.00 
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX" 
Begin VB.Form FrmTypeSel  
   Caption         =   "选择保险种类" 
   ClientHeight    =   2895 
   ClientLeft      =   60 
   ClientTop       =   345 
   ClientWidth     =   2160 
   LinkTopic       =   "Form1" 
   MaxButton       =   0   'False 
   MinButton       =   0   'False 
   ScaleHeight     =   2895 
   ScaleWidth      =   2160 
   StartUpPosition =   2  '屏幕中心 
   Begin VB.CommandButton Cmd_Selected  
      BackColor       =   &H80000004& 
      Caption         =   "选 择" 
      Default         =   -1  'True 
      Height          =   400 
      Left            =   240 
      MouseIcon       =   "FrmTypeSel.frx":0000 
      MousePointer    =   99  'Custom 
      Style           =   1  'Graphical 
      TabIndex        =   1 
      Top             =   2400 
      Width           =   765 
   End 
   Begin VB.CommandButton Cmd_Cancel  
      BackColor       =   &H80000004& 
      Cancel          =   -1  'True 
      Caption         =   "取 消" 
      Height          =   400 
      Left            =   1200 
      MouseIcon       =   "FrmTypeSel.frx":030A 
      MousePointer    =   99  'Custom 
      Style           =   1  'Graphical 
      TabIndex        =   0 
      Top             =   2400 
      Width           =   765 
   End 
   Begin MSComctlLib.ListView ListView1  
      Height          =   2175 
      Left            =   120 
      TabIndex        =   2 
      Top             =   120 
      Width           =   1935 
      _ExtentX        =   3413 
      _ExtentY        =   3836 
      View            =   2 
      Arrange         =   1 
      MultiSelect     =   -1  'True 
      LabelWrap       =   -1  'True 
      HideSelection   =   -1  'True 
      Checkboxes      =   -1  'True 
      GridLines       =   -1  'True 
      _Version        =   393217 
      ForeColor       =   -2147483640 
      BackColor       =   -2147483643 
      BorderStyle     =   1 
      Appearance      =   1 
      NumItems        =   0 
   End 
End 
Attribute VB_Name = "FrmTypeSel" 
Attribute VB_GlobalNameSpace = False 
Attribute VB_Creatable = False 
Attribute VB_PredeclaredId = True 
Attribute VB_Exposed = False 
 
Private Sub Cmd_Cancel_Click() 
  Unload Me 
End Sub 
 
Private Sub Cmd_Selected_Click() 
  sInsuItems = "" 
  sInsuKeys = "" 
  Dim i As Integer 
  Dim n As Integer 
  i = 0 
  n = 0 
  For i = 1 To ListView1.ListItems.Count 
    If ListView1.ListItems(i).Checked Then 
      n = n + 1 
      If n = 1 Then 
        sInsuItems = Trim(ListView1.ListItems(i).Text) 
        sInsuKeys = Str(Val(ListView1.ListItems(i).Key)) 
      Else 
        sInsuItems = sInsuItems + "," + ListView1.ListItems(i).Text 
        sInsuKeys = sInsuKeys + "," + Str(Val(ListView1.ListItems(i).Key)) 
      End If 
    End If 
  Next 
  Unload Me 
End Sub 
 
Private Sub Form_Load() 
  MyType.GetInfoByTypeId (2) 
  Dim i As Integer 
  Dim itmX As ListItem 
  For i = 0 To UBound(Arr_Id) - 1 
   Set itmX = ListView1.ListItems.Add(i + 1, "0" + Str(Arr_Id(i)), Arr_Type(i)) 
  Next 
End Sub