Melakukan Tugas dengan My.Application, My.Computer, dan My.User (Visual Basic)
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")