VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "ComDlg32.OCX"
Begin VB.Form Form3 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "縮水號碼"
   ClientHeight    =   4410
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   7215
   Icon            =   "Form3.frx":0000
   LinkTopic       =   "Form3"
   MaxButton       =   0   'False
   ScaleHeight     =   4410
   ScaleWidth      =   7215
   StartUpPosition =   2  '屏幕中心
   Begin VB.TextBox Text1 
      Height          =   315
      Left            =   180
      TabIndex        =   3
      Top             =   5460
      Visible         =   0   'False
      Width           =   5835
   End
   Begin MSComDlg.CommonDialog cdshow 
      Left            =   60
      Top             =   3780
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
      CancelError     =   -1  'True
      DialogTitle     =   "保存數據"
      Filter          =   "文本文件|*.Txt|"
   End
   Begin VB.CommandButton Command2 
      Caption         =   "保存到"
      Height          =   315
      Left            =   3480
      TabIndex        =   2
      Top             =   3900
      Width           =   1695
   End
   Begin VB.CommandButton Command1 
      Caption         =   "返回[&Q]"
      Height          =   315
      Left            =   5400
      TabIndex        =   1
      Top             =   3900
      Width           =   1695
   End
   Begin MSComctlLib.ListView ListView1 
      Height          =   3615
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   6975
      _ExtentX        =   12303
      _ExtentY        =   6376
      View            =   3
      MultiSelect     =   -1  'True
      LabelWrap       =   -1  'True
      HideSelection   =   -1  'True
      FullRowSelect   =   -1  'True
      GridLines       =   -1  'True
      _Version        =   393217
      ForeColor       =   -2147483640
      BackColor       =   -2147483643
      BorderStyle     =   1
      Appearance      =   1
      NumItems        =   5
      BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         Text            =   "篩選號碼"
         Object.Width           =   4410
      EndProperty
      BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         Alignment       =   2
         SubItemIndex    =   1
         Text            =   "前區總合"
         Object.Width           =   1764
      EndProperty
      BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         Alignment       =   2
         SubItemIndex    =   2
         Text            =   "后區總合"
         Object.Width           =   1764
      EndProperty
      BeginProperty ColumnHeader(4) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         Alignment       =   2
         SubItemIndex    =   3
         Text            =   "前區奇偶比"
         Object.Width           =   2117
      EndProperty
      BeginProperty ColumnHeader(5) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         Alignment       =   2
         SubItemIndex    =   4
         Text            =   "后區奇偶比"
         Object.Width           =   2117
      EndProperty
   End
End
Attribute VB_Name = "Form3"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'****************************************************************************
'人人為我，我為人人
'枕善居收藏整理
'發布日期：2007/12/17
'描    述：明發-超級大樂透縮水選號器 Ver1.0
'網    站：http://www.Mndsoft.com/  (VB6源碼博客)
'網    站：http://www.VbDnet.com/   (VB.NET源碼博客,主要基于.NET2005)
'e-mail  ：Mndsoft@163.com
'e-mail  ：Mndsoft@126.com
'OICQ    ：88382850
'          如果您有新的好的代碼別忘記給枕善居哦!
'****************************************************************************

Private Sub Command1_Click()
Unload Me
Form1.Show
End Sub

Private Sub Command2_Click()
On Error GoTo Recel
cdshow.ShowSave
Text1.Text = ""

For I = 1 To ListView1.ListItems.Count
Text1.Text = ListView1.ListItems.Item(I).Text & " " & _
ListView1.ListItems.Item(I).SubItems(1) & "-" _
 & ListView1.ListItems.Item(I).SubItems(2) & "-" _
  & ListView1.ListItems.Item(I).SubItems(3) & "-" _
  & ListView1.ListItems.Item(I).SubItems(4)
WriteTxtAppend cdshow.FileName, Text1.Text
Next I


MsgBox "保存完畢!", vbInformation


Recel:

End Sub