dlgbackground.frm

本系统可用于医院和专业体检中心的健康体检管理

VERSION 5.00
Begin VB.Form dlgBackGround 
   BorderStyle     =   0  'None
   ClientHeight    =   9120
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   11685
   LinkTopic       =   "Form1"
   ScaleHeight     =   9120
   ScaleWidth      =   11685
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  'Windows Default
   WindowState     =   2  'Maximized
   Begin VB.Image Img1 
      Appearance      =   0  'Flat
      BorderStyle     =   1  'Fixed Single
      Height          =   11550
      Left            =   -2820
      Picture         =   "dlgBackGround.frx":0000
      Top             =   -570
      Width           =   15390
   End
End
Attribute VB_Name = "dlgBackGround"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub Form_Load()
  
    Me.Left = 0
    Me.Top = 0
    
    Img1.Left = 0
    Img1.Width = Me.Width
    Img1.Top = 0
    Img1.Height = Me.Height
    
    Img1.Picture = LoadPicture(App.Path & "\BackGround\bttjbackground.jpg", vbLPLarge, vbLPColor)
    
    If genuVersion = WLB Then
        Unload frmSplash
    ElseIf genuVersion = ZYB Then
        Unload FrmZYB_Splash
    ElseIf genuVersion = BZB Then
        Unload FrmBZB_Splash
    ElseIf genuVersion = PJB Then
        Unload FrmPJB_Splash
    End If

'    Load FrmLogin
'    FrmLogin.Show vbModal

End Sub

Private Sub Form_Resize()
    Img1.Left = 0
    Img1.Width = Me.Width
    Img1.Top = 0
    Img1.Height = Me.Height
    Img1.Stretch = True

End Sub

Private Sub Img1_Click()
    FrmLogin.Show
End Sub

Private Sub Img1_DblClick()
    FrmLogin.Show
End Sub