📄 prevdemo.frm
字号:
VERSION 5.00
Object = "{84FFDE3C-5937-11D2-9EA7-00108800BA81}#2.1#0"; "PREVIEW2001.OCX"
Begin VB.Form frmPreviewDemo
BackColor = &H00C0C0C0&
Caption = "Preview Demo"
ClientHeight = 2985
ClientLeft = 2055
ClientTop = 1995
ClientWidth = 6330
Icon = "PrevDemo.frx":0000
KeyPreview = -1 'True
LinkTopic = "Form1"
LockControls = -1 'True
ScaleHeight = 2985
ScaleWidth = 6330
Begin vbpPreview.Preview Preview1
Left = 60
Top = 120
_ExtentX = 741
_ExtentY = 741
Caption = "打印预览"
Orientation = 1
PaperSize = 9
End
Begin VB.CheckBox chkPreviewShow
Caption = "打印预览"
Height = 270
Left = 3240
TabIndex = 7
Top = 165
Value = 1 'Checked
Width = 1875
End
Begin VB.CommandButton cmdEMID
Caption = "EMID"
Height = 360
Left = 4470
TabIndex = 6
Top = 1770
Width = 1095
End
Begin VB.TextBox Text1
Height = 270
Left = 3150
TabIndex = 5
Top = 570
Width = 1080
End
Begin VB.CommandButton cmdBarCode
Caption = "BarCode"
Height = 330
Left = 4500
TabIndex = 4
Top = 1185
Width = 1095
End
Begin VB.CommandButton cmdModel2
Caption = "Model2"
Height = 315
Left = 4440
TabIndex = 3
Top = 2370
Width = 1155
End
Begin VB.CommandButton cmdModel
Caption = "Model"
Height = 315
Left = 3120
TabIndex = 2
Top = 2370
Width = 1155
End
Begin VB.CommandButton cmdRawData
Caption = "原始记录"
Height = 315
Left = 1800
TabIndex = 1
Top = 2370
Width = 1155
End
Begin VB.CommandButton cmdPreview
BackColor = &H00FFFF80&
Caption = "Preview"
Height = 315
Left = 390
TabIndex = 0
Top = 2370
Width = 1155
End
Begin VB.Image Image1
BorderStyle = 1 'Fixed Single
Height = 1710
Left = 270
Picture = "PrevDemo.frx":0442
Top = 270
Width = 2325
End
End
Attribute VB_Name = "frmPreviewDemo"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private I As Integer
Private J As Integer
Private str1 As String
Private X As Single
Private Y As Single
Private Fsize As Integer
Private Hline As Single
Private Sub chkPreviewShow_Click()
Preview1.PreviewShow = (chkPreviewShow.Value = vbChecked)
End Sub
Private Sub cmdBarCode_Click()
Dim I As Integer
With Preview1
.NewDoc
' .Orientation = 1
For I = 1 To 12
.OutputBarCodeOf39Ex 50, 10 + 20 * I, 50, 15, "<" & Format(I, "00") & ">"
.FontSize = 24
.FontBold = True
.TextE 120, 18 + 20 * I, 30, "<" & Format(I, "00") & ">"
Next I
.EndDoc
.Preview
End With
End Sub
Private Sub cmdEMID_Click()
Dim I As Integer
Dim J As Integer
Dim N As Integer
With Preview1
.NewDoc
.FontBold = True
For I = 1 To 22
.ScaleTop = 10 - 10 * I
For J = 0 To 2
N = I * 3 + J - 1
.ScaleLeft = -64 * J
.OutputBarCodeOf39Ex 0, 0, 29, 6, Format(N, "000000000")
.FontName = "Times New Roman"
.FontSize = 11
.TextE 0, 7.8, 31, "NO:" & Format(N, "000000000")
.OutputBarCodeOf39Ex 31, 0, 29, 6, "AB" & Format(N, "0000000")
.FontName = "楷体"
.FontSize = 8
.TextL 31, 7.8, "局号:"
.FontName = "Times New Roman"
.FontSize = 11
.TextE 40, 7.8, 22, "AB" & Format(N, "0000000")
Next J
Next I
.EndDoc
.Preview
End With
End Sub
Private Sub cmdModel_Click()
Const PW = 204
Const PH = 280
Dim I As Integer
Dim J As Integer
Dim K As Integer
Dim V As Double
Dim X As Single
Dim Y As Single
With Preview1
.Caption = "打印演示"
.NewDoc "封面、封底"
.CellSize 1, 1
.FontSize = 12
For I = 0 To 3
For J = 0 To 2
.ScaleLeft = -68 * J
.ScaleTop = -68 * I
.ForeColor = &H808000
.FillColor = &H808000
.FillStyle = vbFSSolid
.Box 2, 2, 64, 64
.ForeColor = &HFFFFFF
.FillColor = &HFFFFFF
For K = 1 To 4
.Box Choose(K, 2, 64, 2, 64), Choose(K, 2, 2, 64, 64), 2, 2
Next K
.ForeColor = &H808000
.FillColor = &H808000
For K = 1 To 4
.Arc Choose(K, 4, 64, 4, 64), Choose(K, 4, 4, 64, 64), 2, Choose(K, -90, -0.00001, -180, -270), Choose(K, -180, -90, -270, -360)
Next K
.ForeColor = &HFFFFFF
.FillColor = &HFFFFFF
V = (34 * Sqr(2) - 22) / Sqr(2)
For K = 1 To 5
X = Choose(K, 12, V, 34, 68 - V, 68 - 12)
Y = Choose(K, 34, V, 12, V, 34)
.Arc X, Y, 1
Next K
.ForeColor = &HFFFFFF
.FillColor = &HFFFFFF
For K = 1 To 3
.Arc 34, 34, 19.5, -120 * K + 50, -120 * K + 10
Next K
.Arc 34, 34, 16.5
.ForeColor = &H808000
.FillColor = &H808000
.Arc 34, 34, 15
For K = 1 To 3
.Arc 34, 34, 18, -120 * K + 45, -120 * K + 15
Next K
.ForeColor = &HFFFFFF
.FillColor = &HFFFFFF
.FontBold = True
.FontSize = 12
.TextC 34.1, 8.4, "断"
.TextVE 5, 19.3, 8.1, "有功"
.TextVE 63.3, 19.3, 8.1, "无功"
.FontSize = 12
.TextC V + 0.6, 15.2, "380V"
.TextC 68 - V - 0.5, 15.2, "100V"
.TextC 12.3, 30.7, "100V"
.TextC 68 - 12.2, 30.7, "380V"
.Box 4, 14.5, 6, 1
.Box 4, 14.5, 1, 4
.Box 4, 28, 1, 2.5
.Box 4, 30.5, 3, 1
.Box 64 - 6, 14.5, 6, 1
.Box 64 - 1, 14.5, 1, 4
.Box 64 - 1, 28, 1, 2.5
.Box 64 - 3, 30.5, 3, 1
.FontSize = 24
.TextC 34, 59, "电压量程选择"
Next J
Next I
.EndDoc
.Preview
End With
End Sub
Private Sub cmdModel2_Click()
Const PW = 204
Const PH = 280
Dim I As Integer
Dim J As Integer
Dim K As Integer
Dim V As Double
Dim X As Single
Dim Y As Single
Dim Color As Long
With Preview1
.Caption = "打印演示"
.NewDoc "封面、封底"
.CellSize 1, 1
.FontSize = 12
For I = 0 To 3
For J = 0 To 2
.ScaleLeft = -68 * J
.ScaleTop = -68 * I
Color = &HFFFF00
.ForeColor = Color
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -