Show All available cursors on vb.net window form


  • Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
    Dim x As Integer = 10
    Dim y As Integer = 10

    ShowCursor(e.Graphics, x, y, Cursors.AppStarting, "AppStarting")
    ShowCursor(e.Graphics, x, y, Cursors.Arrow, "Arrow")
    ShowCursor(e.Graphics, x, y, Cursors.Cross, "Cross")
    ShowCursor(e.Graphics, x, y, Cursors.Default, "Default")
    ShowCursor(e.Graphics, x, y, Cursors.Hand, "Hand")
    ShowCursor(e.Graphics, x, y, Cursors.Help, "Help")
    ShowCursor(e.Graphics, x, y, Cursors.HSplit, "HSplit")
    ShowCursor(e.Graphics, x, y, Cursors.IBeam, "IBeam")
    ShowCursor(e.Graphics, x, y, Cursors.No, "No")
    ShowCursor(e.Graphics, x, y, Cursors.NoMove2D, "NoMove2D")
    ShowCursor(e.Graphics, x, y, Cursors.NoMoveHoriz, "NoMoveHoriz")
    ShowCursor(e.Graphics, x, y, Cursors.NoMoveVert, "NoMoveVert")
    ShowCursor(e.Graphics, x, y, Cursors.PanEast, "PanEast")
    ShowCursor(e.Graphics, x, y, Cursors.PanNE, "PanNE")
    ShowCursor(e.Graphics, x, y, Cursors.PanNorth, "PanNorth")
    ShowCursor(e.Graphics, x, y, Cursors.PanNW, "PanNW")
    ShowCursor(e.Graphics, x, y, Cursors.PanSE, "PanSE")
    ShowCursor(e.Graphics, x, y, Cursors.PanSouth, "PanSouth")
    ShowCursor(e.Graphics, x, y, Cursors.PanSW, "PanSW")
    ShowCursor(e.Graphics, x, y, Cursors.PanWest, "PanWest")
    ShowCursor(e.Graphics, x, y, Cursors.SizeAll, "SizeAll")
    ShowCursor(e.Graphics, x, y, Cursors.SizeNESW, "SizeNESW")
    ShowCursor(e.Graphics, x, y, Cursors.SizeNS, "SizeNS")
    ShowCursor(e.Graphics, x, y, Cursors.SizeNWSE, "SizeNWSE")
    ShowCursor(e.Graphics, x, y, Cursors.SizeWE, "SizeWE")
    ShowCursor(e.Graphics, x, y, Cursors.UpArrow, "UpArrow")
    ShowCursor(e.Graphics, x, y, Cursors.VSplit, "VSplit")
    ShowCursor(e.Graphics, x, y, Cursors.WaitCursor, "WaitCursor")
    End Sub

    Private Sub ShowCursor(ByVal gr As Graphics, ByRef x As Integer, ByRef y As Integer, ByVal cursor_type As Cursor, ByVal cursor_name As String)
    gr.DrawString(cursor_name, Me.Font, Brushes.Black, x, y)
    Dim rect As New Rectangle(x + 120, y, 32, 32)
    cursor_type.Draw(gr, rect)

    y += 30
    If y + 30 > Me.ClientSize.Height Then
    y = 10
    x += 175
    End If
    End Sub



    for further details and related topics http://www.codecorner.somee.com/

Howdy, Stranger!

It looks like you're new here. If you want to get involved, or you want to Ask a new Question, Please Login or Create a new Account by Clicking below

Login with Facebook

Popular Posts of the Week