printlook.frm

两个VB播放器 两个VB播放器 两个VB播放器 两个VB播放器

VERSION 5.00
Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX"
Begin VB.Form Form4 
   Caption         =   "打印预览"
   ClientHeight    =   11115
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   15240
   Icon            =   "PrintLook.frx":0000
   LinkTopic       =   "Form4"
   ScaleHeight     =   11115
   ScaleWidth      =   15240
   StartUpPosition =   2  '屏幕中心
   WindowState     =   2  'Maximized
   Begin VB.CommandButton Command1 
      Caption         =   "减小缩进(&X)"
      Height          =   375
      Index           =   5
      Left            =   10800
      TabIndex        =   7
      Top             =   120
      Width           =   1335
   End
   Begin VB.CommandButton Command1 
      Caption         =   "增加缩进(&I)"
      Height          =   375
      Index           =   4
      Left            =   9120
      TabIndex        =   6
      Top             =   120
      Width           =   1335
   End
   Begin VB.CommandButton Command1 
      Caption         =   "下一页(&D)"
      Height          =   375
      Index           =   3
      Left            =   7560
      TabIndex        =   5
      Top             =   120
      Width           =   1335
   End
   Begin VB.CommandButton Command1 
      Caption         =   "上一页(&U)"
      Height          =   375
      Index           =   2
      Left            =   6000
      TabIndex        =   4
      Top             =   120
      Width           =   1335
   End
   Begin VB.CommandButton Command1 
      Caption         =   "缩小(&S)"
      Height          =   375
      Index           =   1
      Left            =   4440
      TabIndex        =   3
      Top             =   120
      Width           =   1335
   End
   Begin VB.CommandButton Command1 
      Caption         =   "放大(&L)"
      Height          =   375
      Index           =   0
      Left            =   2880
      TabIndex        =   2
      Top             =   120
      Width           =   1335
   End
   Begin RichTextLib.RichTextBox Ric2 
      Height          =   9015
      Left            =   4200
      TabIndex        =   1
      Top             =   1320
      Width           =   7575
      _ExtentX        =   13361
      _ExtentY        =   15901
      _Version        =   393217
      BorderStyle     =   0
      ReadOnly        =   -1  'True
      MousePointer    =   1
      BulletIndent    =   1000
      Appearance      =   0
      TextRTF         =   $"PrintLook.frx":030A
   End
   Begin VB.Label Label1 
      BackColor       =   &H00808080&
      Height          =   7215
      Left            =   600
      TabIndex        =   0
      Top             =   600
      Width           =   8295
   End
End
Attribute VB_Name = "Form4"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click(index As Integer)
   Select Case index
     Case 0
       Ric2.Move 2280, 720, 10575, 10215
       'Ric2.Top = 2280
       'Ric2.Left = 720
       'Ric2.Width = 10575
      ' Ric2.Height = 10215
       Ric2.SelStart = 0
       Ric2.SelLength = Len(Ric2.Text)
       Ric2.SelFontName = "宋体"
       Ric2.SelFontSize = 15
       Ric2.SelLength = 0
     Case 1
       Ric2.Move 4200, 1320, 7575, 9015
       'Ric2.Top = 4200
       'Ric2.Left = 1320
       'Ric2.Width = 7575
       'Ric2.Height = 9015
       Ric2.SelStart = 0
       Ric2.SelLength = Len(Ric2.Text)
       Ric2.SelFontName = "宋体"
       Ric2.SelFontSize = 9
       Ric2.SelLength = 0
     Case 2
       MsgBox "此功能不可用", vbOKOnly + vbExclamation, "提示"
     Case 3
       MsgBox "此功能不可用", vbOKOnly + vbExclamation, "提示"
     Case 4
       Ric2.SelStart = 0
       Ric2.SelLength = Len(Ric2.Text)
       Ric2.SelIndent = Ric2.SelIndent + 200
       Ric2.SelLength = 0
     Case 5
       Ric2.SelStart = 0
       Ric2.SelLength = Len(Ric2.Text)
       Ric2.SelIndent = Ric2.SelIndent - 200
       Ric2.SelLength = 0
   End Select
End Sub

Private Sub Form_Load()
 On Error Resume Next
 Label1.Top = 600
 Label1.Left = 0
 Label1.Height = Form4.Height - 600
 Label1.Width = Form4.Width
 Ric2.Text = Form3.Ric.Text
 Ric2.SelStart = 0
 Ric2.SelLength = Len(Ric2.Text)
 Ric2.SelIndent = 1000
 Ric2.SelLength = 0
 'Ric2.Top = Label1.Top + 1000
 'Ric2.Left = Label1.Left + 2000
End Sub

Private Sub Form_Resize()
  On Error Resume Next
  Label1.Height = Form4.Height - 600
  Label1.Width = Form4.Width
  Form4.Width = Screen.Width
  Form4.Height = Screen.Height
  'Ric2.Height = Form4.Height + 3000
  'Ric2.Width = Form4.Width + 1000
End Sub