form2.frm

这是卫星通信方向图测量软件 采用了VB编程

VERSION 5.00
Object = "{50F16B18-467E-11D1-8271-00C04FC3183B}#1.0#0"; "shimgvw.dll"
Begin VB.Form Form2 
   Caption         =   "Form2"
   ClientHeight    =   8970
   ClientLeft      =   60
   ClientTop       =   510
   ClientWidth     =   10575
   LinkTopic       =   "Form2"
   ScaleHeight     =   8970
   ScaleWidth      =   10575
   StartUpPosition =   3  '窗口缺省
   Begin VB.PictureBox Picture3 
      Appearance      =   0  'Flat
      AutoSize        =   -1  'True
      BackColor       =   &H00FFFFFF&
      BorderStyle     =   0  'None
      FontTransparent =   0   'False
      ForeColor       =   &H80000008&
      Height          =   480
      Left            =   7080
      Picture         =   "Form2.frx":0000
      ScaleHeight     =   480
      ScaleWidth      =   480
      TabIndex        =   5
      Top             =   7680
      Width           =   480
   End
   Begin VB.PictureBox Picture6 
      Appearance      =   0  'Flat
      AutoSize        =   -1  'True
      BackColor       =   &H80000005&
      BorderStyle     =   0  'None
      ForeColor       =   &H80000008&
      Height          =   360
      Left            =   6000
      Picture         =   "Form2.frx":0623
      ScaleHeight     =   360
      ScaleWidth      =   360
      TabIndex        =   4
      Top             =   7680
      Width           =   360
   End
   Begin VB.PictureBox Picture5 
      Appearance      =   0  'Flat
      AutoSize        =   -1  'True
      BackColor       =   &H80000005&
      BorderStyle     =   0  'None
      ForeColor       =   &H80000008&
      Height          =   360
      Left            =   5040
      Picture         =   "Form2.frx":09E2
      ScaleHeight     =   360
      ScaleWidth      =   360
      TabIndex        =   3
      Top             =   7680
      Width           =   360
   End
   Begin VB.PictureBox Picture4 
      Appearance      =   0  'Flat
      AutoSize        =   -1  'True
      BackColor       =   &H80000005&
      BorderStyle     =   0  'None
      ForeColor       =   &H80000008&
      Height          =   360
      Left            =   3960
      Picture         =   "Form2.frx":0EB9
      ScaleHeight     =   360
      ScaleWidth      =   360
      TabIndex        =   2
      Top             =   7680
      Width           =   360
   End
   Begin VB.PictureBox ViewPic 
      Appearance      =   0  'Flat
      AutoSize        =   -1  'True
      BackColor       =   &H80000005&
      BorderStyle     =   0  'None
      ForeColor       =   &H80000008&
      Height          =   360
      Left            =   3000
      Picture         =   "Form2.frx":13B5
      ScaleHeight     =   360
      ScaleWidth      =   360
      TabIndex        =   1
      Top             =   7680
      Width           =   360
   End
   Begin PREVIEWLibCtl.Preview Preview1 
      Height          =   7215
      Left            =   240
      TabIndex        =   0
      Top             =   240
      Width           =   10095
   End
End
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()

With Form2
    .Height = 10680
    .Width = 12000
End With
End Sub


Private Sub Form_Resize()
Preview1.Height = Form2.Height - Preview1.Top * 12
Preview1.Width = Form2.Width - Preview1.Left * 3
Frame1.Top = Preview1.Height + Preview1.Top
Frame1.Left = Preview1.Width / 4 + Preview1.Left
End Sub


Private Sub Picture4_Click()
Preview1.Zoom 1 '放大
End Sub

Private Sub Picture5_Click()
Preview1.Zoom -1 '缩小
End Sub


Private Sub ViewPic_Click()
With Form2
 .CommonDialog1.filename = ""
 .CommonDialog1.InitDir = App.Path & "\Picture\"
 .CommonDialog1.DialogTitle = "Open"
 .CommonDialog1.Filter = "图像文件(*.bmp)|*.bmp"
 .CommonDialog1.DefaultExt = "*.bmp"
 .CommonDialog1.ShowOpen
 Preview1.ShowFile .CommonDialog1.filename, 0
End With
End Sub