【VB开源代码栏目提醒】：以下是网学会员为您推荐的VB开源代码-fFilter.frm，希望本篇文章对您学习有所帮助。
VERSION 5.00
Begin VB.Form fFilter
BorderStyle = 3 'Fixed Dialog
Caption = "Filter preview"
ClientHeight = 6315
ClientLeft = 1170
ClientTop = 1455
ClientWidth = 5025
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Icon = "fFilter.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 421
ScaleMode = 3 'Pixel
ScaleWidth = 335
ShowInTaskbar = 0 'False
Begin iBMP.ucToolbar Command
Height = 240
Left = 3960
Tag = "Preserve"
Top = 4260
Width = 600
_ExtentX = 1058
_ExtentY = 423
End
Begin VB.CommandButton cmdZoomOut
Caption = "-"
BeginProperty Font
Name = "Symbol"
Size = 8.25
Charset = 2
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 2190
Style = 1 'Graphical
TabIndex = 5
TabStop = 0 'False
Top = 2505
Width = 225
End
Begin VB.CommandButton cmdZoomIn
Caption = "+"
BeginProperty Font
Name = "Symbol"
Size = 8.25
Charset = 2
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 1905
Style = 1 'Graphical
TabIndex = 4
TabStop = 0 'False
Top = 2505
Width = 225
End
Begin VB.CheckBox chkPickColor
Caption = "Pick color"
Height = 240
Left = 675
TabIndex = 3
TabStop = 0 'False
Top = 2535
Width = 1020
End
Begin VB.CheckBox chkFit
Caption = "Fit"
Height = 240
Left = 120
TabIndex = 2
TabStop = 0 'False
Top = 2535
Width = 690
End
Begin iBMP.ucCanvas iBfrCanvas
Height = 2310
Left = 120
TabIndex = 0
TabStop = 0 'False
Top = 120
Width = 2310
_ExtentX = 4075
_ExtentY = 4075
End
Begin VB.Frame fraColorSelection
BorderStyle = 0 'None
Height = 390
Left = 180
TabIndex = 26
Top = 5700
Visible = 0 'False
Width = 3345
Begin VB.CheckBox chkLock
Caption = "Lock:"
Height = 225
Left = 105
TabIndex = 28
TabStop = 0 'False
Top = 60
Width = 750
End
Begin VB.Label lblColor
BackColor = &H00000000&
BorderStyle = 1 'Fixed Single
Height = 330
Index = 1
Left = 2985
TabIndex = 30
Top = 0
Width = 330
End
Begin VB.Label lblColor
BackColor = &H00000000&
BorderStyle = 1 'Fixed Single
Height = 330
Index = 0
Left = 1920
TabIndex = 27
Top = 0
Width = 330
End
Begin VB.Label lblColorT
Caption = "To color"
Height = 225
Index = 1
Left = 2370
TabIndex = 31
Top = 60
Width = 765
End
Begin VB.Label lblColorT
Caption = "From color"
Height = 225
Index = 0
Left = 1125
TabIndex = 29
Top = 60
Width = 870
End
End
Begin VB.CommandButton cmdApply
Caption = "Apply"
Height = 375
Left = 3855
TabIndex = 24
TabStop = 0 'False
Tag = "Preserve"
ToolTipText = "Apply last preview [and Close dialog]"
Top = 5340
Width = 1035
End
Begin VB.CommandButton cmdPreview
Caption = "Preview"
Default = -1 'True
Height = 375
Left = 3855
TabIndex = 23
Tag = "Preserve"
ToolTipText = "Preview on main"
Top = 4890
Width = 1035
End
Begin VB.CheckBox chkNoClose
Caption = "&Don't close dialog after apply"
Height = 270
Left = 570
TabIndex = 9
TabStop = 0 'False
Top = 3885
Width = 2445
End
Begin VB.ComboBox cbFilter
Height = 315
ItemData = "fFilter.frx":000C
Left = 570
List = "fFilter.frx":0064
Sorted = -1 'True
Style = 2 'Dropdown List
TabIndex = 7
Top = 3135
Width = 3045
End
Begin VB.Frame fraParams
Height = 1995
Left = 120
TabIndex = 10
Top = 4185
Width = 3510
Begin VB.Frame fraParam
BorderStyle = 0 'None
Height = 270
Index = 0
Left = 135
TabIndex = 11
Top = 270
Width = 3330
Begin VB.HScrollBar sbParam
Height = 210
Index = 0
LargeChange = 5
Left = 975
TabIndex = 13
Top = 0
Width = 1785
End
Begin VB.Label lblParamValue
Alignment = 1 'Right Justify
Caption = "0"
Height = 195
Index = 0
Left = 2715
TabIndex = 14
Top = 0
Width = 480
End
Begin VB.Label lblParamName
Caption = "N.A."
Height = 195
Index = 0
Left = 30
TabIndex = 12
Top = 0
Width = 915
End
End
Begin VB.Frame fraParam
BorderStyle = 0 'None
Height = 270
Index = 2
Left = 135
TabIndex = 19
Top = 990
Width = 3330
Begin VB.HScrollBar sbParam
Height = 210
Index = 2
LargeChange = 5
Left = 975
TabIndex = 21
Top = 0
Widt
上一篇：
DataYP.cpp
下一篇：
投简历到国外的公司需考虑哪些东西？
2013-9-1
