form6.frm

一个用vb和usb通信的一个实例,大家可以下载看看!

VERSION 5.00
Begin VB.Form Form6 
   Caption         =   "蓝霞家庭音乐视听系统"
   ClientHeight    =   6990
   ClientLeft      =   1830
   ClientTop       =   675
   ClientWidth     =   7650
   Icon            =   "Form6.frx":0000
   LinkTopic       =   "Form1"
   ScaleHeight     =   6990
   ScaleWidth      =   7650
   Begin VB.CommandButton Command1 
      Caption         =   "开始"
      Height          =   375
      Left            =   3480
      TabIndex        =   1
      Top             =   5760
      Width           =   1035
   End
   Begin VB.PictureBox Picture2 
      AutoSize        =   -1  'True
      Height          =   5280
      Left            =   0
      ScaleHeight     =   5220
      ScaleWidth      =   7620
      TabIndex        =   0
      Top             =   0
      Width           =   7680
   End
End
Attribute VB_Name = "Form6"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
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 Function CreateCompatibleDC Lib "gdi32" _
                (ByVal hdc As Long) As Long
Private Declare Function SelectObject Lib "gdi32" _
                (ByVal hdc As Long, ByVal hObject As Long) As Long
Private Declare Function DeleteDC Lib "gdi32" (ByVal hdc As Long) As Long
Const SRCCOPY = &HCC0020
Private Picture1 As New StdPicture

Private Sub Command1_Click()
Dim i As Long
Dim j As Long
Dim height5 As Long, width5 As Long
Dim hMemDc As Long

'stdPicture物件的度量单位是Himetric所以要转换成Pixel
height5 = ScaleY(Picture1.Height, vbHimetric, vbPixels)
If height5 > Picture2.ScaleHeight Then
   height5 = Picture2.ScaleHeight
End If
width5 = ScaleX(Picture1.Width, vbHimetric, vbPixels)
If width5 > Picture2.ScaleWidth Then
   width5 = Picture2.ScaleWidth
End If
'Create Memory DC
hMemDc = CreateCompatibleDC(Picture2.hdc)
'将Picture1的BitMap图指定给hMemDc
Call SelectObject(hMemDc, Picture1.Handle)
For i = height5 To 1 Step -1
    Call BitBlt(Picture2.hdc, 0, i, width5, 1, _
                hMemDc, 0, i, SRCCOPY)
    For j = i - 1 To 1 Step -1
        Call BitBlt(Picture2.hdc, 0, j, width5, 1, _
                hMemDc, 0, i, SRCCOPY)
    Next j
Next

Call DeleteDC(hMemDc)
End Sub

Private Sub Form_Load()
    Picture2.ScaleMode = 3 '设定成Pixel的度量单位
  'Set Picture1 = LoadPicture(App.Path & "\0052.jpg")
End Sub


Private Sub Form_Resize()
Picture2.Left = Me.Left
Picture2.ScaleHeight = Me.ScaleHeight
Picture2.ScaleWidth = Me.ScaleWidth
End Sub