movie.frm

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

VERSION 5.00
Begin VB.Form Form4 
   BackColor       =   &H00FF0000&
   Caption         =   "蓝霞家庭音乐视听系统"
   ClientHeight    =   4110
   ClientLeft      =   3705
   ClientTop       =   615
   ClientWidth     =   5265
   Icon            =   "movie.frx":0000
   LinkTopic       =   "Form4"
   MaxButton       =   0   'False
   ScaleHeight     =   4110
   ScaleWidth      =   5265
   Begin VB.PictureBox Picture1 
      AutoSize        =   -1  'True
      BackColor       =   &H00FF0000&
      BorderStyle     =   0  'None
      ForeColor       =   &H00404040&
      Height          =   4095
      Left            =   0
      ScaleHeight     =   4095
      ScaleWidth      =   5295
      TabIndex        =   0
      Top             =   0
      Width           =   5295
      Begin VB.Timer Timer1 
         Interval        =   1000
         Left            =   720
         Top             =   600
      End
      Begin VB.Label Label2 
         BackStyle       =   0  'Transparent
         Caption         =   "全新感觉    全新享受"
         ForeColor       =   &H00FFFF80&
         Height          =   255
         Left            =   1560
         TabIndex        =   6
         Top             =   2280
         Width           =   2175
      End
      Begin VB.Label Label1 
         BackStyle       =   0  'Transparent
         ForeColor       =   &H00FFFF00&
         Height          =   255
         Left            =   0
         TabIndex        =   5
         Top             =   3840
         Width           =   9375
      End
      Begin VB.Label Label7 
         BackColor       =   &H00FF0000&
         Caption         =   "蓝霞家庭音乐视听"
         BeginProperty Font 
            Name            =   "文鼎中特广告体"
            Size            =   21.75
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H0080FFFF&
         Height          =   495
         Left            =   840
         TabIndex        =   3
         Top             =   960
         Width           =   3615
      End
      Begin VB.Label Label6 
         BackColor       =   &H00FF0000&
         Caption         =   " LXVCD V6.0"
         BeginProperty Font 
            Name            =   "Small Fonts"
            Size            =   12
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00FFFF00&
         Height          =   375
         Left            =   1800
         TabIndex        =   2
         Top             =   1560
         Width           =   1815
      End
      Begin VB.Label Label8 
         BackColor       =   &H00FF0000&
         Caption         =   "全面支持 VCD,AVI,MP3,MPEG,Movie格式"
         ForeColor       =   &H00FFFFFF&
         Height          =   255
         Left            =   1080
         TabIndex        =   1
         Top             =   3000
         Width           =   3495
      End
      Begin VB.Line Line1 
         BorderColor     =   &H00FFFFFF&
         X1              =   360
         X2              =   4920
         Y1              =   3360
         Y2              =   3360
      End
   End
   Begin VB.PictureBox Picture2 
      Height          =   255
      Left            =   0
      Picture         =   "movie.frx":0442
      ScaleHeight     =   195
      ScaleWidth      =   6315
      TabIndex        =   4
      Top             =   4680
      Width           =   6375
   End
End
Attribute VB_Name = "Form4"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit


Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
ReleaseCapture

SendMessage Form4.hWnd, WM_SYSCOMMAND, SC_MOVE, 0
End Sub

Private Sub Form_Resize()
Picture1.Width = Form4.Width
Picture1.Top = 120
Picture1.Left = 0
End Sub

Private Sub Form_Unload(Cancel As Integer)
Form2.Timer1.Enabled = False
Form2.Label9.Caption = "状态:停止..."
 Form2.Label11.Caption = ""
   Form2.Label12.Caption = ""
    Form2.Label13.Caption = ""
Form2.MMControl1.Command = "stop"
Form2.MMControl1.Command = "close"
Form2.f31.Enabled = False
End Sub

Private Sub Label6_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbRightButton Then
    Me.PopupMenu Form2.f2
End If
If Button = vbLeftButton Then
    Form2.Show
End If
End Sub


Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
ReleaseCapture

SendMessage Form4.hWnd, WM_SYSCOMMAND, SC_MOVE, 0
If Button = vbRightButton Then
    Me.PopupMenu Form2.f2
End If
If Button = vbLeftButton Then
    Form2.Show
End If
End Sub

Private Sub Picture2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
ReleaseCapture

SendMessage Form4.hWnd, WM_SYSCOMMAND, SC_MOVE, 0
End Sub