form3.frm

来自「一款反编译VFP程序的代码的工具」· FRM 代码 · 共 47 行

VERSION 5.00
Begin VB.Form Form3 
   BackColor       =   &H00FFFFFF&
   Caption         =   "FoxTools 图片浏览器"
   ClientHeight    =   4590
   ClientLeft      =   5640
   ClientTop       =   3585
   ClientWidth     =   9720
   ClipControls    =   0   'False
   Icon            =   "Form3.frx":0000
   LinkTopic       =   "Form3"
   MinButton       =   0   'False
   ScaleHeight     =   4590
   ScaleWidth      =   9720
   StartUpPosition =   1  'CenterOwner
   Begin VB.PictureBox Picture1 
      BackColor       =   &H00FFFFFF&
      Height          =   4530
      Left            =   45
      MouseIcon       =   "Form3.frx":0442
      ScaleHeight     =   4470
      ScaleWidth      =   9600
      TabIndex        =   0
      Top             =   0
      Width           =   9660
   End
End
Attribute VB_Name = "Form3"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim UnsavedChanges As Boolean
Private Sub Form_Load()
    On Error GoTo ErrHandler
    Picture1.Picture = LoadPicture(EditFileName)
   ' Me.Caption = Me.Caption & EditFileName
    Exit Sub
ErrHandler:
MsgBox "发生错误!"
End Sub
Private Sub Form_Resize()
Picture1.Width = Abs(Me.Width - 335)
Picture1.Height = Abs(Me.Height - 600)
End Sub