Show modRGB.bas syntax highlighted
Attribute VB_Name = "modRGB"
Public Sub GetRGB(ByVal Collective As Long, red As Long, green As Long, blue As Long)
If Collective < 0 Then Collective = RGB(105, 105, 255) 'System color replacer
Dim x As Long
x = Int(Collective / 65536)
blue = x
Collective = Collective - x * 65536
x = Int(Collective / 256)
green = x
red = Collective - x * 256
End Sub
See more files for this project here
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
Advertising Test/
Project1.vbp
Project1.vbw
frmMain.frm
frmMain.frx
Test Project/
Test.exe.MANIFEST
test.frm
test.frx
test.log
test.vbp
test.vbw
@PSC_ReadMe_32527_1.txt
APB.VBL
APB.exp
APB.lib
APB.ocx
About.pag
About.pgx
AdvProgressBar.ctl
AdvProgressBar.ctx
Advanced_Progress_Bar.vbp
Advanced_Progress_Bar.vbw
GRP.vbg
Group1.vbg
ReleaseNotes.bas
Settings.pag
Settings.pgx
bar.jpg
icon.bmp
modRGB.bas