frmbuttons.frm

Visual Basic 6 大学教程的代码

VERSION 5.00
Begin VB.Form frmButtons 
   AutoRedraw      =   -1  'True
   BackColor       =   &H00C0C0C0&
   Caption         =   "Fig. 12.5: Mouse Buttons"
   ClientHeight    =   2100
   ClientLeft      =   2865
   ClientTop       =   1950
   ClientWidth     =   4470
   LinkTopic       =   "Form1"
   ScaleHeight     =   2100
   ScaleWidth      =   4470
   Begin VB.Image imgImage 
      Height          =   1575
      Left            =   1440
      Top             =   240
      Width           =   1695
   End
End
Attribute VB_Name = "frmButtons"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
' Fig. 12.5
' Mouse buttons
Option Explicit      ' General declaration

Private Sub Form_Load()
   imgImage.Picture = LoadPicture("d:\images\ch12\mouse0.gif")
End Sub

Private Sub Form_MouseDown(Button As Integer, _
                           Shift As Integer, X As Single, _
                           Y As Single)
   Call SetPressedImage(Button)
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, _
                         X As Single, Y As Single)
                       
   Call SetReleasedImage
End Sub

Private Sub imgImage_MouseDown(Button As Integer, _
                               Shift As Integer, _
                               X As Single, Y As Single)
   Call SetPressedImage(Button)
End Sub

Private Sub imgImage_MouseUp(Button As Integer, _
                             Shift As Integer, _
                             X As Single, Y As Single)
   Call SetReleasedImage
End Sub

Private Sub SetPressedImage(b As Integer)
   imgImage.Picture = LoadPicture("d:\images\ch12\mouse" & _
                                  b & ".gif")
End Sub

Private Sub SetReleasedImage()
   imgImage.Picture = LoadPicture("d:\images\ch12\mouse0.gif")
End Sub