📄 frmmain.frm
字号:
ForeColor = &H80000008&
Height = 3405
Index = 0
Left = 120
ScaleHeight = 3375
ScaleWidth = 1905
TabIndex = 13
Top = 420
Width = 1935
Begin VB.CommandButton cmdOptions
Caption = "粘贴文本"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 4
Left = 0
TabIndex = 18
Tag = "粘贴文本"
Top = 1920
Width = 1935
End
Begin VB.CommandButton cmdOptions
Caption = "文本加密"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 0
Left = 0
TabIndex = 14
Tag = "转换文本到图片"
Top = 0
Width = 1935
End
Begin VB.CommandButton cmdOptions
Caption = "复制文本"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 3
Left = 0
TabIndex = 17
Tag = "复制文件"
Top = 1440
Width = 1935
End
Begin VB.CommandButton cmdOptions
Caption = "保存文本"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 2
Left = 0
TabIndex = 16
Tag = "保存文件"
Top = 960
Width = 1935
End
Begin VB.CommandButton cmdOptions
Caption = "载入文本"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 1
Left = 0
TabIndex = 15
Tag = "加载文件"
Top = 480
Width = 1935
End
End
Begin VB.Label lblOptionsInfo
Alignment = 2 'Center
BackStyle = 0 'Transparent
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00808080&
Height = 375
Left = 120
TabIndex = 43
Top = 3880
Width = 1935
End
Begin VB.Label lblChooseOption
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "设置"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C0C0C0&
Height = 255
Index = 2
Left = 1320
TabIndex = 12
Tag = "自定义程序设置"
Top = 195
Width = 735
End
Begin VB.Label lblChooseOption
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "图片"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C0C0C0&
Height = 255
Index = 1
Left = 720
TabIndex = 11
Tag = "包含图片处理选项"
Top = 195
Width = 615
End
Begin VB.Label lblChooseOption
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "文字"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 255
Index = 0
Left = 120
TabIndex = 10
Tag = "包含文本处理选项"
Top = 195
Width = 615
End
End
Begin VB.Label lblTitel
Alignment = 1 'Right Justify
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "MndSoft 2007"
BeginProperty Font
Name = "Verdana"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
ForeColor = &H00404040&
Height = 195
Index = 2
Left = 4530
TabIndex = 2
Top = 210
Width = 1155
End
Begin VB.Label lblTitel
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Version"
ForeColor = &H00404040&
Height = 180
Index = 1
Left = 1920
TabIndex = 1
Top = 225
Width = 585
End
Begin VB.Image imgUnload
Height = 255
Left = 6620
Top = 50
Width = 255
End
Begin VB.Image imgMinimize
Height = 255
Left = 6330
Top = 50
Width = 255
End
Begin VB.Image imgFormTop
Height = 615
Left = 0
Top = 0
Width = 6975
End
Begin VB.Label lblTitel
BackStyle = 0 'Transparent
Caption = "加密文本到图片"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00E0E0E0&
Height = 240
Index = 0
Left = 1020
TabIndex = 0
Top = 210
Width = 1635
End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'*************************************************************************
'**模 块 名：frmMain
'**说 明：
'**创 建 人：
'**日 期：2006-12-26 16:36:06
'**修 改 人：
'**日 期：
'**描 述：
'**版 本：V1.0.4
'*************************************************************************
Option Explicit
Dim picWidth As Integer, PicHeight As Integer
Private Sub Form_Load()
'Sets the form to the size of the skin-picture
Me.Width = 6930
Me.Height = 5250
'Rounds the edges to make to app look smooth :)
RoundEdges Me
'Saves the picturebox's height and width in static variables for later use
picWidth = picEncrypted.Width
PicHeight = picEncrypted.Height
'Sets the width of the picturebox and applies the fancy border
SetPicWidth picWidth
'Loads the values of the controls of the "Settings"-page from the registry
LoadOptions
'Dynamicly sets the version-number
lblTitel(1).Caption = " v." & App.Major & "." & App.Minor & "." & App.Revision
'Hiding each of the options-pages exept the "Text"-page
Dim ix As Integer, LowIx As Integer
LowIx = picOptions.LBound
For ix = LowIx To picOptions.uBound
picOptions(ix).Visible = False
picOptions(ix).Move picOptions(LowIx).Left, picOptions(LowIx).Top, _
picOptions(LowIx).Width, picOptions(LowIx).Height
picOptions(ix).BorderStyle = 0 'Removes the border
Next ix
picOptions(LowIx).Visible = True 'Shows the "Text"-page
bxfOptions.Width = 2175 'Resizes the frame containing the options-pages
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -