📄 frmextensivesearch.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{0ECD9B60-23AA-11D0-B351-00A0C9055D8E}#6.0#0"; "MSHFLXGD.OCX"
Begin VB.Form FrmExtensiveSearch
AutoRedraw = -1 'True
BackColor = &H00E0E0E0&
Caption = "Extensive Data Base Search Engine : Copyright Mr. Atanu Maity, E-Mail at sfmiraroad@hotmail.com for Source Code"
ClientHeight = 7230
ClientLeft = 60
ClientTop = 345
ClientWidth = 11115
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Icon = "FrmExtensiveSearch.frx":0000
KeyPreview = -1 'True
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
ScaleHeight = 7230
ScaleWidth = 11115
StartUpPosition = 3 'Windows Default
WindowState = 2 'Maximized
Begin MSComctlLib.ProgressBar PB1
Height = 120
Left = 585
TabIndex = 16
Top = 2310
Width = 10725
_ExtentX = 18918
_ExtentY = 212
_Version = 393216
BorderStyle = 1
Appearance = 0
Scrolling = 1
End
Begin MSHierarchicalFlexGridLib.MSHFlexGrid MF1
Height = 4935
Left = 300
TabIndex = 17
Top = 2730
Visible = 0 'False
Width = 11250
_ExtentX = 19844
_ExtentY = 8705
_Version = 393216
BackColor = 16777215
FixedCols = 0
BackColorFixed = 12632256
BackColorBkg = 16777215
GridLines = 0
GridLinesFixed = 0
BorderStyle = 0
Appearance = 0
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BeginProperty FontFixed {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
_NumberOfBands = 1
_Band(0).Cols = 2
End
Begin VB.CommandButton Command1
Caption = "Let's Search"
Height = 420
Left = 8370
TabIndex = 14
Top = 1755
Width = 2370
End
Begin VB.CheckBox Check2
BackColor = &H00FFFFFF&
Caption = "Match Case"
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 8370
TabIndex = 13
Top = 1410
Visible = 0 'False
Width = 2685
End
Begin VB.CheckBox Check1
BackColor = &H00FFFFFF&
Caption = "Find whole word only"
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
Left = 8370
TabIndex = 12
Top = 1095
Width = 2655
End
Begin VB.OptionButton Option3
BackColor = &H00FFFFFF&
Caption = "Find any word"
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Left = 3630
TabIndex = 11
Top = 1845
Width = 2145
End
Begin VB.OptionButton Option2
BackColor = &H00FFFFFF&
Caption = "Find all words in any sequence"
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Left = 3630
TabIndex = 10
Top = 1485
Width = 3555
End
Begin VB.OptionButton Option1
BackColor = &H00FFFFFF&
Caption = "Find all words in sequence"
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Left = 3630
TabIndex = 9
Top = 1125
Width = 3390
End
Begin VB.TextBox Text1
BackColor = &H00E0E0E0&
Height = 405
Left = 3630
TabIndex = 8
Top = 660
Width = 7155
End
Begin VB.Label Label11
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = "Label11"
ForeColor = &H00000080&
Height = 810
Left = 2670
TabIndex = 22
Top = 3780
Width = 7650
End
Begin VB.Label Label10
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Label10"
ForeColor = &H00E0E0E0&
Height = 285
Left = 300
TabIndex = 21
Top = 7785
Width = 900
End
Begin VB.Label Label7
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "S"
BeginProperty Font
Name = "Times New Roman"
Size = 21.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFC0C0&
Height = 495
Left = 10455
TabIndex = 18
Top = 7740
Width = 240
End
Begin VB.Label Label9
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Extensive "
BeginProperty Font
Name = "Times New Roman"
Size = 15.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C0FFFF&
Height = 345
Left = 8115
TabIndex = 20
Top = 7650
Width = 1275
End
Begin VB.Label Label8
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "data base earch"
BeginProperty Font
Name = "Times New Roman"
Size = 15.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFC0&
Height = 345
Left = 9150
TabIndex = 19
Top = 7860
Width = 2265
End
Begin VB.Line Line6
BorderColor = &H00C00000&
BorderWidth = 3
X1 = 9345
X2 = 11385
Y1 = 7875
Y2 = 7875
End
Begin VB.Line Line5
BorderColor = &H00FF0000&
BorderWidth = 2
X1 = 9360
X2 = 11400
Y1 = 7830
Y2 = 7830
End
Begin VB.Line Line4
BorderColor = &H00FF8080&
X1 = 9390
X2 = 11430
Y1 = 7770
Y2 = 7770
End
Begin VB.Shape Shape3
BackColor = &H00808080&
BackStyle = 1 'Opaque
BorderColor = &H00404040&
Height = 735
Left = -45
Top = 7665
Width = 12240
End
Begin VB.Label Label6
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = $"FrmExtensiveSearch.frx":0442
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00808080&
Height = 1020
Left = 585
TabIndex = 15
Top = 1095
Visible = 0 'False
Width = 3000
End
Begin VB.Label Label5
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Enter the String to Find :"
Height = 285
Left = 750
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -