Télécharger le script ! - mod phpBB
Imports System
Imports System.Drawing
Imports System.Windows.Forms
Imports System.IO
Public Class Form1
Inherits System.Windows.Forms.Form
#Region " Code généré par le Concepteur Windows Form "
Public Sub New()
MyBase.New()
'Cet appel est requis par le Concepteur Windows Form.
InitializeComponent()
'Ajoutez une initialisation quelconque après l'appel InitializeComponent()
End Sub
'La méthode substituée Dispose du formulaire pour nettoyer la liste des composants.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
'Requis 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 en utilisant le Concepteur Windows Form.
'Ne la modifiez pas en utilisant l'éditeur de code.
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
Friend WithEvents OpenFileDialog1 As System.Windows.Forms.OpenFileDialog
Friend WithEvents SaveFileDialog1 As System.Windows.Forms.SaveFileDialog
Friend WithEvents ComboBox2 As System.Windows.Forms.ComboBox
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents ListView2 As System.Windows.Forms.ListView
Friend WithEvents ColumnHeader12 As System.Windows.Forms.ColumnHeader
Friend WithEvents ColumnHeader14 As System.Windows.Forms.ColumnHeader
Friend WithEvents ColumnHeader23 As System.Windows.Forms.ColumnHeader
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents ContextMenu1 As System.Windows.Forms.ContextMenu
Friend WithEvents MenuItem1 As System.Windows.Forms.MenuItem
Friend WithEvents MainMenu1 As System.Windows.Forms.MainMenu
Friend WithEvents MenuItem2 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem3 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem9 As System.Windows.Forms.MenuItem
Friend WithEvents Button5 As System.Windows.Forms.Button
Friend WithEvents MenuItem10 As System.Windows.Forms.MenuItem
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents snapshot As System.Windows.Forms.PictureBox
Friend WithEvents MenuItem8 As System.Windows.Forms.MenuItem
Friend WithEvents addbtn As System.Windows.Forms.MenuItem
Friend WithEvents delbtn As System.Windows.Forms.MenuItem
Friend WithEvents HScrollBar1 As System.Windows.Forms.HScrollBar
Friend WithEvents MenuItem6 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem4 As System.Windows.Forms.MenuItem
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.TextBox1 = New System.Windows.Forms.TextBox
Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog
Me.SaveFileDialog1 = New System.Windows.Forms.SaveFileDialog
Me.ComboBox2 = New System.Windows.Forms.ComboBox
Me.Label1 = New System.Windows.Forms.Label
Me.ListView2 = New System.Windows.Forms.ListView
Me.ColumnHeader12 = New System.Windows.Forms.ColumnHeader
Me.ColumnHeader14 = New System.Windows.Forms.ColumnHeader
Me.ColumnHeader23 = New System.Windows.Forms.ColumnHeader
Me.ContextMenu1 = New System.Windows.Forms.ContextMenu
Me.MenuItem1 = New System.Windows.Forms.MenuItem
Me.addbtn = New System.Windows.Forms.MenuItem
Me.delbtn = New System.Windows.Forms.MenuItem
Me.MenuItem10 = New System.Windows.Forms.MenuItem
Me.Label2 = New System.Windows.Forms.Label
Me.MainMenu1 = New System.Windows.Forms.MainMenu
Me.MenuItem2 = New System.Windows.Forms.MenuItem
Me.MenuItem3 = New System.Windows.Forms.MenuItem
Me.MenuItem8 = New System.Windows.Forms.MenuItem
Me.MenuItem6 = New System.Windows.Forms.MenuItem
Me.MenuItem9 = New System.Windows.Forms.MenuItem
Me.Button5 = New System.Windows.Forms.Button
Me.Label3 = New System.Windows.Forms.Label
Me.snapshot = New System.Windows.Forms.PictureBox
Me.HScrollBar1 = New System.Windows.Forms.HScrollBar
Me.MenuItem4 = New System.Windows.Forms.MenuItem
Me.SuspendLayout()
'
'TextBox1
'
Me.TextBox1.Location = New System.Drawing.Point(816, 496)
Me.TextBox1.Multiline = True
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(280, 72)
Me.TextBox1.TabIndex = 1
Me.TextBox1.Text = ""
Me.TextBox1.Visible = False
'
'SaveFileDialog1
'
Me.SaveFileDialog1.FileName = "doc1"
'
'ComboBox2
'
Me.ComboBox2.Location = New System.Drawing.Point(736, 360)
Me.ComboBox2.Name = "ComboBox2"
Me.ComboBox2.Size = New System.Drawing.Size(224, 21)
Me.ComboBox2.TabIndex = 15
Me.ComboBox2.Text = "ComboBox2"
Me.ComboBox2.Visible = False
'
'Label1
'
Me.Label1.BackColor = System.Drawing.Color.Transparent
Me.Label1.ForeColor = System.Drawing.Color.White
Me.Label1.Location = New System.Drawing.Point(8, 568)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(352, 24)
Me.Label1.TabIndex = 19
Me.Label1.TextAlign = System.Drawing.ContentAlignment.TopCenter
'
'ListView2
'
Me.ListView2.BackColor = System.Drawing.Color.Black
Me.ListView2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.ListView2.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.ColumnHeader12, Me.ColumnHeader14, Me.ColumnHeader23})
Me.ListView2.ContextMenu = Me.ContextMenu1
Me.ListView2.ForeColor = System.Drawing.Color.White
Me.ListView2.FullRowSelect = True
Me.ListView2.Location = New System.Drawing.Point(0, 0)
Me.ListView2.MultiSelect = False
Me.ListView2.Name = "ListView2"
Me.ListView2.Size = New System.Drawing.Size(440, 272)
Me.ListView2.TabIndex = 21
Me.ListView2.View = System.Windows.Forms.View.Details
'
'ColumnHeader12
'
Me.ColumnHeader12.Text = "FileName"
Me.ColumnHeader12.Width = 260
'
'ColumnHeader14
'
Me.ColumnHeader14.Text = "bytes - megabits"
Me.ColumnHeader14.Width = 114
'
'ColumnHeader23
'
Me.ColumnHeader23.Text = "Is Header"
'
'ContextMenu1
'
Me.ContextMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem1, Me.addbtn, Me.delbtn, Me.MenuItem10})
'
'MenuItem1
'
Me.MenuItem1.Index = 0
Me.MenuItem1.Text = "Show/Edit rom file properties"
'
'addbtn
'
Me.addbtn.Index = 1
Me.addbtn.Text = "Add header"
'
'delbtn
'
Me.delbtn.Index = 2
Me.delbtn.Text = "Delete header"
'
'MenuItem10
'
Me.MenuItem10.Index = 3
Me.MenuItem10.Text = "Launch with zsnes "
'
'Label2
'
Me.Label2.BackColor = System.Drawing.Color.Black
Me.Label2.ForeColor = System.Drawing.Color.Red
Me.Label2.Location = New System.Drawing.Point(8, 272)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(432, 24)
Me.Label2.TabIndex = 23
Me.Label2.TextAlign = System.Drawing.ContentAlignment.TopCenter
'
'MainMenu1
'
Me.MainMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem2})
'
'MenuItem2
'
Me.MenuItem2.Index = 0
Me.MenuItem2.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem3, Me.MenuItem8, Me.MenuItem6, Me.MenuItem4, Me.MenuItem9})
Me.MenuItem2.Text = "&Main Menu"
'
'MenuItem3
'
Me.MenuItem3.Index = 0
Me.MenuItem3.Text = "&Open"
'
'MenuItem8
'
Me.MenuItem8.Index = 1
Me.MenuItem8.Text = "&Log headers list info in .txt file"
'
'MenuItem6
'
Me.MenuItem6.Index = 2
Me.MenuItem6.Text = "Refresh snapshots"
'
'MenuItem9
'
Me.MenuItem9.Index = 4
Me.MenuItem9.Text = "&Quit"
'
'Button5
'
Me.Button5.BackColor = System.Drawing.Color.Transparent
Me.Button5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button5.ForeColor = System.Drawing.Color.White
Me.Button5.Location = New System.Drawing.Point(368, 568)
Me.Button5.Name = "Button5"
Me.Button5.Size = New System.Drawing.Size(64, 18)
Me.Button5.TabIndex = 24
Me.Button5.Text = "&Quit"
'
'Label3
'
Me.Label3.BackColor = System.Drawing.Color.Black
Me.Label3.ForeColor = System.Drawing.Color.Red
Me.Label3.Location = New System.Drawing.Point(8, 296)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(432, 24)
Me.Label3.TabIndex = 35
Me.Label3.TextAlign = System.Drawing.ContentAlignment.TopCenter
'
'snapshot
'
Me.snapshot.BackColor = System.Drawing.Color.Black
Me.snapshot.Location = New System.Drawing.Point(96, 320)
Me.snapshot.Name = "snapshot"
Me.snapshot.Size = New System.Drawing.Size(256, 224)
Me.snapshot.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.snapshot.TabIndex = 38
Me.snapshot.TabStop = False
'
'HScrollBar1
'
Me.HScrollBar1.LargeChange = 1
Me.HScrollBar1.Location = New System.Drawing.Point(88, 544)
Me.HScrollBar1.Maximum = 0
Me.HScrollBar1.Name = "HScrollBar1"
Me.HScrollBar1.Size = New System.Drawing.Size(264, 16)
Me.HScrollBar1.TabIndex = 39
'
'MenuItem4
'
Me.MenuItem4.Index = 3
Me.MenuItem4.Text = "&About"
'
'Form1
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.BackColor = System.Drawing.Color.Black
Me.ClientSize = New System.Drawing.Size(440, 593)
Me.Controls.Add(Me.HScrollBar1)
Me.Controls.Add(Me.snapshot)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.Button5)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.ComboBox2)
Me.Controls.Add(Me.TextBox1)
Me.Controls.Add(Me.ListView2)
Me.Menu = Me.MainMenu1
Me.Name = "Form1"
Me.Text = "HBSnesTools v.09 Zsnes ""sample release"""
Me.ResumeLayout(False)
End Sub
#End Region