fullscrdspphotoform.frm

群里的通讯录管理 供参考 学习专用 无其他商业意义 源码较为简单

VERSION 5.00
Begin VB.Form FullScrDspPhotoForm 
   BackColor       =   &H00FFFFFF&
   BorderStyle     =   0  'None
   ClientHeight    =   3615
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   4785
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form1"
   ScaleHeight     =   3615
   ScaleWidth      =   4785
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   WindowState     =   2  'Maximized
   Begin VB.Image imageCtl 
      Height          =   2655
      Left            =   840
      Stretch         =   -1  'True
      Top             =   120
      Width           =   2415
   End
End
Attribute VB_Name = "FullScrDspPhotoForm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'***********************************************************************
'* 文件名： FullScrDspPhotoForm.frm
'* 说  明： 全屏显示像片窗口
'* 版  本： 2005.12.16 颜志军 初版
'***********************************************************************

Option Explicit

'***********************************************************************
'模块级变量定义
Public g_FileName As String       '要显示的图像文件名

'***********************************************************************
'* 过程名：Form_Activate
'* 功  能：窗体Activate事件响应
'* 参  数：
'* 版  本：2005.12.16 颜志军 初版
'***********************************************************************
Private Sub Form_Activate()
    '将IMAGE控件扩大为全窗口
    imageCtl.Left = 0
    imageCtl.Top = 0
    imageCtl.Height = Me.Height
    imageCtl.Width = Me.Width
    
    '显示图像
    DspPhoto imageCtl, g_FileName
End Sub

'***********************************************************************
'* 过程名：Form_KeyPress
'* 功  能：键盘PRESS事件响应
'* 参  数：
'* 版  本：2005.12.16 颜志军 初版
'***********************************************************************
Private Sub Form_KeyPress(KeyAscii As Integer)
    Unload Me
End Sub

'***********************************************************************
'* 过程名：Form_MouseUp
'* 功  能：鼠标MouseUp事件响应
'* 参  数：
'* 版  本：2005.12.16 颜志军 初版
'***********************************************************************
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, _
        x As Single, y As Single)
    Unload Me
End Sub

'***********************************************************************
'* 过程名：imageCtl_MouseUp
'* 功  能：IMAGE控件鼠标MouseUp事件响应
'* 参  数：
'* 版  本：2005.12.16 颜志军 初版
'***********************************************************************
Private Sub imageCtl_MouseUp(Button As Integer, Shift As Integer, _
            x As Single, y As Single)
    Unload Me
End Sub