Realizar tareas con My.Application, My.Computer y My.User (Visual Basic)
Los tres objetos My centrales que proporcionan acceso a información y funcionalidad de uso frecuente son My.Application (ApplicationBase), My.Computer (Computer) y My.User (User). Puede utilizar estos objetos para tener acceso a información relacionada con la aplicación actual, con el equipo donde está instalada la aplicación o con el usuario actual de la aplicación, respectivamente.
My.Application, My.Computer y My.User
Los ejemplos siguientes muestran cómo se puede recuperar información utilizando 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*")
Además de recuperar información, los miembros expuestos a través de estos tres objetos también permiten ejecutar métodos relacionados con ese objeto. Por ejemplo, puede tener acceso a una variedad de métodos para manipular archivos o actualizar el Registro a través de My.Computer.
La E/S de archivos resulta mucho más sencilla y rápida con My, que incluye una variedad de métodos y propiedades para manipular archivos, directorios y unidades. El objeto TextFieldParser permite leer en archivos estructurados grandes con campos delimitados o de ancho fijo. En este ejemplo se abre TextFieldParser reader, que se utiliza para leer 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
My.Application permite cambiar la referencia cultural de la aplicación. El ejemplo siguiente muestra cómo se puede llamar a este método.
' Changes the current culture for the application to Jamaican English.
My.Application.ChangeCulture("en-JM")