Click here to Skip to main content
11,631,706 members (76,862 online)
Click here to Skip to main content
Add your own
alternative version

Play your AVI files with this DirectX video player

, 24 Apr 2013 CPOL 78.2K 5.3K 58
Plays AVI files using Microsoft's DirectX.AudioVideoPlayback.
dadsaviplayer-noexe.zip
DadsAVIPlayer
DadsAVIPlayer
ac0036-24.ico
bin
Release
app.publish
Application Files
DadsAVIPlayer_1_0_0_19
ac0036-24.ico.deploy
DadsAVIPlayer.exe.deploy
DadsAVIPlayer.exe.manifest
DadsAVIPlayer.application
DadsAVIPlayer.application
DadsAVIPlayer.exe.manifest
DadsAVIPlayer.vbproj.user
DadsAVIPlayer_TemporaryKey.pfx
My Project
Application.myapp
Settings.settings
publish
Application Files
DadsAVIPlayer_1_0_0_17
ac0036-24.ico.deploy
DadsAVIPlayer.application
DadsAVIPlayer.exe.deploy
DadsAVIPlayer.exe.manifest
DadsAVIPlayer_1_0_0_18
ac0036-24.ico.deploy
DadsAVIPlayer.application
DadsAVIPlayer.exe.deploy
DadsAVIPlayer.exe.manifest
DadsAVIPlayer_1_0_0_19
ac0036-24.ico.deploy
DadsAVIPlayer.application
DadsAVIPlayer.exe.deploy
DadsAVIPlayer.exe.manifest
DadsAVIPlayer.application
Resources
001_29.bmp
arrow_in.png
arrow_out.png
control_end.png
control_pause.png
control_play.png
control_stop.png
door.png
door_open.png
info.png
Video - AVI.png
DadsAVIPlayer.zip
ac0036-24.ico
ac0036-24.ico.deploy
DadsAVIPlayer.exe.deploy
DadsAVIPlayer.exe.manifest
DadsAVIPlayer.application
setup.exe
DadsAVIPlayer.application
DadsAVIPlayer.exe
DadsAVIPlayer.exe.manifest
DadsAVIPlayer.vbproj.user
DadsAVIPlayer_TemporaryKey.pfx
Application.myapp
Settings.settings
ac0036-24.ico.deploy
DadsAVIPlayer.application
DadsAVIPlayer.exe.deploy
DadsAVIPlayer.exe.manifest
ac0036-24.ico.deploy
DadsAVIPlayer.application
DadsAVIPlayer.exe.deploy
DadsAVIPlayer.exe.manifest
ac0036-24.ico.deploy
DadsAVIPlayer.application
DadsAVIPlayer.exe.deploy
DadsAVIPlayer.exe.manifest
DadsAVIPlayer.application
setup.exe
001_29.bmp
arrow_in.png
arrow_out.png
control_end.png
control_pause.png
control_play.png
control_stop.png
door.png
door_open.png
info.png
Video - AVI.png
Service References
rspPlayer-noexe.zip
rspPlayer
rspPlayer
bin
Release
mp3.ico
My Project
Application.myapp
Settings.settings
Resources
down.png
fileopen.png
info.png
Knob Shuffle On.png
Menu.png
next.png
player_pause.png
player_play.png
player_stop.png
playlist.png
previous.png
tag_white.png
up.png
rspPlayer.vbproj.user
rspPlayer.zip
Debug
gTrackBar.dll
rspPlayer.exe
mp3.ico
Application.myapp
Settings.settings
obj
Debug
TempPE
Release
TempPE
down.png
fileopen.png
info.png
Knob Shuffle On.png
Menu.png
next.png
player_pause.png
player_play.png
player_stop.png
playlist.png
previous.png
tag_white.png
up.png
rspPlayer.vbproj.user
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Form1
    Inherits System.Windows.Forms.Form

    'Form overrides dispose to clean up the component list.
    <System.Diagnostics.DebuggerNonUserCode()> _
    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
        Try
            If disposing AndAlso components IsNot Nothing Then
                components.Dispose()
            End If
        Finally
            MyBase.Dispose(disposing)
        End Try
    End Sub

    'Required by the Windows Form Designer
    Private components As System.ComponentModel.IContainer

    'NOTE: The following procedure is required by the Windows Form Designer
    'It can be modified using the Windows Form Designer.  
    'Do not modify it using the code editor.
    <System.Diagnostics.DebuggerStepThrough()> _
    Private Sub InitializeComponent()
        Me.components = New System.ComponentModel.Container
        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Form1))
        Me.MenuStrip1 = New System.Windows.Forms.MenuStrip
        Me.FileToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
        Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripSeparator
        Me.CommandsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
        Me.OptionsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
        Me.ToolStripMenuItem5 = New System.Windows.Forms.ToolStripSeparator
        Me.AboutToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
        Me.pnlVideo = New System.Windows.Forms.Panel
        Me.cmVideo = New System.Windows.Forms.ContextMenuStrip(Me.components)
        Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripSeparator
        Me.ToolStripMenuItem3 = New System.Windows.Forms.ToolStripSeparator
        Me.ToolStripMenuItem4 = New System.Windows.Forms.ToolStripSeparator
        Me.ofd = New System.Windows.Forms.OpenFileDialog
        Me.videoProgress = New System.Windows.Forms.ProgressBar
        Me.lblTimer = New System.Windows.Forms.Timer(Me.components)
        Me.lblTime = New System.Windows.Forms.Label
        Me.lblDuration = New System.Windows.Forms.Label
        Me.txtPlaying = New System.Windows.Forms.TextBox
        Me.tbVolume = New System.Windows.Forms.TrackBar
        Me.Label1 = New System.Windows.Forms.Label
        Me.Label2 = New System.Windows.Forms.Label
        Me.tbBalance = New System.Windows.Forms.TrackBar
        Me.lblLength = New System.Windows.Forms.Label
        Me.tb = New System.Windows.Forms.TrackBar
        Me.Label3 = New System.Windows.Forms.Label
        Me.ToolStripMenuItem6 = New System.Windows.Forms.ToolStripSeparator
        Me.mnuOpen = New System.Windows.Forms.ToolStripMenuItem
        Me.mnuExit = New System.Windows.Forms.ToolStripMenuItem
        Me.mnuPlay = New System.Windows.Forms.ToolStripMenuItem
        Me.mnuPause = New System.Windows.Forms.ToolStripMenuItem
        Me.mnuStop = New System.Windows.Forms.ToolStripMenuItem
        Me.mnuCloseVideo = New System.Windows.Forms.ToolStripMenuItem
        Me.VideoDisplayToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
        Me.mnuNormal = New System.Windows.Forms.ToolStripMenuItem
        Me.mnuFullscreen = New System.Windows.Forms.ToolStripMenuItem
        Me.mnuFileInfo = New System.Windows.Forms.ToolStripMenuItem
        Me.mnuDeActivate = New System.Windows.Forms.ToolStripMenuItem
        Me.mnuAbout = New System.Windows.Forms.ToolStripMenuItem
        Me.cmPlay = New System.Windows.Forms.ToolStripMenuItem
        Me.cmPause = New System.Windows.Forms.ToolStripMenuItem
        Me.cmStop = New System.Windows.Forms.ToolStripMenuItem
        Me.cmNormal = New System.Windows.Forms.ToolStripMenuItem
        Me.cmFullscreen = New System.Windows.Forms.ToolStripMenuItem
        Me.cmCloseVideo = New System.Windows.Forms.ToolStripMenuItem
        Me.cmFileInfo = New System.Windows.Forms.ToolStripMenuItem
        Me.MenuStrip1.SuspendLayout()
        Me.cmVideo.SuspendLayout()
        CType(Me.tbVolume, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.tbBalance, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.tb, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
        '
        'MenuStrip1
        '
        Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.FileToolStripMenuItem, Me.CommandsToolStripMenuItem, Me.OptionsToolStripMenuItem, Me.AboutToolStripMenuItem})
        Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
        Me.MenuStrip1.Name = "MenuStrip1"
        Me.MenuStrip1.Size = New System.Drawing.Size(717, 24)
        Me.MenuStrip1.TabIndex = 0
        Me.MenuStrip1.Text = "MenuStrip1"
        '
        'FileToolStripMenuItem
        '
        Me.FileToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuOpen, Me.ToolStripMenuItem1, Me.mnuExit})
        Me.FileToolStripMenuItem.Name = "FileToolStripMenuItem"
        Me.FileToolStripMenuItem.Size = New System.Drawing.Size(37, 20)
        Me.FileToolStripMenuItem.Text = "File"
        '
        'ToolStripMenuItem1
        '
        Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1"
        Me.ToolStripMenuItem1.Size = New System.Drawing.Size(100, 6)
        '
        'CommandsToolStripMenuItem
        '
        Me.CommandsToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuPlay, Me.mnuPause, Me.mnuStop, Me.mnuCloseVideo})
        Me.CommandsToolStripMenuItem.Name = "CommandsToolStripMenuItem"
        Me.CommandsToolStripMenuItem.Size = New System.Drawing.Size(81, 20)
        Me.CommandsToolStripMenuItem.Text = "Commands"
        '
        'OptionsToolStripMenuItem
        '
        Me.OptionsToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.VideoDisplayToolStripMenuItem, Me.ToolStripMenuItem5, Me.mnuFileInfo, Me.ToolStripMenuItem6, Me.mnuDeActivate})
        Me.OptionsToolStripMenuItem.Name = "OptionsToolStripMenuItem"
        Me.OptionsToolStripMenuItem.Size = New System.Drawing.Size(61, 20)
        Me.OptionsToolStripMenuItem.Text = "Options"
        '
        'ToolStripMenuItem5
        '
        Me.ToolStripMenuItem5.Name = "ToolStripMenuItem5"
        Me.ToolStripMenuItem5.Size = New System.Drawing.Size(214, 6)
        '
        'AboutToolStripMenuItem
        '
        Me.AboutToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuAbout})
        Me.AboutToolStripMenuItem.Name = "AboutToolStripMenuItem"
        Me.AboutToolStripMenuItem.Size = New System.Drawing.Size(52, 20)
        Me.AboutToolStripMenuItem.Text = "About"
        '
        'pnlVideo
        '
        Me.pnlVideo.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.pnlVideo.ContextMenuStrip = Me.cmVideo
        Me.pnlVideo.Cursor = System.Windows.Forms.Cursors.Hand
        Me.pnlVideo.Location = New System.Drawing.Point(66, 58)
        Me.pnlVideo.Name = "pnlVideo"
        Me.pnlVideo.Size = New System.Drawing.Size(589, 338)
        Me.pnlVideo.TabIndex = 1
        '
        'cmVideo
        '
        Me.cmVideo.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.cmPlay, Me.cmPause, Me.cmStop, Me.ToolStripMenuItem2, Me.cmNormal, Me.cmFullscreen, Me.ToolStripMenuItem3, Me.cmCloseVideo, Me.ToolStripMenuItem4, Me.cmFileInfo})
        Me.cmVideo.Name = "cmVideo"
        Me.cmVideo.Size = New System.Drawing.Size(163, 204)
        '
        'ToolStripMenuItem2
        '
        Me.ToolStripMenuItem2.Name = "ToolStripMenuItem2"
        Me.ToolStripMenuItem2.Size = New System.Drawing.Size(159, 6)
        '
        'ToolStripMenuItem3
        '
        Me.ToolStripMenuItem3.Name = "ToolStripMenuItem3"
        Me.ToolStripMenuItem3.Size = New System.Drawing.Size(159, 6)
        '
        'ToolStripMenuItem4
        '
        Me.ToolStripMenuItem4.Name = "ToolStripMenuItem4"
        Me.ToolStripMenuItem4.Size = New System.Drawing.Size(159, 6)
        '
        'ofd
        '
        Me.ofd.Filter = "AVI Files (*.avi)|*.avi"
        Me.ofd.RestoreDirectory = True
        Me.ofd.Title = "OpenAVI's Only"
        '
        'videoProgress
        '
        Me.videoProgress.Location = New System.Drawing.Point(66, 402)
        Me.videoProgress.Name = "videoProgress"
        Me.videoProgress.Size = New System.Drawing.Size(589, 22)
        Me.videoProgress.Step = 1
        Me.videoProgress.Style = System.Windows.Forms.ProgressBarStyle.Continuous
        Me.videoProgress.TabIndex = 2
        '
        'lblTimer
        '
        Me.lblTimer.Interval = 1000
        '
        'lblTime
        '
        Me.lblTime.AutoSize = True
        Me.lblTime.ForeColor = System.Drawing.Color.Lime
        Me.lblTime.Location = New System.Drawing.Point(63, 427)
        Me.lblTime.Name = "lblTime"
        Me.lblTime.Size = New System.Drawing.Size(49, 13)
        Me.lblTime.TabIndex = 3
        Me.lblTime.Text = "00:00:00"
        '
        'lblDuration
        '
        Me.lblDuration.AutoSize = True
        Me.lblDuration.ForeColor = System.Drawing.Color.Lime
        Me.lblDuration.Location = New System.Drawing.Point(606, 427)
        Me.lblDuration.Name = "lblDuration"
        Me.lblDuration.Size = New System.Drawing.Size(49, 13)
        Me.lblDuration.TabIndex = 4
        Me.lblDuration.Text = "00:00:00"
        '
        'txtPlaying
        '
        Me.txtPlaying.BackColor = System.Drawing.Color.Black
        Me.txtPlaying.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.txtPlaying.Cursor = System.Windows.Forms.Cursors.No
        Me.txtPlaying.ForeColor = System.Drawing.Color.Lime
        Me.txtPlaying.Location = New System.Drawing.Point(66, 32)
        Me.txtPlaying.Name = "txtPlaying"
        Me.txtPlaying.ReadOnly = True
        Me.txtPlaying.Size = New System.Drawing.Size(589, 20)
        Me.txtPlaying.TabIndex = 6
        Me.txtPlaying.TabStop = False
        Me.txtPlaying.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
        '
        'tbVolume
        '
        Me.tbVolume.AutoSize = False
        Me.tbVolume.BackColor = System.Drawing.Color.Lime
        Me.tbVolume.LargeChange = 500
        Me.tbVolume.Location = New System.Drawing.Point(66, 459)
        Me.tbVolume.Maximum = 0
        Me.tbVolume.Minimum = -10000
        Me.tbVolume.Name = "tbVolume"
        Me.tbVolume.Size = New System.Drawing.Size(177, 20)
        Me.tbVolume.SmallChange = 250
        Me.tbVolume.TabIndex = 7
        Me.tbVolume.TabStop = False
        Me.tbVolume.TickStyle = System.Windows.Forms.TickStyle.None
        Me.tbVolume.Value = -4000
        '
        'Label1
        '
        Me.Label1.AutoSize = True
        Me.Label1.ForeColor = System.Drawing.Color.Lime
        Me.Label1.Location = New System.Drawing.Point(131, 443)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(42, 13)
        Me.Label1.TabIndex = 8
        Me.Label1.Text = "Volume"
        '
        'Label2
        '
        Me.Label2.AutoSize = True
        Me.Label2.ForeColor = System.Drawing.Color.Lime
        Me.Label2.Location = New System.Drawing.Point(549, 443)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(46, 13)
        Me.Label2.TabIndex = 9
        Me.Label2.Text = "Balance"
        '
        'tbBalance
        '
        Me.tbBalance.AutoSize = False
        Me.tbBalance.BackColor = System.Drawing.Color.Lime
        Me.tbBalance.Location = New System.Drawing.Point(482, 459)
        Me.tbBalance.Maximum = 5000
        Me.tbBalance.Minimum = -5000
        Me.tbBalance.Name = "tbBalance"
        Me.tbBalance.Size = New System.Drawing.Size(173, 20)
        Me.tbBalance.TabIndex = 10
        Me.tbBalance.TickStyle = System.Windows.Forms.TickStyle.None
        '
        'lblLength
        '
        Me.lblLength.AutoSize = True
        Me.lblLength.ForeColor = System.Drawing.Color.Lime
        Me.lblLength.Location = New System.Drawing.Point(335, 427)
        Me.lblLength.Name = "lblLength"
        Me.lblLength.Size = New System.Drawing.Size(44, 13)
        Me.lblLength.TabIndex = 11
        Me.lblLength.Text = "000 MB"
        '
        'tb
        '
        Me.tb.AutoSize = False
        Me.tb.BackColor = System.Drawing.Color.Lime
        Me.tb.Location = New System.Drawing.Point(276, 459)
        Me.tb.Maximum = 100
        Me.tb.Name = "tb"
        Me.tb.Size = New System.Drawing.Size(177, 20)
        Me.tb.TabIndex = 12
        Me.tb.TabStop = False
        Me.tb.TickStyle = System.Windows.Forms.TickStyle.None
        '
        'Label3
        '
        Me.Label3.AutoSize = True
        Me.Label3.ForeColor = System.Drawing.Color.Lime
        Me.Label3.Location = New System.Drawing.Point(324, 443)
        Me.Label3.Name = "Label3"
        Me.Label3.Size = New System.Drawing.Size(73, 13)
        Me.Label3.TabIndex = 13
        Me.Label3.Text = "Video FF/RW"
        '
        'ToolStripMenuItem6
        '
        Me.ToolStripMenuItem6.Name = "ToolStripMenuItem6"
        Me.ToolStripMenuItem6.Size = New System.Drawing.Size(214, 6)
        '
        'mnuOpen
        '
        Me.mnuOpen.Image = Global.DadsAVIPlayer.My.Resources.Resources.door
        Me.mnuOpen.Name = "mnuOpen"
        Me.mnuOpen.Size = New System.Drawing.Size(103, 22)
        Me.mnuOpen.Text = "Open"
        '
        'mnuExit
        '
        Me.mnuExit.Image = Global.DadsAVIPlayer.My.Resources.Resources.door_open
        Me.mnuExit.Name = "mnuExit"
        Me.mnuExit.Size = New System.Drawing.Size(103, 22)
        Me.mnuExit.Text = "Exit"
        '
        'mnuPlay
        '
        Me.mnuPlay.Image = Global.DadsAVIPlayer.My.Resources.Resources.control_play
        Me.mnuPlay.Name = "mnuPlay"
        Me.mnuPlay.Size = New System.Drawing.Size(136, 22)
        Me.mnuPlay.Text = "Play"
        '
        'mnuPause
        '
        Me.mnuPause.Image = Global.DadsAVIPlayer.My.Resources.Resources.control_pause
        Me.mnuPause.Name = "mnuPause"
        Me.mnuPause.Size = New System.Drawing.Size(136, 22)
        Me.mnuPause.Text = "Pause"
        '
        'mnuStop
        '
        Me.mnuStop.Image = Global.DadsAVIPlayer.My.Resources.Resources.control_stop
        Me.mnuStop.Name = "mnuStop"
        Me.mnuStop.Size = New System.Drawing.Size(136, 22)
        Me.mnuStop.Text = "Stop"
        '
        'mnuCloseVideo
        '
        Me.mnuCloseVideo.Image = Global.DadsAVIPlayer.My.Resources.Resources.control_end
        Me.mnuCloseVideo.Name = "mnuCloseVideo"
        Me.mnuCloseVideo.Size = New System.Drawing.Size(136, 22)
        Me.mnuCloseVideo.Text = "Close Video"
        '
        'VideoDisplayToolStripMenuItem
        '
        Me.VideoDisplayToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuNormal, Me.mnuFullscreen})
        Me.VideoDisplayToolStripMenuItem.Image = Global.DadsAVIPlayer.My.Resources.Resources.Video___AVI
        Me.VideoDisplayToolStripMenuItem.Name = "VideoDisplayToolStripMenuItem"
        Me.VideoDisplayToolStripMenuItem.Size = New System.Drawing.Size(217, 26)
        Me.VideoDisplayToolStripMenuItem.Text = "Video Display"
        '
        'mnuNormal
        '
        Me.mnuNormal.Image = Global.DadsAVIPlayer.My.Resources.Resources.arrow_in
        Me.mnuNormal.Name = "mnuNormal"
        Me.mnuNormal.Size = New System.Drawing.Size(131, 22)
        Me.mnuNormal.Text = "Normal"
        '
        'mnuFullscreen
        '
        Me.mnuFullscreen.Image = Global.DadsAVIPlayer.My.Resources.Resources.arrow_out
        Me.mnuFullscreen.Name = "mnuFullscreen"
        Me.mnuFullscreen.Size = New System.Drawing.Size(131, 22)
        Me.mnuFullscreen.Text = "Full Screen"
        '
        'mnuFileInfo
        '
        Me.mnuFileInfo.Image = Global.DadsAVIPlayer.My.Resources.Resources.info
        Me.mnuFileInfo.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None
        Me.mnuFileInfo.Name = "mnuFileInfo"
        Me.mnuFileInfo.Size = New System.Drawing.Size(217, 26)
        Me.mnuFileInfo.Text = "File Info"
        '
        'mnuDeActivate
        '
        Me.mnuDeActivate.Image = Global.DadsAVIPlayer.My.Resources.Resources._001_29
        Me.mnuDeActivate.ImageTransparentColor = System.Drawing.Color.Fuchsia
        Me.mnuDeActivate.Name = "mnuDeActivate"
        Me.mnuDeActivate.Size = New System.Drawing.Size(217, 26)
        Me.mnuDeActivate.Text = "DeActivate ScreenSaver"
        '
        'mnuAbout
        '
        Me.mnuAbout.Image = Global.DadsAVIPlayer.My.Resources.Resources.Video___AVI
        Me.mnuAbout.Name = "mnuAbout"
        Me.mnuAbout.Size = New System.Drawing.Size(192, 22)
        Me.mnuAbout.Text = "About Dads AVI Player"
        '
        'cmPlay
        '
        Me.cmPlay.Image = Global.DadsAVIPlayer.My.Resources.Resources.control_play
        Me.cmPlay.Name = "cmPlay"
        Me.cmPlay.Size = New System.Drawing.Size(162, 26)
        Me.cmPlay.Text = "Play"
        '
        'cmPause
        '
        Me.cmPause.Image = Global.DadsAVIPlayer.My.Resources.Resources.control_pause
        Me.cmPause.Name = "cmPause"
        Me.cmPause.Size = New System.Drawing.Size(162, 26)
        Me.cmPause.Text = "Pause"
        '
        'cmStop
        '
        Me.cmStop.Image = Global.DadsAVIPlayer.My.Resources.Resources.control_stop
        Me.cmStop.Name = "cmStop"
        Me.cmStop.Size = New System.Drawing.Size(162, 26)
        Me.cmStop.Text = "Stop"
        '
        'cmNormal
        '
        Me.cmNormal.Image = Global.DadsAVIPlayer.My.Resources.Resources.arrow_in
        Me.cmNormal.Name = "cmNormal"
        Me.cmNormal.Size = New System.Drawing.Size(162, 26)
        Me.cmNormal.Text = "Normal View"
        '
        'cmFullscreen
        '
        Me.cmFullscreen.Image = Global.DadsAVIPlayer.My.Resources.Resources.arrow_out
        Me.cmFullscreen.Name = "cmFullscreen"
        Me.cmFullscreen.Size = New System.Drawing.Size(162, 26)
        Me.cmFullscreen.Text = "Fullscreen"
        '
        'cmCloseVideo
        '
        Me.cmCloseVideo.Image = Global.DadsAVIPlayer.My.Resources.Resources.control_end
        Me.cmCloseVideo.Name = "cmCloseVideo"
        Me.cmCloseVideo.Size = New System.Drawing.Size(162, 26)
        Me.cmCloseVideo.Text = "Close Video"
        '
        'cmFileInfo
        '
        Me.cmFileInfo.Image = Global.DadsAVIPlayer.My.Resources.Resources.info
        Me.cmFileInfo.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None
        Me.cmFileInfo.Name = "cmFileInfo"
        Me.cmFileInfo.Size = New System.Drawing.Size(162, 26)
        Me.cmFileInfo.Text = "File Info"
        '
        'Form1
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
        Me.AutoSize = True
        Me.BackColor = System.Drawing.Color.Black
        Me.ClientSize = New System.Drawing.Size(717, 491)
        Me.Controls.Add(Me.Label3)
        Me.Controls.Add(Me.tb)
        Me.Controls.Add(Me.MenuStrip1)
        Me.Controls.Add(Me.lblLength)
        Me.Controls.Add(Me.txtPlaying)
        Me.Controls.Add(Me.pnlVideo)
        Me.Controls.Add(Me.Label2)
        Me.Controls.Add(Me.Label1)
        Me.Controls.Add(Me.tbBalance)
        Me.Controls.Add(Me.tbVolume)
        Me.Controls.Add(Me.lblTime)
        Me.Controls.Add(Me.videoProgress)
        Me.Controls.Add(Me.lblDuration)
        Me.Cursor = System.Windows.Forms.Cursors.Hand
        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow
        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
        Me.MainMenuStrip = Me.MenuStrip1
        Me.MaximizeBox = False
        Me.MinimizeBox = False
        Me.Name = "Form1"
        Me.SizeGripStyle = System.Windows.Forms.SizeGripStyle.Hide
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
        Me.Text = "Dad's AVI Player"
        Me.MenuStrip1.ResumeLayout(False)
        Me.MenuStrip1.PerformLayout()
        Me.cmVideo.ResumeLayout(False)
        CType(Me.tbVolume, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.tbBalance, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.tb, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)
        Me.PerformLayout()

    End Sub
    Friend WithEvents MenuStrip1 As System.Windows.Forms.MenuStrip
    Friend WithEvents FileToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
    Friend WithEvents mnuOpen As System.Windows.Forms.ToolStripMenuItem
    Friend WithEvents ToolStripMenuItem1 As System.Windows.Forms.ToolStripSeparator
    Friend WithEvents mnuExit As System.Windows.Forms.ToolStripMenuItem
    Friend WithEvents CommandsToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
    Friend WithEvents mnuPlay As System.Windows.Forms.ToolStripMenuItem
    Friend WithEvents mnuPause As System.Windows.Forms.ToolStripMenuItem
    Friend WithEvents mnuStop As System.Windows.Forms.ToolStripMenuItem
    Friend WithEvents OptionsToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
    Friend WithEvents VideoDisplayToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
    Friend WithEvents mnuNormal As System.Windows.Forms.ToolStripMenuItem
    Friend WithEvents mnuFullscreen As System.Windows.Forms.ToolStripMenuItem
    Friend WithEvents AboutToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
    Friend WithEvents mnuAbout As System.Windows.Forms.ToolStripMenuItem
    Friend WithEvents pnlVideo As System.Windows.Forms.Panel
    Friend WithEvents ofd As System.Windows.Forms.OpenFileDialog
    Friend WithEvents videoProgress As System.Windows.Forms.ProgressBar
    Friend WithEvents cmVideo As System.Windows.Forms.ContextMenuStrip
    Friend WithEvents cmPlay As System.Windows.Forms.ToolStripMenuItem
    Friend WithEvents cmPause As System.Windows.Forms.ToolStripMenuItem
    Friend WithEvents cmStop As System.Windows.Forms.ToolStripMenuItem
    Friend WithEvents ToolStripMenuItem2 As System.Windows.Forms.ToolStripSeparator
    Friend WithEvents cmNormal As System.Windows.Forms.ToolStripMenuItem
    Friend WithEvents cmFullscreen As System.Windows.Forms.ToolStripMenuItem
    Friend WithEvents ToolStripMenuItem3 As System.Windows.Forms.ToolStripSeparator
    Friend WithEvents cmCloseVideo As System.Windows.Forms.ToolStripMenuItem
    Friend WithEvents mnuCloseVideo As System.Windows.Forms.ToolStripMenuItem
    Friend WithEvents lblTimer As System.Windows.Forms.Timer
    Friend WithEvents lblTime As System.Windows.Forms.Label
    Friend WithEvents lblDuration As System.Windows.Forms.Label
    Friend WithEvents txtPlaying As System.Windows.Forms.TextBox
    Friend WithEvents tbVolume As System.Windows.Forms.TrackBar
    Friend WithEvents Label1 As System.Windows.Forms.Label
    Friend WithEvents Label2 As System.Windows.Forms.Label
    Friend WithEvents tbBalance As System.Windows.Forms.TrackBar
    Friend WithEvents lblLength As System.Windows.Forms.Label
    Friend WithEvents tb As System.Windows.Forms.TrackBar
    Friend WithEvents Label3 As System.Windows.Forms.Label
    Friend WithEvents ToolStripMenuItem4 As System.Windows.Forms.ToolStripSeparator
    Friend WithEvents cmFileInfo As System.Windows.Forms.ToolStripMenuItem
    Friend WithEvents ToolStripMenuItem5 As System.Windows.Forms.ToolStripSeparator
    Friend WithEvents mnuFileInfo As System.Windows.Forms.ToolStripMenuItem
    Friend WithEvents ToolStripMenuItem6 As System.Windows.Forms.ToolStripSeparator
    Friend WithEvents mnuDeActivate As System.Windows.Forms.ToolStripMenuItem

End Class

By viewing downloads associated with this article you agree to the Terms of Service and the article's licence.

If a file you wish to view isn't highlighted, and is a text file (not binary), please let us know and we'll add colourisation support for it.

License

This article, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Share

About the Author

rspercy65
Retired
United States United States
I am currently retired.
I have no degree but I have some programming experience
when I was in college(Cobol, Pascal).

My accomplishments thus far are;
Best VB.Net article for January(2009)
Best VB.Net article for July(2009)

You may also be interested in...

| Advertise | Privacy | Terms of Use | Mobile
Web04 | 2.8.150723.1 | Last Updated 24 Apr 2013
Article Copyright 2009 by rspercy65
Everything else Copyright © CodeProject, 1999-2015
Layout: fixed | fluid