📄 frmstart.frm
字号:
Width = 1215
_ExtentX = 2143
_ExtentY = 661
BTYPE = 3
TX = "&Cancel"
ENAB = -1 'True
BeginProperty FONT {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
COLTYPE = 3
FOCUSR = -1 'True
BCOL = 13160660
FCOL = 0
End
Begin prjChameleon.chameleonButton cmdOK2
Height = 375
Left = -71400
TabIndex = 4
Top = 4680
Width = 1215
_ExtentX = 2143
_ExtentY = 661
BTYPE = 3
TX = "&OK"
ENAB = -1 'True
BeginProperty FONT {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
COLTYPE = 3
FOCUSR = -1 'True
BCOL = 13160660
FCOL = 0
End
Begin prjChameleon.chameleonButton cmdCancel
Cancel = -1 'True
Height = 375
Left = 4920
TabIndex = 3
Top = 4680
Width = 1215
_ExtentX = 2143
_ExtentY = 661
BTYPE = 3
TX = "&Cancel"
ENAB = -1 'True
BeginProperty FONT {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
COLTYPE = 3
FOCUSR = -1 'True
BCOL = 13160660
FCOL = 0
End
Begin prjChameleon.chameleonButton cmdOK
Default = -1 'True
Height = 375
Left = 3600
TabIndex = 2
Top = 4680
Width = 1215
_ExtentX = 2143
_ExtentY = 661
BTYPE = 3
TX = "&OK"
ENAB = -1 'True
BeginProperty FONT {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
COLTYPE = 3
FOCUSR = -1 'True
BCOL = 13160660
FCOL = 0
End
Begin PageCreatorRevolt.cpvCoolList lsTemplate
Height = 3660
Left = -74880
TabIndex = 11
Top = 720
Width = 6135
_ExtentX = 10821
_ExtentY = 6456
ScrollBarWidth = 15
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BackNormal = 14737632
BackSelected = 8388608
BackSelectedG1 = 16711680
BoxBorder = 8454016
BoxRadius = 2
Focus = 0 'False
ItemHeight = 48
ItemHeightAuto = 0 'False
ItemOffset = 5
ItemTextLeft = 35
SelectionPicture= "frmStart.frx":F988
SelectModeStyle = 6
End
End
Begin VB.CheckBox Check1
BackColor = &H00E0E0E0&
Caption = "Show this dialog every time."
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 0
TabIndex = 1
Top = 6120
Value = 1 'Checked
Width = 3135
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "Page Creator 3 Startup Manager"
BeginProperty Font
Name = "Tahoma"
Size = 18
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 615
Left = 720
TabIndex = 9
Top = 120
Width = 5535
End
End
Attribute VB_Name = "frmStart"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public Job As String
Private Sub Check1_Click()
SaveOption "startup", IIf(Check1.Value = 1, "true", "false")
End Sub
Private Sub cmdCancel_Click()
Me.Hide
End Sub
Private Sub cmdCancel2_Click()
cmdCancel_Click
End Sub
Private Sub cmdCancel3_Click()
cmdCancel_Click
End Sub
Private Sub cmdCancel4_Click()
cmdCancel_Click
End Sub
Private Sub cmdOK_Click()
Select Case lsCreate.ListIndex
Case 0
Me.Hide
MfrmProgram.SetFocus
DoEvents
NewBlankPage
Case 1
MsgBox "Sorry, not support yet!", vbInformation
Exit Sub
End Select
End Sub
Private Sub cmdOK2_Click()
DoEvents
On Error Resume Next
Me.Hide
MfrmProgram.SetFocus
DoEvents
Dim f As String
f = Trim(Left$(lsTemplate.GetItem(lsTemplate.ListIndex), InStr(1, lsTemplate.GetItem(lsTemplate.ListIndex), " <<<")))
OpenTemp App.Path & "\Template\" & f & ".htm"
End Sub
Private Sub cmdOK4_Click()
DoEvents
On Error Resume Next
Me.Hide
MfrmProgram.SetFocus
DoEvents
OpenFile lsHistory.GetItem(lsHistory.ListIndex)
End Sub
Private Sub File1_FileDblClick(ByVal File As String)
DoEvents
On Error Resume Next
Me.Hide
MfrmProgram.SetFocus
DoEvents
OpenFile File
End Sub
Sub ReadHistory()
Dim HistoryCount As Integer
Dim URLtoRead As String
Dim num As Long
HistoryCount = GetSet(App.ProductName, "history", "historycount", 0)
num = HistoryCount
If num > 100 Then
num = 100
End If
Dim temp As String
For i = 1 To num
URLtoRead = GetSet(App.ProductName, "history", "file" & i, "")
On Error Resume Next
lst.ListItems.Add , URLtoRead
If Err.Number = 0 Then
lsHistory.AddItem URLtoRead, 4, 4
End If
2
Next i
lsHistory.SelectItem lsHistory.ListCount - 1
End Sub
Private Sub Form_Initialize()
Tree1.Path = GetOption("DIR", "C:\")
lsCreate.SetImageList Me.ImageList1
lsTemplate.SetImageList Me.ImageList1
lsHistory.SetImageList Me.ImageList1
lsCreate.AddItem "Blank Web Page", ImageList1.ListImages("webpage").Index, ImageList1.ListImages("webpage").Index
lsCreate.AddItem "Web Site Project", ImageList1.ListImages("pcs").Index, ImageList1.ListImages("pcs").Index
AddTemp "Bibliography", "Description of books."
AddTemp "FAQ answers", "A response page of the FAQ section, contain some kinds of solution."
AddTemp "Feedback Confirmation", "Show it after users write feedback to you."
AddTemp "Feedback Form", "Let user send feedback to your goods or services."
AddTemp "Guest Book", "A common 'Guest Book' interface"
AddTemp "Left Content", "Photo on right and content on left."
AddTemp "One Column Body with SideBar", "Content on the centre, Links on the side. Like that of PSC."
AddTemp "One Column Body", "Single colume"
AddTemp "Right Content", "Photo on left and content on right."
AddTemp "Search Page", "Like the yahoo search"
AddTemp "Table of Content"
AddTemp "Three Column Body"
AddTemp "Two Column Body"
AddTemp "User Registration", "A common page layout of registration"
AddTemp "Wide Body", "Like that in a news paper."
ReadHistory
End Sub
Private Sub Form_Load()
FlattenAll Me
End Sub
Sub AddTemp(ByVal Text As String, Optional ByVal Description As String)
If IsMissing(Description) = True Then
lsTemplate.AddItem Text & " <<<" & vbCrLf, 3, 3
Else
lsTemplate.AddItem Text & " <<<" & vbCrLf & Description, 3, 3
End If
End Sub
Private Sub lsCreate_DblClick()
cmdOK_Click
End Sub
Private Sub lsHistory_DblClick()
cmdOK4_Click
End Sub
Private Sub lsTemplate_dblClick()
cmdOK2_Click
End Sub
Private Sub SSTab1_Click(PreviousTab As Integer)
Select Case SSTab1.Tab
Case 3
lsHistory.SetFocus
End Select
End Sub
Private Sub Tree1_Click()
SaveOption "DIR", Tree1.Path
File1.Path = Tree1.Path
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -