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 TextFieldParserreader 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")