Функция CreateIcon

Declare Function CreateIcon Lib "user32" (ByVal hInstance As Long, _
    ByVal nWidth As Long, _
	ByVal nHeight As Long, _
	ByVal nPlanes As Byte, _
	ByVal nBitsPixel As Byte, _
	lpANDbits As Byte, _
	lpXORbits As Byte) As Long

CreateIcon создает новый значок.

Возвращаемое значение

В успешном случае возвращается описатель значка. В случае ошибки возвращается 0 (используйте GetLastError для получения кода ошибки).

Параметры

hInstance

Описатель окна, которому будет принадлежать значок

nWidth

Ширина значка в пикселах

nHeight

Высота значка в пикселах

nPlanes

Количество цветовых плоскостей в массиве lpXORbits

nBitsPixel

Количество бит на пиксел в массиве lpXORbits

lpANDbits

Указатель на данные AND-маски

lpXORbits

Указатель на данные XOR-маски

Пример

' Создадим новую каретку
' Создайте на форме два TextBox и PictureBox
Sub Text1_GotFocus()
  Dim foc As Long ' окно, получившее фокус
  Dim himage As Long ' описатель картинки
  Dim retval
  foc = GetFocus()
  himage = Picture1.Picture
' Создаем новую каретку
'(handle, bitmap 0=none, width, height)
  Call CreateCaret(foc, himage, 10, 10)
' Показываем новую каретку
  retval = ShowCaret(foc)
End Sub

Private Sub Text2_GotFocus()
  Dim foc As Long ' окно, получившее фокус
  Dim retval
  foc = GetFocus()
' Создаем новую каретку
    Call CreateCaret(foc, 0, 30, 30)
' Показываем новую каретку
  retval = ShowCaret(foc)
End Sub

Категория

Значки