www.pudn.com > pdng22src.zip > frmSub.frm

VERSION 5.00 
Begin VB.Form frmSub  
   AutoRedraw      =   -1  'True 
   BorderStyle     =   0  'None 
   Caption         =   "Subtitles" 
   ClientHeight    =   4560 
   ClientLeft      =   3795 
   ClientTop       =   5295 
   ClientWidth     =   7020 
   KeyPreview      =   -1  'True 
   LinkTopic       =   "Form1" 
   MaxButton       =   0   'False 
   MinButton       =   0   'False 
   ScaleHeight     =   4560 
   ScaleWidth      =   7020 
   ShowInTaskbar   =   0   'False 
   Begin VB.Label Sub2  
      Alignment       =   2  'Center 
      AutoSize        =   -1  'True 
      BackStyle       =   0  'Transparent 
      BeginProperty Font  
         Name            =   "Verdana" 
         Size            =   18 
         Charset         =   0 
         Weight          =   700 
         Underline       =   0   'False 
         Italic          =   0   'False 
         Strikethrough   =   0   'False 
      EndProperty 
      ForeColor       =   &H00FFFFFF& 
      Height          =   435 
      Left            =   2760 
      TabIndex        =   2 
      Top             =   495 
      UseMnemonic     =   0   'False 
      Width           =   135 
   End 
   Begin VB.Label Sub3  
      Alignment       =   2  'Center 
      AutoSize        =   -1  'True 
      BackStyle       =   0  'Transparent 
      BeginProperty Font  
         Name            =   "Verdana" 
         Size            =   18 
         Charset         =   0 
         Weight          =   700 
         Underline       =   0   'False 
         Italic          =   0   'False 
         Strikethrough   =   0   'False 
      EndProperty 
      ForeColor       =   &H00FFFFFF& 
      Height          =   435 
      Left            =   2760 
      TabIndex        =   1 
      Top             =   930 
      UseMnemonic     =   0   'False 
      Width           =   135 
   End 
   Begin VB.Label Sub1  
      Alignment       =   2  'Center 
      AutoSize        =   -1  'True 
      BackStyle       =   0  'Transparent 
      BeginProperty Font  
         Name            =   "Verdana" 
         Size            =   18 
         Charset         =   0 
         Weight          =   700 
         Underline       =   0   'False 
         Italic          =   0   'False 
         Strikethrough   =   0   'False 
      EndProperty 
      ForeColor       =   &H00FFFFFF& 
      Height          =   435 
      Left            =   2760 
      TabIndex        =   0 
      Top             =   75 
      UseMnemonic     =   0   'False 
      Width           =   135 
   End 
   Begin VB.Image Image2  
      Height          =   3120 
      Left            =   0 
      Picture         =   "frmSub.frx":0000 
      Stretch         =   -1  'True 
      Top             =   0 
      Width           =   10500 
   End 
End 
Attribute VB_Name = "frmSub" 
Attribute VB_GlobalNameSpace = False 
Attribute VB_Creatable = False 
Attribute VB_PredeclaredId = True 
Attribute VB_Exposed = False 
Public benalorsx 
Public benalorsy 
Public LecVis As Boolean 
 
Private Sub Form_Activate() 
ResetSub 
End Sub 
 
Private Sub Form_GotFocus() 
ResetSub 
 
End Sub 
 
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) 
Select Case KeyCode 
Case 87 
frmMain.Previous 
Case 88 
frmMain.PlayMovie 
Case 67 
frmMain.PauseMovie 
Case 86 
frmMain.StopMovie 
Case 66 
frmMain.NextMovie 
Case 79 
frmMain.OpenMovie 
Case 90 
frmMain.FullScrMode 
Case 173 
frmMain.MuteSound 
Case 175 
frmMain.VolumeUp 
Case 174 
frmMain.VolumeDown 
Case 77 
frmMain.MuteSound 
Case 107 
frmMain.VolumeUp 
Case 109 
frmMain.VolumeDown 
Case 80 'p 
frmMain.ShowPlayLst 
Case 83 's 
frmMain.ShowTracker 
Case Else 
'  Debug.Print KeyCode 
 
 
End Select 
 
End Sub 
 
Private Sub Form_Load() 
ResetSub 
End Sub 
 
 
Private Sub Form_Resize() 
ResetSub 
End Sub 
 
Private Sub Image2_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) 
benalorsx = Me.Width / 2 
benalorsy = Me.Height / 2 
 
End Sub 
 
Private Sub Image2_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single) 
If Button = 1 Then 
 
If Not picVideoWindow.Height = Screen.Height Then 
Me.MousePointer = 99 
Dim CursorPoint As POINTAPI 
 
Call ScreenToClient(hWnd, CursorPoint) 
Call GetCursorPos(CursorPoint) 
 
Me.Left = (CursorPoint.x * 15) - benalorsx 
Me.Top = (CursorPoint.y * 15) - benalorsy 
picVideoWindow.Left = Me.Left 
picVideoWindow.Top = Me.Top 
End If 
 
End If 
 
End Sub 
 
Private Sub Image2_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single) 
If Button = 1 Then 
 
If picVideoWindow.Height = Screen.Height Then 
Select Case LecVis 
Case False 
frmMain.Show 
LecVis = True 
Case True 
frmSub.Show 
LecVis = False 
End Select 
 
End If 
 
End If 
 
End Sub 
 
Public Sub ResetSub() 
Image2.Width = Me.Width 
Image2.Height = Me.Height 
 
Sub1.Top = frmSub.Top + frmSub.Height - Sub1.Height * 4 
Sub2.Top = frmSub.Top + frmSub.Height - Sub1.Height * 3 
Sub3.Top = frmSub.Top + frmSub.Height - Sub1.Height * 2 
 
Sub1.Left = frmSub.Left + frmSub.Width / 2 - Sub1.Width / 2 
Sub2.Left = frmSub.Left + frmSub.Width / 2 - Sub2.Width / 2 
Sub3.Left = frmSub.Left + frmSub.Width / 2 - Sub3.Width / 2 
 
End Sub