frmimagezoom.frm

VB6.0编写的医院影像系统

VERSION 5.00
Object = "{918E6E43-F23A-11D0-901E-0020AF7543C2}#5.0#0"; "fximg50g.ocx"
Begin VB.Form frmImageZoom 
   BorderStyle     =   4  'Fixed ToolWindow
   Caption         =   "放大/缩小窗口"
   ClientHeight    =   2250
   ClientLeft      =   45
   ClientTop       =   270
   ClientWidth     =   2970
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   Moveable        =   0   'False
   ScaleHeight     =   2250
   ScaleWidth      =   2970
   ShowInTaskbar   =   0   'False
   Begin FXIMG50GLib.FXImage FXImgView 
      Height          =   1500
      Left            =   240
      TabIndex        =   0
      Top             =   240
      Visible         =   0   'False
      Width           =   1710
      _Version        =   327680
      _ExtentX        =   3016
      _ExtentY        =   2646
      _StockProps     =   65
      BackColor       =   -2147483638
      Persistence     =   -1  'True
      _StdProps       =   2470893
      ErrStr          =   "JAMHAOMAADJOCHAENOONHMCOCLELFODDPPPFJLKMPFKDCK"
      ErrCode         =   135790796
      ErrInfo         =   -76893922
      AutoSize        =   2
      BorderColor     =   255
      FXEnabled       =   -1  'True
      ManagePalette   =   -1  'True
      BackColor       =   -2147483638
      Update          =   -1  'True
   End
End
Attribute VB_Name = "frmImageZoom"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Public Loaded As Boolean

Private Sub Form_Load()
    
    Me.Loaded = True
    
End Sub

Private Sub Form_Resize()
    
    FXImgView.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight
    
    '同时移动图像编辑窗体中拖动框的位置
    With frmImageEdit
        .FXImgDrag.width = FXImgView.width / .ViewRate
        .FXImgDrag.height = FXImgView.height / .ViewRate
        Call .UpdateCapturedImage(.FXImgDrag, frmImageEdit, .FXImgDrag.Left, .FXImgDrag.Top, 2)
        FXImgView.Picture = .FXImgDrag.Picture
    End With

End Sub

Private Sub Form_Unload(Cancel As Integer)
    
    Me.Loaded = False
    
    '关闭Zoom窗体,说明关闭局部察看功能,因此同时关闭拖动框
    frmImageEdit.FXImgDrag.Visible = False
    
End Sub