vb6 - VB6 ラベル セット ハンド カーソル

Question

Visual Basic 6 でラベル コントロールのハンド カーソルを設定する方法

私のラベルは、リンク ボタンのように機能する必要があります。

、下線のスタイルなどを変更しForeColorました。vbBlue

次に、そのラベルにハンドカーソルを設定する必要があります..どうすればいいですか?

Answer 1

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

Answer 2

カスタムを行う必要があります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

Answer 3

ハンド カーソルを含む ICO または CUR ファイルを用意し、それをMouseIconデザイナーでカスタムとして設定する必要があります (これも に設定MousePointerし99 - Customます)。

カーソルがない場合は、Web で無料バージョンのカーソルを検索できます。