程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> Visual Basic語言 >> VB綜合教程 >> 在VB中顯示動畫鼠標圖標

在VB中顯示動畫鼠標圖標

編輯:VB綜合教程
Win95的動畫鼠標為應用程序增色不少,而VB則只提供一般的鼠標圖標支持。要用VB顯示動畫鼠標形狀,你可以使用以下方法:
  
  
  函數聲明:
  
  PublicConstGCL_HCURSOR=-12
  
  DeclareFunctionClipCursorLib"user32"(lpRectAsAny)AsLong
  
  DeclareFunctionDestroyCursorLib"user32"(ByValhCursorAsAny)AsLong
  
  DeclareFunctionLoadCursorFromFileLib"user32"Alias"LoadCursorFromFileA"(ByVal
  
  lpFileNameAsString)AsLong
  
  DeclareFunctionSetClassLongLib"user32"Alias"SetClassLongA"(ByValhwndAsLong,
  
  ByValnIndexAsLong,ByValdwNewLongAsLong)AsLong
  
  DeclareFunctionGetClassLongLib"user32"Alias"GetClassLongA"(ByValhwndAsLong,
  
  ByValnIndexAsLong)AsLong
  
  使用:
  
  DimmhBaseCursorAsLong,mhAniCursorAsLong
  
  DimlResultAsLong
  
  mhAniCursor=LoadCursorFromFile("c:windowscursorsappstart.ani")
  
  lResult=SetClassLong((hwnd),GCL_HCURSOR,mhAniCursor)->

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved