Untitled

 avatar
unknown
plain_text
9 months ago
2.2 kB
10
Indexable
Partial Class Form1
    Inherits System.Windows.Forms.Form

    Private components As System.ComponentModel.IContainer
    Friend WithEvents ButtonPlay As Button
    Friend WithEvents TextBoxVideo As TextBox
    Friend WithEvents TextBoxSubtitle As TextBox
    Friend WithEvents LabelStatus As Label
    Friend WithEvents Timer1 As Timer

    Private Sub InitializeComponent()
        Me.components = New System.ComponentModel.Container()
        Me.ButtonPlay = New System.Windows.Forms.Button()
        Me.TextBoxVideo = New System.Windows.Forms.TextBox()
        Me.TextBoxSubtitle = New System.Windows.Forms.TextBox()
        Me.LabelStatus = New System.Windows.Forms.Label()
        Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
        Me.SuspendLayout()
        '
        'ButtonPlay
        '
        Me.ButtonPlay.Location = New System.Drawing.Point(20, 150)
        Me.ButtonPlay.Name = "ButtonPlay"
        Me.ButtonPlay.Size = New System.Drawing.Size(100, 30)
        Me.ButtonPlay.Text = "Play"
        '
        'TextBoxVideo
        '
        Me.TextBoxVideo.Location = New System.Drawing.Point(20, 20)
        Me.TextBoxVideo.Name = "TextBoxVideo"
        Me.TextBoxVideo.Size = New System.Drawing.Size(300, 22)
        '
        'TextBoxSubtitle
        '
        Me.TextBoxSubtitle.Location = New System.Drawing.Point(20, 60)
        Me.TextBoxSubtitle.Name = "TextBoxSubtitle"
        Me.TextBoxSubtitle.Size = New System.Drawing.Size(300, 22)
        '
        'LabelStatus
        '
        Me.LabelStatus.Location = New System.Drawing.Point(20, 100)
        Me.LabelStatus.Name = "LabelStatus"
        Me.LabelStatus.Size = New System.Drawing.Size(300, 30)
        Me.LabelStatus.Text = "Status"
        '
        'Timer1
        '
        Me.Timer1.Interval = 1000
        Me.Timer1.Enabled = True
        '
        'Form1
        '
        Me.ClientSize = New System.Drawing.Size(400, 200)
        Me.Controls.Add(Me.ButtonPlay)
        Me.Controls.Add(Me.TextBoxVideo)
        Me.Controls.Add(Me.TextBoxSubtitle)
        Me.Controls.Add(Me.LabelStatus)
        Me.Name = "Form1"
        Me.Text = "VLC Subtitle Sync"
        Me.ResumeLayout(False)
        Me.PerformLayout(
Editor is loading...
Leave a Comment