form2.frm

51单片机低功耗地温检测的上位机软件 通过串口读取单片机ROM存储的温度数据并具有画出图象、记录测试时间、保存为文档保存等功能

VERSION 5.00
Begin VB.Form Form2 
   Caption         =   "Form2"
   ClientHeight    =   3915
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   6720
   LinkTopic       =   "Form2"
   ScaleHeight     =   3915
   ScaleWidth      =   6720
   StartUpPosition =   3  '窗口缺省
   Visible         =   0   'False
   Begin VB.CommandButton Command1 
      Caption         =   "Command1"
      Height          =   495
      Left            =   840
      TabIndex        =   2
      Top             =   3240
      Visible         =   0   'False
      Width           =   2055
   End
   Begin VB.PictureBox Picture2 
      Height          =   2655
      Left            =   3480
      ScaleHeight     =   2595
      ScaleWidth      =   2715
      TabIndex        =   1
      Top             =   120
      Width           =   2775
   End
   Begin VB.PictureBox Picture1 
      Height          =   2655
      Left            =   120
      Picture         =   "Form2.frx":0000
      ScaleHeight     =   2595
      ScaleWidth      =   2715
      TabIndex        =   0
      Top             =   120
      Width           =   2775
   End
End
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim hDC1 As Long
Dim hDC2 As Long
Dim k As Integer
Dim i, j As Integer
Dim w, h As Integer
Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)




 




Private Sub Command1_Click()
For i = 0 To w Step 1
Call BitBlt(hDC2, 0, 0, i, h, hDC1, w - i, 0, SRCCOPY)
Sleep (10)
Next i
End Sub

Private Sub Form_Load()
Picture1.ScaleMode = 3
Picture1.ScaleMode = 3
w = Picture1.ScaleWidth
h = Picture1.ScaleHeight

End Sub