Свойство MousePointer (для пользователей Visual Basic 6.0)

Статья
11/05/2008

Обновлен: Ноябрь 2007

В версии Visual Basic 2008, свойство MousePointer версии Visual Basic 6.0 было заменено свойством Cursor, и имена констант свойства MousePointer изменились.

Концептуальные различия

В версии Visual Basic 6.0 свойство MousePointer формы или элемента управления использовалось для изменения внешнего вида курсора при прохождении над этой формой или элементом управления.

В версии Visual Basic 2008 свойство Cursor обеспечивает те же функциональные возможности, что и свойство MousePointer.

Пользовательские свойства MousePointer

В версии Visual Basic 6.0 в качестве пользовательского свойства MousePointer можно использовать любые значки (файлы с расширением ICO) или курсоры (файлы с расширением CUR).

В версии Visual Basic 2008 поддерживаются только файлы курсоров; пользовательский курсор можно установить во время выполнения, присвоив свойству Cursor файл курсора.

Константа vbIconPointer

В версии Visual Basic 6.0 свойство MousePointer включает константу vbIconPointer для изменения курсора на символ значка (небольшой квадрат внутри квадрата). Эта константа включена только для совместимости с прежними версиями; в более новых операционных системах она не действует, и на экране отображается курсор, установленный по умолчанию. В версии Visual Basic 2008 эквивалент этой константы отсутствует.

Изменения кода для свойства MousePointer

Следующие примеры иллюстрируют различия в методах программирования между Visual Basic 6.0 и Visual Basic 2008.

Изменение внешнего вида курсора

На примере следующего кода показано, как курсор во время выполнения изменяет внешний вид, проходя над элементом управления "текстовое поле", заменяя установленную по умолчанию стрелку на песочные часы. В примере для версии Visual Basic 6.0 настраивается свойство MousePointer; в примере для версии Visual Basic 2008 свойство Cursor является эквивалентом свойства MousePointer. В примере для версии Visual Basic 2008 также используется новое событие 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

Отображение пользовательского курсора

На примере следующего кода показано отображение курсора в виде руки при прохождении курсора над элементом управления "текстовое поле". В примере для версии Visual Basic 6.0 настраиваются оба свойства: MouseIcon и MousePointer; в примере для версии Visual Basic 2005 свойство Cursor настраивается на новый экземпляр объекта 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

Соответствие констант MousePointer

В следующей таблице приведен список констант версии Visual Basic 6.0 и их эквивалентов версии Visual Basic 2008.

Visual Basic 6.0	Эквивалент версии Visual Basic 2008
0 – vbDefault	Default
1 – vbArrow	Arrow
2 – vbCrossHair	Cross
3 – vbIBeam	IBeam
4 – vbIconPointer	Устарела — заменена константой 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	Эквивалента не существует — дополнительные сведения см. в разделе Невозможно задать настраиваемый указатель мыши MousePointer

Замечания по обновлению

При обновлении приложения версии Visual Basic 6.0 до версии Visual Basic 2008 свойство MousePointer заменяется свойством Cursor. Код, в котором используются константы MousePointer, изменяется таким образом, чтобы использовались перечисления Visual Basic 2008Cursors.

Если в приложении версии Visual Basic 6.0 используется пользовательское свойство MousePointer, то настройка времени разработки или код пользовательского свойства MousePointer обновлен не будет, а будет выдано предупреждение.

Кроме того, если приложение версии Visual Basic 6.0 устанавливает свойство MousePointer равным константе vbIconPointer во время разработки или во время выполнения, то при обновлении его значение будет заменено курсором по умолчанию.

См. также

Ссылки

Невозможно задать настраиваемый указатель мыши MousePointer

Другие ресурсы

Элементы управления Windows Forms (для пользователей Visual Basic 6.0)

Изменения в свойствах, методах и событиях элементов управления для пользователей Visual Basic 6.0

Поделиться через