< návrat zpět

MS Excel

Téma: Application.Cursor rss

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
avatar
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
avatar
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
avatar
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
avatar
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
avatar
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: zip16529_chess-v0.5.zip (73kB, staženo 19x)
citovat
marjankaj(25.11.2013 16:16)#016530
avatar
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
avatar

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)
avatar\n

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje