Newsgroup: it.comp.lang.visual-basic
Titolo: Microsoft Maledetta !!! GRRR

Qualcuno mi dica se questo non e' un bug grosso come una CASA ,
(sinceramento spero di essere io a sbagliare).
Invio il segmento di codice che genera l'errore :
    Sub Display_Articolo(ID As Integer, MyGrp As Integer)
    Text1(ID).Text = RsArt!art_cod_pro
    Text2(ID).Text = RsArt!art_cod_mar
    Text3(ID).Text = RsArt!art_des_pro
    Text4(ID).Text = RsArt!art_cod_umi
    Text5(ID).Text = 1                                      
    Text6(ID).Text = Format(RsArt!art_pre_ven, "#,###,##0") '
    If Trim(Etichette(ID).Cod_Art) <> Trim(RsArt!art_cod_pro) Then
       Load Gvbox1(GvIdx)   **** ERRORE : CONTROLLO GIA' CARICATO
       Gvbox1(GvIdx).Visible = True
       Etichette(ID).GvId = GvIdx
       If RsArt!art_fot.FieldSize > 0 Then
          Leggi2_BitMap
          Gvbox1(GvIdx).filename = "xdummy2.jpg"
       Else
          Gvbox1(GvIdx).filename = "nodummy.jpg"
       End If
       GvIdx = GvIdx + 1
    End If
    With Etichette(ID)
        .Cod_Art = RsArt!art_cod_pro
        .Des_Art = RsArt!art_des_pro
        .Qta_Art = RsArt!art_qta_umi
        .Pre_Art = RsArt!art_pre_ven
        .Gruppo = MyGrp
    End With
    Disponi_Immagini
End Sub
*********************************************************************************************************************
Volete sapere come risolvere il problema (ovviamente nel codice non ci
sono errori, almeno...) ?
Se metto un breakPoint sulla riga che genera l' errore e poi in
esecuzione quando il programma si ferma e batto F5 senza fare nulla il
programma funziona 
divinamente, appenda tolgo il breakpoint o eseguo la versione .exe il
programma scoppia. Adesso ditemi mi devo incazzare con la Microsoft o
c'e' qualcosa che mi sfugge ?
P.S. Ho VB5 Inglese esistono percaso patch di aggiornamento gratutiti,
se si dove li posso scaricare ?
Rispondete sulle news.

...
|Qualcuno mi dica se questo non e' un bug grosso come una CASA ,
|(sinceramento spero di essere io a sbagliare).
|
|Invio il segmento di codice che genera l'errore :
|
|    Sub Display_Articolo(ID As Integer, MyGrp As Integer)
On error resume next '!!!!!!!!!


caricato.
Quale Riga devo Aggiungere ????
Sara' come dici te, ma ti invio il codice che lo crea e come puoi
vedere anche te e' impossibile creare un controllo doppio :
Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
    Dim NewId   As Integer
    Dim CercaGr As Boolean
    Dim Totale  As Long
 
    If KeyAscii = 32 Then KeyAscii = 0
    If KeyAscii > 96 And KeyAscii < 123 Then KeyAscii = KeyAscii - 32
 
    If KeyAscii = 32 Then
       NoCapture = True
       SendKeys "{Right}"
    End If
 
    If Movimento = 3 Then   
       Movimento = 0
       If Etichette(Index).Gruppo < 11 Then
          Call Label1_Click(TextID)
       Else
          Resp = MsgBox("Fare Doppio Click sulla Riga Codice per
Aprire Finestra", _
                 vbCritical, "Operazione Non Permessa")
       End If
    End If
    If KeyAscii = 13 Then
       Movimento = 0
       Call Sposta_Articolo(Etichette(Index).Gruppo, 0,
Trim(Text1(Index).Text))
       If Not RsArt.NoMatch Then
          Call Display_Articolo(Index, Etichette(Index).Gruppo)
 
          If Codice <> Trim(RsArt!art_cod_pro) Then
             Codice = Trim(RsArt!art_cod_pro)
            *****************************
             Load Gvbox1(GvIdx)
            ****************************
             Gvbox1(GvIdx).Visible = True
             Etichette(Index).GvId = GvIdx
             If RsArt!art_fot.FieldSize > 0 Then
                Leggi2_BitMap
                Gvbox1(GvIdx).filename = "xdummy2.jpg"
             Else
                Gvbox1(GvIdx).filename = "nodummy.jpg"
             End If
             GvIdx = GvIdx + 1
          End If
 
          Call Calcola_Totale
       End If
    End If
    If KeyAscii = 46 Then           ' Tasto Canc Elimina Riga
       CercaGr = True
       NewId = Trova_Fuoco(Index, Etichette(Index).Gruppo)
       If Etichette(Index).Primary Then ' La Funziona sotto se torna
vero elimina la riga
          CercaGr = Cerca_Altri_Gruppi(Index, Etichette(Index).Gruppo)
          If Not CercaGr Then
             Text1(Index).Text = ""
             Text2(Index).Text = ""
             Text3(Index).Text = ""
             Text4(Index).Text = ""
             Text5(Index).Text = 0
             Text6(Index).Text = 0
             Call Visible_riga(False, Index)
          End If
       Else
          Unload Label1(Index)
          Unload Text1(Index)
          Unload Text2(Index)
          Unload Text3(Index)
          Unload Text4(Index)
          Unload Text5(Index)
          Unload Text6(Index)
          Etichette(Index).ID = 0                 ' Annulla ID
Etichetta
          Etichette(Index).Gruppo = 0             ' Annulla Gruppo
appartenenza Etichetta
          Etichette(Index).GvId = 0               ' Annulla ID
Immagine Associata
          TextID = 0
          Eti_Tot = Eti_Tot - 1
       End If
       Disponi_Etichette
       Call Calcola_Totale
       If NewId > 0 Then
          If Etichette(NewId).ID <> 0 And CercaGr Then
             Text1(NewId).SetFocus
          End If
       End If
    End If
    If Movimento = 1 Then
       Call Sposta_Articolo(Etichette(Index).Gruppo, -1, "")   ' -1
Precedente
       Call Display_Articolo(Index, Etichette(Index).Gruppo)
       Movimento = 0
    ElseIf Movimento = 2 Then
       Call Sposta_Articolo(Etichette(Index).Gruppo, 1, "")    ' +1
Successivo
       Call Display_Articolo(Index, Etichette(Index).Gruppo)
       Movimento = 0
    End If
End Sub
Come vedi c'e' un Load GvBox e subito dopo il contatore viene
incrementato ( ho provato anche a partire con indici altissimi (200) e
il problema e' lo stesso.
Poi come ti ho gia' detto se metto un breakpoint prima della Load o
sulla load stessa e se quando il programma si ferma (sul Break) lo
rifaccio ripartire il tutto funziona a meraviglia.
Perche' ?
Hai qualche suggerimento magari per effettuare un Debug ?

     End If




Buon Lavoro
Certo che e' globale, ma il bello e' che se metto un breakpoint prima
del comando Load GvBox1(gvidx) e quando il programma si interrompe lo
riavvio con F5 il tutto funziona a meraviglia.
Poi  monitorizzando la variabile GvIdx il valore viene incrementato
dopo ogni Load quindi non ha senso che dia quell'errore.
BOH

On Thu, 14 Aug 1997 15:37:54 GMT, x...@yyy.pipo (CyberMan) wrote:
Scusa, non vorrei farti perdere tempo ma ti chiederei di provare a
caricare delle bitmap anziche' immagini JPEG, e poi sapermi dire se
funziona (senza il break-point).
Grazie.
Claudio Ghiotto
GHIOTTOCLAUDIO SOFTMEDIA
Montecchio M. (VI) - Italy
http://www.interplanet.it/ghiotto
e-mail: 
ghi...@interplanet.it
..........................................................
Please, to send e-mail remove >> from address
Prego, rimuovere >> dall'indirizzo per inviare una e-mail
..........................................................