Richtextbox1.appendtext("text")

  • VB.NET

Es gibt 29 Antworten in diesem Thema. Der letzte Beitrag () ist von Digot - Software.

    Richtextbox1.appendtext("text")

    Hiii, hab ein problem & bekomm das net hin also ich wollte machen,

    wenn der user sich einloggt soll in die Richtextbox1 die Funktionen stehen was das programm kann zb er loggt sich ein dann steht da:

    Bot: USERNAME Wurde Erfolgreich Eingeloggt
    Bot: Dir stehen Folgende Funktionen Für verfügung :D
    Botfunktionen: /status - Abfrage Ob On oder Off!

    So wollte ich es machen aber mein code ist irgendwie falsch und weiß nicht weiter sitz da schonn seit heute morgen drann -.-'

    Mein Code:

    VB.NET-Quellcode

    1. TextBox1.Text = "/Status" = Label1.Text = "Online"


    So wie ich es da oben geschrieben habe (Bot: USERNAME Bla) hab ich gerade nochma in vb geschrieben :D

    Ganzer code:

    VB.NET-Quellcode

    1. RichTextBox1.SelectionFont = New Font(RichTextBox1.Font, FontStyle.Bold)
    2. RichTextBox1.SelectionColor = Color.Black
    3. RichTextBox1.AppendText("Bot: ")
    4. RichTextBox1.SelectionColor = Color.Black
    5. RichTextBox1.SelectionFont = New Font(RichTextBox1.Font, FontStyle.Regular)
    6. RichTextBox1.AppendText("Dir stehen Folgende Funktionen Für verfügung :D" & vbLf)
    7. RichTextBox1.SelectionFont = New Font(RichTextBox1.Font, FontStyle.Bold)
    8. RichTextBox1.SelectionColor = Color.Black
    9. RichTextBox1.AppendText("Botfunktionen: ")
    10. RichTextBox1.SelectionFont = New Font(RichTextBox1.Font, FontStyle.Bold)
    11. RichTextBox1.SelectionColor = Color.LimeGreen
    12. RichTextBox1.AppendText("/status")
    13. RichTextBox1.SelectionFont = New Font(RichTextBox1.Font, FontStyle.Regular)
    14. RichTextBox1.SelectionColor = Color.Black
    15. RichTextBox1.AppendText(" - Abfrage Ob")
    16. RichTextBox1.SelectionFont = New Font(RichTextBox1.Font, FontStyle.Bold)
    17. RichTextBox1.SelectionColor = Color.LimeGreen
    18. RichTextBox1.AppendText(" On")
    19. RichTextBox1.SelectionFont = New Font(RichTextBox1.Font, FontStyle.Regular)
    20. RichTextBox1.SelectionColor = Color.Black
    21. RichTextBox1.AppendText(" oder")
    22. RichTextBox1.SelectionFont = New Font(RichTextBox1.Font, FontStyle.Bold)
    23. RichTextBox1.SelectionColor = Color.Red
    24. RichTextBox1.AppendText(" Off")
    25. RichTextBox1.SelectionFont = New Font(RichTextBox1.Font, FontStyle.Regular)
    26. RichTextBox1.SelectionColor = Color.Black
    27. RichTextBox1.AppendText("! " & vbLf)


    Klappt aber nicht weil in die Textbox wo man reinschreibt steht dann "False" Naya hoffe das ihr mir Weiter helfen könnt.

    Mfg Getsha16

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Getsha16“ ()

    Hmm Hab den Code =>

    VB.NET-Quellcode

    1. If TextBox1.Text = "/Status" Then
    3. Label1.Text = "Online"
    5. End If


    In die textbox reingemacht tut sich nix und dann hab ich den code in den button reingemacht wo man sich dann einloggt aber ich schreibe es aber der label ändert sich nicht oO

    MfG Getsha

    Füg doch noch eine Textbox (Textbox1) und einen Button (Button1) hinzu. Dann füg folgenden Code ein:

    VB.NET-Quellcode

    1. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    3. If TextBox1.Text = "/Status" Then
    4. Label1.Text = "Online"
    5. End If
    7. If TextBox1.Text = "/status" Then
    8. Label1.Text = "Online"
    9. End If
    11. TextBox1.Clear()
    13. End Sub


    Ich hoffe ich konnte dein Problem lösen!

    MFG Andi2572

    SelectionFont und SelectionColor wird auf selected Text angewendet.
    Wenn Du also Text formatieren willst, setze RTB.SelectionStart auf das 1. zu formatierende Zeichen, RTB.SelectionLength ist die Länge des zu fromatierenden Textes. :D
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Andi2572 schrieb:

    Füg doch noch eine Textbox (Textbox1) und einen Button (Button1) hinzu. Dann füg folgenden Code ein:

    VB.NET-Quellcode

    1. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    3. If TextBox1.Text = "/Status" Then
    4. Label1.Text = "Online"
    5. End If
    7. If TextBox1.Text = "/status" Then
    8. Label1.Text = "Online"
    9. End If
    11. TextBox1.Clear()
    13. End Sub


    Ich hoffe ich konnte dein Problem lösen!

    MFG Andi2572

    Hab Dein Code in den button reingemacht wo man sich Einloggt aber ich schreibe "/Status" und der label ändert sich nicht

    Ich kann den ganzen Code nicht Posten ;(

    "Deine Nachricht ist zu lang. Es stehen maximal 15 000 Zeichen zur Verfügung."

    Egal Hier ein bissi code, zu info das ist ein knuddels bot
    Code:

    VB.NET-Quellcode

    1. Imports KNLib
    3. Public Class Form1
    5. Dim applet As Applet
    6. Dim WithEvents client As KSClient
    8. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    10. Control.CheckForIllegalCrossThreadCalls = False
    11. applet = New Applet
    12. client = New KSClient(applet)
    14. End Sub
    16. Private Sub Form1_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
    17. System.Environment.Exit(0)
    19. End Sub
    21. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    23. Dim mySystem As New ChatSystem
    25. Select Case ComboBox1.Text
    27. Case "Knuddels.de"
    29. mySystem = ChatSystem.DE
    31. Case "Knuddels.at"
    33. mySystem = ChatSystem.AT
    35. Case "Knuddels.ch"
    37. mySystem = ChatSystem.CH
    39. Case "Knuddels.com"
    41. mySystem = ChatSystem.COM
    43. Case "Mainfranken-Chat"
    45. mySystem = ChatSystem.MFC
    47. Case Else
    49. mySystem = ChatSystem.DE
    51. End Select
    53. If TextBox5.Text = String.Empty And TextBox6.Text = String.Empty Then client.Connect(mySystem) Else client.Connect(mySystem, TextBox5.Text, TextBox6.Text)
    55. client.Login(TextBox2.Text, TextBox3.Text, TextBox4.Text)
    57. RichTextBox1.SelectionFont = New Font(RichTextBox1.Font, FontStyle.Bold)
    58. RichTextBox1.SelectionColor = Color.Black
    59. RichTextBox1.AppendText("Bot: ")
    60. RichTextBox1.SelectionColor = Color.Black
    61. RichTextBox1.SelectionFont = New Font(RichTextBox1.Font, FontStyle.Regular)
    62. RichTextBox1.SelectionColor = Color.Black
    63. RichTextBox1.AppendText("Stating..." & vbLf)
    65. RichTextBox1.SelectionFont = New Font(RichTextBox1.Font, FontStyle.Bold)
    66. RichTextBox1.SelectionColor = Color.Black
    67. RichTextBox1.AppendText("Bot: ")
    68. RichTextBox1.SelectionColor = Color.Black
    69. RichTextBox1.SelectionFont = New Font(RichTextBox1.Font, FontStyle.Regular)
    70. RichTextBox1.SelectionColor = Color.Black
    71. RichTextBox1.AppendText("Logdaten werden geladen." & vbLf)
    73. RichTextBox1.SelectionFont = New Font(RichTextBox1.Font, FontStyle.Bold)
    74. RichTextBox1.SelectionColor = Color.Black
    75. RichTextBox1.AppendText("Bot: ")
    76. RichTextBox1.SelectionColor = Color.Black
    77. RichTextBox1.SelectionFont = New Font(RichTextBox1.Font, FontStyle.Regular)
    78. RichTextBox1.AppendText(TextBox2.Text)
    79. RichTextBox1.SelectionFont = New Font(RichTextBox1.Font, FontStyle.Regular)
    80. RichTextBox1.SelectionColor = Color.Black
    81. RichTextBox1.AppendText(" Wurde Erfolgreich")
    82. RichTextBox1.SelectionFont = New Font(RichTextBox1.Font, FontStyle.Bold)
    83. RichTextBox1.SelectionColor = Color.LimeGreen
    84. RichTextBox1.AppendText(" Eingeloggt ✔" & vbLf)
    86. RichTextBox1.SelectionFont = New Font(RichTextBox1.Font, FontStyle.Bold)
    87. RichTextBox1.SelectionColor = Color.Blue
    88. RichTextBox1.AppendText("Botinfo: ")
    89. RichTextBox1.SelectionColor = Color.Black
    90. RichTextBox1.SelectionFont = New Font(RichTextBox1.Font, FontStyle.Regular)
    91. RichTextBox1.SelectionColor = Color.Black
    92. RichTextBox1.AppendText("Die Popup's Werden Geblockt! ;)" & vbLf)
    95. 'RichTextBox1.SelectionFont = New Font(RichTextBox1.Font, FontStyle.Bold)
    96. 'RichTextBox1.SelectionColor = Color.Black
    97. 'RichTextBox1.AppendText("Bot: ")
    98. 'RichTextBox1.SelectionColor = Color.Black
    99. 'RichTextBox1.SelectionFont = New Font(RichTextBox1.Font, FontStyle.Regular)
    100. 'RichTextBox1.AppendText("/status - Abfrage Ob Online oder Offline!" & vbLf)
    101. 'RichTextBox1.SelectionFont = New Font(RichTextBox1.Font, FontStyle.Bold)
    102. 'RichTextBox1.SelectionColor = Color.LimeGreen
    103. 'RichTextBox1.AppendText(" Aktieviert ✔" & vbNewLine)
    106. RichTextBox1.SelectionFont = New Font(RichTextBox1.Font, FontStyle.Bold)
    107. RichTextBox1.SelectionColor = Color.Black
    108. RichTextBox1.AppendText("Bot: ")
    109. RichTextBox1.SelectionColor = Color.Black
    110. RichTextBox1.SelectionFont = New Font(RichTextBox1.Font, FontStyle.Regular)
    111. RichTextBox1.AppendText("Dir stehen Folgende Funktionen Für verfügung :D" & vbLf)
    112. RichTextBox1.SelectionFont = New Font(RichTextBox1.Font, FontStyle.Bold)
    113. RichTextBox1.SelectionColor = Color.Black
    114. RichTextBox1.AppendText("Botfunktionen: ")
    115. RichTextBox1.SelectionFont = New Font(RichTextBox1.Font, FontStyle.Bold)
    116. RichTextBox1.SelectionColor = Color.LimeGreen
    117. RichTextBox1.AppendText("/status")
    118. RichTextBox1.SelectionFont = New Font(RichTextBox1.Font, FontStyle.Regular)
    119. RichTextBox1.SelectionColor = Color.Black
    120. RichTextBox1.AppendText(" - Abfrage Ob")
    121. RichTextBox1.SelectionFont = New Font(RichTextBox1.Font, FontStyle.Bold)
    122. RichTextBox1.SelectionColor = Color.LimeGreen
    123. RichTextBox1.AppendText(" On")
    124. RichTextBox1.SelectionFont = New Font(RichTextBox1.Font, FontStyle.Regular)
    125. RichTextBox1.SelectionColor = Color.Black
    126. RichTextBox1.AppendText(" oder")
    127. RichTextBox1.SelectionFont = New Font(RichTextBox1.Font, FontStyle.Bold)
    128. RichTextBox1.SelectionColor = Color.Red
    129. RichTextBox1.AppendText(" Off")
    130. RichTextBox1.SelectionFont = New Font(RichTextBox1.Font, FontStyle.Regular)
    131. RichTextBox1.SelectionColor = Color.Black
    132. RichTextBox1.AppendText("! " & vbLf)
    135. If TextBox1.Text = "/Status" Then
    136. Label1.Text = "Online"
    137. End If
    139. If TextBox1.Text = "/status" Then
    140. Label1.Text = "Online"
    141. End If
    143. TextBox1.Clear()
    145. End Sub

Facebook
Telefonspende