Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Otvorte program jazyka . Otvorte okno kód
2
Otvorte funkciu Form_MouseMove a zadajte nasledujúci príkaz : .
Form1.MousePointer = vbCrosshair
Keď sa užívateľ pohybuje jej ukazovateľ nad formou , predvolené Kurzor sa zmení na nitkový kríž
3
Otvorte funkciu Label1_MouseMove a zadajte nasledujúci príkaz : .
Label1.MousePointer = vbSizeNS
užívateľ sa vznáša nad TextLabel1 ( za predpokladu , že táto kontrola existuje na formulári ) , predvolený kurzor zmení na šípku , ktorá ukazuje na sever a na juh . Toto prepíše zameriavacieho kríža kurzora , ktorý je zobrazený na zvyšok formulára
4
Otvorte funkciu Label2_MouseMove a zadajte nasledujúci príkaz : .
Label2.MouseIcon = LoadPicture ( " C : \\ myCursor . cur " )
Label2.MousePointer = vbCustom
Keď sa užívateľ pohybuje cez Label2 ( za predpokladu , že táto kontrola existuje na formulári ) , predvolený kurzor sa zmení na vlastný kurzor poskytované vo funkcii LoadPicture . Uistite sa , že cesta v zozname parametrov zápasov , kam ste uložili súbor kurzor na .