Aracılığıyla paylaş

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 Mybilgilerin 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.Computergü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ı TextFieldParserreader açar ve 'den C:\TestFolder1\test1.txtokumak 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.

  • Last updated on