Untitled
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