Bagikan melalui

Melakukan Tugas dengan My.Application, My.Computer, dan My.User (Visual Basic)

  • Artikel

Tiga objek My pusat yang menyediakan akses ke informasi dan fungsionalitas yang umum digunakan adalah My.Application (ApplicationBase), My.Computer (Computer), dan My.User (User). Anda dapat menggunakan objek ini untuk mengakses informasi yang terkait dengan aplikasi saat ini, komputer tempat aplikasi diinstal, atau pengguna aplikasi saat ini secara masing-masing.

My.Application, My.Computer, dan My.User

Contoh berikut menunjukkan bagaimana informasi dapat diambil menggunakan 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*")

Selain mengambil informasi, anggota yang diekspos melalui ketiga objek ini juga memungkinkan Anda untuk menjalankan metode yang terkait dengan objek tersebut. Misalnya, Anda dapat mengakses berbagai metode untuk memanipulasi file atau memperbarui registri melalui My.Computer.

I/O file secara signifikan lebih mudah dan lebih cepat dengan My, yang mencakup berbagai metode dan properti untuk memanipulasi file, direktori, dan drive. Objek TextFieldParser memungkinkan Anda membaca dari file terstruktur besar yang memiliki bidang berbatas atau lebar-tetap. Contoh ini membuka TextFieldParser reader dan menggunakannya untuk membaca dari 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 memungkinkan Anda mengubah budaya untuk aplikasi Anda. Contoh berikut menunjukkan bagaimana metode ini dapat dipanggil.

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

Lihat juga