?? form3.frm
字號:
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
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -