📄
字号:
FillStyle = 0
RightToLeft = 0 'False
PictureType = 0
TabBehavior = 0
OwnerDraw = 0
Editable = 0
ShowComboButton = 1
WordWrap = 0 'False
TextStyle = 0
TextStyleFixed = 0
OleDragMode = 0
OleDropMode = 0
DataMode = 0
VirtualData = -1 'True
DataMember = ""
ComboSearch = 3
AutoSizeMouse = -1 'True
FrozenRows = 0
FrozenCols = 0
AllowUserFreezing= 0
BackColorFrozen = 0
ForeColorFrozen = 0
WallPaperAlignment= 9
AccessibleName = ""
AccessibleDescription= ""
AccessibleValue = ""
AccessibleRole = 24
End
Begin MSComctlLib.StatusBar DYStatus
Align = 2 'Align Bottom
Height = 405
Left = 0
TabIndex = 2
Top = 7350
Width = 10755
_ExtentX = 18971
_ExtentY = 714
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 3
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
AutoSize = 2
EndProperty
BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628}
AutoSize = 2
EndProperty
BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628}
AutoSize = 1
Object.Width = 13309
EndProperty
EndProperty
End
Begin VB.HScrollBar PageHScroll
Height = 300
Left = 8025
TabIndex = 1
Top = 345
Width = 2715
End
Begin VB.ComboBox Xsbl
Height = 300
Left = 7080
Style = 2 'Dropdown List
TabIndex = 0
Top = 345
Width = 885
End
Begin MSComctlLib.Toolbar YlToolbar
Align = 1 'Align Top
Height = 615
Left = 0
TabIndex = 3
Top = 0
Width = 10755
_ExtentX = 18971
_ExtentY = 1085
ButtonWidth = 979
ButtonHeight = 926
AllowCustomize = 0 'False
Appearance = 1
ImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 7
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "打 印"
Key = "dy"
ImageKey = "dy"
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "上 页"
Key = "sy"
ImageKey = "sy"
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "下 页"
Key = "xy"
ImageKey = "xy"
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "帮 助"
Key = "bz"
ImageKey = "bz"
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "返 回"
Key = "fh"
ImageKey = "tc"
EndProperty
EndProperty
End
End
Attribute VB_Name = "DY_Tybbyldy"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'*******************************************************
'* 模 块 名 称 :报表打印预览
'* 功 能 描 述 :实现对报表按各种比例的模拟显示
'* 程序员姓名 :张建忠
'* 最后修改人 :张建忠
'* 最后修改时间:2001/06/23
'* 备 注:
'*******************************************************
Dim Ylzybl As Double, ylms As Integer '预 览 整 页 比 例
Dim Changelock As Boolean '程 序 改 变 值 控 制 锁
Private Sub PageHScroll_Change() '利用滚动条改变页号
With Tydy
If Not Changelock Then
.PreviewPage = PageHScroll.Value
If .PreviewPage = 1 Then
YlToolbar.Buttons("sy").Enabled = False
Else
YlToolbar.Buttons("sy").Enabled = True
End If
If .PreviewPage < .Pagecount Then
YlToolbar.Buttons("xy").Enabled = True
Else
YlToolbar.Buttons("xy").Enabled = False
End If
End If
Dqyh = Trim(Str(.PreviewPage))
Gjyh = "(共计:" + Trim(Str(.Pagecount)) + "页)"
End With
End Sub
Private Sub Tydy_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
With Tydy
If .Zoom <> 100 Then
.Zoom = 100
Xsbl.Text = "100%"
Else
Changelock = True
.ZoomMode = ylms
Select Case .ZoomMode
Case zmPageWidth
Xsbl.Text = "页宽"
Case zmWholePage
Xsbl.Text = "整页"
Case zmThumbnail
Xsbl.Text = "双页"
End Select
Changelock = False
End If
End With
End Sub
Private Sub Xsbl_Click() '调 整 预 览 比 例
If Changelock Then
Exit Sub
End If
With Tydy
Select Case Xsbl.Text
Case "页宽"
.ZoomMode = zmPageWidth
ylms = .ZoomMode
Case "整页"
.ZoomMode = zmWholePage
ylms = .ZoomMode
Case "双页"
.ZoomMode = zmThumbnail
ylms = .ZoomMode
Case Else
.Zoom = Val(Mid(Xsbl.Text, 1, Len(Xsbl.Text) - 1))
End Select
End With
End Sub
Private Sub Form_Load()
With Tydy
Ylzybl = .Zoom
.ZoomMax = 400
.ZoomMin = 25
End With
With Xsbl
.AddItem "页宽"
.AddItem "整页"
.AddItem "双页"
.AddItem "10%"
.AddItem "25%"
.AddItem "50%"
.AddItem "75%"
.AddItem "100%"
.AddItem "150%"
.AddItem "200%"
.AddItem "400%"
Changelock = True
.Text = "整页"
ylms = Tydy.ZoomMode
Changelock = False
End With
End Sub
Private Sub Qpage() '向 前 翻 页
With Tydy
If .PreviewPage > 1 Then
.PreviewPage = .PreviewPage - 1
If .PreviewPage = 1 Then
YlToolbar.Buttons("sy").Enabled = False
End If
If .PreviewPage < .Pagecount Then
YlToolbar.Buttons("xy").Enabled = True
End If
Changelock = True
PageHScroll.Value = .PreviewPage
Changelock = False
End If
End With
End Sub
Private Sub Hpage() '向 后 翻 页
With Tydy
If .PreviewPage < .Pagecount Then
.PreviewPage = .PreviewPage + 1
If .PreviewPage > 1 Then
YlToolbar.Buttons("sy").Enabled = True
End If
If .PreviewPage >= .Pagecount Then
YlToolbar.Buttons("xy").Enabled = False
End If
Changelock = True
PageHScroll.Value = .PreviewPage
Changelock = False
End If
End With
End Sub
Private Sub YlToolbar_ButtonClick(ByVal Button As MSComctlLib.Button) '点击工具条
Select Case Button.Key
Case "dy"
Call dyscbb
Case "sy"
Call Qpage
Case "xy"
Call Hpage
Case "fh"
Unload Me
Case "bz"
Call F1bz
End Select
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -