📄 codelib.frm
字号:
EndProperty
ForeColor = &H00C00000&
Height = 255
Left = -68970
TabIndex = 27
Top = 495
Width = 1680
End
Begin VB.Label Label7
Caption = "Helpfile present"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000C0&
Height = 240
Left = -70455
TabIndex = 24
Top = 360
Width = 1500
End
Begin VB.Label Label8
Caption = "Notes present"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000C0&
Height = 240
Left = -70455
TabIndex = 23
Top = 585
Width = 1500
End
Begin VB.Label Label1
Alignment = 2 'Center
BackColor = &H00C0C000&
BorderStyle = 1 'Fixed Single
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 255
Index = 3
Left = -74865
TabIndex = 16
Top = 495
Width = 4785
End
Begin VB.Label Label1
Alignment = 2 'Center
BackColor = &H00C0C000&
BorderStyle = 1 'Fixed Single
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 255
Index = 2
Left = 135
TabIndex = 12
Top = 495
Width = 4020
End
Begin VB.Label Label1
Alignment = 2 'Center
BackColor = &H00C0C000&
BorderStyle = 1 'Fixed Single
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 255
Index = 1
Left = -74865
TabIndex = 11
Top = 495
Width = 4020
End
Begin VB.Label Label1
Alignment = 2 'Center
BackColor = &H00C0C000&
BorderStyle = 1 'Fixed Single
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 255
Index = 0
Left = -74865
TabIndex = 3
Top = 495
Width = 4020
End
End
Begin VB.Label Label11
Alignment = 2 'Center
BackColor = &H00C00000&
Caption = " Number of Code-snippets: 111"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFF80&
Height = 420
Left = 135
TabIndex = 26
Top = 6165
Width = 2310
End
Begin VB.Label Label9
Alignment = 2 'Center
BackColor = &H00E0E0E0&
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00808000&
Height = 195
Left = 135
TabIndex = 25
Top = 2520
Width = 2265
End
Begin VB.Label Label6
Alignment = 2 'Center
Caption = "Database dirty"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000040C0&
Height = 195
Left = 7470
TabIndex = 20
Top = 1305
Width = 1800
End
Begin VB.Label Label5
Alignment = 2 'Center
Caption = "Clipboard empty"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000040C0&
Height = 195
Left = 2700
TabIndex = 18
Top = 1305
Width = 3750
End
Begin VB.Label Label4
Alignment = 2 'Center
Caption = "Loading database..."
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000040C0&
Height = 195
Left = 135
TabIndex = 7
Top = 1305
Width = 2355
End
Begin VB.Label Label2
Alignment = 2 'Center
BackColor = &H00E0E0E0&
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00808000&
Height = 195
Left = 135
TabIndex = 6
Top = 2160
Width = 2265
End
Begin VB.Menu mnuCode
Caption = "Code"
Visible = 0 'False
Begin VB.Menu mnuCopyCode
Caption = "Copy Code"
End
Begin VB.Menu bar0
Caption = "-"
End
Begin VB.Menu mnuKillCode
Caption = "Kill Code"
End
Begin VB.Menu bar1
Caption = "-"
End
Begin VB.Menu mnuRenameCode
Caption = "Rename Code"
End
Begin VB.Menu bar2
Caption = "-"
End
Begin VB.Menu mnuMoveCode
Caption = "Move Code"
End
Begin VB.Menu bar3
Caption = "-"
End
Begin VB.Menu mnuPrintCod
Caption = "Print Code"
End
End
End
Attribute VB_Name = "CodeLib"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim YPos%, TH%
Private Sub Combo1_Click()
List1.Clear
For xx = 0 To 2
Label1(xx).Caption = Empty
Text1(xx).Text = ""
Next xx
Label2.Caption = Combo1.List(Combo1.ListIndex)
CatIdx = Val(Left(Combo1.List(Combo1.ListIndex), 2))
'Label3.Caption = "Category: " & CatIdx
SearchItems
Pic7.Visible = False
Label7.Visible = False
Pic8.Visible = False
Label8.Visible = False
Pic2.BackColor = RGB(192, 192, 192)
Pic3.BackColor = RGB(192, 192, 192)
Pic1.SetFocus
End Sub
Private Sub Form_Activate()
Combo1.Text = "Category"
Label4.Caption = "Ready !"
Label4.Tag = ""
If SSTab1.Tab <> 0 Then
End If
End Sub
Private Sub Form_Load()
On Error Resume Next
Title = "CodeLib V2.0"
CodeLib.ScaleMode = 1
TH = Me.TextHeight(a)
CodeLib.ScaleMode = 3
T3D CodeLib, Toolbar1, 3, T3dRaiseInset
T3D CodeLib, Label4, 5, T3dRaiseRaise
T3D CodeLib, Label5, 5, T3dRaiseRaise
T3D CodeLib, Pic5, 5, T3dRaiseRaise
T3D CodeLib, Label2, 3, T3dRaiseRaise
T3D CodeLib, Label9, 3, T3dRaiseRaise
T3D CodeLib, Label6, 5, T3dRaiseRaise
T3D Search, Search.Label1(0), 10, T3dRaiseInset
T3D Search, Search.Label1(0), 5, T3dRaiseRaise
T3D Search, Search.Drive1, 5, T3dRaiseRaise
T3D Search, Search.Dir1, 5, T3dRaiseRaise
T3D Search, Search.File1, 5, T3dRaiseRaise
T3D Search, Search.Text1, 5, T3dRaiseRaise
T3D Search2, Search2.Text1, 5, T3dRaiseRaise
T3D Search2, Search2.Combo1, 3, T3dRaiseRaise
T3D Search2, Search2.Label1, 7, T3dRaiseRaise
T3D Search2, Search2.Label2, 5, T3dRaiseRaise
T3D Search2, Search2.Label3, 5, T3dRaiseRaise
T3D Search3, Search3.Label1, 7, T3dRaiseRaise
T3D Search3, Search3.Combo1, 5, T3dRaiseRaise
T3D Move1, Move1.Combo1, 5, T3dRaiseRaise
T3D Move1, Move1.Label1, 5, T3dRaiseRaise
T3D HelpScreen, HelpScreen.Label1, 4, T3dInsetInset
T3D HelpScreen, HelpScreen.Label1, 8, T3dInsetInset
T3D HelpScreen, HelpScreen.Label1, 12, T3dInsetInset
'Label10.Caption = " Lines of text: "
'T3D CodeLib, Label10, 3, T3dRaiseRaise
T3D CodeLib, Label11, 3, T3dInsetInset
Setline CodeLib, 1
Setline CodeLib, 74, False
Pic2.BackColor = RGB(192, 192, 192)
Pic3.BackColor = RGB(192, 192, 192)
Pic4.BackColor = RGB(192, 192, 192)
Pic5.BackColor = RGB(192, 192, 192)
Label6.Caption = "Database clear"
Label4.Tag = "0"
Label4.Caption = "Loading Database"
SSTab1.Tab = 0
Pic7.Visible = False
Label7.Visible = False
Pic8.Visible = False
Label8.Visible = False
LoadCat
LoadLib
SizeCombo CodeLib, Combo1
SizeCombo Move1, Move1.Combo1
SizeCombo Search3, Search3.Combo1
Label11.Caption = "Number of Code-snippets:" & vbCr & CodeCount
Search.Drive1.Drive = "C:\"
Search.Dir1.Path = "C:\"
CodeLib.Move (Screen.Width / 2) - (CodeLib.Width / 2), (Screen.Height / 2) - (CodeLib.Height / 2), 10590, 7065
CodeLib.Show
DoEvents
Start.Show 1
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Label4.Tag = "" Then Label4.Caption = ""
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Cancel = True
Msbox "Do you want to quit ?", Title, mbYesNo, mbQuestion
If MBReturn = 1 Then Exit Sub
'OK !Quit
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -