📄 frmmain.frm
字号:
VERSION 5.00
Object = "{ECEDB943-AC41-11D2-AB20-000000000000}#2.0#0"; "cmax20.ocx"
Object = "{683364A1-B37D-11D1-ADC5-006008A5848C}#1.0#0"; "dhtmled.ocx"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form frmMain
ClientHeight = 4665
ClientLeft = 60
ClientTop = 345
ClientWidth = 8445
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Icon = "frmMain.frx":0000
LinkTopic = "Form1"
MDIChild = -1 'True
ScaleHeight = 4665
ScaleWidth = 8445
WindowState = 2 'Maximized
Begin MSComctlLib.ImageList ImageList1
Left = 5880
Top = 120
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 6
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":27A2
Key = "design"
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":28FC
Key = "viewcode"
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":2A56
Key = "editcode"
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":2BB0
Key = "preview"
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":2D0A
Key = "snap"
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":315C
Key = "detail"
EndProperty
EndProperty
End
Begin DHTMLEDLibCtl.DHTMLEdit DHTML1
Height = 2535
Left = 120
TabIndex = 0
Top = 120
Width = 5655
ActivateApplets = -1 'True
ActivateActiveXControls= -1 'True
ActivateDTCs = -1 'True
ShowDetails = 0 'False
ShowBorders = -1 'True
Appearance = 0
Scrollbars = -1 'True
ScrollbarAppearance= 0
SourceCodePreservation= 0 'False
AbsoluteDropMode= 0 'False
SnapToGrid = 0 'False
SnapToGridX = 50
SnapToGridY = 50
BrowseMode = 0 'False
UseDivOnCarriageReturn= 0 'False
End
Begin CodeMaxCtl.CodeMax Code1
Height = 2415
Left = 1080
OleObjectBlob = "frmMain.frx":32B6
TabIndex = 1
Top = 840
Width = 5295
End
Begin MSComctlLib.Toolbar tbrQuick
Align = 2 'Align Bottom
Height = 330
Left = 0
TabIndex = 2
Top = 4335
Width = 8445
_ExtentX = 14896
_ExtentY = 582
ButtonWidth = 2619
ButtonHeight = 582
Wrappable = 0 'False
Style = 1
TextAlignment = 1
ImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 7
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "Design"
Key = "design"
Object.ToolTipText = "Design Mode"
ImageKey = "design"
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "View HTML"
Key = "viewcode"
Object.ToolTipText = "View HTML"
ImageKey = "viewcode"
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "Edit HTML"
Key = "editcode"
Object.ToolTipText = "Edit HTML"
ImageKey = "editcode"
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "Preview"
Key = "preview"
Object.ToolTipText = "Preview"
ImageKey = "preview"
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "Show Detail"
Key = "detail"
Object.ToolTipText = "Show Detail"
ImageKey = "detail"
Style = 1
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "Snap to Grid"
Key = "snap"
Object.ToolTipText = "Snap to Grid"
ImageKey = "snap"
Style = 1
EndProperty
EndProperty
End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public R As CodeMaxCtl.Range
Public Complete As Boolean
Public Ready As String
Public Job As String
Dim x As Long, y As Long
Dim e As IHTMLEventObj
Public Sub ChangeMode(Mode As ModeConstant)
Select Case Mode
Case 1
DHTML1.ZOrder
DHTML1.SetFocus
Case 2
On Error Resume Next
Code1.Text = CreatorHTML
Code1.ZOrder
Code1.SetFocus
Case 3
CStatus(CInt(Me.Tag)).HTMLOpened = True
ShowEditor
Case 4
If FStatus.OpenFromROM = False Then
Load frmBrowser
SaveText FStatus.TempFilename, CreatorHTML
frmBrowser.Show
frmBrowser.brwWebBrowser.Navigate FStatus.TempFilename
Else
frmBrowser.Show
frmBrowser.brwWebBrowser.Navigate FStatus.OriginalFilename
End If
End Select
End Sub
Sub ShowEditor()
With Editor(CInt(Me.Tag))
.HTMLString = CreatorHTML
.Code.Text = CreatorHTML
.Caption = FStatus.FileTitle
.Show
.Code.SetFocus
End With
End Sub
Private Sub Code1_SelChange(ByVal Control As CodeMaxCtl.ICodeMax)
Set R = Code1.GetSel(True)
Code1.HighlightedLine = R.EndLineNo
End Sub
Private Sub DHTML1_DisplayChanged()
'Work only when Ready="True"
If Ready = "True" Then
RefreshMfrm
DynaLink
End If
End Sub
Sub DynaLink()
On Error Resume Next
Dim a As String
Dim Ele As IHTMLElement
Set Ele = ElementP
MfrmProgram.Sta.Panels(1).Text = Ele.TagName
Select Case LCase(Ele.TagName)
Case "a"
DHTML1.ToolTipText = "Link to : " & Ele.href
Case Else
DHTML1.ToolTipText = ""
End Select
End Sub
Sub EditBarCheck(TbrButton As MSComctlLib.Button, TheFunction As DHTMLEDITCMDID)
Dim n As DHTMLEDITCMDF
n = DHTML1.QueryStatus(TheFunction)
Select Case n
Case 1 'Disabled
TbrButton.Enabled = False
TbrButton.Value = tbrUnpressed
Case 3 'Enabled
TbrButton.Enabled = True
TbrButton.Value = tbrUnpressed
Case 7 'Latched
TbrButton.Enabled = True
TbrButton.Value = tbrPressed
Case 11 'Ninched
TbrButton.Enabled = True
TbrButton.Value = tbrUnpressed
Case 0 'Not Supported
TbrButton.Enabled = False
End Select
End Sub
Public Sub RefreshMfrm()
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -