📄 form1.frm
字号:
Height = 375
Index = 0
Left = 3960
TabIndex = 37
Top = 480
Width = 255
End
Begin VB.Label Label6
BackColor = &H00FF0000&
Height = 375
Index = 1
Left = 4200
TabIndex = 38
Top = 480
Width = 255
End
Begin VB.Label Label_C
BackColor = &H00000000&
Height = 375
Left = 4800
TabIndex = 40
Top = 480
Width = 495
End
Begin VB.Label Label6
BackColor = &H0000FF00&
Height = 255
Index = 2
Left = 4440
TabIndex = 39
Top = 540
Width = 255
End
Begin VB.Label Label_scr
Alignment = 1 'Right Justify
Caption = "2"
Height = 255
Left = 4440
TabIndex = 30
Top = 4560
Width = 375
End
Begin VB.Label Label5
Caption = "变形漂移量 %"
Height = 375
Left = 3240
TabIndex = 29
Top = 4560
Width = 3015
End
Begin VB.Label Label_ys
Alignment = 1 'Right Justify
Caption = "5"
Height = 255
Left = 4440
TabIndex = 27
Top = 4200
Width = 375
End
Begin VB.Label Label4
Caption = "上下漂移量 %"
Height = 495
Left = 3240
TabIndex = 26
Top = 4200
Width = 3015
End
Begin VB.Label Label_hR
Alignment = 1 'Right Justify
Caption = "70"
Height = 255
Left = 4440
TabIndex = 24
Top = 3840
Width = 375
End
Begin VB.Label Label3
Caption = "字体占行高 %"
Height = 495
Left = 3240
TabIndex = 23
Top = 3840
Width = 3015
End
Begin VB.Label Label_rb
Caption = "0"
Height = 375
Left = 5520
TabIndex = 22
Top = 1920
Width = 495
End
Begin VB.Label Label_rt
Caption = "100"
Height = 375
Left = 5520
TabIndex = 21
Top = 1080
Width = 495
End
Begin VB.Label Label_lb
Caption = "10"
Height = 375
Left = 3600
TabIndex = 20
Top = 1920
Width = 495
End
Begin VB.Label Label_lt
Caption = "80"
Height = 375
Left = 3600
TabIndex = 19
Top = 1080
Width = 495
End
Begin VB.Label Label_xr
Alignment = 1 'Right Justify
Caption = "75"
Height = 375
Left = 4440
TabIndex = 12
Top = 2760
Width = 375
End
Begin VB.Label Label_g2
Alignment = 1 'Right Justify
Caption = "10"
Height = 375
Left = 5400
TabIndex = 11
Top = 3120
Width = 495
End
Begin VB.Label Label_g1
Alignment = 1 'Right Justify
Caption = "5"
Height = 375
Left = 4320
TabIndex = 10
Top = 3120
Width = 495
End
Begin VB.Label Label2
Caption = "字体间距 %至 %"
Height = 615
Left = 3240
TabIndex = 7
Top = 3120
Width = 3015
End
Begin VB.Label Label1
Caption = "横向压缩至 %"
Height = 495
Left = 3240
TabIndex = 6
Top = 2760
Width = 2895
End
End
Attribute VB_Name = "Form_IO"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Const SW_SHOW = 5
Public pW As Integer
Public pH As Integer
Public pL As Integer
Public pT As Integer
Public pB As Integer
Public paW As Integer
Public paH As Double
Public plH As Integer
Public plC As Integer
Public pFix As Integer
Public lT As Integer
Public rT As Integer
Public lB As Integer
Public rB As Integer
Public xR As Integer
Public G1 As Integer
Public G2 As Integer
Public hR As Integer
Public yS As Integer
Public scr As Integer
Public oRder As Integer
Public Cht As String
Public pcX As Integer
Public pcY As Integer
Public PAr As Double '放大比例
Public plR As Integer '实际行所剩宽度
Public cL As Integer
Public pg As Integer
Public time1, time2, time3, time4 As Integer
Private Sub Changeline()
cL = cL + 1
pcY = (pT + paH * (cL - 1)) * PAr
tmp = Int(Rnd * 24)
pcX = pL * PAr + tmp
plR = paW * PAr - tmp
End Sub
Private Sub Combo_Style_Click()
If Combo_Style.List(Combo_Style.ListIndex) <> "" Then
Open File_Style.List(Combo_Style.ListIndex) For Input As #1
While Not EOF(1)
Input #1, tmp
'If InStr(1, tmp, "/W/") <> 0 Then pW = Val(Mid(tmp, 4))
If InStr(1, tmp, "/LT/ ") <> 0 Then VScroll_lt.Value = Val(Mid(tmp, 5))
If InStr(1, tmp, "/RT/ ") <> 0 Then VScroll_rt.Value = Val(Mid(tmp, 5))
If InStr(1, tmp, "/LB/ ") <> 0 Then VScroll_lb.Value = Val(Mid(tmp, 5))
If InStr(1, tmp, "/RB/ ") <> 0 Then VScroll_rb.Value = Val(Mid(tmp, 5))
If InStr(1, tmp, "/XR/ ") <> 0 Then HScroll_xr.Value = Val(Mid(tmp, 5))
If InStr(1, tmp, "/G1/ ") <> 0 Then HScroll_g1.Value = Val(Mid(tmp, 5))
If InStr(1, tmp, "/G2/ ") <> 0 Then HScroll_g2.Value = Val(Mid(tmp, 5))
If InStr(1, tmp, "/HR/ ") <> 0 Then HScroll_hr.Value = Val(Mid(tmp, 5))
If InStr(1, tmp, "/YS/ ") <> 0 Then HScroll_ys.Value = Val(Mid(tmp, 5))
If InStr(1, tmp, "/SCR/ ") <> 0 Then HScroll_scr.Value = Val(Mid(tmp, 6))
Wend
Close
VScroll_lt_Scroll
VScroll_rt_Scroll
VScroll_lb_Scroll
VScroll_rb_Scroll
HScroll_xr_Scroll
HScroll_g1_Scroll
HScroll_g2_Scroll
HScroll_hr_Scroll
HScroll_ys_Scroll
HScroll_scr_Scroll
End If
End Sub
Private Sub Command_Add_Click()
FileName = Combo_Style.Text
If FileName <> "" Then
Open FileName + ".cfg" For Output As #1
Print #1, "/LT/ "; Val(VScroll_lt.Value)
Print #1, "/RT/ "; Val(VScroll_rt.Value)
Print #1, "/LB/ "; Val(VScroll_lb.Value)
Print #1, "/RB/ "; Val(VScroll_rb.Value)
Print #1, "/XR/ "; Val(HScroll_xr.Value)
Print #1, "/G1/ "; Val(HScroll_g1.Value)
Print #1, "/G2/ "; Val(HScroll_g2.Value)
Print #1, "/HR/ "; Val(HScroll_hr.Value)
Print #1, "/YS/ "; Val(HScroll_ys.Value)
Print #1, "/SCR/ "; Val(HScroll_scr.Value)
Close
LoadStyle
End If
End Sub
Private Sub Command_CpL_Click()
tmp = paH * (hR / 100) * (xR / 100) * (1 + (G2 - G1) / 100)
Command_CpL.Caption = "预计每行字数" + Str(Int(paW / tmp)) + "个"
End Sub
Private Sub Command_Del_Click()
If Combo_Style.List(Combo_Style.ListIndex) <> "" Then
FileName = File_Style.List(Combo_Style.ListIndex)
Kill FileName
LoadStyle
End If
End Sub
Private Sub Command_Start_Click()
Form_IO.Visible = False
time1 = Timer
Open "output.txt" For Output As #1
Print #1, "当您按下 [开始生成] 按钮后，程序将转入后台运行，完成后会自行退出。"
Print #1, "根据您输入字数的多少及计算机的速度此过程将耗费数十秒到几分钟不等。"
Print #1, "在此期间，你可以做其他操作，如果不想被干扰，下次请关掉预览功能。"
Print #1,
Print #1, "你可以选择生成 Word文档（几百Kb），也可以手工处理生成的临时图片（几十Mb每张）"
Print #1, "临时图片将保存在 C:\output1.bmp、output2.bmp……output??.bmp。"
Print #1, ""
Print #1, "手动打印方法："
Print #1, ".打开 Microsoft Word，单击菜单“文件”-“页面设置”"
Print #1, ".在“纸张大小”子页里，将长和宽设置为欲输出的纸张大小"
Print #1, ".在“页边距”子页里，将上下左右、装订线距离设为零"
Print #1, ".按[确定]，此时 Word会提示您超出打印范围，按[忽略]继续"
Print #1, ".单击菜单“插入”-“图片”-“来自文件”（建议先把显示比例调为“双页”）"
Print #1, ".从最后一页的图象文件开始进行插图，你会看到图片刚好占满整页"
Print #1, ".每插完一幅图，单击菜单“插入”-“分隔符”，选择插入分页符"
Print #1, ".你会看到你的插图前面多了一个空页，继续插前一页的图片"
Print #1, " 提示：可用分页符先增加到足够的页数，再进行插图"
Print #1, ".插入适合的纸张进行打印"
Print #1,
Print #1,
Print #1, "注意事项及提示："
Print #1, ".本程序是用 Visual Basic 6.0 编写，因此需要在安装有 VB6运行库的电脑上运行"
Print #1, ".本程序需在安装过 MS Office的计算机上运行"
Print #1, " 补充：这是绿色软件，如果认为有盗版之嫌，请自行删除"
Print #1, ".所生成的图片分辨率很高，所以需时较长，文件也较大"
Print #1, " 提示：只要把它们插入到 MS Word中，保存后的 .DOC 文件不会很大"
Print #1, ".此版本中，英语和数字将作为空格处理，某些标点会打印不清，请自行用笔补全"
Print #1, " 补充：这是为了提高其真实性，作者并不认为这是BUG"
Print #1, ".此版本无标题居中功能，您可以试着在前面补空格，或编辑生成的图片"
Print #1, ".新生成的图片文件将无提示覆盖旧文件，请注意及时转移和备份旧图片文件"
Print #1, ".某些单行纸印刷上有倾斜，可在本程序的页面设置中，使用倾斜校正功能修正"
Print #1, ".本程序所适用于多种信纸，但其大多比较软，在打印时要小心处理"
Print #1, ".本程序暂不适用于处理方格作文纸，但在后续版本中将推出此功能"
Print #1,
Print #1,
Print #1,
Print #1, "您正在打印的文字是：==============================================="
Print #1, txt_Input.Text
ShellExecute Me.hwnd, "open", "output.txt", "", "", SW_SHOW
Close
StartPage:
outPUTpic.Cls
outPUTpic.Height = (96 / (hR / 100)) / (paH / pH)
outPUTpic.Width = outPUTpic.Height * (pW / pH)
PAr = outPUTpic.Height / pH
cL = 0
Changeline
pcY = pT * PAr
Do While txt_Input.Text <> ""
Cht = Left(txt_Input.Text, 1)
If plR < 96 * xR / 100 And Cht <> "，" And Cht <> "。" And Cht <> "！" And Cht <> "？" _
And Cht <> "、" And Cht <> "；" And Cht <> ":" And Cht <> "’" And Cht <> "”" _
And Cht <> "）" And Cht <> "》" Then
If cL = plC Then
Exit Do
End If
If cL < plC Then Changeline
End If
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -