ApplicationBase.Log Özellik
Tanım
Önemli
Bazı bilgiler ürünün ön sürümüyle ilgilidir ve sürüm öncesinde önemli değişiklikler yapılmış olabilir. Burada verilen bilgilerle ilgili olarak Microsoft açık veya zımni hiçbir garanti vermez.
Uygulamanın günlük dinleyicilerine olay ve özel durum bilgileri yazmak için özellikler ve yöntemler sağlayan bir nesnesi alır.
public:
property Microsoft::VisualBasic::Logging::Log ^ Log { Microsoft::VisualBasic::Logging::Log ^ get(); };public Microsoft.VisualBasic.Logging.Log Log { get; }member this.Log : Microsoft.VisualBasic.Logging.LogPublic ReadOnly Property Log As LogÖzellik Değeri
Log Geçerli uygulamanın nesnesi.
Örnekler
Bu örnekte izleme bilgilerini günlüğe kaydetmek için yönteminin nasıl kullanılacağı My.Application.Log.WriteEntry gösterilmektedir. Daha fazla bilgi için bkz . Nasıl yapılır: Günlük İletileri Yazma.
Private Sub GetOpenFormTitles()
Dim formTitles As New Collection
Try
For Each f As Form In My.Application.OpenForms
' Use a thread-safe method to get all form titles.
formTitles.Add(GetFormTitle(f))
Next
Catch ex As Exception
formTitles.Add("Error: " & ex.Message)
End Try
Form1.ListBox1.DataSource = formTitles
End Sub
Private Delegate Function GetFormTitleDelegate(f As Form) As String
Private Function GetFormTitle(f As Form) As String
' Check if the form can be accessed from the current thread.
If Not f.InvokeRequired Then
' Access the form directly.
Return f.Text
Else
' Marshal to the thread that owns the form.
Dim del As GetFormTitleDelegate = AddressOf GetFormTitle
Dim param As Object() = {f}
Dim result As System.IAsyncResult = f.BeginInvoke(del, param)
' Give the form's thread a chance process function.
System.Threading.Thread.Sleep(10)
' Check the result.
If result.IsCompleted Then
' Get the function's return value.
Return "Different thread: " & f.EndInvoke(result).ToString
Else
Return "Unresponsive thread"
End If
End If
End Function
