?? frmtext.frm
字號:
VERSION 5.00
Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "richtx32.ocx"
Begin VB.Form frmText
Appearance = 0 'Flat
BackColor = &H00C0C0C0&
ClientHeight = 4485
ClientLeft = 1050
ClientTop = 2055
ClientWidth = 7605
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
LinkTopic = "Form1"
LockControls = -1 'True
MDIChild = -1 'True
PaletteMode = 1 'UseZOrder
ScaleHeight = 4485
ScaleWidth = 7605
Tag = "Searchable"
Begin RichTextLib.RichTextBox Text1
Height = 4485
Left = 0
TabIndex = 0
Top = 0
Width = 7605
_ExtentX = 13414
_ExtentY = 7911
_Version = 393217
Enabled = -1 'True
HideSelection = 0 'False
ScrollBars = 3
TextRTF = $"frmText.frx":0000
End
End
Attribute VB_Name = "frmText"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public Drive As String
Public Dir As String
Public File As String
Public Ext As String
Public Changed As Boolean
Private Sub Form_Activate()
Dim F As frmMain
Set F = frmMain
'center textbox on form
Text1.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight
'Clear MDI form status line
pnlStatus = ""
'Enable appropriate menu items
F.mnuFileSave.Enabled = True
F.mnuFileSaveAs.Enabled = True
F.mnuEditCut.Enabled = True
F.mnuEditCopy.Enabled = True
F.mnuEditPaste.Enabled = True
F.mnuEditFind.Enabled = True
F.mnuWinArrange.Enabled = True
F.mnuWinCascade.Enabled = True
F.mnuWinHTile.Enabled = True
F.mnuWinVTile.Enabled = True
'enable appropriate toolbar buttons
F.Toolbar.Buttons("SaveDoc").Enabled = True
'F.Toolbar.Buttons("PrintDoc").Enabled = True
F.Toolbar.Buttons("Find").Enabled = True
F.Toolbar.Buttons("Cascade").Enabled = True
F.Toolbar.Buttons("Tile").Enabled = True
If Text1.SelLength > 0 Then
F.Toolbar.Buttons("EditCut").Enabled = True
F.Toolbar.Buttons("EditCopy").Enabled = True
Else
F.Toolbar.Buttons("EditCut").Enabled = False
F.Toolbar.Buttons("EditCopy").Enabled = False
End If
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If Text1 = "" Then Exit Sub
If Me.Changed = True Then
'show user that file has changed
If Not frmMain.UserMsgChoice = "All" Then
frmMain.MsgMode = "File"
frmMsg.Show 1
End If
Select Case frmMain.UserMsgChoice
Case "Yes"
frmMain.mnuFileSave_Click
frmMain.UserMsgChoice = ""
Case "Cancel"
Cancel = 1
frmMain.UserMsgChoice = ""
End Select
End If
'if this is the only text form open then reset UserMsgChoice flag
If Forms.Count = 4 Then
frmMain.UserMsgChoice = ""
End If
End Sub
Private Sub Form_Resize()
Text1.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight
End Sub
Private Sub Form_Unload(Cancel As Integer)
'Disable menu items to state of no forms open
'Disable toolbar buttons to state of no forms open
'Other forms will re-enable them with code attached
'to their Activate method
Dim F As frmMain
Set F = frmMain
'disable appropriate menus
F.mnuFileSave.Enabled = False
F.mnuFileSaveAs.Enabled = False
F.mnuEditCut.Enabled = False
F.mnuEditCopy.Enabled = False
F.mnuEditPaste.Enabled = False
F.mnuEditFind.Enabled = False
F.mnuWinArrange.Enabled = False
F.mnuWinCascade.Enabled = False
F.mnuWinHTile.Enabled = False
F.mnuWinVTile.Enabled = False
'disable appropriate toolbar buttons
F.Toolbar.Buttons("SaveDoc").Enabled = False
F.Toolbar.Buttons("PrintDoc").Enabled = False
F.Toolbar.Buttons("EditCut").Enabled = False
F.Toolbar.Buttons("EditCopy").Enabled = False
F.Toolbar.Buttons("Find").Enabled = False
F.Toolbar.Buttons("Cascade").Enabled = False
F.Toolbar.Buttons("Tile").Enabled = False
End Sub
Private Sub Text1_Change()
Me.Changed = True
End Sub
Private Sub Text1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim T As Toolbar
Set T = frmMain.Toolbar
If Text1.SelLength > 0 Then
T.Buttons("EditCut").Enabled = True
T.Buttons("EditCopy").Enabled = True
Else
T.Buttons("EditCut").Enabled = False
T.Buttons("EditCopy").Enabled = False
End If
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -