Compartir a través de


MousePointer para usuarios de Visual Basic 6.0

Actualización: noviembre 2007

En Visual Basic 2008, la propiedad MousePointer de Visual Basic 6.0 se ha reemplazado por la propiedad Cursor y los nombres de las constantes MousePointer han cambiado.

Diferencias conceptuales

En Visual Basic 6.0, la propiedad MousePointer de un formulario o control se utiliza para cambiar el aspecto del cursor cuando se desplaza sobre ese formulario o control.

En Visual Basic 2008, la propiedad Cursor proporciona la misma funcionalidad que MousePointer.

Punteros del mouse personalizados

En Visual Basic 6.0, puede utilizar cualquier icono (.ico) o archivo de cursor (.cur) como un MousePointer personalizado.

En Visual Basic 2008, sólo se admiten archivos de cursor; para establecer un cursor personalizado en tiempo de ejecución, asigne un archivo de cursor a la propiedad Cursor.

vbIconPointer (Constante)

Visual Basic 6.0 incluye en MousePointer la constante vbIconPointer para cambiar el cursor a un símbolo del icono (un cuadrado pequeño dentro de un cuadrado). Esta constante se proporciona únicamente por cuestiones de herencia; en los sistemas operativos más nuevos no tiene ningún efecto y se muestra el cursor predeterminado. No existe equivalente en Visual Basic 2008.

Cambios de código para la propiedad MousePointer

En los ejemplos siguientes se muestran las diferencias entre las técnicas de codificación de Visual Basic 6.0 y Visual Basic 2008.

Cambiar el aspecto del cursor

En el ejemplo siguiente se muestra cómo el cursor cambia su aspecto cuando se desplaza sobre un control de cuadro de texto en tiempo de ejecución, y se sustituye la flecha predeterminada por un cursor con forma de reloj de arena. En el ejemplo de Visual Basic 6.0 se establece la propiedad MousePointer; en el ejemplo de Visual Basic 2008, la propiedad Cursor es el equivalente de MousePointer. En el ejemplo de Visual Basic 2008 también se utiliza el nuevo evento MouseEnter.

' Visual Basic 6.0
Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
    Text1.MousePointer = vbHourGlass
End Sub
' Visual Basic
Private Sub TextBox1_MouseEnter(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles TextBox1.MouseEnter
    TextBox1.Cursor = System.Windows.Forms.Cursors.WaitCursor
End Sub

Mostrar un cursor personalizado

El código siguiente muestra un cursor en forma de mano cuando el cursor se desplaza sobre un control de cuadro de texto. En el ejemplo de Visual Basic 6.0 se definen las propiedades MouseIcon y MousePointer; en el ejemplo de Visual Basic 2005 la propiedad Cursor se establece en una nueva instancia de un objeto Cursor.

' Visual Basic 6.0
Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
    Text1.MouseIcon = LoadPicture("C:\Windows\Cursors\hmove.cur")
    Text1.MousePointer = vbHourGlass
End Sub
' Visual Basic
Private Sub TextBox2_MouseEnter(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles TextBox2.MouseEnter
    TextBox2.Cursor = New System.Windows.Forms.Cursor _
    ("C:\mypath\mycursor.cur")
End Sub

Equivalencias de las constantes MousePointer

En la tabla siguiente se muestran las constantes de Visual Basic 6.0 y sus equivalentes en Visual Basic 2008.

Visual Basic 6.0

Equivalente en Visual Basic 2008

0 – vbDefault

Default

1 – vbArrow

Arrow

2 – vbCrossHair

Cross

3 – vbIBeam

IBeam

4 – vbIconPointer

Obsoleto — se ha reemplazado por Default

5 – vbSizePointer

SizeAll

6 – vbSizeNESW

SizeNESW

7 – vbSizeNS

SizeNS

8 – vbSizeNWSE

SizeNWSE

9 – vbSizeWE

SizeWE

10 – vbUpArrow

UpArrow

11 – vbHourGlass

WaitCursor

12 – vbNoDrop

No

13 – vbArrowHourGlass

AppStarting

14 – vbArrowQuestion

Help

15 – vbSizeAll

SizeAll

99 – vbCustom

No hay equivalente — para obtener más información, vea No se puede personalizar la propiedad MousePointer

Notas de actualización

Cuando una aplicación de Visual Basic 6.0 se actualiza a Visual Basic 2008, la propiedad MousePointer se reemplaza por la propiedad Cursor. El código que utiliza las constantes MousePointer se modifica para que utilice las enumeraciones Cursors de Visual Basic 2008.

Si la aplicación de Visual Basic 6.0 utiliza un MousePointer personalizado, la configuración en tiempo de diseño o el código personalizado de MousePointer no se actualizará, y se emitirá una advertencia.

Asimismo, si la aplicación de Visual Basic 6.0 establece el MousePointer en la constante vbIconPointer en tiempo de diseño o en tiempo de ejecución, se sustituirá por el cursor predeterminado durante la actualización.

Vea también

Referencia

No se puede personalizar la propiedad MousePointer

Otros recursos

Controles de formularios Windows Forms para usuarios de Visual Basic 6.0

Cambios en los eventos, métodos y propiedades de controles para usuarios de Visual Basic 6.0