Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Otvorte aplikáciu Visual Basic 6.0
2
zadajte nasledujúci kód : . Private Sub MyText_MouseMove ( Button As Integer , Shift As Integer , X As Single , Y ako jednotného ) MyText je názov textového poľa , ktoré budete robiť na mouseover
3
zadajte nasledujúci riadok kódu : . MyText.MousePointer = vbHourGlassThis bude vyrábať ukazovateľ presýpacích hodín , myši, keď je myš ide nad MyText textového poľa
4
Zatvorte podprogram s nasledujúci riadok : . End Suby kód by mal rád : Private Sub MyText_MouseMove ( Button As Integer , Shift As Integer , X As Single , Y ako Single ) MyText.MousePointer = vbHourGlassEnd Sub