QuickTime 2.0 Developer Kit/QuickTime 2.0 Developer Kit.iso/pc/windows/qtw_201/setup/samples/vbrowser/vbrowser.frm

Visual Basic Form | 1994-12-19 | 7.6 KB | 221 lines

VERSION 2.00
Begin Form VBrowser
   BackColor       =   &H00C0C0C0&
   BorderStyle     =   3  'Fixed Double
   Height          =   5025
   Icon            =   VBROWSER.FRX:0000
   Left            =   1005
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4620
   ScaleWidth      =   6555
   Top             =   1770
   Width           =   6675
   Begin Frame fraThumbNail
      BackColor       =   &H00C0C0C0&
      Height          =   1095
      Left            =   838
      TabIndex        =   2
      Top             =   3120
      Width           =   4880
      Begin PictureBox picThumbNail
         BackColor       =   &H00C0C0C0&
         BorderStyle     =   0  'None
         Height          =   915
         Index           =   4
         Left            =   3660
         ScaleHeight     =   915
         ScaleWidth      =   1215
         TabIndex        =   9
         Top             =   90
         Width           =   1220
      End
      Begin PictureBox picThumbNail
         BackColor       =   &H00C0C0C0&
         BorderStyle     =   0  'None
         Height          =   915
         Index           =   3
         Left            =   2440
         ScaleHeight     =   915
         ScaleWidth      =   1215
         TabIndex        =   8
         Top             =   90
         Width           =   1220
      End
      Begin PictureBox picThumbNail
         BackColor       =   &H00C0C0C0&
         BorderStyle     =   0  'None
         Height          =   915
         Index           =   2
         Left            =   1220
         ScaleHeight     =   915
         ScaleWidth      =   1215
         TabIndex        =   7
         Top             =   90
         Width           =   1220
      End
      Begin PictureBox picThumbNail
         BackColor       =   &H00C0C0C0&
         BorderStyle     =   0  'None
         Height          =   915
         Index           =   1
         Left            =   0
         ScaleHeight     =   915
         ScaleWidth      =   1215
         TabIndex        =   6
         Top             =   90
         Width           =   1220
      End
      Begin PictureBox picStripBottom
         BorderStyle     =   0  'None
         Height          =   90
         Left            =   0
         Picture         =   VBROWSER.FRX:0302
         ScaleHeight     =   90
         ScaleWidth      =   4875
         TabIndex        =   5
         Top             =   1005
         Width           =   4880
      End
      Begin PictureBox picStripTop
         BorderStyle     =   0  'None
         Height          =   90
         Left            =   0
         Picture         =   VBROWSER.FRX:0644
         ScaleHeight     =   90
         ScaleWidth      =   4875
         TabIndex        =   4
         Top             =   0
         Width           =   4880
      End
   End
   Begin Frame fraMovie
      BackColor       =   &H00C0C0C0&
      Height          =   2145
      Left            =   1875
      TabIndex        =   0
      Top             =   270
      Width           =   2805
      Begin QTMovie QTMovie
         AutoSize        =   -1  'True
         BackColor       =   &H00FFFFFF&
         BorderStyle     =   0  'None
         GrowBox         =   -1  'True
         Height          =   2145
         Left            =   0
         MovieName       =   "(none)"
         OffsetX         =   0
         OffsetY         =   0
         TabIndex        =   1
         Top             =   0
         Visible         =   0   'False
         Width           =   2805
      End
   End
   Begin Label lblFileName
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "lblFileName"
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   9.75
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   315
      Left            =   720
      TabIndex        =   3
      Top             =   2760
      Visible         =   0   'False
      Width           =   5075
   End
   Begin Image imgButtonLeft
      Height          =   420
      Left            =   240
      Picture         =   VBROWSER.FRX:0986
      Top             =   3480
      Width           =   420
   End
   Begin Image imgButtonRight
      Height          =   420
      Left            =   5895
      Picture         =   VBROWSER.FRX:10D0
      Top             =   3480
      Width           =   420
   End
Option Explicit
Sub Form_Paint ()
'   Draw a 3-D panel around each frame
    DrawPanel fraMovie
    DrawPanel fraThumbNail
End Sub
Sub Form_Unload (Cancel As Integer)
'   Dispose of all the thumbnail picture handles
    Dim i As Integer
    For i = 1 To NumberMovies
        VBDisposePicture MovieList(i).PicHandle
    Next i
End Sub
Sub imgButtonLeft_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
'   Display the left button down bitmap and calculate the array offset of
'   the first thumbnail
    imgButtonLeft.Picture = LoadPicture("lbtndn.bmp")
    If FirstOffset - 1 >= 0 Then
        FirstOffset = FirstOffset - 1
        ShowThumbNails
    End If
End Sub
Sub imgButtonLeft_MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single)
'   Display the left button up bitmap
    imgButtonLeft.Picture = LoadPicture("lbtnup.bmp")
End Sub
Sub imgButtonRight_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
'   Display the right button down bitmap and calculate the array offset of
'   the first thumbnail
    imgButtonRight.Picture = LoadPicture("rbtndn.bmp")
    If (FirstOffset + NUMTHUMBNAILS < NumberMovies) Then
        FirstOffset = FirstOffset + 1
        ShowThumbNails
    End If
End Sub
Sub imgButtonRight_MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single)
'   Display the right button up bitmap
    imgButtonRight.Picture = LoadPicture("rbtnup.bmp")
End Sub
Sub picThumbNail_DblClick (Index As Integer)
'   Set the movie name; the IgnoreClick setting prevents the movie image
'   from inverting twice on a double click
    IgnoreClick = True
    QTMovie.MovieName = MovieList(Index + FirstOffset).MovieName
    ShowMovie (Index + FirstOffset)
End Sub
Sub picThumbNail_MouseDown (Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
'   Invert the thumbnail bitmap; set the file name caption to the movie file
'   name and show it
    InvertPicture picThumbNail(Index)
    lblFileName.Caption = MovieList(Index + FirstOffset).MovieDesc
    lblFileName.Visible = True
End Sub
Sub picThumbNail_MouseUp (Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
'   If IgnoreClick is set turn it off and ignore the event (don't want to
'   doubly invert the thumbnail bitmap); else re-invert the thumbnail bitmap
'   and make the movie name label invisible
    If IgnoreClick Then
        IgnoreClick = False
    Else
        InvertPicture picThumbNail(Index)
        lblFileName.Visible = False
    End If
End Sub
Sub picThumbNail_Paint (Index As Integer)
'   Paint the thumbnail bitmap using the QuickTime VBDrawPicture function
    Dim osErr As Long
    Dim rc As RECT
    rc.left = 0
    rc.top = 0
    rc.right = picThumbNail(Index).Width
    rc.bottom = picThumbNail(Index).Height
    osErr = VBDrawPicture(picThumbNail(Index).hDC, MovieList(Index + FirstOffset).PicHandle, rc, 0&)
End Sub