Imports RegManager.frmHelper
Public Class frmOption
Public Function GetInfo(ByVal Mode As Boolean) As String()
Dim S(1) As String
Dim PrevFilter As String = FOpen.Filter
'Link
If Mode = True Then
FOpen.Filter = "Tutti i file|*.*"
S(0) = InputBox("Inserire il nome del nuovo collegamento:")
If FOpen.ShowDialog = Windows.Forms.DialogResult.OK Then
S(1) = FOpen.FileName
End If
Else
FOpen.Filter = "File musicali|*.wmv;*.wma;*.mp3;*.mid"
S(0) = InputBox("Inserire il nome del nuovo brano:")
If FOpen.ShowDialog = Windows.Forms.DialogResult.OK Then
S(1) = FOpen.FileName
End If
End If
FOpen.Filter = PrevFilter
Return S
End Function
Private Sub cmdTextRef_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdTextRef.Click
Dim W As New IO.StreamWriter(Application.StartupPath + "\Settings\Texts.dat")
W.WriteLine(txtOpen.Text)
W.WriteLine(txtMusic.Text)
W.WriteLine(txtPass.Text)
W.Close()
End Sub
Private Sub cmdTextsRip_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdTextsRip.Click
txtOpen.Text = "E' attvio l'aiutante virtuale. Cliccaci sopra per accedere alle varie funzioni."
txtMusic.Text = "In ascolto..."
txtPass.Text = "Password errata!"
Dim W As New IO.StreamWriter(Application.StartupPath + "\Settings\Texts.dat")
W.WriteLine(txtOpen.Text)
W.WriteLine(txtMusic.Text)
W.WriteLine(txtPass.Text)
W.Close()
End Sub
Private Sub cmdInitbrowse_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdInitbrowse.Click
If FOpen.ShowDialog = Windows.Forms.DialogResult.OK Then
txtInitImm.Text = FOpen.FileName
End If
End Sub
Private Sub cmdMusicBrowse_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdMusicBrowse.Click
If FOpen.ShowDialog = Windows.Forms.DialogResult.OK Then
txtMusicImm.Text = FOpen.FileName
End If
End Sub
Private Sub cmdImmRef_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdImmRef.Click
If txtInitImm.Text = Nothing Or txtMusicImm.Text = Nothing Then
MsgBox("E' necessario riempire tutti i campi. Scegliere delle immagini adatte!", MsgBoxStyle.Exclamation)
Exit Sub
End If
Dim W As New IO.StreamWriter(Application.StartupPath + "\Settings\Images.dat")
W.WriteLine(nudW.Value)
W.WriteLine(nudH.Value)
W.WriteLine(IO.Path.GetFileName(txtInitImm.Text))
W.WriteLine(IO.Path.GetFileName(txtMusicImm.Text))
W.Close()
Try
FileCopy(txtInitImm.Text, Application.StartupPath + "\Imms\" + IO.Path.GetFileName(txtInitImm.Text))
Catch IOE As IO.IOException
End Try
Try
FileCopy(txtMusicImm.Text, Application.StartupPath + "\Imms\" + IO.Path.GetFileName(txtMusicImm.Text))
Catch IOE As IO.IOException
End Try
End Sub
Private Sub cmdImmRip_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdImmRip.Click
nudW.Value = 71
nudH.Value = 91
txtInitImm.Text = Application.StartupPath + "\Imms\002.gif"
txtMusicImm.Text = Application.StartupPath + "\Imms\003.jpg"
Dim W As New IO.StreamWriter(Application.StartupPath + "\Settings\Images.dat")
W.WriteLine(71)
W.WriteLine(91)
W.WriteLine("002.gif")
W.WriteLine("003.jpg")
W.Close()
End Sub
Private Sub cmdAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdAdd.Click
Dim S(1) As String
Dim L As ListViewItem
S = GetInfo(True)
L = New ListViewItem(S)
lstLinks.Items.Add(L)
End Sub
Private Sub cmdRemove_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdRemove.Click
Try
If lstLinks.SelectedIndices(0) >= 0 Then
lstLinks.Items.RemoveAt(lstLinks.SelectedIndices(0))
End If
Catch NRE As NullReferenceException
End Try
End Sub
Private Sub cmdSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSave.Click
Dim W As New IO.StreamWriter(Application.StartupPath + "\Settings\Links.dat")
Dim L As ListViewItem
For Each L In lstLinks.Items
W.WriteLine(L.SubItems(0).Text)
W.WriteLine(L.SubItems(1).Text)
Next
W.Close()
End Sub
Private Sub frmOption_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim L As Link
Dim S(1) As String
Dim LI As ListViewItem
txtOpen.Text = Settings.Texts.Open
txtMusic.Text = Settings.Texts.Music
txtPass.Text = Settings.Texts.Out
nudW.Value = Settings.Images.W
nudH.Value = Settings.Images.H
txtInitImm.Text = Application.StartupPath + "\Imms\" + Settings.Images.Init
txtMusicImm.Text = Application.StartupPath + "\Imms" + Settings.Images.Music
txtExeMusic.Text = Settings.MusicExe
Try
For Each L In Settings.Links
S(0) = L.Name
S(1) = L.Path
LI = New ListViewItem(S)
lstLinks.Items.Add(LI)
Next
Catch NRE As NullReferenceException
End Try
Try
For Each L In Settings.Musics
S(0) = L.Name
S(1) = L.Path
LI = New ListViewItem(S)
lstMusics.Items.Add(LI)
Next
Catch NRE As NullReferenceException
End Try
End Sub
Private Sub frmOption_FormClosed(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles MyBase.FormClosed
MsgBox("Tutte le modifiche apportate saranno visibili al riavvio del programma!", MsgBoxStyle.Information)
End Sub
Private Sub cmdExeBrowse_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdExeBrowse.Click
FOpen.Filter = "Applicazioni|*.exe;*.com"
If FOpen.ShowDialog = Windows.Forms.DialogResult.OK Then
txtExeMusic.Text = FOpen.ShowDialog
End If
FOpen.Filter = "File immagine|*.jpg;*.jpeg;*.gif;*.bmp;*.png"
End Sub
Private Sub cmdExeRef_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdExeRef.Click
Dim W As New IO.StreamWriter(Application.StartupPath + "\Settings\ExeMus.dat")
W.WriteLine(txtExeMusic.Text)
W.Close()
End Sub
Private Sub cmdExeRip_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdExeRip.Click
txtExeMusic.Text = "C:\Programmi\Windows Media Player\wmplayer.exe"
Dim W As New IO.StreamWriter(Application.StartupPath + "\Settings\ExeMus.dat")
W.WriteLine(txtExeMusic.Text)
W.Close()
End Sub
Private Sub cmdMAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdMAdd.Click
Dim S(1) As String
Dim L As ListViewItem
S = GetInfo(False)
L = New ListViewItem(S)
lstMusics.Items.Add(L)
End Sub
Private Sub cmdMRemove_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdMRemove.Click
Try
If lstMusics.SelectedIndices(0) >= 0 Then
lstMusics.Items.RemoveAt(lstMusics.SelectedIndices(0))
End If
Catch NRE As NullReferenceException
End Try
End Sub
Private Sub cmdMRefresh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdMRefresh.Click
Dim W As New IO.StreamWriter(Application.StartupPath + "\Settings\Musics.dat")
Dim L As ListViewItem
For Each L In lstMusics.Items
W.WriteLine(L.SubItems(0).Text)
W.WriteLine(L.SubItems(1).Text)
Next
W.Close()
End Sub
End Class