My.Application, My.Computer ve My.User ile Görev Gerçekleştirme (Visual Basic)
Bilgilere ve yaygın olarak kullanılan işlevlere erişim sağlayan üç merkezi My
nesne şunlardır My.Application
: (ApplicationBase), My.Computer
(Computer) ve My.User
(User). Bu nesneleri geçerli uygulamayla, uygulamanın yüklü olduğu bilgisayarla veya uygulamanın geçerli kullanıcısıyla ilgili bilgilere erişmek için kullanabilirsiniz.
My.Application, My.Computer ve My.User
Aşağıdaki örneklerde kullanılarak My
bilgilerin nasıl alınabileceği gösterilmektedir.
' 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*")
Bilgileri almaya ek olarak, bu üç nesne aracılığıyla kullanıma sunulan üyeler de bu nesneyle ilgili yöntemleri yürütmenize olanak sağlar. Örneğin, dosyaları işlemek veya kayıt defterini aracılığıyla My.Computer
güncelleştirmek için çeşitli yöntemlere erişebilirsiniz.
Dosya G/Ç, dosyaları, dizinleri ve sürücüleri işlemek için çeşitli yöntemler ve özellikler içeren ile My
önemli ölçüde daha kolay ve hızlıdır. TextFieldParser nesnesi, sınırlandırılmış veya sabit genişlikli alanlar içeren büyük yapılandırılmış dosyalardan okumanızı sağlar. Bu örnek dosyasını TextFieldParser
reader
açar ve 'den C:\TestFolder1\test1.txt
okumak için kullanır.
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
uygulamanızın kültürünü değiştirmenize olanak tanır. Aşağıdaki örnekte bu yöntemin nasıl çağrılabileceği gösterilmektedir.
' Changes the current culture for the application to Jamaican English.
My.Application.ChangeCulture("en-JM")
Ayrıca bkz.
Geri Bildirim
https://aka.ms/ContentUserFeedback.
Çok yakında: 2024 boyunca, içerik için geri bildirim mekanizması olarak GitHub Sorunları’nı kullanımdan kaldıracak ve yeni bir geri bildirim sistemiyle değiştireceğiz. Daha fazla bilgi için bkz.Gönderin ve geri bildirimi görüntüleyin