The community of user

Информация о пользователе

Привет, Гость! Войдите или зарегистрируйтесь.


Вы здесь » The community of user » Компьютеры, статьи, программирование » Как установить анимированный курсор?На Бейсике


Как установить анимированный курсор?На Бейсике

Сообщений 1 страница 2 из 2

1

Код:
Private Declare Function ClipCursor _
Lib "user32" (lpRect As Any) As Long
Private Declare Function DestroyCursor _
Lib "user32" (ByVal hCursor As Any) As Long
Private Declare Function LoadCursorFromFile _
Lib "user32" Alias "LoadCursorFromFileA" _
(ByVal lpFileName As String) As Long
Private Declare Function SetClassLong _
Lib "user32" Alias "SetClassLongA" _
(ByVal hwnd As Long, _
ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long
Private Declare Function GetClassLong _
Lib "user32" Alias "GetClassLongA" _
(ByVal hwnd As Long, _
ByVal nIndex As Long) As Long
Private Const GCL_HCURSOR = -12
Dim lResult As Long
Dim mhAniCursor As Long
Dim mhAniCursor2 As Long
Dim mhBaseCursor As Long

Private Sub Form_Load()
mhBaseCursor = GetClassLong((hwnd), GCL_HCURSOR)
End Sub

'установка ani-курсора на форму

Private Sub Command1_Click()
mhAniCursor = LoadCursorFromFile("C:\windows\cursors\hourglas.ani")
lResult = SetClassLong((hwnd), GCL_HCURSOR, mhAniCursor)
MsgBox "А теперь наведите курсор на форму."
End Sub

'удаление ani-курсора

Private Sub Command2_Click()
lResult = SetClassLong((hwnd), GCL_HCURSOR, mhBaseCursor)
lResult = DestroyCursor(mhAniCursor)
End Sub

'удаление ani-курсора

Private Sub Form_Unload(Cancel As Integer)
lResult = SetClassLong((hwnd), GCL_HCURSOR, mhBaseCursor)
lResult = DestroyCursor(mhAniCursor)
End Sub

----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
На форме разместите два элемента CommandButton.
http://granssg.narod.ru/Basic/Picture/Kursor.jpg

Для Поисковиков:
Исходники на Бейсике;
Программа на Бейсике;
Курсор;
Анимированный курсор;
Исходники;

2

Aged Twitter 2009 to 2015 Accounts For Sale - check new thread for new prices

The accounts are empty or with less than 50 followers.

2008 - 10$ Per Account
2009 - 9$ Per Account
2010 - 8$ Per Account
2011 - 7$ Per Account
2012 - 6$ Per Account
2013 - 5$ Per Account
2014 - 4$ Per Account
2015 - 3$ Per Account

with Format
Username:Password Twitter:Live Email:Password Email,
joindate,tweets,following,followers and likes.

Buy for testing accept! pls check with me before you buy

https://sellaccs.net

You Can Contact me via
Email - congmmo@gmail . com

Discord : CongMMO#9766
Skype & Telegram : congmmo
ICQ : @652720497

Msg me on discord or skype for faster response.

Payments accepted PayPal,Payoneer or ETH,ETC,LTC or Another Crypto.
(Extra 5% transaction fee)

I will provide Username:Password Twitter:Live Email:Password Email of the account.

Accounts are delivered instant after paying.

Thank you!

Быстрый ответ

Напишите ваше сообщение и нажмите «Отправить»



Вы здесь » The community of user » Компьютеры, статьи, программирование » Как установить анимированный курсор?На Бейсике


Рейтинг форумов | Создать форум бесплатно © 2007–2019 «QuadroSystems» LLC