【VB开源代码栏目提醒】：网学会员--在 VB开源代码编辑为广大网友搜集整理了：frmAddtoDB.frm绩等信息，祝愿广大网友取得需要的信息，参考学习。
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Begin VB.Form frmAddtoDB
BorderStyle = 1 'Fixed Single
Caption = "Add to DB"
ClientHeight = 7020
ClientLeft = 45
ClientTop = 330
ClientWidth = 8250
ControlBox = 0 'False
BeginProperty Font
Name = "Verdana"
Size = 6.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Icon = "frmAddtoDB.frx":0000
KeyPreview = -1 'True
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 468
ScaleMode = 3 'Pixel
ScaleWidth = 550
StartUpPosition = 2 'CenterScreen
Begin VB.PictureBox Image_DB
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H00808080&
BorderStyle = 0 'None
ClipControls = 0 'False
DataField = "Thumb"
DataSource = "DataPictures"
ForeColor = &H80000008&
Height = 285
Left = 5565
ScaleHeight = 19
ScaleMode = 3 'Pixel
ScaleWidth = 20
TabIndex = 29
TabStop = 0 'False
Top = 7545
Visible = 0 'False
Width = 300
End
Begin VB.Frame Me_back3
BorderStyle = 0 'None
Height = 330
Left = 120
TabIndex = 28
Top = 420
Width = 7995
Begin VB.CheckBox chkExt
Caption = "ico/cur"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Index = 4
Left = 3090
TabIndex = 7
TabStop = 0 'False
Tag = "*.ico;*.cur;"
Top = 75
Width = 840
End
Begin VB.CheckBox chkExt
Caption = "wmf/emf"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Index = 3
Left = 2115
TabIndex = 6
TabStop = 0 'False
Tag = "*.wmf;*.emf;"
Top = 75
Width = 1050
End
Begin
VB.CheckBox chkExt
Caption = "jpg"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Index = 0
Left = 60
TabIndex = 3
TabStop = 0 'False
Tag = "*.jpg;"
Top = 75
Value = 1 'Checked
Width = 540
End
Begin VB.CheckBox chkExt
Caption = "bmp/dib"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Index = 1
Left = 630
TabIndex = 4
TabStop = 0 'False
Tag = "*.bmp;*.dib;"
Top = 75
Value = 1 'Checked
Width = 915
End
Begin VB.CheckBox chkExt
Caption = "gif"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Index = 2
Left = 1575
TabIndex = 5
TabStop = 0 'False
Tag = "*.gif;"
Top = 75
Value = 1 'Checked
Width = 645
End
End
Begin VB.PictureBox iLoaded
Appearance = 0 'Flat
AutoRedraw = -1 'True
AutoSize = -1 'True
BackColor = &H00808080&
BorderStyle = 0 'None
ClipControls = 0 'False
ForeColor = &H80000008&
Height = 285
Left = 5910
ScaleHeight = 19
ScaleMode = 3 'Pixel
ScaleWidth = 21
TabIndex = 27
TabStop = 0 'False
Top = 7545
Visible = 0 'False
Width = 315
End
Begin VB.Frame Me_back2
BorderStyle = 0 'None
Height = 330
Left = 120
TabIndex = 26
Top = 15
Width = 7995
Begin VB.TextBox txtFileNameFilter
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
Left = 1575
TabIndex = 48
TabStop = 0 'False
Top = 15
Width = 2340
End
Begin VB.CheckBox chkFileNameFilter
Caption = "文件名过滤 :"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Left = 60
TabIndex = 47
TabStop = 0 'False
Top = 60
Width = 1515
End
Begin MSComctlLib.Toolbar Commands
Height = 330
Left = 6825
TabIndex = 31
Top = 0
Width = 1155
_ExtentX = 2037
_ExtentY = 582
ButtonWidth = 609
ButtonHeight = 582
AllowCustomize = 0 'False
Style = 1
ImageList = "Icons"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 4
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "Add_Sel"
Object.ToolTipText = "Add selected pictures"
Image
相关文章
2013-9-1
