form1.frm

来自「用来测试的工具」· FRM 代码 · 共 37 行

VERSION 5.00
Object = "{6307A290-67B8-11D0-8744-0000C06B6F77}#1.3#0"; "DWGTHU~1.OCX"
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   6945
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   9030
   LinkTopic       =   "Form1"
   ScaleHeight     =   6945
   ScaleWidth      =   9030
   StartUpPosition =   3  'Windows Default
   Begin DWGTHUMBNAILLib.DwgThumbnail DwgThumbnail1 
      DragIcon        =   "Form1.frx":0000
      Height          =   6855
      Left            =   -225
      TabIndex        =   0
      Top             =   -225
      Width           =   8835
      _Version        =   65539
      _ExtentX        =   15584
      _ExtentY        =   12091
      _StockProps     =   161
      BackColor       =   -2147483634
      BorderStyle     =   1
      Appearance      =   1
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
  DwgThumbnail1.DwgFileName = "C:\Program Files\ACAD2000\SAMPLE\1st floor lighting.dwg"
End Sub