ProgressInStatusBar.bas from convert ogm, mkv to avi with subtitle at Krugle

Show ProgressInStatusBar.bas syntax highlighted


Attribute VB_Name = "ProgressInStatusBar"
'Simple Function to Show Progress In StatusBar
'Author: Mario Flores G
'E-mail: sistec_de_juarez@hotmail.com


'{{{8 May 2oo4... Little Add}}}}
'StatusBar.Panels(PanelNumber).Width = Progress.Width + 15
'Automatically Expand Selected StatusBar Panel Width ....
'Can Make the same for the Height but looks ugly when Progress is to Big..(My point of view)

'CD JUAREZ CHIHUAHUA MEXICO

Private Declare Function SendMessageAny Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal msg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long

Private Type RECT
  Left        As Long
  Top         As Long
  Right       As Long
  Bottom      As Long
End Type

Const WM_USER    As Long = &H400
Const SB_GETRECT As Long = (WM_USER + 10)


Public Sub ShowProgressInStatusBar(ByRef Progress As Control, ByRef StatusBar As StatusBar, ByVal PanelNumber As Long)

    Dim TRC As RECT
    
        StatusBar.Panels(PanelNumber).Width = Progress.Width + 15
        SendMessageAny StatusBar.hwnd, SB_GETRECT, PanelNumber - 1, TRC
       
       'Set The ProgressBar Parent's Window = StatusBar
       'Center The ProgressBar in the Selected Panel (PanelNumber)
         
        With Progress
            SetParent .hwnd, StatusBar.hwnd
            .Move TRC.Left + ((TRC.Right - TRC.Left) / 2) - (.Width / 2), TRC.Top + ((TRC.Bottom - TRC.Top) / 2) - (.Height / 2), .Width, .Height
            .Visible = True
            .Value = 0
        End With
        
End Sub

See more files for this project here

convert ogm, mkv to avi with subtitle

A program that batch convert ogm, mkv to avi, with subtitle and audio track selection, video resizing, bitrate selection and codec selection. It is centered around mencoder, with a commandline tool as well as a GUI for Window

Project homepage: http://sourceforge.net/projects/alltoavi
Programming language(s): JavaScript,PHP,Visual Basic
License: other

  Pics/
    1.jpg
    10.jpg
    2.jpg
    3.jpg
    4.jpg
    5.jpg
    6.jpg
    7.jpg
    8.jpg
    9.jpg
    Thumbs.db
  Form1.frm
  Form1.frx
  Form2.frm
  Form3.frm
  Form3.frx
  Form4.frm
  ProgressInStatusBar.bas
  Project1.exe
  Project1.vbp
  Project1.vbw
  UserControl1.ctl
  UserControl1.ctx