Udostępnij za pośrednictwem

Wykonywanie zadań z My.Application, My.Computer oraz My.User (Visual Basic)

  • Artykuł

Trzy centralne My obiekty, które zapewniają dostęp do informacji i powszechnie używanych funkcji, to My.Application (ApplicationBase), My.Computer (Computer) i My.User (User). Za pomocą tych obiektów można uzyskać dostęp do informacji powiązanych z bieżącą aplikacją, komputerem, na którym zainstalowano aplikację, lub odpowiednio bieżącym użytkownikiem aplikacji.

My.Application, My.Computer i My.User

W poniższych przykładach pokazano, jak można pobrać informacje przy użyciu polecenia 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*")

Oprócz pobierania informacji, elementy członkowskie uwidocznione za pośrednictwem tych trzech obiektów umożliwiają również wykonywanie metod związanych z tym obiektem. Na przykład można uzyskać dostęp do różnych metod manipulowania plikami lub aktualizowania rejestru za pomocą polecenia My.Computer.

Operacje we/wy plików są znacznie łatwiejsze i szybsze dzięki Myfunkcji , która obejmuje różne metody i właściwości manipulowania plikami, katalogami i dyskami. Obiekt TextFieldParser umożliwia odczytywanie z dużych plików strukturalnych, które mają rozdzielane lub stałe pola. W tym przykładzie zostanie otwarty element TextFieldParser reader i użyje go do odczytu z pliku 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 umożliwia zmianę kultury aplikacji. W poniższym przykładzie pokazano, jak można wywołać tę metodę.

' Changes the current culture for the application to Jamaican English.
My.Application.ChangeCulture("en-JM")

Zobacz też