Esecuzione di attività mediante My.Application, My.Computer e My.User (Visual Basic)
I tre oggetti My principali che consentono di accedere alle informazioni e alle funzionalità più comuni sono My.Application (ApplicationBase), My.Computer (Computer) e My.User (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 TextFieldParser consente la lettura da file con struttura di grandi dimensioni che presentano campi delimitati o a larghezza fissa. Nell'esempio viene aperto il TextFieldParser reader e quindi utilizzato per leggere da C:\TestFolder1\test1.txt.
Dim 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 le impostazioni cultura 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")