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

Question

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

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

私はそれを行うにはどのように...今、私はそのラベル用ハンドカーソルを設定する必要が

を下線スタイル、vbBlueにForeColorを変更し、そうで..？

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

ハンドカーソル付きのICOファイルまたはCURファイルを持っていなければなりません。これをデザイナーのカスタムMouseIconとして設定します（MousePointerから99 - Customに設定することもできます）。

カーソルがない場合は、ウェブの無料版を検索できます。

Answer 3

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