20. april 2006 - 22:25
Der er
2 kommentarer og
1 løsning
musens ikon
Hvordan gør jeg sådan at når man klikker på en knap (eksempelvis) der allerede er sat til at køre en masse kode igennem, at musen så skifter ikon (til "arbejder"/"tænker"/"timeglas"-ikonet) og så skifter igen når knappens kode er kørt igennem?
Musen skal så vidt muligt kun vise timeglas-ikonet så længe man holder den over formen (hvor knappen er) eller evt. over excel (som formen kører i), men kun vise "arbejder i baggrunden"-ikonet når man holder musen udenfor (f.eks. på proceslinien).
21. april 2006 - 06:49
#1
ved dog ikke om det virker i excel.. men du kan jo prøve..
Private Sub Command1_Click()
' -------------------------------------------------------------------------------------
' Constant Value Description
' -------------------------------------------------------------------------------------
' vbDefault 0 (Default) Shape determined by the object.
' vbArrow 1 Arrow.
' vbCrosshair 2 Cross (crosshair pointer).
' vbIbeam 3 I beam.
' vbIconPointer 4 Icon (small square within a square).
' vbSizePointer 5 Size (four-pointed arrow pointing north, south, east, and west).
' vbSizeNESW 6 Size NE SW (double arrow pointing northeast and southwest).
' vbSizeNS 7 Size N S (double arrow pointing north and south).
' vbSizeNWSE 8 Size NW SE (double arrow pointing northwest and southeast).
' vbSizeWE 9 Size W E (double arrow pointing west and east).
' vbUpArrow 10 Up Arrow.
' vbHourglass 11 Hourglass (wait).
' vbNoDrop 12 No Drop.
' vbArrowHourglass 13 Arrow and hourglass.
' vbArrowQuestion 14 Arrow and question mark.
' vbSizeAll 15 Size all.
' vbCustom 99 Custom icon specified by the MouseIcon property.
' -------------------------------------------------------------------------------------
Me.MousePointer = vbArrowHourglass
' Her køre du så alt din kode..
Me.MousePointer = vbDefault
End Sub
