frmphotozoom.frm

1、以DLL形式提供医生工作站 2、 根据【检查项目】

VERSION 5.00
Begin VB.Form frmPhotoZoom 
   BackColor       =   &H00354B34&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "缩放比例"
   ClientHeight    =   780
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   3675
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   780
   ScaleWidth      =   3675
   Begin VB.CommandButton btnOk 
      BackColor       =   &H8000000E&
      Caption         =   "确定"
      Height          =   375
      Left            =   2400
      TabIndex        =   1
      Top             =   240
      Width           =   1095
   End
   Begin VB.ComboBox cmbProportion 
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   330
      ItemData        =   "frmPhotoZoom.frx":0000
      Left            =   480
      List            =   "frmPhotoZoom.frx":0010
      TabIndex        =   0
      Top             =   240
      Width           =   1575
   End
End
Attribute VB_Name = "frmPhotoZoom"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False


Option Explicit

Private Sub btnOk_Click()
    If Trim(cmbProportion.Text) <> "" Then
        PHOTO_ZOOM_PROPORTION = CInt(Trim(cmbProportion.Text))
    Else
        'PHOTO_ZOOM_PROPORTION =
    End If
    
    Unload Me
End Sub

Private Sub cmbProportion_KeyPress(KeyAscii As Integer)
    If (KeyAscii < Asc("0") Or KeyAscii > Asc("9")) And KeyAscii <> 8 Then
        KeyAscii = 0
    End If
    
End Sub