Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Klepsydra w VB
busio
busio




Typ: neutral
Postów: 98
Zarejestrowany: Sep 2002
Klepsydra w VB

Witam

Stworzyłem funkcję w VB która wykonuje się ok 10sek.
Chciałem aby w tym czasie była wyświetlana klepsydra - i była, ale tylko do czasu gdy postanowiłem dać userowi możliwość wybrania czy chce czekoć te 10sek.
Wprowadzenie

msgbox "......", vbYesNo,....
screen.mousepointer = 11
me.mousepointer = 11
setcursor(1)

nic nie daje
usunięcie

msgbox ""

od razu przywraca klepsydrę
Czy ktoś może potrafi na VB wymusić właściwą ikonę myszy?

Pozdrawiam Busio

25-04-2003 14:44
Pokaż profil busio  Wyślij email do busio   Odwiedź stronę busio  
Wrobel



Typ: neutral
Postów: 44
Zarejestrowany: Sep 2002

Zrób tak :

msgbox()''tutaj te twoje zapytanie
screen.mousepointer=vbhourglass
doevents
...
...
...
screen.mousepointer=vbdefault

powinno zadziałać

26-04-2003 17:27
Pokaż profil Wrobel  Wyślij email do Wrobel   Odwiedź stronę Wrobel  
busio
busio




Typ: neutral
Postów: 98
Zarejestrowany: Sep 2002

Sprawdziłem , ale nie zadziałało...

28-04-2003 10:42
Pokaż profil busio  Wyślij email do busio   Odwiedź stronę busio  
losmac
"profesorek"




Typ: neutral
Postów: 758
Zarejestrowany: May 2003

Może tak:

wskMysz = Screen.MousePointer

if MsgBox("Czy chcesz czekać?",vbQuestion + vbYesNo,) = vbYes then
  'ustaw wskaznik na zajetosc
    Screen.MousePointer = wskMysz
  'wywołaj procedurę
  'przywroc wskaznik
    Screen.MousePointer = wskMysz
end if



_____________________________________________
POSTULATY STARUSZKA:
1) Ludzie, dbajcie o polszczyznę!!!
2) Ludzie, zadawajcie kompletne pytania, a nie rzucacie ochłapy i trzeba się domyślać o co chodzi!!!

Powodzenia
Maciej Łoś

07-05-2003 19:54
Pokaż profil losmac  Wyślij email do losmac   Odwiedź stronę losmac  
Wszystkich odpowiedzi: 3 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1