Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
29.12.2016 19:59:07 |
Dennis |
|
|
Status- und Fehlermeldungen in Textbox ausgeben |
29.12.2016 21:02:38 |
Gast83184 |
|
|
|
30.12.2016 17:11:43 |
Dennis |
|
|
|
30.12.2016 17:25:47 |
Dennis |
|
|
Von:
Gast83184 |
Datum:
29.12.2016 21:02:38 |
Views:
632 |
Rating:
|
Antwort:
|
Thema:
Status- und Fehlermeldungen in Textbox ausgeben |
Erstell dir eine UserForm (Name: usfMessage) mit ner TextBox (Name: TextBox1) drin.
In dies packst du:
'UserForm: usfMessage
Option Explicit
Private Sub UserForm_Initialize()
TextBox1.Locked = True
TextBox1.MultiLine = True
TextBox1.BackColor = rgbLightGray
TextBox1.ForeColor = rgbDarkRed
TextBox1.ScrollBars = fmScrollBarsBoth
End Sub
Public Sub AddMessage(Message As String)
If TextBox1.Text <> "" Then
TextBox1.Text = TextBox1.Text & vbNewLine & Message
Else
TextBox1.Text = Message
End If
End Sub
Public Sub ClearMessages()
TextBox1.Text = ""
End Sub
Ein Beispiel zur Verwendung:
'Modul
Option Explicit
Sub Test()
usfMessage.ClearMessages
usfMessage.AddMessage "Huhu! - Nachricht1."
usfMessage.AddMessage "Ich bin nicht da. - Nachricht2."
usfMessage.Show
End Sub
Du tust also einmalig am Anfang deiner Dinge den Inhalt leeren und tust dann in deinen Methoden einfach nur per AddMessage der TextBox eine neue Nachricht hinzufügen.
So in der Art ...
Grüße
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
29.12.2016 19:59:07 |
Dennis |
|
|
Status- und Fehlermeldungen in Textbox ausgeben |
29.12.2016 21:02:38 |
Gast83184 |
|
|
|
30.12.2016 17:11:43 |
Dennis |
|
|
|
30.12.2016 17:25:47 |
Dennis |
|
|