InfoConnect VBA Guide
Attachmate.Reflection.Objects.Emulation.OpenSystems Library / ThemeCursor Object / CursorShape Property
Example
In This Topic
    CursorShape Property (ThemeCursor)
    In This Topic
    Gets or sets the appearance of the cursor in the terminal window.
    Syntax
    expression.CursorShape As CursorShapeOption
    where expression is a variable that represents a ThemeCursor Object

    Property Value

    A CursorShapeOption value
    Example
    'This example creates and saves a theme. The theme is applied to the session.
    Public Sub CreateAndSaveTheme()
     
        'Declare and set a font object.
        Dim font As ThemeFont
        Set font = ThisTerminal.Theme.font
       
        'Declare and set a cursor object.
        Dim cursor As ThemeCursor
        Set cursor = ThisTerminal.Theme.cursor
        
        'Set AutofontSize to false to allow resizing of font.
        font.AutoFontSize = False
        font.FONTSIZE = 12
      
        'Change to a colored cursor with a faster blink rate and a vertical bar shape.
        cursor.Parent.DisplayEnhancements.ColorCursor = True
        cursor.CursorBlink = True
        cursor.CursorShape = CursorShapeOption_VerticalBar
       
        'Save the changes in a new theme to prevent InfoConnect from requesting to save the new theme.
        ThisTerminal.Theme.SaveAs (Environ$("USERPROFILE") & "\Documents\Micro Focus\InfoConnect\Themes\myNewTheme.themex")
           
    End Sub
    See Also