RichTextBox Cursor

  • VB.NET

Es gibt 6 Antworten in diesem Thema. Der letzte Beitrag () ist von Kastleng.

    RichTextBox Cursor

    Hi,
    man kann ja im Eigenschaftenfenster eine Maus für die RichTextBox aussuchen. Aber leider gibt es da nicht diesen einen "dicken" Cursor, wie der wenn man in VB die Einfügen-Taste drückt. Ich möchte das gerne so haben, dass der Text wie eine Schreibmaschine geschrieben wird (was auch klappt), aber ich will vor den Buchstaben die geschrieben werden diesen dicken Cursor haben.

    Probiers mit Miecroangelo.

    Zum einbinden:

    Quellcode

    1. Imports System
    2. Imports System.Runtime.InteropServices
    3. Imports System.IO
    5. Public Class Form1
    6. Inherits Form
    8. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    9. Try
    10. Me.Cursor = AdvancedCursors.Create(Path.Combine(Application.StartupPath, "C:\WINDOWS\Cursors\mathe1.ani"))
    11. Catch err As Exception
    12. MessageBox.Show(err.Message)
    13. End Try
    14. End Sub
    16. Public Class AdvancedCursors
    18. <DllImport("User32.dll")> _
    19. Private Shared Function LoadCursorFromFile(ByVal str As String) As IntPtr
    20. End Function
    22. Public Shared Function Create(ByVal filename As String) As Windows.Forms.Cursor
    23. Dim hCursor As IntPtr = LoadCursorFromFile(filename)
    25. If Not IntPtr.Zero.Equals(hCursor) Then
    26. Return New Windows.Forms.Cursor(hCursor)
    27. Else
    28. Throw New ApplicationException("Could not create cursor from file " & filename)
    29. End If
    30. End Function
    31. End Class


    Müsste funktionieren...

    wenn du eine Datei Cursor hast funzt das normalerweise:

    VB.NET-Quellcode

    1. RichTextBox1.Cursor = new Cursor ("Dateiname.cur")

    du kannst mit new Cursor auch von Recoussen laden usw... schaus dir einfach mal an 8-)

    Edit: Hab ich überlesen das du nicht den Mauscursor meinst. Sry :pinch: