Wie Hand Cursor für ein Label-Steuerelement In Visual Basic 6VB6 Label-Set Hand Cursor
Mein Label wie eine Link-Schaltfläche handeln sollte.
änderte ich den ForeColor-vbBlue, Unterstrichen Stil und so weiter ..
jetzt muss ich für das Etikett der Hand-Cursor gesetzt .. Wie es zu tun?
Sie können API ruft das System Hand Cursor
Setzen Sie den folgenden Code in einem Modul
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
und in dem Mousemove-Ereignisse erhalten von das Etikett, den folgenden Code
SetCursor LoadCursor(0, IDC_HAND)
Andere Cursor-Konstanten: http://msdn.microsoft.com/en-us/library/windows/desktop/ms648391%28v=vs.85%29.aspx
Sie müssen eine ICO- oder CUR-Datei mit einem Handcursor haben und diese dann als benutzerdefinierten MouseIcon im Designer festlegen (setzen Sie auch MousePointer auf 99 - Custom).
Sie können im Internet nach einer freien Version des Cursors suchen, wenn Sie ihn nicht haben.
Es gibt einen Fehler wie 'Ungültiges Bild', wenn ich irgendeinen Cursor setze, ico, png-Dateien, die ich herunterlade .. was ist Qualität der cur oder ico oder png, um hier in vb6 Kontrollen zu sein .. ??? –
Sie müssen eine benutzerdefinierte MouseIcon tun. Sie finden einen Handcursor im Grafikordner Ihrer Visual Studio 6-Installation. Hier ist der Code, es zu tun:
Private Sub Form_Load()
Label1.MousePointer = vbCustom
Label1.MouseIcon = LoadPicture("C:\Program Files\Microsoft Visual Studio\Common\Graphics\Cursors\H_POINT.cur")
End Sub
Works Great ... Das ist wat ich erwarte ... Danke @ Crackalak –
Ausgezeichnetes Stück Code, sehr einfach und 100% effektiv. – andreszs