Megosztás a következőn keresztül:

Feladatok végrehajtása a My.Application, a My.Computer és a My.User (Visual Basic) használatával

Az információkhoz és a gyakran használt funkciókhoz hozzáférést biztosító három központi My objektum a My.Application (ApplicationBase), My.Computer (Computer) és My.User (User). Ezekkel az objektumokkal hozzáférhet az aktuális alkalmazáshoz, az alkalmazás által telepített számítógéphez vagy az alkalmazás aktuális felhasználóhoz kapcsolódó információkhoz.

My.Application, My.Computer és My.User

Az alábbi példák bemutatják, hogyan kérhetők le az adatok a használatával 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*")

A három objektumon keresztül közzétett tagok az információk beolvasása mellett lehetővé teszik az objektumhoz kapcsolódó metódusok végrehajtását is. A fájlok módosításához vagy a beállításjegyzék My.Computerfrissítéséhez például számos módszer érhető el.

A fájl I/O-val jelentősen egyszerűbb és gyorsabb Mya fájlazonosító, amely számos különböző módszert és tulajdonságot tartalmaz a fájlok, könyvtárak és meghajtók manipulálására. Az TextFieldParser objektum lehetővé teszi, hogy nagy méretű, tagolt vagy rögzített szélességű mezőkkel rendelkező, strukturált fájlokból olvasson. Ez a példa megnyitja a TextFieldParserreader elemet, és azt használja a forrásból C:\TestFolder1\test1.txtvaló olvasáshoz.

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 lehetővé teszi az alkalmazás kulturális környezetének módosítását. Az alábbi példa bemutatja, hogyan hívható meg ez a metódus.

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

Lásd még

  • Last updated on