Hur ritar jag ett hårkors markören i Visual Basic ?

Microsofts Visual Studio svit , inklusive Visual Basic , är den statsstödda metod för att skapa applikationer för Windows-operativsystem. Bland Visual Basic många funktioner är möjligheten att ändra Windows muspekaren : antingen standardinställningen markören , eller en av de många extra markörer ( t. ex. ” upptagen ” markör ) som används av Windows . Detta är ett vanligt inslag i spel och andra applikationer som kräver ett alternativ till den vanliga vita pilen
1 .
Skapa ett nytt projekt i Visual Basic genom att klicka på ”Fil ”, ” Nytt projekt , ” och kalla den ” hårkorset Tutorial . ” Lämna de andra alternativen på standard .
2 .
Dra en knapp på formuläret från verktygslådan.
3 .
Dubbelklicka på knappen . Detta kommer att öppna textredigeraren för programmet källkod
4
Klistra in följande kod i textredigeraren för att dra hårkorset .

Dim bmCursor som ny Bitmap (60 , 60 )

Dim g Som Graphics=Graphics . FromImage ( bmCursor )

g. DrawLine ( Pens. Red , 30 , 0 , 30 , 60 )

g. DrawLine ( Pens. Red , 0 , 30 , 60 , 30 )
5
Klistra in följande kod direkt efter den sista koden för att ändra markörens aktuella .

Me. Cursor=ny markör ( bmCursor. GetHicon )