CNC Editor farbige Schrift, Zeilennummerierung

  • VB.NET

Es gibt 19 Antworten in diesem Thema. Der letzte Beitrag () ist von Gonger96.

    CNC Editor farbige Schrift, Zeilennummerierung

    Hallo,
    wie die Überschrift schon sagt, möchte ich einen CNC-Editor schreiben.
    Es gibt eine große Rich- oder Textbox in der das CNC Programm geschrieben wird.
    Dort sollen nun Codes wie z.B. "G0","G1","G81" in rot stehen, die Adressdaten "X20","Y100","Z0" in blau und z.B. der Vorschubwert "F500" in grün.
    Des weiteren soll am Anfang der Zeile ein "N" mit der Zeilennnummer dahinter stehen.
    Die Zeilennummer wird in einer zweiten Textbox angezeigt, die links daneben ist. Das Problem ist dann beim Scrollen- kann mann die zwei Textbox Scrolls irgendwie verbinden?
    Das mit den verschiedenen Farben habe ich auch schon probiert, dass geht dann aber nur beim ersten "G0", dass sich der Text rot färbt.


    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
    If TextBox1.Text = ("G0") Then
    TextBox1.ForeColor = Color.Red
    End If
    End Sub

    chke93 schrieb:

    kann mann die zwei Textbox Scrolls irgendwie verbinden?
    Gugst Du hier.
    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!

    Frohe Ostern!!

    RodFromGermany schrieb:

    Gugst Du hier.

    Den habe ich jetzt genommen und auf 2 Richtextboxen geändert. Das Problem ist jetzt, sobald meine Richtextbox voll mit Text ist, sodass ich scrollen müsste, hängt sich das gebuggte Programm auf.
    Mein Mauszeiger ist dann immer hinter dem Programm.Ich kann auf keinen Button mehr klicken.

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

    chke93 schrieb:

    Hier ist der Code:
    Kannst Du bitte mal Deinen Beitrag editieren und Deinen Code 1. mit dwem [VB]-Tag einschließen und 2. Code und VB-Tags mit einem Expander [+] umschließen?
    Nutze den Vorschau-Button.
    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!

    Kannst Du bitte mal Deinen Beitrag editieren und Deinen Code 1. mit dwem [VB-Tag einschließen und 2. Code und VB-Tags mit einem Expander [+] umschließen?

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System
    2. Imports System.IO
    3. Imports System.Data
    4. Imports System.Text
    5. Imports System.Drawing
    6. Imports System.Collections
    7. Imports System.Windows.Forms
    8. Imports System.Windows.Forms.Message
    9. Imports System.Runtime.InteropServices.Marshal
    11. Public Class Form1
    12. Inherits System.Windows.Forms.Form
    14. '"Windows Form Designer generated code removed here"
    16. '===================================================================
    17. ' for NativeWindow and PostMessageA
    18. '===================================================================
    19. Private Const WM_HSCROLL = &H114
    20. Private Const WM_VSCROLL = &H115
    21. Private Const WM_MOUSEWHEEL = &H20A
    22. Private Const WM_COMMAND = &H111
    23. Private Const WM_USER = &H400
    24. '===================================================================
    25. ' for GetScroll and PostMessageA
    26. '===================================================================
    27. Private Const SBS_HORZ = 0
    28. Private Const SBS_VERT = 1
    29. Private Const SB_THUMBPOSITION = 4
    30. '===================================================================
    31. ' for SubClassing
    32. '===================================================================
    33. Private WithEvents sClass1 As Subclass
    34. Private WithEvents sClass2 As Subclass
    35. Private WithEvents sClass3 As Subclass
    37. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
    38. ' clear the rtb text
    39. RichTextBox1.Text = ""
    40. RichTextBox2.Text = ""
    41. ' setup the sSubclass
    42. sClass1 = New Subclass(RichTextBox1.Handle)
    43. sClass2 = New Subclass(RichTextBox2.Handle)
    44. Dim i As Integer
    45. ' put some formated text in the RichTextBox's
    46. While i < 100
    47. RichTextBox1.AppendText(" this is a string " & i & vbCrLf)
    48. RichTextBox2.AppendText(" this is a string " & i & vbCrLf)
    49. If i Mod 4 = 0 Then
    50. RichTextBox1.AppendText( _
    51. " this is a longer string to force HScroll " & i & vbCrLf)
    52. RichTextBox2.AppendText( _
    53. " this is a longer string to force HScroll " & i & vbCrLf)
    54. End If
    55. i += 1
    56. End While
    57. End Sub
    58. Public Sub sClass_WindowProcedure(ByRef uMsg As Message) Handles sClass1.WindowProcedure, sClass2.WindowProcedure
    59. Select Case uMsg.Msg
    60. Case WM_VSCROLL ' WM_VSCROLL Message's for RTB's
    61. If uMsg.HWnd.Equals(RichTextBox1.Handle) Then
    62. 'Debug.WriteLine(GetLowWord(uMsg.WParam.ToInt32))
    63. RemoveHandler sClass2.WindowProcedure, _
    64. AddressOf sClass_WindowProcedure
    65. Dim msg1 As Message
    66. Dim msg2 As Message
    67. msg1 = uMsg.Create(RichTextBox2.Handle, _
    68. uMsg.Msg, uMsg.WParam, uMsg.LParam)
    69. sClass2.SendWndProc(msg1)
    70. sClass2.SendWndProc(msg2)
    71. AddHandler sClass2.WindowProcedure, _
    72. AddressOf sClass_WindowProcedure
    73. End If
    74. If uMsg.HWnd.Equals(RichTextBox2.Handle) Then
    75. RemoveHandler sClass2.WindowProcedure, _
    76. AddressOf sClass_WindowProcedure
    77. Dim msg1 As Message
    78. Dim msg2 As Message
    79. msg1 = uMsg.Create(RichTextBox1.Handle, _
    80. uMsg.Msg, uMsg.WParam, uMsg.LParam)
    81. sClass2.SendWndProc(msg1)
    82. sClass2.SendWndProc(msg2)
    83. AddHandler sClass2.WindowProcedure, _
    84. AddressOf sClass_WindowProcedure
    85. End If
    87. Case WM_HSCROLL ' WM_HSCROLL Message's for RTB's
    88. If uMsg.HWnd.Equals(RichTextBox1.Handle) Then
    89. 'Debug.WriteLine(GetLowWord(uMsg.WParam.ToInt32))
    90. RemoveHandler sClass2.WindowProcedure, _
    91. AddressOf sClass_WindowProcedure
    92. Dim msg1 As Message
    93. Dim msg2 As Message
    94. msg1 = uMsg.Create(RichTextBox2.Handle, _
    95. uMsg.Msg, uMsg.WParam, uMsg.LParam)
    96. sClass2.SendWndProc(msg1)
    97. sClass2.SendWndProc(msg2)
    98. AddHandler sClass2.WindowProcedure, _
    99. AddressOf sClass_WindowProcedure
    100. End If
    101. If uMsg.HWnd.Equals(RichTextBox2.Handle) Then
    102. RemoveHandler sClass2.WindowProcedure, _
    103. AddressOf sClass_WindowProcedure
    104. Dim msg1 As Message
    105. Dim msg2 As Message
    106. msg1 = uMsg.Create(RichTextBox1.Handle, _
    107. uMsg.Msg, uMsg.WParam, uMsg.LParam)
    108. sClass2.SendWndProc(msg1)
    109. sClass2.SendWndProc(msg2)
    110. AddHandler sClass2.WindowProcedure, _
    111. AddressOf sClass_WindowProcedure
    112. End If
    114. End Select
    115. End Sub
    117. Private Sub RichTextBox1_VScroll(ByVal sender As Object,ByVal e As System.EventArgs) Handles RichTextBox1.VScroll
    118. Dim RTB1Position As Integer
    119. RTB1Position = GetScrollPos(RichTextBox1.Handle, SBS_VERT)
    120. PostMessageA(RichTextBox2.Handle, WM_VSCROLL,SB_THUMBPOSITION + &H10000 * RTB1Position, 0)
    121. End Sub
    122. Private Sub RichTextBox2_VScroll(ByVal sender As Object, ByVal e As System.EventArgs) Handles RichTextBox2.VScroll
    123. Dim RTB2Position As Integer
    124. RTB2Position = GetScrollPos(RichTextBox2.Handle, SBS_VERT)
    125. PostMessageA(RichTextBox1.Handle, WM_VSCROLL, SB_THUMBPOSITION + &H10000 * RTB2Position, 0)
    126. End Sub
    127. Private Sub RichTextBox1_HScroll(ByVal sender As Object, ByVal e As System.EventArgs) Handles RichTextBox1.HScroll
    128. Dim RTB1Position As Integer
    129. RTB1Position = GetScrollPos(RichTextBox1.Handle, SBS_HORZ)
    130. PostMessageA(RichTextBox2.Handle, WM_HSCROLL, SB_THUMBPOSITION + &H10000 * RTB1Position, 0)
    131. End Sub
    132. Private Sub RichTextBox2_HScroll(ByVal sender As Object, _
    133. ByVal e As System.EventArgs) Handles RichTextBox2.HScroll
    134. Dim RTB2Position As Integer
    135. RTB2Position = GetScrollPos(RichTextBox2.Handle, SBS_HORZ)
    136. PostMessageA(RichTextBox1.Handle, WM_HSCROLL, SB_THUMBPOSITION + &H10000 * RTB2Position, 0)
    137. End Sub
    138. '===================================================================
    139. ' API Function: GetScrollPos
    140. '===================================================================
    141. Private Declare Function GetScrollPos Lib "user32.dll" ( _
    142. ByVal hWnd As IntPtr, _
    143. ByVal nBar As Integer) As Integer
    144. '===================================================================
    145. ' API Function: PostMessageA
    146. '===================================================================
    147. Private Declare Function PostMessageA Lib "user32.dll" ( _
    148. ByVal hwnd As IntPtr, _
    149. ByVal wMsg As Integer, _
    150. ByVal wParam As Integer, _
    151. ByVal lParam As Integer) As Boolean
    152. '===================================================================
    153. ' Temporary Functions for the Debugger
    154. '===================================================================
    155. Public Function GetLowWord(ByRef pintValue As Int32) As Int32
    156. Return pintValue And &HFFFF
    157. End Function
    158. Public Function GetLowWord(ByRef pudtValue As IntPtr) As Int32
    159. Return GetLowWord(pudtValue.ToInt32)
    160. End Function
    161. Public Function GetHighWord(ByRef pintValue As Int32) As Int32
    162. If (pintValue And &H80000000) = &H80000000 Then
    163. Return CInt(((pintValue And &H7FFF0000) \ &H10000) Or &H8000&)
    164. Else
    165. Return (pintValue And &HFFFF0000) \ &H10000
    166. End If
    167. End Function
    168. '===================================================================
    169. ' End Temporary Functions for the Debugger
    170. '===================================================================
    171. End Class
    173. Public Class Subclass
    174. '===================================================================
    175. ' NativeWindow Subclassing
    176. '===================================================================
    177. Inherits System.Windows.Forms.NativeWindow
    178. Public Event WindowProcedure(ByRef uMsg As Message)
    180. Public Sub New(ByVal pWindowHandle As IntPtr)
    181. MyBase.AssignHandle(pWindowHandle)
    182. End Sub
    184. Protected Overrides Sub WndProc(ByRef uMsg As System.Windows.Forms.Message)
    185. MyBase.WndProc(uMsg)
    186. RaiseEvent WindowProcedure(uMsg)
    187. End Sub
    189. Public Sub SendWndProc(ByRef uMsg As System.Windows.Forms.Message)
    190. MyBase.WndProc(uMsg)
    191. End Sub
    193. End Class


    So vielleicht :S OK, jetzt hab ich es geschnallt!

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

    chke93 schrieb:

    So vielleicht

    RodFromGermany schrieb:

    Kannst Du bitte mal Deinen Beitrag editieren
    Dies ist ein Expander
    Dies ist ein Expander
    Dies ist ein Expander
    Dies ist ein Expander
    Dies ist ein Expander
    Dies ist ein Expander
    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!

    Gonger96 schrieb:

    Ich kann dir Folgendes empfehlen Fast Colored Textbox
    Danke dafür!
    ich habe mal den Code probiert aber leider werden bei mir fehler in C# angezeigt,deshalb habe ichen Code in Visual Basic konvertiert aber er weist leider wieder ein paar fehler auf, die ich nicht weg bekomme.
    Welchen Text brauche ich denn?
    Spoiler anzeigen

    VB.NET-Quellcode

    1. public class TextStyle : Style{
    2. public Brush ForeBrush { get; set; }
    3. public Brush BackgroundBrush { get; set; }
    4. public FontStyle FontStyle { get; set; }
    6. public override void Draw(Graphics gr, Point position, Range range)
    7. {
    8. //draw background
    9. if (BackgroundBrush != null)
    10. gr.FillRectangle(BackgroundBrush, position.X, position.Y,
    11. (range.End.iChar - range.Start.iChar) *
    12. range.tb.CharWidth, range.tb.CharHeight);
    13. //draw chars
    14. Font f = new Font(range.tb.Font, FontStyle);
    15. Line line = range.tb[range.Start.iLine];
    16. float dx = range.tb.CharWidth;
    17. float y = position.Y - 2f;
    18. float x = position.X - 2f;
    20. Brush foreBrush = this.ForeBrush ?? new SolidBrush(range.tb.ForeColor);
    22. for (int i = range.Start.iChar; i < range.End.iChar; i++)
    23. {
    24. //draw char
    25. gr.DrawString(line[i].c.ToString(), f, foreBrush, x, y);
    26. x += dx;
    27. }
    28. } }

    Spoiler anzeigen

    VB.NET-Quellcode

    1. public class Range{
    2. Place start;
    3. Place end;
    4. }
    5. public struct Place
    6. {
    7. int iLine;
    8. int iChar; }

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Style GreenStyle = new TextStyle(Brushes.Green, null, FontStyle.Italic);...
    2. private void fastColoredTextBox1_TextChanged(object sender, TextChangedEventArgs e)
    3. {
    4. //clear style of changed range
    5. e.ChangedRange.ClearStyle(GreenStyle);
    6. //comment highlighting
    7. e.ChangedRange.SetStyle(GreenStyle, @"//.*$", RegexOptions.Multiline); }

    Das wäre ein Beispiel

    VB.NET-Quellcode

    1. Imports System.Text.RegularExpressions
    2. Imports FastColoredTextBoxNS
    4. Public Class Form1
    5. Private GreenStyle As Style = New TextStyle(Brushes.Green, Nothing, FontStyle.Italic)
    6. Private Sub FastColoredTextBox1_Load(ByVal sender As System.Object, ByVal e As TextChangedEventArgs) Handles FastColoredTextBox1.TextChanged
    7. 'clear style of changed range
    8. e.ChangedRange.ClearStyle(GreenStyle)
    9. 'comment highlighting
    10. e.ChangedRange.SetStyle(GreenStyle, "//.*$", RegexOptions.Multiline)
    11. End Sub
    12. End Class

    Die Pattern musst du natürlich entsprechend anpassen ^^ Im Beispiel ists ein Kommentar // Hallo

    Mit -Imports FastColoredTextBoxNS- ist ja die .dll Datei gemeint.
    Deshalb habe ich eine neue Klasse geöffnet und den Text dort hinein kopiert.
    Aber mein Programm zeigt an, dass die .dll 102 Fehler hat. -ungültiges Zeichen- -Syntaxfehler-
    Wie kommt das?     ?(

    Das hatte ich auch schon versucht aber:
    FastColoredTextBoxNS-Der in Imports "FastColoredTextBoxNS" angegebene Namespace oder Typ enthält keine öffentlichen Member oder kann nicht gefunden werden. Stellen Sie sicher, dass der Namespace oder der Typ definiert ist und mindestens einen öffentlichen Member enthält und dass der importierte Elementname keine weiteren Aliase enthält.
    (deshalb dachte ich das ich die .dll Datei einfügen muss,oder geht das anders?)

    Style-Der Typ "Style" ist nicht definiert.

    TextChangedEventArgs-Der Typ "TextChangedEventArgs" ist nicht definiert.

    Spoiler anzeigen
    Imports System.Text.RegularExpressions
    Imports FastColoredTextBoxNSPublic
    Class Form1
    Private GreenStyle As Style = New TextStyle(Brushes.Green, Nothing, FontStyle.Italic)
    Private Sub FastColoredTextBox1_Load(ByVal sender As System.Object, ByVal e As TextChangedEventArgs) Handles FastColoredTextBox1.TextChanged
    'clear style of changed range
    e.ChangedRange.ClearStyle(GreenStyle)
    'comment highlighting
    e.ChangedRange.SetStyle(GreenStyle, "//.*$", RegexOptions.Multiline)
    End Sub
    End Class

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

    Hallo,
    Es soll jetzt der Befehl -F100- in grün sein. Also habe ich folgenden Code genommen:
    e.ChangedRange.SetStyle(GreenStyle, "F.*?")

    Jetzt ist aber nur das F und die 1 grün, danach ist wieder die normale Schriftfarbe drin.
    Die Befehle sollen bis zur nächsten Leerzeile gefärbt sein.
    Es gibt aber lange und kurze Befehle z.B. F25 oder F2000.

    VB.NET-Quellcode

    1. Private GreenStyle As Style = New TextStyle(Brushes.Green, Nothing, FontStyle.Italic)
    2. Private Sub FastColoredTextBox1_TextChanged(sender As Object, e As FastColoredTextBoxNS.TextChangedEventArgs) Handles FastColoredTextBox1.TextChanged
    3. e.ChangedRange.ClearStyle(GreenStyle)
    4. 'comment highlighting
    5. e.ChangedRange.SetStyle(GreenStyle, "F[0-9]*?\s", RegexOptions.Multiline)
    6. End Sub

    Probier mal das

    Das Funktioniert zwar ist optisch aber nicht so schön, weil sich das F... erst nach dem betätigen der Spacetaste färbt.
    Ich hab das Jetzt so gemacht:

    VB.NET-Quellcode

    1. e.ChangedRange.SetStyle(GreenStyle, "([F])") e.ChangedRange.SetStyle(GreenStyle, "([F][0-9])") e.ChangedRange.SetStyle(GreenStyle, "([F][0-9][0-9])") e.ChangedRange.SetStyle(GreenStyle, "([F][0-9][0-9][0-9])") e.ChangedRange.SetStyle(GreenStyle, "([F][0-9][0-9][0-9][0-9])")


    Da wird der Buchstabe F und die nächsten Zahlen sofort bei der Eingabe grün.

Facebook
Telefonspende