Click here to Skip to main content
15,896,557 members
Search within:


Articles / Programming Languages / Visual Basic
 

iTunes Control Using VB.NET

Rate me:
Please Sign up or sign in to vote.
3.44/5 (8 votes)
28 Nov 2006CPOL2 min read 128.7K   1.7K   38  
Exploring the iTunes interface using VB.
 
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class myTunes
   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)
      If disposing AndAlso components IsNot Nothing Then
         components.Dispose()
      End If
      MyBase.Dispose(disposing)
   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(myTunes))
      Me.lvTracks = New System.Windows.Forms.ListView
      Me.Track = New System.Windows.Forms.ColumnHeader
      Me.TrackName = New System.Windows.Forms.ColumnHeader
      Me.Artist = New System.Windows.Forms.ColumnHeader
      Me.Album = New System.Windows.Forms.ColumnHeader
      Me.bnStop = New System.Windows.Forms.Button
      Me.bnPlay = New System.Windows.Forms.Button
      Me.bnPrev = New System.Windows.Forms.Button
      Me.bnNext = New System.Windows.Forms.Button
      Me.bnExit = New System.Windows.Forms.Button
      Me.lInfo = New System.Windows.Forms.Label
      Me.slVolume = New System.Windows.Forms.TrackBar
      Me.tvPlayLists = New System.Windows.Forms.TreeView
      Me.ilIcons = New System.Windows.Forms.ImageList(Me.components)
      Me.SplitContainer1 = New System.Windows.Forms.SplitContainer
      CType(Me.slVolume, System.ComponentModel.ISupportInitialize).BeginInit()
      Me.SplitContainer1.Panel1.SuspendLayout()
      Me.SplitContainer1.Panel2.SuspendLayout()
      Me.SplitContainer1.SuspendLayout()
      Me.SuspendLayout()
      '
      'lvTracks
      '
      Me.lvTracks.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.Track, Me.TrackName, Me.Artist, Me.Album})
      Me.lvTracks.Dock = System.Windows.Forms.DockStyle.Fill
      Me.lvTracks.Font = New System.Drawing.Font("Arial", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
      Me.lvTracks.FullRowSelect = True
      Me.lvTracks.GridLines = True
      Me.lvTracks.HideSelection = False
      Me.lvTracks.Location = New System.Drawing.Point(0, 0)
      Me.lvTracks.Name = "lvTracks"
      Me.lvTracks.Size = New System.Drawing.Size(658, 671)
      Me.lvTracks.TabIndex = 1
      Me.lvTracks.UseCompatibleStateImageBehavior = False
      Me.lvTracks.View = System.Windows.Forms.View.Details
      '
      'Track
      '
      Me.Track.Text = "T#"
      Me.Track.Width = 45
      '
      'TrackName
      '
      Me.TrackName.Text = "Track"
      Me.TrackName.Width = 200
      '
      'Artist
      '
      Me.Artist.Text = "Artist"
      Me.Artist.Width = 200
      '
      'Album
      '
      Me.Album.Text = "Album"
      Me.Album.Width = 200
      '
      'bnStop
      '
      Me.bnStop.Location = New System.Drawing.Point(361, 690)
      Me.bnStop.Name = "bnStop"
      Me.bnStop.Size = New System.Drawing.Size(47, 39)
      Me.bnStop.TabIndex = 2
      Me.bnStop.Text = "Stop"
      Me.bnStop.UseVisualStyleBackColor = True
      '
      'bnPlay
      '
      Me.bnPlay.Location = New System.Drawing.Point(414, 690)
      Me.bnPlay.Name = "bnPlay"
      Me.bnPlay.Size = New System.Drawing.Size(47, 39)
      Me.bnPlay.TabIndex = 3
      Me.bnPlay.Text = "Play"
      Me.bnPlay.UseVisualStyleBackColor = True
      '
      'bnPrev
      '
      Me.bnPrev.Location = New System.Drawing.Point(492, 690)
      Me.bnPrev.Name = "bnPrev"
      Me.bnPrev.Size = New System.Drawing.Size(47, 39)
      Me.bnPrev.TabIndex = 4
      Me.bnPrev.Text = "Prev"
      Me.bnPrev.UseVisualStyleBackColor = True
      '
      'bnNext
      '
      Me.bnNext.Location = New System.Drawing.Point(545, 690)
      Me.bnNext.Name = "bnNext"
      Me.bnNext.Size = New System.Drawing.Size(47, 39)
      Me.bnNext.TabIndex = 5
      Me.bnNext.Text = "Next"
      Me.bnNext.UseVisualStyleBackColor = True
      '
      'bnExit
      '
      Me.bnExit.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
      Me.bnExit.Location = New System.Drawing.Point(957, 692)
      Me.bnExit.Name = "bnExit"
      Me.bnExit.Size = New System.Drawing.Size(47, 39)
      Me.bnExit.TabIndex = 8
      Me.bnExit.Text = "Exit"
      Me.bnExit.UseVisualStyleBackColor = True
      '
      'lInfo
      '
      Me.lInfo.AutoSize = True
      Me.lInfo.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
      Me.lInfo.Location = New System.Drawing.Point(12, 694)
      Me.lInfo.Name = "lInfo"
      Me.lInfo.Size = New System.Drawing.Size(0, 17)
      Me.lInfo.TabIndex = 10
      '
      'slVolume
      '
      Me.slVolume.Location = New System.Drawing.Point(598, 689)
      Me.slVolume.Maximum = 100
      Me.slVolume.Name = "slVolume"
      Me.slVolume.Size = New System.Drawing.Size(353, 42)
      Me.slVolume.TabIndex = 12
      Me.slVolume.TickFrequency = 10
      Me.slVolume.TickStyle = System.Windows.Forms.TickStyle.Both
      '
      'tvPlayLists
      '
      Me.tvPlayLists.Dock = System.Windows.Forms.DockStyle.Fill
      Me.tvPlayLists.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
      Me.tvPlayLists.FullRowSelect = True
      Me.tvPlayLists.HideSelection = False
      Me.tvPlayLists.ImageIndex = 0
      Me.tvPlayLists.ImageList = Me.ilIcons
      Me.tvPlayLists.Location = New System.Drawing.Point(0, 0)
      Me.tvPlayLists.Name = "tvPlayLists"
      Me.tvPlayLists.SelectedImageIndex = 0
      Me.tvPlayLists.ShowLines = False
      Me.tvPlayLists.Size = New System.Drawing.Size(330, 671)
      Me.tvPlayLists.TabIndex = 13
      '
      'ilIcons
      '
      Me.ilIcons.ImageStream = CType(resources.GetObject("ilIcons.ImageStream"), System.Windows.Forms.ImageListStreamer)
      Me.ilIcons.TransparentColor = System.Drawing.Color.Transparent
      Me.ilIcons.Images.SetKeyName(0, "")
      Me.ilIcons.Images.SetKeyName(1, "")
      Me.ilIcons.Images.SetKeyName(2, "1057.ico")
      Me.ilIcons.Images.SetKeyName(3, "Audio CD.ico")
      Me.ilIcons.Images.SetKeyName(4, "Music Folder.ico")
      '
      'SplitContainer1
      '
      Me.SplitContainer1.Location = New System.Drawing.Point(12, 12)
      Me.SplitContainer1.Name = "SplitContainer1"
      '
      'SplitContainer1.Panel1
      '
      Me.SplitContainer1.Panel1.Controls.Add(Me.tvPlayLists)
      '
      'SplitContainer1.Panel2
      '
      Me.SplitContainer1.Panel2.Controls.Add(Me.lvTracks)
      Me.SplitContainer1.Size = New System.Drawing.Size(992, 671)
      Me.SplitContainer1.SplitterDistance = 330
      Me.SplitContainer1.TabIndex = 14
      '
      'myTunes
      '
      Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
      Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
      Me.ClientSize = New System.Drawing.Size(1016, 741)
      Me.Controls.Add(Me.slVolume)
      Me.Controls.Add(Me.lInfo)
      Me.Controls.Add(Me.bnExit)
      Me.Controls.Add(Me.bnNext)
      Me.Controls.Add(Me.bnPrev)
      Me.Controls.Add(Me.bnPlay)
      Me.Controls.Add(Me.bnStop)
      Me.Controls.Add(Me.SplitContainer1)
      Me.Name = "myTunes"
      Me.Text = "myTunes"
      CType(Me.slVolume, System.ComponentModel.ISupportInitialize).EndInit()
      Me.SplitContainer1.Panel1.ResumeLayout(False)
      Me.SplitContainer1.Panel2.ResumeLayout(False)
      Me.SplitContainer1.ResumeLayout(False)
      Me.ResumeLayout(False)
      Me.PerformLayout()

   End Sub
   Friend WithEvents lvTracks As System.Windows.Forms.ListView
   Friend WithEvents Track As System.Windows.Forms.ColumnHeader
   Friend WithEvents TrackName As System.Windows.Forms.ColumnHeader
   Friend WithEvents Artist As System.Windows.Forms.ColumnHeader
   Friend WithEvents Album As System.Windows.Forms.ColumnHeader
   Friend WithEvents bnStop As System.Windows.Forms.Button
   Friend WithEvents bnPlay As System.Windows.Forms.Button
   Friend WithEvents bnPrev As System.Windows.Forms.Button
   Friend WithEvents bnNext As System.Windows.Forms.Button
   Friend WithEvents bnExit As System.Windows.Forms.Button
   Friend WithEvents lInfo As System.Windows.Forms.Label
   Friend WithEvents slVolume As System.Windows.Forms.TrackBar
   Friend WithEvents tvPlayLists As System.Windows.Forms.TreeView
   Friend WithEvents SplitContainer1 As System.Windows.Forms.SplitContainer
   Friend WithEvents ilIcons As System.Windows.Forms.ImageList

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
Michael_Davies
Retired
United Kingdom United Kingdom
This member has not yet provided a Biography. Assume it's interesting and varied, and probably something to do with programming.

Comments and Discussions

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

Posted 31 Oct 2006

Article Copyright 2006 by Michael_Davies
Everything else Copyright © CodeProject, 1999-2024

Web01 2.8:2024-04-02:1