www.pudn.com > AVPhone.zip > Form3.frm

VERSION 5.00 
Object = "{66F6EA70-DB60-4BD1-ABF7-079F8EE24AD9}#9.0#0"; "AVPhone.ocx" 
Begin VB.Form Form3  
   Caption         =   "Local Video" 
   ClientHeight    =   2370 
   ClientLeft      =   1050 
   ClientTop       =   1410 
   ClientWidth     =   3645 
   Icon            =   "Form3.frx":0000 
   LinkTopic       =   "Form3" 
   ScaleHeight     =   2370 
   ScaleWidth      =   3645 
   ShowInTaskbar   =   0   'False 
   Begin AVPhone.VidRnd VidRnd1  
      Height          =   2160 
      Left            =   30 
      Top             =   30 
      Width           =   2640 
      _ExtentX        =   4657 
      _ExtentY        =   3810 
      AVPhone         =   "Form3.frx":000C 
   End 
End 
Attribute VB_Name = "Form3" 
Attribute VB_GlobalNameSpace = False 
Attribute VB_Creatable = False 
Attribute VB_PredeclaredId = True 
Attribute VB_Exposed = False 
Option Explicit 
 
 
Private Sub Form_Load() 
    On Error Resume Next 
    VidRnd1.Move 0, 0 
    VidRnd1_Resize 
End Sub 
 
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) 
    If UnloadMode = vbFormControlMenu Then 
        Cancel = True 
        On Error Resume Next 
        Hide 
    End If 
End Sub 
 
Private Sub Form_Resize() 
    On Error Resume Next 
    With VidRnd1 
        .Move 0, 0, ScaleWidth, ScaleHeight 
    End With 
End Sub 
 
Private Sub VidRnd1_Click() 
    On Error GoTo ErrorHandle 
    ShowClick 
    Exit Sub 
     
ErrorHandle: 
    ShowErr 
End Sub 
 
Private Sub VidRnd1_DriverOpened() 
    On Error GoTo ErrorHandle 
     
    Dim s As String 
    s = UCase$(VidRnd1.Decompressor) 
     
    Select Case s 
    Case Else 
    End Select 
     
    Exit Sub 
     
ErrorHandle: 
    ShowErr 
End Sub 
 
Private Sub VidRnd1_ContextMenu() 
    On Error GoTo ErrorHandle 
    PopupMenu Form1.mnuView 
    Exit Sub 
     
ErrorHandle: 
    ShowErr 
End Sub 
 
Private Sub VidRnd1_Resize() 
    On Error Resume Next 
    With VidRnd1 
        Move Left, Top, .Width + Width - ScaleWidth, .Height + Height - ScaleHeight 
    End With 
End Sub