📄 form3.frm
字号:
VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Object = "{48E59290-9880-11CF-9754-00AA00C00908}#1.0#0"; "MSINET.OCX"
Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX"
Begin VB.Form Form3
BorderStyle = 0 'None
Caption = "Search"
ClientHeight = 912
ClientLeft = 0
ClientTop = -60
ClientWidth = 5916
Icon = "Form3.frx":0000
LinkTopic = "Form3"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 912
ScaleWidth = 5916
ShowInTaskbar = 0 'False
StartUpPosition = 1 'CenterOwner
Begin VB.Frame Frame3
Height = 1020
Left = 0
TabIndex = 11
Top = -96
Width = 5916
Begin VB.CommandButton Command6
Caption = "Next User"
Height = 348
Left = 4416
TabIndex = 15
Top = 192
Width = 1404
End
Begin VB.CommandButton Command5
Caption = "Cancel"
Height = 348
Left = 4416
TabIndex = 12
Top = 576
Width = 1404
End
Begin VB.Label Label2
Height = 252
Left = 720
TabIndex = 13
Top = 672
Width = 3516
End
Begin VB.Image Image1
BorderStyle = 1 'Fixed Single
Height = 576
Left = 96
Picture = "Form3.frx":000C
Stretch = -1 'True
Top = 240
Width = 528
End
Begin VB.Label Label1
Caption = "Searching... Please Wait..."
Height = 540
Left = 720
TabIndex = 14
Top = 240
Width = 4044
End
End
Begin VB.CommandButton Command1
Caption = "Copy To Main Window"
Height = 348
Left = -2544
TabIndex = 4
Top = 336
Width = 1980
End
Begin VB.Frame Frame1
Caption = "Users"
Height = 1980
Left = 48
TabIndex = 0
Top = 4464
Visible = 0 'False
Width = 5916
Begin VB.Timer Timer2
Enabled = 0 'False
Interval = 5000
Left = 1920
Top = 1152
End
Begin InetCtlsObjects.Inet Inet1
Left = 2640
Top = 1248
_ExtentX = 804
_ExtentY = 804
_Version = 393216
End
Begin VB.Timer Timer1
Interval = 1
Left = 960
Top = 864
End
Begin MSFlexGridLib.MSFlexGrid MSFlexGrid1
Height = 1644
Left = 96
TabIndex = 1
Top = 240
Width = 5724
_ExtentX = 10097
_ExtentY = 2900
_Version = 393216
Rows = 1
FixedCols = 0
BackColorBkg = 16777215
GridColor = 16777215
Enabled = -1 'True
Appearance = 0
End
End
Begin VB.CommandButton Command4
Caption = "FinishSearch"
Height = 348
Left = -1104
TabIndex = 8
Top = 336
Width = 1212
End
Begin VB.CommandButton Command3
Caption = "Cancel"
Height = 348
Left = 3024
TabIndex = 6
Top = -144
Width = 1260
End
Begin VB.CommandButton Command2
Caption = "Clear Results"
Height = 348
Left = 1536
TabIndex = 5
Top = -240
Width = 1356
End
Begin VB.Frame Frame2
Caption = "Search Results"
Height = 3516
Left = 0
TabIndex = 2
Top = 144
Width = 5916
Begin RichTextLib.RichTextBox Text1
Height = 1980
Left = 2592
TabIndex = 10
Top = 1104
Visible = 0 'False
Width = 2124
_ExtentX = 3747
_ExtentY = 3493
_Version = 393217
Enabled = -1 'True
TextRTF = $"Form3.frx":08D6
End
Begin MSFlexGridLib.MSFlexGrid MSFlexGrid3
Height = 3516
Left = 5904
TabIndex = 9
Top = 240
Width = 5724
_ExtentX = 10097
_ExtentY = 6202
_Version = 393216
Rows = 1
Cols = 6
FixedCols = 0
BackColorBkg = 16777215
Appearance = 0
End
Begin MSFlexGridLib.MSFlexGrid MSFlexGrid2
Height = 3516
Left = 5904
TabIndex = 3
Top = 240
Width = 5724
_ExtentX = 10097
_ExtentY = 6202
_Version = 393216
Rows = 1
Cols = 6
FixedCols = 0
BackColorBkg = 16777215
HighLight = 2
GridLines = 0
AllowUserResizing= 1
Appearance = 0
End
Begin VB.ListBox List1
Height = 3120
ItemData = "Form3.frx":0990
Left = 96
List = "Form3.frx":0992
TabIndex = 7
Top = 240
Width = 5724
End
End
End
Attribute VB_Name = "Form3"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public SearchForWhat
Private Sub Command1_Click()
Me.Hide
End Sub
Private Sub Command4_Click()
On Error Resume Next
With MSFlexGrid2
Label2.Caption = "Removing $Null Items"
For i = 0 To .Rows
.Col = 1
.Row = i
If .Text = "" Then
If .Rows = 2 And i = 1 Then .Rows = 1 Else .RemoveItem i
i = -1
End If
Next i
End With
Label2.Caption = "Extracting Search Text"
Form3.Refresh
Timer1.Enabled = False
With MSFlexGrid2
If Form1.Option3.Value = True Then
For J = 0 To .Cols - 2
.Col = J
For i = 1 To .Rows - 1
.Row = i
If InStr(1, LCase(.Text), LCase(Form1.Text1.Text), vbTextCompare) Then
.CellFontBold = True
Else
.CellFontBold = False
End If
Next i
Next J
For i = 1 To .Rows - 1
.Row = i
RestartRow2:
For N = 0 To .Cols - 1
.Col = N
If .CellFontBold = True Then
Form1.MSFlexGrid2.Rows = Form1.MSFlexGrid2.Rows + 1
For J = 0 To .Cols - 1
.Col = J
Form1.MSFlexGrid2.Row = Form1.MSFlexGrid2.Rows - 1
Form1.MSFlexGrid2.Col = J
Form1.MSFlexGrid2.Text = .Text
Next J
End If
Next N
Next i
ElseIf Form1.Option2.Value = True Then
.Col = 2
RestartLoop:
For i = 1 To .Rows - 1
.Row = i
If InStr(1, LCase(.Text), LCase(Form1.Text1.Text), vbTextCompare) Then
Form1.MSFlexGrid2.Rows = Form1.MSFlexGrid2.Rows + 1
For J = 0 To .Cols - 1
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -