VBʹÓÃÊÖÐεÄͼ±ê
Option Explicit
Private Declare Function LoadCursor Lib "user32.dll" Alias "LoadCursorA" (ByVal hInstance As Long, ByVal lpCursorName As Long) As Long
Private Declare Function SetCursor Lib "user32.dll" (ByVal hCursor As Long) As Long
Private Const IDC_HAND As Long = 32649
Private myHand_handle As Long
Private Sub Form_Load()
myHand_handle = LoadCursor(0, IDC_HAND)
End Sub
Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If myHand_handle <> 0 Then SetCursor myHand_handle
End Sub
Ïà¹ØÎĵµ£º
È¥ÄêÔøÐ´¹ýһƪ²©ÎÄ£¬Ãû³Æ½Ð¡¶ÓÃVBÎÞ´°¿Ú͸Ã÷Usercontrol±àд͸Ã÷¸¡¶¯°´Å¥¡·£¬¸ÃÎÄÓÐÒ»¸ö¹ÛµãÊÇ´íÎóµÄ£¬¼´Í¸Ã÷ÎÞ´°¿ÚUsercontrol²»Ö§³ÖÉè¼ÆÊ±µãÑ¡¡£Æäʵ£¬Í¨¹ýÔÚUserControl_HitTest¹ý³ÌÀï¼ÓÈëHitResult = vbHitResultHitÓï¾ä£¬¾Í¿ÉÒÔʵÏÖÉè¼ÆÊ±µÄµãÑ¡ÁË£¬Îª´Ë£¬Ð޸ĴúÂëÈçÏ£º
'* ******************* ......
VBÑÕÉ«ºÍRGBÉ«»¥Ïàת»»Í·ÌÛÁËÎÒºÃÒ»¶Îʱ¼ä,Èç½ñÕÒµ½½â¾ö°ì·¨ÁË
ÌØ±ðÌù³öÀ´Óë´ó¼Ò¹²Ïí
Type RGB
Red As String
Green As String
Blue As String
End Type
Public Function ColorToRGB(ByVal dwColor As Long) As RGB
Dim clrHex ......
VBµÄ´úÂë´æ´¢ÔÚÄ£¿éÖС£ÔÚVBÖÐÌṩÁËÈýÖÖÀàÐ͵ÄÄ£¿é£º´°ÌåÄ£¿é¡¢±ê׼ģ¿éºÍÀàÄ£¿é¡£
¡¡¡¡¼òµ¥µÄÓ¦ÓóÌÐò¿ÉÒÔÖ»ÓÐÒ»¸ö´°Ì壬ËùÓõijÌÐò¶¼×¤ÁôÔÚ´°ÌåÄ£¿éÖУ¬¶øµ±Ó¦ÓóÌÐòÅÓ´ó¸´ÔÓʱ£¬¾ÍÒªÁíÍ⸽¼Ó´°Ìå¡£×îÖÕ¿ÉÄÜÓм¸¸ö´°ÌåÖÐÓÐһЩ¹²Í¬¶¼ÒªÖ´ÐеĴúÂ룬ΪÁËÔÚÁ½¸ö´°ÌåÖв»²úÉúÖØ¸´´úÂ룬¿É´´½¨Ò»¸ö¶ÀÁ¢µÄÄ£¿é£¬ÓÃËüʵÏÖ´ú ......