MousePointer para usuários do Visual Basic 6.0

In Visual Basic 2008, o Visual Basic 6.0 MousePointer propriedade foi substituída pela Cursor propriedade e os nomes dos MousePointer constantes foram alterados.

Diferenças Conceituais

No Visual Basic 6.0, a MousePointer propriedade de um formulário ou controle é usada para alterar a aparência do cursor quando passar sobre aquela forma ou controle.

In Visual Basic 2008, o Cursor propriedade oferece a mesma funcionalidade que o MousePointer.

MousePointers personalizados

No Visual Basic 6.0, você pode usar qualquer ícone (.ico) ou arquivo cursor (.cur) sistema autônomo um personalizado MousePointer.

In Visual Basic 2008, somente arquivos cursor são suportados; você pode conjunto um cursor personalizado em time de execução, atribuindo um arquivo de cursor para o Cursor propriedade.

Constante vbIconPointer

Visual Basic 6.0 inclui o MousePointer constante vbIconPointer Para alterar o cursor para ícone (um quadrado pequeno em um quadrado). Esta constante é fornecida apenas para fins de legado; nos sistemas operacionais mais recentes isso não tem efeito e o cursor padrão é exibido.Não há nenhum equivalente em Visual Basic 2008.

Alterações no código para a propriedade MousePointer

Os exemplos a seguir ilustram as diferenças na codificação técnicas entre o Visual Basic 6.0 e Visual Basic 2008.

Alterando a aparência do cursor

O código a seguir demonstra como o cursor muda de aparência quando ele passa sobre um controle caixa de texto em tempo de execução, substituindo a direção padrão por um cursor ampulheta.O exemplo do Visual Basic 6.0 define o MousePointer propriedade; na Visual Basic 2008 exemplo, o Cursor propriedade é equivalente MousePointer. The Visual Basic 2008 exemplo também usa o novo MouseEnter evento.

' 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

Exibindo um cursor personalizado

O código a seguir demonstra a exibição de um cursor manual quando o cursor passa sobre um controle de caixa de texto.O exemplo do Visual Basic 6.0 define o MouseIcon e MousePointer Propriedades; o exemplo do Visual Basic 2005 define a Cursor propriedade para uma nova instância de um Cursor objeto.

' 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

Equivalências de Constante MousePointer

A tabela a seguir lista constantes Visual Basic 6.0 e seus Visual Basic 2008 equivalentes.

Observações de Atualização

Quando um aplicativo Visual Basic 6.0 é atualizado para Visual Basic 2008, o MousePointer propriedade é substituída pelo Cursor propriedade. Code that uses MousePointer constants is modified to use Visual Basic 2008 Cursors enumerations.

Se o aplicativo Visual Basic 6.0 usa um personalizado MousePointer, a configuração do time de design ou personalizada MousePointer código não será atualizado e um aviso será emitido.

Além disso, se o aplicativo Visual Basic 6.0 define o MousePointer para o vbIconPointer constante no time de design ou time de execução, ele irá ser substituído pelo cursor padrão durante a atualização.

Consulte também

Referência

Não é possível definir um MousePointer personalizado

Outros recursos

Controles Windows Forms para Usuários do Visual Basic 6.0

Controles de propriedade, método, e alterações nos eventos para usuários do Visual Basic 6.0