📄 汉字处理.frm
字号:
VERSION 5.00
Begin VB.Form FrmHZZM
Caption = "字模生成(by mljda 06 10 5 0 27)"
ClientHeight = 6585
ClientLeft = 2475
ClientTop = 2415
ClientWidth = 10755
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 439
ScaleMode = 3 'Pixel
ScaleWidth = 717
Begin VB.Frame FraDot
Caption = "点阵数据"
Height = 3855
Left = 0
TabIndex = 11
Top = 2640
Width = 10695
Begin VB.OptionButton OptC51
Caption = "C51格式"
Height = 180
Left = 2520
TabIndex = 14
Top = 240
Width = 1335
End
Begin VB.OptionButton OptASM
Caption = "ASM51格式"
Height = 180
Left = 1200
TabIndex = 13
Top = 240
Value = -1 'True
Width = 1215
End
Begin VB.TextBox TxtDot
Height = 3255
Left = 120
Locked = -1 'True
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 12
Top = 480
Width = 10455
End
Begin VB.Label Label3
Caption = "数据格式："
Height = 255
Left = 240
TabIndex = 15
Top = 240
Width = 975
End
End
Begin VB.Frame FraShow
Caption = "显示"
Height = 1575
Left = 0
TabIndex = 2
Top = 960
Width = 8055
Begin VB.ComboBox CmbFont
Height = 300
ItemData = "汉字处理.frx":0000
Left = 6480
List = "汉字处理.frx":001C
Style = 2 'Dropdown List
TabIndex = 8
Top = 840
Width = 735
End
Begin VB.ComboBox CmbBack
Height = 300
ItemData = "汉字处理.frx":0042
Left = 6480
List = "汉字处理.frx":005E
Style = 2 'Dropdown List
TabIndex = 7
Top = 1200
Width = 735
End
Begin VB.HScrollBar HSc1
Enabled = 0 'False
Height = 255
Left = 20
Min = 1
TabIndex = 6
Top = 1250
Value = 1
Width = 6315
End
Begin VB.OptionButton OptZX
Caption = "纵向"
Height = 255
Left = 6480
TabIndex = 5
Top = 480
Value = -1 'True
Width = 1455
End
Begin VB.OptionButton OptHX
Caption = "横向"
Height = 180
Left = 6480
TabIndex = 4
Top = 240
Width = 1455
End
Begin VB.PictureBox Pic
AutoRedraw = -1 'True
Height = 1000
Left = 240
ScaleHeight = 134.328
ScaleMode = 0 'User
ScaleWidth = 671.692
TabIndex = 3
Top = 240
Width = 6075
End
Begin VB.Label Label2
Caption = "背景色"
Height = 255
Left = 7320
TabIndex = 10
Top = 1200
Width = 615
End
Begin VB.Label Label1
Caption = "字体色"
Height = 255
Left = 7320
TabIndex = 9
Top = 840
Width = 615
End
End
Begin VB.TextBox TxtInput
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
Left = 240
TabIndex = 1
Top = 360
Width = 6135
End
Begin VB.CommandButton CmdBuild
Caption = "生成"
Default = -1 'True
Height = 375
Left = 6480
TabIndex = 0
Top = 360
Width = 1215
End
Begin VB.Label Label4
Caption = "点阵示意图"
Height = 1335
Left = 8040
TabIndex = 16
Top = 120
Width = 255
End
Begin VB.Image Image1
Height = 2415
Left = 8400
Stretch = -1 'True
Top = 120
Width = 2295
End
End
Attribute VB_Name = "FrmHZZM"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub abort_Click()
End Sub
Private Sub CmbBack_LostFocus()
Select Case CmbBack.Text
Case "黄"
back = 黄
Case "洋红"
back = 洋红
Case "青"
back = 青
Case "蓝"
back = 蓝
Case "红"
back = 红
Case "绿"
back = 绿
Case "黑"
back = 黑
Case "白"
back = 白
End Select
End Sub
Private Sub CmbFont_LostFocus()
Select Case CmbFont.Text
Case "洋红"
color = 洋红
Case "青"
color = 青
Case "蓝"
color = 蓝
Case "红"
color = 红
Case "绿"
color = 绿
Case "黄"
color = 黄
Case "黑"
color = 黑
Case "白"
color = 白
End Select
End Sub
Private Sub CmdBuild_Click()
Dim ZMEnd As Integer
'GetHZZM ("l")
'XX = &HA3E1
'GetEngNum (TxtInput.Text)
'For i = 1 To 16
'Print ZMSZ(i);
'Next i
GetStrDot (TxtInput.Text)
If StrLength > 16 Then
ZMEnd = 16
Else
ZMEnd = StrLength
End If
HSc1.Max = StrLength
HSc1.Min = 1
Pic.Cls
TxtDot.Text = ""
For i = 1 To 16 '如输出字符没有16个,则后几位清零
For j = 1 To 32
ZMPrint(i, j) = 0
Next j
Next i
'X = DrawHZ()
If OptZX.Value = True Then
Set Image1.Picture = LoadResPicture("zx", vbResBitmap)
For i = 1 To StrLength
For j = 1 To 32
ZMSZ(j) = ZMMatrix(i, j)
Next j
Call ZXCharDot
If OptASM.Value = True Then
TxtDot.Text = TxtDot.Text + GetAsmDot() + " ;" + Mid(TxtInput.Text, i, 1) + Chr(13) + Chr(10)
ElseIf OptC51.Value = True Then
TxtDot.Text = TxtDot.Text + GetC51Dot() + " //" + Mid(TxtInput.Text, i, 1) + Chr(13) + Chr(10)
End If
For j = 1 To 32
ZMMatrix(i, j) = ZMSZ(j)
Next j
Next i
For i = 1 To ZMEnd
For j = 1 To 32
ZMPrint(i, j) = ZMMatrix(i, j)
Next j
Next i
Call DrawZX
ElseIf OptHX.Value = True Then
Set Image1.Picture = LoadResPicture("hx", vbResBitmap)
For i = 1 To ZMEnd
For j = 1 To 32
ZMPrint(i, j) = ZMMatrix(i, j)
ZMSZ(j) = ZMMatrix(i, j)
Next j
If OptASM.Value = True Then
TxtDot.Text = TxtDot.Text + GetAsmDot() + " ;" + Mid(TxtInput.Text, i, 1) + Chr(13) + Chr(10)
ElseIf OptC51.Value = True Then
TxtDot.Text = TxtDot.Text + GetC51Dot() + " //" + Mid(TxtInput.Text, i, 1) + Chr(13) + Chr(10)
End If
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -