picshowin5form.frm

内窥镜图案工作站有说明 有文档 有应用程序

VERSION 5.00
Begin VB.Form PicShowIn5Form 
   BorderStyle     =   0  'None
   Caption         =   "Form1"
   ClientHeight    =   8505
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   10155
   LinkTopic       =   "Form1"
   ScaleHeight     =   8505
   ScaleWidth      =   10155
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.CommandButton CmdBSure 
      Caption         =   "确  定"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   4320
      TabIndex        =   0
      Top             =   7920
      Width           =   1575
   End
   Begin VB.Image ImageShowPic 
      Height          =   7695
      Left            =   120
      Stretch         =   -1  'True
      Top             =   120
      Width           =   9855
   End
   Begin VB.Shape ShapeInPicShow 
      Height          =   8460
      Left            =   0
      Top             =   0
      Width           =   10140
   End
End
Attribute VB_Name = "PicShowIn5Form"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'窗体作用:
'         显示主窗体诊断编辑模块中的图像,由于该模块下方滚动的图片太小,当想查看图片中的数据时不方便,因此双击图片后就可以打
'         开本窗体,查看放大后的图片.此举,不需要用户再点击采集影像模块查看
Private Sub CmdBSure_Click()

    Unload Me    '点击确定之后卸载窗体

End Sub

Private Sub CmdBSure_LostFocus()

    Unload Me    '由于本窗体只有一个按钮,而且也只有确定按钮能够获得焦点,所以当其失去焦点时,卸载窗体

End Sub