Esecuzione di attività mediante My.Application, My.Computer e My.User
Aggiornamento: novembre 2007
I tre oggetti My principali che forniscono accesso alle informazioni e alla funzionalità comunemente utilizzata sono Oggetto My.Application, Oggetto My.Computer e Oggetto My.User. È possibile utilizzare questi oggetti per accedere alle informazioni correlate rispettivamente all'applicazione corrente, al computer sul quale è installata l'applicazione o all'utente corrente dell'applicazione.
Oggetti My.Application, My.Computer e My.User
Negli esempi riportati di seguito viene illustrata la modalità con cui è possibile recuperare le informazioni mediante l'oggetto My.
' Displays a message box that shows the full command line for the
' application.
Dim args As String = ""
For Each arg As String In My.Application.CommandLineArgs
args &= arg & " "
Next
MsgBox(args)
' Gets a list of subfolders in a folder
My.Computer.FileSystem.GetDirectories _
(My.Computer.FileSystem.SpecialDirectories.MyDocuments, True, "*Logs*")
Oltre al recupero delle informazioni, i membri esposti attraverso questi tre oggetti consentono anche l'esecuzione dei metodi correlati a quell'oggetto. È possibile, ad esempio, accedere a diversi metodi per modificare file o aggiornare il Registro di sistema mediante l'oggetto My.Computer.
L'I/O dei file è significativamente più semplice e più veloce con l'oggetto My, che include diversi metodi e proprietà per modificare file, directory e unità. L'oggetto Oggetto TextFieldParser consente la lettura da file con struttura di grandi dimensioni che presentano campi delimitati o a larghezza fissa. Nell'esempio viene aperto il TextFieldParserreader e quindi utilizzato per leggere da C:\TestFolder1\test1.txt.
Dim reader As Microsoft.VisualBasic.FileIO.TextFieldParser
reader = My.Computer.FileSystem.OpenTextFieldParser _
("C:\TestFolder1\test1.txt")
reader.TextFieldType = Microsoft.VisualBasic.FileIO.FieldType.Delimited
reader.Delimiters = New String() {","}
Dim currentRow As String()
While Not reader.EndOfData
Try
currentRow = reader.ReadFields()
Dim currentField As String
For Each currentField In currentRow
MsgBox(currentField)
Next
Catch ex As Microsoft.VisualBasic.FileIO.MalformedLineException
MsgBox("Line " & ex.Message & _
"is not valid and will be skipped.")
End Try
End While
L'oggetto My.Application consente di modificare la lingua per l'applicazione. Nell'esempio riportato di seguito viene illustrata la modalità con la quale è possibile chiamare questo metodo.
' Changes the current culture for the application to Jamaican English.
My.Application.ChangeCulture("en-JM")
Vedere anche
Concetti
Dipendenza di My dal tipo di progetto