Newsgroup: it.comp.lang.visual-basic
Titolo: [?] messaggio di errore di un errore che non esiste, Perche?

Salve
ho un sorgente molto grande nel quale il mio VB6 learning e anche VB5 tutte
le volte che vi apporto una
qualsiasi modifica anche di una sola virgola mi da il seguente messaggio di
errore sulle istruzioni grafiche:
"errore di compilazione: numero di argomenti o assegnazione di proprietà non
valida"
e non riesco a fare ripartire il programma fino a quando non chiudo VB e
riapro il progetto solo in tale
modo scompare il messaggio di errore. tale messaggio di errore è fonte di
una incredibile perdita di tempo
per provare il segunte codice è necessario inserire in un form due
picturebox della stessa larghezza una sopra
all'altra di cui quella sopra di altezza almeno dieci centimtri e quella
sotto molto bassa, quello che chiedo è di
provare a modificare o aggiungere del codice per farmi sapere se anche a voi
poi si blocca dandovi il messaggio di errore di cui sopra, se riparte dopo
aver salvato e chiuso il progetto ed eventuali soluzioni all'inconveniente.
 grazie mille dell'attenzione, Paolo
Private Sub Command1_Click()
       Dim dat(400, 1000)
       Dim datwat(400, 1000)
       Picture1.ScaleMode = 1
Move:
       For I = 1 To 1500
             Spazio = 15
             Picture1.Move 0, -I * Spazio, Picture1.Width, Picture1.Height
'+ I * Spazio
             '
             Picture1.Height = -Picture1.Top + Picture2.Top
             col = Int(Rnd * 16)
             Picture1.Line (0, Picture1.Height - 100)-(Picture1.Width,
Picture1.Height - 100), QBColor(col)
             molt = Picture1.Width / 400
             For punto = 1 To 400
                 col = Int(Rnd * 16)
                 Picture1.Line -(punto * molt, Picture1.Height - 100),
QBColor(col)
             Next punto
             DoEvents
      Next I
fine:
End Sub

 QBColor(col)
Non l'ho letto tutto ma m'č saltata all'occhio questa riga: manca effettivamente
il parametro del punto x2,y2. Questa istruzione traccia una linea da (punto *
molt, Picture1.Height - 100) a ?!?!?!?  Inoltre il meno prima della parentesi č
illegale. Se vuoi solo tracciare un puntino, usa
picture1.pset (-punto * molt, picture1.height - 100), qbcolor(col)
ciao!
dario...@iol.it
http://dariobrunocorti.freeweb.org


salve a tutti:-)
Se guardi la guida in linea vedrai che anche negli esempi c'e' il meno
nell'istruzione line il
quale ha un preciso significato.
 Purtroppo devo farti notare che non hai letto bene il messaggio originale
in
quanto c'era scritto che il messaggio di errore non è causato da alcun
errore in quanto l'unica maniera di fare scomparire il messaggio di errore
e' quello di salvare il programma chiudere il VB riaprire VB e il programma,
solo in tale modo
il messaggio di errore scompare   inoltre non manca x2, y2 ma manca x1,y1
che VB provvede a mettere in modo automatico in base alle istruzioni
grafiche precedenti. cio' e' dimostrato dal fatto che tale codice funziona
perfettamente fino a quando non faccio alcuna modifica sulla subroutine,
qualsiasi modifica faccio sulla subroutine mi da' il messaggio di errore
"errore di compilazione" sull'ultima istruzione grafica.
 se ci fosse veramente un errore di compilazione poi dovrebbe continuare a
darlo anche dopo
aver chiuso e riaperto VB6 e il progetto, inoltre se commento l'istruzione
che causa il messaggio di errore falso
tale messaggio compare su un'altra istruzione grafica, e cosi' via fino a
quando non ho commentato
tutte le istruzioni grafiche.
per questo problema ho anche contattato la filiale Microsoft italiana la
quale mi ha detto di scaricare il
service pack ma questo non ha risolto il problema
scusate la lunghezza del messaggio ma e' un problema che mi assilla da
almeno sei mesi :-(.
Grazie mille dell'interessamento   Paolo :-).