• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: Application.Cursor

Zaslal/a Palooo 25.11.2013 9:29

Ahojte

uz to hladam vyse 2hodin a stale som nic nenasiel

mam sub ktory sa kazdu 1s opakuje a chcel by som dosiahnut toho aby v cursore neboli vidiet presipacie hodiny resp. aby to vypadalo tak ze sa nic nenacitava

chcel som to riesit takto:

Private Sub TimerStart()
OldPointer = Application.Cursor
Application.Cursor = OldPointer

If TimerCheck = True Then
If Chess.CheckYourMove(aName) Then
Application.OnTime Now() + TimeValue("00:00:01"), "TimerStart"
Else
Chess.loadBoard
TimerCheck = False
End If
End If

Application.Cursor = xlDefault
End Sub

ale OldPointer je nastaveny na xlDefault .... netusite ako zistim aktualny ukazovatel mysi??????

Zaslat odpověď >

---

Dingo(25.11.2013 14:22)#016524

Nevím, jestli to chápu správně.
Application.Cursor mi vrací číslo, různé podle typu kurzoru. Tím číslem se zase dá kurzor zase nastavit.
A v tom kusu kódu je na konci xlDefault. Tak to celé končí s default kurzorem. Co je špatně?
xlDefault = -4143, xlWait = 2, atd.citovat

Palooo(25.11.2013 14:25)#016525

ano to presne mam namysli ale neviem zistit aky aktualne viditelny cursor aby som ho vedel prepisat na tu 1-2s :) v makre

chci toto opravit:
OldPointer = Application.Cursor

na:
OldPointer = worksheet.Cursor.Now // samozrejme toto nefunguje :)citovat

Dingo(25.11.2013 14:56)#016526

Něco jsem zkoušel, ten zápis
OldPointer = Application.Cursor
mi podle mě funguje, když předtím sám nastavím nějaký kurzor.
Ale po spuštění makra např.dlouhého cyklu, kdy uprostřed zjistím a Msgbox vypíšu typ kurzoru, mám vždycky default.
A taky se podle toho Excel chová: mám "kříž"-select. Pustím makro, default-šipka. Msgbox vypíše -4143 a teprve pak vidím "hodiny"-čekání. Po Ok je zase kříž.
Obávám se, že tady neporadím.citovat

marjankaj(25.11.2013 15:41)#016528

Sub ukazovatko()
Application.Cursor = xlIBeam
Select Case Application.Cursor
Case 1
MsgBox "xlNorthwestArrow"
Case 2
MsgBox "xlwait"
Case 3
MsgBox "xlIbeam"
Case Else
MsgBox "xldefault"
End Select
Application.Cursor = xlDefault
End Subcitovat

Palooo(25.11.2013 15:47)#016529

nechcel som to tu davat lebo je to moc velke ale inac to asi nepojde :))

urobil som si addin na sietove sachy pre 2hracov.

takze ked sa makro dostane do stavu ze je na tahu druhy hrac tak kazdu 1s testuje ci uz sa ten hrac posunul .... a to testovanie vytvara blikanie presypacich hodin (ale cursor je definovany na xlDefault) a tomuto efektu by som sa ja rad vyhol

viac priloha:

Příloha: 16529_chess-v0.5.zip (73kB, staženo 18x)

citovat

marjankaj(25.11.2013 16:16)#016530

No je tam rekurzívne volanie, takže asi ten OLDPOINTER sa stále mení.
Možno by stačilo napríklad
Application.Cursor=xlNorthwestArrow
Neviem, musel by som skúšať. A teraz nemám čas.citovat

Palooo(25.11.2013 16:18)#016532

marjankaj napsal/a:

No je tam rekurzívne volanie, takže asi ten OLDPOINTER sa stále mení.
Možno by stačilo napríklad
Application.Cursor=xlNorthwestArrow
Neviem, musel by som skúšať. A teraz nemám čas.

to by nebolo moc prijemne po pri sachov keby nahodov aj robil a ukazovalo by mu to len sipku :)citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse