Imports System
Imports System.IO
Imports System.Data
Imports System.Environment
Public Class Form1
Inherits System.Windows.Forms.Form
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
'This call is required by the Windows Form Designer.
InitializeComponent()
'Add any initialization after the InitializeComponent() call
End Sub
'Form overrides dispose to clean up the component list.
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
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents Button2 As System.Windows.Forms.Button
Friend WithEvents Sposta As System.Windows.Forms.RadioButton
Friend WithEvents Copia As System.Windows.Forms.RadioButton
Friend WithEvents Elimina As System.Windows.Forms.RadioButton
Friend WithEvents Controlla As System.Windows.Forms.RadioButton
Friend WithEvents Crea As System.Windows.Forms.RadioButton
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.Sposta = New System.Windows.Forms.RadioButton
Me.Copia = New System.Windows.Forms.RadioButton
Me.Elimina = New System.Windows.Forms.RadioButton
Me.Controlla = New System.Windows.Forms.RadioButton
Me.Crea = New System.Windows.Forms.RadioButton
Me.Button1 = New System.Windows.Forms.Button
Me.Button2 = New System.Windows.Forms.Button
Me.SuspendLayout()
'
'Sposta
'
Me.Sposta.Location = New System.Drawing.Point(8, 8)
Me.Sposta.Name = "Sposta"
Me.Sposta.Size = New System.Drawing.Size(272, 24)
Me.Sposta.TabIndex = 0
Me.Sposta.Text = "Sposta un File"
'
'Copia
'
Me.Copia.Location = New System.Drawing.Point(8, 32)
Me.Copia.Name = "Copia"
Me.Copia.Size = New System.Drawing.Size(272, 24)
Me.Copia.TabIndex = 1
Me.Copia.Text = "Copia un File"
'
'Elimina
'
Me.Elimina.Location = New System.Drawing.Point(8, 56)
Me.Elimina.Name = "Elimina"
Me.Elimina.Size = New System.Drawing.Size(272, 24)
Me.Elimina.TabIndex = 2
Me.Elimina.Text = "Elimina un File"
'
'Controlla
'
Me.Controlla.Location = New System.Drawing.Point(8, 80)
Me.Controlla.Name = "Controlla"
Me.Controlla.Size = New System.Drawing.Size(272, 24)
Me.Controlla.TabIndex = 3
Me.Controlla.Text = "Controlla L'esistenza di un File"
'
'Crea
'
Me.Crea.Location = New System.Drawing.Point(8, 104)
Me.Crea.Name = "Crea"
Me.Crea.Size = New System.Drawing.Size(272, 24)
Me.Crea.TabIndex = 4
Me.Crea.Text = "Crea un File"
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(8, 136)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(272, 32)
Me.Button1.TabIndex = 5
Me.Button1.Text = "Esegui"
'
'Button2
'
Me.Button2.Location = New System.Drawing.Point(8, 176)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(272, 32)
Me.Button2.TabIndex = 6
Me.Button2.Text = "Esci"
'
'Form1
'
Me.AutoScaleBaseSize = New System.Drawing.Size(7, 19)
Me.ClientSize = New System.Drawing.Size(292, 216)
Me.Controls.Add(Me.Button2)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.Crea)
Me.Controls.Add(Me.Controlla)
Me.Controls.Add(Me.Elimina)
Me.Controls.Add(Me.Copia)
Me.Controls.Add(Me.Sposta)
Me.Font = New System.Drawing.Font("Comic Sans MS", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "Form1"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "File Manager - By Citynova"
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Select Case Sposta.CausesValidation And Copia.CausesValidation And Elimina.CausesValidation And Controlla.CausesValidation And Crea.CausesValidation
Case Sposta.Checked = False And Copia.Checked = False And Elimina.Checked = False And Controlla.Checked = False And Crea.Checked = False
MessageBox.Show("Nessuna Azione Selezionata!", "Program Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
Case Sposta.Checked = True And Copia.Checked = False And Elimina.Checked = False And Controlla.Checked = False And Crea.Checked = False
Dim Sposta As New Sposta
Sposta.Show()
Case Sposta.Checked = False And Copia.Checked = True And Elimina.Checked = False And Controlla.Checked = False And Crea.Checked = False
Dim Copia As New Copia
Copia.Show()
Case Sposta.Checked = False And Copia.Checked = False And Elimina.Checked = True And Controlla.Checked = False And Crea.Checked = False
Dim Elimina As New Elimina
Elimina.Show()
Case Sposta.Checked = False And Copia.Checked = False And Elimina.Checked = False And Controlla.Checked = True And Crea.Checked = False
Dim Controlla As New Controlla
Controlla.Show()
Case Sposta.Checked = False And Copia.Checked = False And Elimina.Checked = False And Controlla.Checked = False And Crea.Checked = True
Dim Crea As New Crea
Crea.Show()
End Select
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
End
End Sub
End Class