Click here to Skip to main content
15,885,244 members
Search within:


Articles / Programming Languages / Visual Basic
 

Play your AVI files with this DirectX video player

Rate me:
Please Sign up or sign in to vote.
4.83/5 (12 votes)
24 Apr 2013CPOL4 min read 130.1K   8K   60  
Plays AVI files using Microsoft's DirectX.AudioVideoPlayback.
 
<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)


Written By
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)

Comments and Discussions

Permalink
Advertise
Privacy
Cookies
Terms of Use
Layout: fixed | fluid

Posted 13 Jan 2009

Article Copyright 2009 by rspercy65
Everything else Copyright © CodeProject, 1999-2024

Web04 2.8:2024-04-02:1