Public Class Form1
Inherits System.Windows.Forms.Form
Dim conta As Integer = 0
Dim a As String
#Region " Codice generato da Progettazione Windows Form "
Public Sub New()
MyBase.New()
'Chiamata richiesta da Progettazione Windows Form.
InitializeComponent()
'Aggiungere le eventuali istruzioni di inizializzazione dopo la chiamata a InitializeComponent()
End Sub
'Form esegue l'override del metodo Dispose per pulire l'elenco dei componenti.
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
'Richiesto da Progettazione Windows Form
Private components As System.ComponentModel.IContainer
'NOTA: la procedura che segue è richiesta da Progettazione Windows Form.
'Può essere modificata in Progettazione Windows Form.
'Non modificarla nell'editor del codice.
Friend WithEvents StatusBar1 As System.Windows.Forms.StatusBar
Friend WithEvents StatusBarPanel1 As System.Windows.Forms.StatusBarPanel
Friend WithEvents Timer1 As System.Windows.Forms.Timer
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
Friend WithEvents Label5 As System.Windows.Forms.Label
Friend WithEvents Label6 As System.Windows.Forms.Label
Friend WithEvents Label7 As System.Windows.Forms.Label
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents giorno As System.Windows.Forms.ComboBox
Friend WithEvents mese As System.Windows.Forms.ComboBox
Friend WithEvents anno As System.Windows.Forms.ComboBox
Friend WithEvents ore As System.Windows.Forms.ComboBox
Friend WithEvents minuti As System.Windows.Forms.ComboBox
Friend WithEvents secondi As System.Windows.Forms.ComboBox
Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
Friend WithEvents TextBox2 As System.Windows.Forms.TextBox
Friend WithEvents Button2 As System.Windows.Forms.Button
Friend WithEvents Button3 As System.Windows.Forms.Button
Friend WithEvents TextBox3 As System.Windows.Forms.TextBox
Friend WithEvents Button4 As System.Windows.Forms.Button
Friend WithEvents TextBox4 As System.Windows.Forms.TextBox
Friend WithEvents NotifyIcon1 As System.Windows.Forms.NotifyIcon
Friend WithEvents Button5 As System.Windows.Forms.Button
Friend WithEvents OpenFileDialog1 As System.Windows.Forms.OpenFileDialog
Friend WithEvents OpenFileDialog2 As System.Windows.Forms.OpenFileDialog
Friend WithEvents OpenFileDialog3 As System.Windows.Forms.OpenFileDialog
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(Form1))
Me.StatusBar1 = New System.Windows.Forms.StatusBar
Me.StatusBarPanel1 = New System.Windows.Forms.StatusBarPanel
Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
Me.giorno = New System.Windows.Forms.ComboBox
Me.Label1 = New System.Windows.Forms.Label
Me.Label2 = New System.Windows.Forms.Label
Me.mese = New System.Windows.Forms.ComboBox
Me.Label3 = New System.Windows.Forms.Label
Me.anno = New System.Windows.Forms.ComboBox
Me.GroupBox1 = New System.Windows.Forms.GroupBox
Me.Button1 = New System.Windows.Forms.Button
Me.Label5 = New System.Windows.Forms.Label
Me.ore = New System.Windows.Forms.ComboBox
Me.Label6 = New System.Windows.Forms.Label
Me.minuti = New System.Windows.Forms.ComboBox
Me.Label7 = New System.Windows.Forms.Label
Me.secondi = New System.Windows.Forms.ComboBox
Me.TextBox1 = New System.Windows.Forms.TextBox
Me.Label4 = New System.Windows.Forms.Label
Me.GroupBox2 = New System.Windows.Forms.GroupBox
Me.Button5 = New System.Windows.Forms.Button
Me.Button4 = New System.Windows.Forms.Button
Me.TextBox4 = New System.Windows.Forms.TextBox
Me.Button3 = New System.Windows.Forms.Button
Me.TextBox3 = New System.Windows.Forms.TextBox
Me.Button2 = New System.Windows.Forms.Button
Me.TextBox2 = New System.Windows.Forms.TextBox
Me.NotifyIcon1 = New System.Windows.Forms.NotifyIcon(Me.components)
Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog
Me.OpenFileDialog2 = New System.Windows.Forms.OpenFileDialog
Me.OpenFileDialog3 = New System.Windows.Forms.OpenFileDialog
CType(Me.StatusBarPanel1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupBox1.SuspendLayout()
Me.GroupBox2.SuspendLayout()
Me.SuspendLayout()
'
'StatusBar1
'
Me.StatusBar1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.StatusBar1.Location = New System.Drawing.Point(0, 158)
Me.StatusBar1.Name = "StatusBar1"
Me.StatusBar1.Panels.AddRange(New System.Windows.Forms.StatusBarPanel() {Me.StatusBarPanel1})
Me.StatusBar1.ShowPanels = True
Me.StatusBar1.Size = New System.Drawing.Size(606, 22)
Me.StatusBar1.SizingGrip = False
Me.StatusBar1.TabIndex = 0
'
'StatusBarPanel1
'
Me.StatusBarPanel1.Alignment = System.Windows.Forms.HorizontalAlignment.Center
Me.StatusBarPanel1.AutoSize = System.Windows.Forms.StatusBarPanelAutoSize.Spring
Me.StatusBarPanel1.Width = 606
'
'Timer1
'
Me.Timer1.Enabled = True
Me.Timer1.Interval = 1000
'
'giorno
'
Me.giorno.BackColor = System.Drawing.Color.White
Me.giorno.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.giorno.Items.AddRange(New Object() {"01", "02", "03", "04", "05", "06", "07", "08", "09", "10", "11", "12", "13", "14", "15", "16", "17", "18", "19", "20", "21", "22", "23", "24", "25", "26", "27", "28", "29", "30", "31"})
Me.giorno.Location = New System.Drawing.Point(8, 16)
Me.giorno.MaxDropDownItems = 20
Me.giorno.Name = "giorno"
Me.giorno.Size = New System.Drawing.Size(40, 21)
Me.giorno.TabIndex = 1
'
'Label1
'
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 6.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.Location = New System.Drawing.Point(8, 40)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(32, 16)
Me.Label1.TabIndex = 2
Me.Label1.Text = "Giorno"
Me.Label1.TextAlign = System.Drawing.ContentAlignment.TopCenter
'
'Label2
'
Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 6.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label2.Location = New System.Drawing.Point(40, 40)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(48, 16)
Me.Label2.TabIndex = 4
Me.Label2.Text = "Mese"
Me.Label2.TextAlign = System.Drawing.ContentAlignment.TopCenter
'
'mese
'
Me.mese.BackColor = System.Drawing.Color.White
Me.mese.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.mese.Items.AddRange(New Object() {"01", "02", "03", "04", "05", "06", "07", "08", "09", "10", "11", "12"})
Me.mese.Location = New System.Drawing.Point(48, 16)
Me.mese.MaxDropDownItems = 20
Me.mese.Name = "mese"
Me.mese.Size = New System.Drawing.Size(40, 21)
Me.mese.TabIndex = 3
'
'Label3
'
Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 6.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label3.Location = New System.Drawing.Point(80, 40)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(56, 16)
Me.Label3.TabIndex = 6
Me.Label3.Text = "Anno"
Me.Label3.TextAlign = System.Drawing.ContentAlignment.TopCenter
'
'anno
'
Me.anno.BackColor = System.Drawing.Color.White
Me.anno.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.anno.Items.AddRange(New Object() {"2006", "2007", "2008", "2009", "2010"})
Me.anno.Location = New System.Drawing.Point(88, 16)
Me.anno.MaxDropDownItems = 20
Me.anno.Name = "anno"
Me.anno.Size = New System.Drawing.Size(48, 21)
Me.anno.TabIndex = 5
'
'GroupBox1
'
Me.GroupBox1.Controls.Add(Me.Button1)
Me.GroupBox1.Controls.Add(Me.Label5)
Me.GroupBox1.Controls.Add(Me.ore)
Me.GroupBox1.Controls.Add(Me.Label6)
Me.GroupBox1.Controls.Add(Me.minuti)
Me.GroupBox1.Controls.Add(Me.Label7)
Me.GroupBox1.Controls.Add(Me.secondi)
Me.GroupBox1.Controls.Add(Me.TextBox1)
Me.GroupBox1.Controls.Add(Me.Label4)
Me.GroupBox1.Controls.Add(Me.Label3)
Me.GroupBox1.Controls.Add(Me.giorno)
Me.GroupBox1.Controls.Add(Me.Label1)
Me.GroupBox1.Controls.Add(Me.mese)
Me.GroupBox1.Controls.Add(Me.Label2)
Me.GroupBox1.Controls.Add(Me.anno)
Me.GroupBox1.FlatStyle = System.Windows.Forms.FlatStyle.System
Me.GroupBox1.Location = New System.Drawing.Point(8, 0)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(144, 152)
Me.GroupBox1.TabIndex = 7
Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "Impostazioni"
'
'Button1
'
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.System
Me.Button1.Location = New System.Drawing.Point(32, 96)
Me.Button1.Name = "Button1"
Me.Button1.TabIndex = 15
Me.Button1.Text = "Accetta"
'
'Label5
'
Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 6.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label5.Location = New System.Drawing.Point(80, 80)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(56, 16)
Me.Label5.TabIndex = 14
Me.Label5.Text = "Secondi"
Me.Label5.TextAlign = System.Drawing.ContentAlignment.TopCenter
'
'ore
'
Me.ore.BackColor = System.Drawing.Color.White
Me.ore.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.ore.Items.AddRange(New Object() {"01", "02", "03", "04", "05", "06", "07", "08", "09", "10", "11", "12", "13", "14", "15", "16", "17", "18", "19", "20", "21", "22", "23", "24"})
Me.ore.Location = New System.Drawing.Point(8, 56)
Me.ore.MaxDropDownItems = 20
Me.ore.Name = "ore"
Me.ore.Size = New System.Drawing.Size(40, 21)
Me.ore.TabIndex = 9
'
'Label6
'
Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 6.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label6.Location = New System.Drawing.Point(8, 80)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(32, 16)
Me.Label6.TabIndex = 10
Me.Label6.Text = "Ore"
Me.Label6.TextAlign = System.Drawing.ContentAlignment.TopCenter
'
'minuti
'
Me.minuti.BackColor = System.Drawing.Color.White
Me.minuti.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.minuti.Items.AddRange(New Object() {"01", "02", "03", "04", "05", "06", "07", "08", "09", "10", "11", "12", "13", "14", "15", "16", "17", "18", "19", "20", "21", "22", "23", "24", "25", "26", "27", "28", "29", "30", "31", "32", "33", "34", "35", "36", "37", "38", "39", "40", "41", "42", "43", "44", "45", "46", "47", "48", "49", "50", "51", "52", "53", "54", "55", "56", "57", "58", "59"})
Me.minuti.Location = New System.Drawing.Point(48, 56)
Me.minuti.MaxDropDownItems = 20
Me.minuti.Name = "minuti"
Me.minuti.Size = New System.Drawing.Size(40, 21)
Me.minuti.TabIndex = 11
'
'Label7
'
Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 6.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label7.Location = New System.Drawing.Point(32, 80)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(64, 16)
Me.Label7.TabIndex = 12
Me.Label7.Text = "Minuti"
Me.Label7.TextAlign = System.Drawing.ContentAlignment.TopCenter
'
'secondi
'
Me.secondi.BackColor = System.Drawing.Color.White
Me.secondi.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.secondi.Items.AddRange(New Object() {"01", "02", "03", "04", "05", "06", "07", "08", "09", "10", "11", "12", "13", "14", "15", "16", "17", "18", "19", "20", "21", "22", "23", "24", "25", "26", "27", "28", "29", "30", "31", "32", "33", "34", "35", "36", "37", "38", "39", "40", "41", "42", "43", "44", "45", "46", "47", "48", "49", "50", "51", "52", "53", "54", "55", "56", "57", "58", "59"})
Me.secondi.Location = New System.Drawing.Point(88, 56)
Me.secondi.MaxDropDownItems = 20
Me.secondi.Name = "secondi"
Me.secondi.Size = New System.Drawing.Size(48, 21)
Me.secondi.TabIndex = 13
'
'TextBox1
'
Me.TextBox1.BackColor = System.Drawing.SystemColors.Control
Me.TextBox1.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.TextBox1.Location = New System.Drawing.Point(8, 136)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.ReadOnly = True
Me.TextBox1.Size = New System.Drawing.Size(128, 13)
Me.TextBox1.TabIndex = 8
Me.TextBox1.Text = ""
Me.TextBox1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
'
'Label4
'
Me.Label4.Location = New System.Drawing.Point(24, 120)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(100, 16)
Me.Label4.TabIndex = 7
Me.Label4.Text = "Stringa di uscita"
'
'GroupBox2
'
Me.GroupBox2.Controls.Add(Me.Button5)
Me.GroupBox2.Controls.Add(Me.Button4)
Me.GroupBox2.Controls.Add(Me.TextBox4)
Me.GroupBox2.Controls.Add(Me.Button3)
Me.GroupBox2.Controls.Add(Me.TextBox3)
Me.GroupBox2.Controls.Add(Me.Button2)
Me.GroupBox2.Controls.Add(Me.TextBox2)
Me.GroupBox2.Location = New System.Drawing.Point(152, 0)
Me.GroupBox2.Name = "GroupBox2"
Me.GroupBox2.Size = New System.Drawing.Size(448, 152)
Me.GroupBox2.TabIndex = 8
Me.GroupBox2.TabStop = False
Me.GroupBox2.Text = "Programmi da aprire"
'
'Button5
'
Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.System
Me.Button5.Font = New System.Drawing.Font("Microsoft Sans Serif", 6.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button5.Location = New System.Drawing.Point(400, 128)
Me.Button5.Name = "Button5"
Me.Button5.Size = New System.Drawing.Size(40, 16)
Me.Button5.TabIndex = 21
Me.Button5.Text = "Tray"
'
'Button4
'
Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.System
Me.Button4.Location = New System.Drawing.Point(368, 96)
Me.Button4.Name = "Button4"
Me.Button4.TabIndex = 20
Me.Button4.Text = "Sfoglia"
'
'TextBox4
'
Me.TextBox4.BackColor = System.Drawing.Color.White
Me.TextBox4.Location = New System.Drawing.Point(8, 96)
Me.TextBox4.Name = "TextBox4"
Me.TextBox4.ReadOnly = True
Me.TextBox4.Size = New System.Drawing.Size(352, 20)
Me.TextBox4.TabIndex = 19
Me.TextBox4.Text = ""
'
'Button3
'
Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.System
Me.Button3.Location = New System.Drawing.Point(368, 56)
Me.Button3.Name = "Button3"
Me.Button3.TabIndex = 18
Me.Button3.Text = "Sfoglia"
'
'TextBox3
'
Me.TextBox3.BackColor = System.Drawing.Color.White
Me.TextBox3.Location = New System.Drawing.Point(8, 56)
Me.TextBox3.Name = "TextBox3"
Me.TextBox3.ReadOnly = True
Me.TextBox3.Size = New System.Drawing.Size(352, 20)
Me.TextBox3.TabIndex = 17
Me.TextBox3.Text = ""
'
'Button2
'
Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.System
Me.Button2.Location = New System.Drawing.Point(368, 16)
Me.Button2.Name = "Button2"
Me.Button2.TabIndex = 16
Me.Button2.Text = "Sfoglia"
'
'TextBox2
'
Me.TextBox2.BackColor = System.Drawing.Color.White
Me.TextBox2.Location = New System.Drawing.Point(8, 16)
Me.TextBox2.Name = "TextBox2"
Me.TextBox2.ReadOnly = True
Me.TextBox2.Size = New System.Drawing.Size(352, 20)
Me.TextBox2.TabIndex = 0
Me.TextBox2.Text = ""
'
'NotifyIcon1
'
Me.NotifyIcon1.Icon = CType(resources.GetObject("NotifyIcon1.Icon"), System.Drawing.Icon)
Me.NotifyIcon1.Text = "Apertura Temporizzata By GoLDBeRG"
Me.NotifyIcon1.Visible = True
'
'OpenFileDialog1
'
Me.OpenFileDialog1.Filter = "Tutti i File (*.*)|"
Me.OpenFileDialog1.InitialDirectory = "c:\"
'
'OpenFileDialog2
'
Me.OpenFileDialog2.Filter = "Tutti i File (*.*)|"
Me.OpenFileDialog2.InitialDirectory = "c:\"
'
'OpenFileDialog3
'
Me.OpenFileDialog3.Filter = "Tutti i File (*.*)|"
Me.OpenFileDialog3.InitialDirectory = "c:\"
'
'Form1
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(606, 180)
Me.Controls.Add(Me.GroupBox2)
Me.Controls.Add(Me.GroupBox1)
Me.Controls.Add(Me.StatusBar1)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.Fixed3D
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.MaximizeBox = False
Me.Name = "Form1"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Apertura Temporizzata By GoLDBeRG"
CType(Me.StatusBarPanel1, System.ComponentModel.ISupportInitialize).EndInit()
Me.GroupBox1.ResumeLayout(False)
Me.GroupBox2.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'27/04/2006 18.28.05
StatusBar1.Panels.Item(0).Text = Now.Now
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
StatusBar1.Panels.Item(0).Text = Now.Now
If a = Convert.ToString(Now.Now) Then
Process.Start(TextBox2.Text)
Process.Start(TextBox3.Text)
Process.Start(TextBox4.Text)
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
a = giorno.Text & "/" & mese.Text & "/" & anno.Text & " " & ore.Text & "." & minuti.Text & "." & secondi.Text
TextBox1.Text = a
End Sub
Private Sub NotifyIcon1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles NotifyIcon1.DoubleClick
If Me.Visible = True Then Else Me.Visible = True
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Me.Hide()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
OpenFileDialog1.ShowDialog()
TextBox2.Text = (OpenFileDialog1.FileName)
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
OpenFileDialog2.ShowDialog()
TextBox3.Text = (OpenFileDialog2.FileName)
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
OpenFileDialog3.ShowDialog()
TextBox4.Text = (OpenFileDialog3.FileName)
End Sub
End Class
Public Class Main
Shared Sub Main()
Application.EnableVisualStyles()
Application.Run(New Form1)
End Sub
End Class