Imports System.Windows.Forms
Public Class NuovoFile
Sub New(ByVal Cartella As String, ByVal Percorsi As AutoCompleteStringCollection)
InitializeComponent()
Percorso.Text = Cartella
Percorso.AutoCompleteCustomSource = Percorsi
End Sub
Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
Me.DialogResult = System.Windows.Forms.DialogResult.OK
Me.Close()
End Sub
Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
Me.Close()
End Sub
Private Sub Tipo_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tipo.SelectedIndexChanged
Dim Estensione As String = ""
Select Case Tipo.SelectedIndex
Case 0
Estensione = "htm"
Case 1
Estensione = "html"
Case 2
Estensione = "css"
Case 3
Estensione = "js"
Case 4
Estensione = "txt"
End Select
If Nome.Text.Contains(".") Then
Dim posPunto As Integer = Nome.Text.IndexOf(".")
Nome.Text = Nome.Text.Split(".")(0)
End If
Nome.Text = Nome.Text & "." & Estensione
End Sub
End Class