SaveFileDialog
______________________________________________________
'Aggiungi il savefiledialog
Dim save as new SaveFileDialog
'metti il formato
save.filter = "File di testo|.txt"
'metti che si apre il savefiledialog e salvi
If save.ShowDialog = Windows.Forms.DialogResult.OK Then
Dim c As New IO.StreamWriter(save.FileName)
c.WriteLine(TextBox1.Text)
c.Close()
End If
______________________________________________________
OpenFileDialog
______________________________________________________
'Aggiungi l'OpenFileDialog
Dim Open As New OpenFileDialog
'metti il formato
Open.Filter = "Script Files|.vbs"
'Metti che si apre l'OpenFileDialog e apra
If Open.ShowDialog = Windows.Forms.DialogResult.OK Then
Dim c As New IO.StreamReader(Open.FileName)
TB1.Text = c.ReadToEnd
c.Close()
End If
______________________________________________________
FolderBrowserDialog
______________________________________________________
'Aggiungi il FolderBrowserDialog
Dim Folder as new FolderBrowserDialog
Folder.ShowDialog()
TextBox1.Text = FolderBrowserDialog1.SelectedPath
4 Dialogs
Pubblicato il 05/08/2008
Programmatore VB.NET, C#, C, C++, Objective-C, Swift, Java e PHP. Sto studiando Python
|
Aggiungi un commento