frmbackground.frm

一个功能比较完善的远程抄表软件

VERSION 5.00
Begin VB.Form frmBackGround 
   BorderStyle     =   0  'None
   ClientHeight    =   6600
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   9630
   LinkTopic       =   "Form1"
   MDIChild        =   -1  'True
   ScaleHeight     =   6600
   ScaleWidth      =   9630
   ShowInTaskbar   =   0   'False
   Begin VB.Image imgBack 
      Height          =   4980
      Left            =   360
      Picture         =   "frmBackGround.frx":0000
      Stretch         =   -1  'True
      Top             =   240
      Width           =   8250
   End
End
Attribute VB_Name = "frmBackGround"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'****************************************************************************
'人人为我，我为人人
'枕善居收藏整理
'发布日期：2007/07/09
'描    述：CBB三表户外计量系统 Ver 5.2
'网    站：http://www.Mndsoft.com/  (VB6源码博客)
'网    站：http://www.VbDnet.com/   (VB.NET源码博客,主要基于.NET2005)
'e-mail  ：[e-mail]
'e-mail  ：[e-mail]
'OICQ    ：88382850
'          如果您有新的好的代码别忘记给枕善居哦!
'****************************************************************************


Private Sub Form_Load()
Dim backPic As String

    If UBound(curForm) > 0 Then
        curForm(UBound(curForm)).Enabled = False
    End If
    ReDim Preserve curForm(UBound(curForm) + 1)
    Set curForm(UBound(curForm)) = Me
    
    With imgBack
    .Left = 0
    .Top = 0
    backPic = App.Path & "\desktop.jpg"
    If Dir(backPic, vbNormal) <> "" Then
        On Error Resume Next
        imgBack.Picture = LoadPicture(backPic)
        On Error GoTo 0
    End If
    End With
End Sub

Private Sub Form_Resize()
    With imgBack
    .Width = Me.Width
    .Height = Me.Height
    End With
End Sub

Private Sub Form_Unload(Cancel As Integer)
    ReDim Preserve curForm(UBound(curForm) - 1)
    If UBound(curForm) > 0 Then
        curForm(UBound(curForm)).Enabled = True
    End If
End Sub