VB6標籤集的手形光標

如何設置一個Label控件手形光標在Visual Basic 6VB6標籤集的手形光標

我的標籤應像一個鏈接按鈕。

我改變了ForeColor到vbBlue，下劃線樣式等..

現在我必須設置手動光標爲標籤。怎麼辦呢？

2013-06-19 Gokul E

您可以使用API調用來獲得系統手形光標

將下面的代碼在一個模塊

Public Const IDC_HAND = 32649& 
Public Declare Function SetCursor Lib "user32" (ByVal hCursor As Long) As Long 
Public Declare Function LoadCursor Lib "user32" Alias "LoadCursorA" (ByVal hInstance As Long, ByVal lpCursorName As Long) As Long

，並在MouseMove事件標籤，把下面的代碼

SetCursor LoadCursor(0, IDC_HAND)

其他光標常量：http://msdn.microsoft.com/en-us/library/windows/desktop/ms648391%28v=vs.85%29.aspx

來源

2013-06-19 13:50:06 crackalak

很好的作品...這是我期望的掃管笏...謝謝@crackalak –

優秀的一段代碼，很簡單，100％有效。 – andreszs

你需要有一個手形光標的ICO或CUR文件，然後在設計器中將其設置爲自定義MouseIcon（也可以將MousePointer設置爲99 - Custom）。

如果您沒有它，您可以在網上搜索光標的免費版本。

來源

2013-06-19 11:20:18 GSerg

當我設置任何光標，ico，png文件時，出現「無效圖片」錯誤..什麼是cur或ico或png的質量在vb6控件中？ –

您將不得不自定義MouseIcon。您將在Visual Studio 6安裝的圖形文件夾中找到一個手形光標。下面是代碼做到這一點：

Private Sub Form_Load() 
    Label1.MousePointer = vbCustom 
    Label1.MouseIcon = LoadPicture("C:\Program Files\Microsoft Visual Studio\Common\Graphics\Cursors\H_POINT.cur") 
End Sub

來源

2013-06-19 11:27:17 unlimit

+1我冒昧地編輯你的文章以包含VB6手冊主題的鏈接。 – MarkJ

Yea Got it ..謝謝YOu ... –

@MarkJ：+1鏈接。 – unlimit

VB6標籤集的手形光標

回答

相關問題