📄 frm12864.frm
字号:
VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form frmMain
AutoRedraw = -1 'True
Caption = "12864液晶代码生成器 - Designed by XiaoNingjie"
ClientHeight = 10170
ClientLeft = 60
ClientTop = 450
ClientWidth = 8655
FillColor = &H00FF0000&
FillStyle = 0 'Solid
ForeColor = &H0000FF00&
KeyPreview = -1 'True
LinkTopic = "Form1"
ScaleHeight = 678
ScaleMode = 3 'Pixel
ScaleWidth = 577
StartUpPosition = 3 'Windows Default
Begin VB.Frame Frame1
Height = 3855
Left = 5565
TabIndex = 6
Top = 6060
Width = 2685
Begin VB.CommandButton cmdGenDynamicCode
Caption = "生成动态代码并复制"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 555
TabIndex = 20
Top = 3495
Width = 1845
End
Begin VB.PictureBox picTop
BackColor = &H000000FF&
Height = 15
Left = 195
ScaleHeight = 15
ScaleWidth = 990
TabIndex = 19
Top = 315
Width = 995
End
Begin VB.PictureBox picLeft
BackColor = &H000000FF&
Height = 1930
Left = 210
ScaleHeight = 1935
ScaleWidth = 15
TabIndex = 18
Top = 285
Width = 15
End
Begin VB.PictureBox picBottom
BackColor = &H000000FF&
Height = 15
Left = 230
ScaleHeight = 15
ScaleWidth = 990
TabIndex = 17
Top = 2226
Width = 995
End
Begin VB.PictureBox picRight
BackColor = &H000000FF&
Height = 1930
Left = 1195
ScaleHeight = 1935
ScaleWidth = 15
TabIndex = 16
Top = 280
Width = 15
End
Begin VB.CommandButton cmdDispCharSize
Caption = "刷新"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 405
TabIndex = 15
Top = 2400
Width = 660
End
Begin VB.CommandButton cmdGenImg
Caption = "生成图像"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Left = 1515
TabIndex = 13
Top = 3105
Width = 1035
End
Begin VB.CommandButton cmdSelFont
Caption = "字体选择"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Left = 1515
TabIndex = 10
Top = 2715
Width = 1035
End
Begin VB.TextBox txtCharY
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 345
TabIndex = 9
Text = "127"
Top = 3180
Width = 615
End
Begin VB.TextBox txtCharX
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 345
TabIndex = 8
Text = "0"
Top = 2790
Width = 615
End
Begin VB.TextBox txtChar
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 2070
Left = 195
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 7
Text = "frm12864.frx":0000
Top = 255
Width = 2355
End
Begin VB.Label lblCharSize
AutoSize = -1 'True
Caption = "宽:,高:"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 180
Left = 1155
TabIndex = 14
Top = 2460
Width = 630
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "y:"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 180
Left = 75
TabIndex = 12
Top = 3225
Width = 180
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "x:"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 180
Left = 60
TabIndex = 11
Top = 2820
Width = 180
End
End
Begin MSComDlg.CommonDialog cdlg
Left = 3450
Top = 7260
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin VB.CommandButton cmdClear
Caption = "清除屏幕和内存"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 1065
TabIndex = 5
Top = 9795
Width = 1635
End
Begin VB.TextBox txtFuncName
Height = 285
Left = 5310
TabIndex = 3
Text = "DrawCover"
Top = 480
Width = 1200
End
Begin VB.CommandButton cmdGenStaticCode
Caption = "生成静态代码并复制"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 6720
TabIndex = 2
Top = 465
Width = 1800
End
Begin VB.TextBox txtCode
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 5040
Left = 5325
MultiLine = -1 'True
ScrollBars = 3 'Both
TabIndex = 1
Top = 855
Width = 3090
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "函数名："
Height = 195
Left = 5430
TabIndex = 4
Top = 150
Width = 720
End
Begin VB.Label lblCord
AutoSize = -1 'True
Caption = "x=0,y=0"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -