Partial Class pcinfo Inherits System.Windows.Forms.Form 'Form remplace la méthode Dispose pour nettoyer la liste des composants. 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 'Requise par le Concepteur Windows Form Private components As System.ComponentModel.IContainer 'REMARQUE : la procédure suivante est requise par le Concepteur Windows Form 'Elle peut être modifiée à l'aide du Concepteur Windows Form. 'Ne la modifiez pas à l'aide de l'éditeur de code. Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(pcinfo)) Me.ListBox1 = New System.Windows.Forms.ListBox() Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.InformationDuPcToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.DéconecterLePcToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.SupprimerToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.Timer1 = New System.Windows.Forms.Timer(Me.components) Me.Timer2 = New System.Windows.Forms.Timer(Me.components) Me.Timer3 = New System.Windows.Forms.Timer(Me.components) Me.ContextMenuStrip1.SuspendLayout() Me.SuspendLayout() ' 'ListBox1 ' Me.ListBox1.ContextMenuStrip = Me.ContextMenuStrip1 Me.ListBox1.FormattingEnabled = True Me.ListBox1.Location = New System.Drawing.Point(8, 6) Me.ListBox1.Name = "ListBox1" Me.ListBox1.Size = New System.Drawing.Size(304, 30) Me.ListBox1.TabIndex = 0 ' 'ContextMenuStrip1 ' Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.InformationDuPcToolStripMenuItem, Me.DéconecterLePcToolStripMenuItem, Me.SupprimerToolStripMenuItem}) Me.ContextMenuStrip1.Name = "ContextMenuStrip1" Me.ContextMenuStrip1.Size = New System.Drawing.Size(181, 92) ' 'InformationDuPcToolStripMenuItem ' Me.InformationDuPcToolStripMenuItem.Image = CType(resources.GetObject("InformationDuPcToolStripMenuItem.Image"), System.Drawing.Image) Me.InformationDuPcToolStripMenuItem.Name = "InformationDuPcToolStripMenuItem" Me.InformationDuPcToolStripMenuItem.Size = New System.Drawing.Size(180, 22) Me.InformationDuPcToolStripMenuItem.Text = "Information du pc" ' 'DéconecterLePcToolStripMenuItem ' Me.DéconecterLePcToolStripMenuItem.Image = CType(resources.GetObject("DéconecterLePcToolStripMenuItem.Image"), System.Drawing.Image) Me.DéconecterLePcToolStripMenuItem.Name = "DéconecterLePcToolStripMenuItem" Me.DéconecterLePcToolStripMenuItem.Size = New System.Drawing.Size(180, 22) Me.DéconecterLePcToolStripMenuItem.Text = "Déconnecter le pc" ' 'SupprimerToolStripMenuItem ' Me.SupprimerToolStripMenuItem.Image = CType(resources.GetObject("SupprimerToolStripMenuItem.Image"), System.Drawing.Image) Me.SupprimerToolStripMenuItem.Name = "SupprimerToolStripMenuItem" Me.SupprimerToolStripMenuItem.Size = New System.Drawing.Size(180, 22) Me.SupprimerToolStripMenuItem.Text = "Supprimer le pc" ' 'Timer1 ' Me.Timer1.Interval = 1 ' 'Timer2 ' Me.Timer2.Interval = 1 ' 'Timer3 ' Me.Timer3.Interval = 1 ' 'pcinfo ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(314, 42) Me.Controls.Add(Me.ListBox1) Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) Me.MaximizeBox = False Me.MaximumSize = New System.Drawing.Size(330, 81) Me.MinimizeBox = False Me.MinimumSize = New System.Drawing.Size(330, 81) Me.Name = "pcinfo" Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen Me.Text = "Liste des pc" Me.ContextMenuStrip1.ResumeLayout(False) Me.ResumeLayout(False) End Sub Friend WithEvents ListBox1 As ListBox Friend WithEvents ContextMenuStrip1 As ContextMenuStrip Friend WithEvents DéconecterLePcToolStripMenuItem As ToolStripMenuItem Friend WithEvents InformationDuPcToolStripMenuItem As ToolStripMenuItem Friend WithEvents Timer1 As Timer Friend WithEvents Timer2 As Timer Friend WithEvents SupprimerToolStripMenuItem As ToolStripMenuItem Friend WithEvents Timer3 As Timer End Class