Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Screen.MousePointer, perchè non funziona?

Nel mio programma ho una voce di menů che quando selezionata esegue il
seguente codice.
   Screen.MousePointer = vbHourglass
   ChiudiArchivi
   CompactDatabase "News.mdb", "Tmp.mdb"
   Kill "News.mdb"
   Name "Tmp.mdb" As "News.mdb"
   ApriArchivi
   Screen.MousePointer = vbDefault
Se seleziono la voce di menů con la tastiera tutto funziona.
Se la seleziono con il mouse, la clessidra non appare.
Qualcuno sa spiegarmi perché?
--
Samuele Battarra
mail server: 
libero.it
, account: battarsa

 Se seleziono la voce di menù con la tastiera tutto funziona.


e cosi' ?
Ma la smetti di scrivere il "?" staccato dalle parole?
Non ti ha insegnato nessuno che la punteggiatura va attaggata alla parola,
altrimenti rischi che ti va a capo solo il "?".
:) oggi non è giornata eh?
Ciao

 wrote in message
news:7Y8%5.3190$ag5.2...@twister1.tin.it...

Lo so che fra moglie e marito non si deve mettere il dito pero' a me sembra
piu' leggibile se il ! ed il ? sono messi staccati.
Guarda!        vs        Guarda !
Come?          vs        Come ?
Attendo lapidazioni.
Ciao
Aldo

...


 :) oggi non è giornata eh?
gia', le zann
zare oggi ronn
zano e addaggano...
il punto interrogativo quando scrivo per la carta lo metto sempre attaccato.
pero':
-- a video sta da schifo
-- alcuni del ng, sommersi dai vari "cooooome si faaaa?????????",
rischierebbero di non vederlo, li' solingo e solatio
-- dopo aver letto il periodo (mi sento un verme nei confronti della lingua
che parlo' e anzi forgio' l'alighieri e il petrarca, a chiamarlo cosi') qui
sotto, cercavo di farmi capire in qualunque modo dall'estensore del
medesimo:
    SONO INCLUSI DANNI GENERICI, SPECIALI O INCIDENTALI,
    COME PURE I DANNI CHE CONSEGUONO DALL'USO O
    DALL'IMPOSSIBILITÀ DI USARE IL SOFTWARE CIO'
    COMPRENDE LA PERDITA DI DATI, LA CORRUZIONE DEI DATI
ora, ponendo che _cio'_ non e' un esclamazione di stampo veneto, e tu non
sei il borrelli, prima di togliere gli spazi davanti ai punti (int.) altrui,
dovresti avere il pudore di mettere i punti (ferm.) davanti agli spazi (non
scrivo spazi^ solo per la mia magnanimita': ma l'ho scritto per almeno uno o
due decenni^ :) tuoi.
la paratassi, inoltre, fra "danni" e "i danni" (molto meglio "come pure
eventuali danni conseguenti") sarebbe orribilmente cacofonica. ma su quella
glisso. sorvolo anche sulla possibile e auspicata sintesi "comprende la
perdita _e_ la corruzione di dati" che mai non vide la luce.
augh :)
news://i.c.l.v-b.rhet
( non rhett di "domani e' un altro giorno" :)

 Attendo lapidazioni.
scherzi a parte, una volta li mettevo uniti anche in email:
Modena 17 settembre 1996
Gentili Signori, sono vivamente interessato al seminario *Le reti ad alta
velocita'* Chiedo conferma di data e orario: Giovedì 19 settembre ore 14?
Sono necessarie formalità particolari per l'iscrizione? Vi prego di
confermare l'incontro all'indirizzo ***. Grazie per la cortese attenzione e
distinti saluti, Andrea Palazzi
nb anche le maiuscole :)
pero' usavo il times, mentre ora in oe e spesso in explorer uso il comic
sans e si vedono meglio staccati. credo conti moltissimo il colpo d'occhio
grafico, sia su carta sia a video.
ciao, a.

 ha scritto nel messaggio
news:91iqka$4b0jv$1...@ID-51318.news.dfncis.de...

Già provato. Non cambia niente.

 Già provato. Non cambia niente.
in effetti senza doevents ho provato adesso con una la sub qui sotto e anche
col mouse funziona. l'unica cosa diversa in sostanza e' il msgbox di
conferma, se vuoi provare... ma non mi sembra molto significativo.
ciao, a.
Private Sub mnuDBpack_Click()
    On Error Resume Next
    Dim time1: time1 = Timer
    If MsgBox("PACK DATABASE?", vbYesNoCancel) <> vbYes Then Exit Sub
    MainDB.Close
    Screen.MousePointer = 11
    DBEngine.CompactDatabase MyPath & "ARK.mdb", MyPath & "ARKnew.mdb"
    Beep
    Kill MyPath & "ARKold.mdb"
    Name MyPath & "ARK.mdb" As MyPath & "ARKold.mdb"
    Name MyPath & "ARKnew.mdb" As MyPath & "ARK.mdb"
    MsgBox ("Backup OK: " & vbCrLf & _
        MyPath & "ARK.mdb" & " -- " & _
            Format(FileLen(MyPath & "ARK.mdb"), "###,###,###,###") & vbCrLf
& _
        MyPath & "ARKold.mdb" & " -- " & _
            Format(FileLen(MyPath & "ARKold.mdb"), "###,###,###,###") &
vbCrLf & _
        Format(Timer - time1, "###,##0.##"))
    Screen.MousePointer = 0
    Set MainDB = ...
'ErrMan:
'     MsgBox Error & " (" & Err & ")"
End Sub