form1.frm

利用AutoCAD二次开发进行油田井下数据采集与数据编辑

VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "Comdlg32.ocx"
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   5265
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   8445
   LinkTopic       =   "Form1"
   ScaleHeight     =   5265
   ScaleWidth      =   8445
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton Command4 
      Caption         =   "画"
      Height          =   375
      Left            =   5280
      TabIndex        =   4
      Top             =   4680
      Width           =   1095
   End
   Begin MSComDlg.CommonDialog CommonDialog1 
      Left            =   1800
      Top             =   4680
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
   End
   Begin VB.CommandButton Command3 
      Caption         =   "退出"
      Height          =   375
      Left            =   3720
      TabIndex        =   3
      Top             =   4680
      Width           =   1095
   End
   Begin VB.CommandButton Command2 
      Caption         =   "打开"
      Height          =   375
      Left            =   2160
      TabIndex        =   2
      Top             =   4680
      Width           =   1095
   End
   Begin VB.CommandButton Command1 
      Caption         =   "擦除"
      Height          =   375
      Left            =   480
      TabIndex        =   1
      Top             =   4680
      Width           =   975
   End
   Begin VB.PictureBox Picture1 
      AutoSize        =   -1  'True
      Height          =   4215
      Left            =   120
      ScaleHeight     =   73.29
      ScaleMode       =   6  'Millimeter
      ScaleWidth      =   138.906
      TabIndex        =   0
      Top             =   120
      Width           =   7935
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Picture1.Cls
End Sub

Private Sub Command2_Click()
CommonDialog1.DialogTitle = "打开文件"
CommonDialog1.Filter = "所有格式" + "(*.bmp)"
CommonDialog1.ShowOpen
If CommonDialog1.FileName <> "" Then
If Err <> 32855 Then

Dim openfilename As String
openfilename = CommonDialog1.FileName
Picture1.Picture = LoadPicture(openfilename)
End If
End If
Picture1.Line (0, 0)-(20, 0), RGB(255, 255, 1)
Picture1.Line (0, 0)-(0, 20), RGB(255, 255, 1)
End Sub

Private Sub Command3_Click()
Me.Hide
End Sub

Private Sub Command4_Click()
Picture1.PSet (365, 0), RGB(255, 0, 1)
Picture1.PSet (365, 77), RGB(255, 0, 2)
Picture1.PSet (397, 77), RGB(255, 0, 0)
Picture1.PSet (0, 0), RGB(255, 0, 0)
Picture1.PSet (582, 0), RGB(255, 0, 0)
End Sub

Private Sub Form_Load()

Form1.ScaleMode = 0
Form1.ScaleMode = 6
'Formly.Scale (-50, -50)-(700, 400)

Picture1.ScaleMode = 0
Picture1.ScaleMode = 6
Picture1.Scale (-30, -30)-(602, 282)


End Sub