Debug-Information außerhalb der VBA-IDE anzeigen |
|
Dieses Beispiel soll zeigen, wie sich Debug-Informationen auch bei geschlossener VBA-Umgebung anzeigen lassen. Damit die Tracking-Informationen sichtbar sind, muss die Ausgabe irgendwo im Word-Fenster erfolgen. Innerhalb des VBA-Codes wird eine Funktion aufgerufen, der der auszugebende Text als Paramter mitgegeben wird. Die aufgerufene Funktion bewirkt letztendlich nur, dass der Text in der Auswahlliste einer neu angelegten Symbolleiste angezeigt wird. Public Function AddTrackInfo(ByVal str As String) ' Aufruf aus anderen Prozeduren Dim ctl As CommandBarControl Set ctl = GetBar If str = "Clear" Then ' Löschen der Tracking-Infos fkt_TrackClear Else ctl.AddItem ctl.ListIndex + 1 & ". " & str ' Setzen der Anzeige auf den letzten Eintrag ctl.ListIndex = ctl.ListCount End If On Error Resume Next DoEvents End Function Der Aufruf innerhalb des Codes erfolgt dann folgendermaßen: AddTrackInfo "Ausgabetext" Beispiel: Sub BeispielTracker() Dim i As Integer AddTrackInfo "Clear" For i = 1 To 10 AddTrackInfo Rnd(i * i) Sleep 500 DoEvents Next i End Sub |
Besucher: 0 online | 0 heute | 0 diesen Monat | 2202438 insgesamt | Seitenaufrufe: 45 | Letzte Änderung: 24.06.2006 | © 2001-18 Christian Freßdorf | ||||
Wer sich nicht selbst helfen will, dem kann niemand helfen. Pestalozzi |
powered by phpCMS and PAX |