Visual Basic 6 - webbrowser con le matrici e tabstrip

Forum - Visual Basic 6 - webbrowser con le matrici e tabstrip - Pagina 5

Pagine: [ 1 2 3 4 5 6 7 ]

gantonio (Normal User)
Guru^2

Messaggi: 1532
Iscritto: 09/09/2007

Postato alle 14:37
Mercoledì, 16/04/2008

Testo quotato

Postato originariamente da TSP:

idem con long e anche se inserisco Dim ar(0) As Long nel form load invece che nelle dic generali ma non fa l'errore del redim se inserisco Dim ar() As Long(sia nel form load che nelle dic generali)

Scusa TSP ... ma a volte mi sembra di rispondere ad un robot e non ad un essere pensante ...

Ti sto dicendo da piu' post che DEVI SCRIVERE

Dim ar() As Long

per non avere l'errore ...

Perche' stai facendo le prove di scrittura di tutte le combinazioni di istruzioni sbagliate che tu possa scrivere ??

TSP (Ex-Member)
Pro

Messaggi: 99
Iscritto: 17/03/2008

Postato alle 15:00
Mercoledì, 16/04/2008

lo so, ma avevo letto male, scusate.

comunque adesso quale sarebbe l'applicazione pratica?

cioè io devo scrivere al click:

webbrowser1(cosadevomettere).visible = true

grazie per l'aiuto e per la pazienza... :k:

P4p3r0g4 (Member)
Guru

Messaggi: 1319
Iscritto: 29/12/2006

Postato alle 17:43
Mercoledì, 16/04/2008

allora correggiamo l'errore da cosi`

Codice sorgente - presumibilmente VB.NET

Unload WebBrowser1(TabStrip1.SelectedItem.index - 1)
For n = TabStrip1.SelectedItem.index - 1 To WebBrowser1.Count - 1
ar(n) = ar(n + 1)
Next n
ReDim Preserve ar(0 To UBound(ar) - 1)
TabStrip1.Tabs.Remove

a cosi`

Codice sorgente - presumibilmente VB.NET

Unload WebBrowser1(TabStrip1.SelectedItem.index - 1)
For n = TabStrip1.SelectedItem.index - 1 To ubound(ar) - 1
ar(n) = ar(n + 1)
Next n
ReDim Preserve ar(0 To UBound(ar) - 1)
TabStrip1.Tabs.Remove

e comunque

Codice sorgente - presumibilmente Visual Basic 6

webbroser1(ar(tabstrip1.selectedindex.index)).visible = true

Ultima modifica effettuata da P4p3r0g4 il 16/04/2008 alle 17:45

TSP (Ex-Member)
Pro

Messaggi: 99
Iscritto: 17/03/2008

Postato alle 19:27
Mercoledì, 16/04/2008

WebBrowser1(ar(TabStrip1.selectedindex.index)).Visible = True

la seguente stringa mi risponde "Proprietà o metodo non supportati dall'oggetto"

e anche la stringa(nel form load):

ar(n) = ar(n + 1)

da indice non compreso nell'intervallo

:-?

AIUTO!!!

Grazie per la pazienza :k:

Ultima modifica effettuata da TSP il 16/04/2008 alle 19:30

P4p3r0g4 (Member)
Guru

Messaggi: 1319
Iscritto: 29/12/2006

Postato alle 14:07
Giovedì, 17/04/2008

ar() deve essere di tipo integer
hai cambiato la sub come ti ho detto nel post precendente?

TSP (Ex-Member)
Pro

Messaggi: 99
Iscritto: 17/03/2008

Postato alle 14:30
Giovedì, 17/04/2008

yes.. fatto tutto quello che avevi detto prima e ar() è integer......... :-?

non è che non la devo metterenel form load???

Ultima modifica effettuata da TSP il 17/04/2008 alle 14:32

P4p3r0g4 (Member)
Guru

Messaggi: 1319
Iscritto: 29/12/2006

Postato alle 15:46
Giovedì, 17/04/2008

intanto nel form load manca il redim.
te l'ho gia detto, no?
prima di usare il vettore devi riempirlo con qualche elemento, no?
nel form_load c'e` ar(n)=ar(n+1)
senza che prima ar sia stato devinito.
ar() deve essere dichiarato uguale alle tabstrip.

aggiungo che nn serve a niente fare ar(n) = ar(n+1) al form load e mi viene un dubbio, hai capito il codice cosa fa?

Ultima modifica effettuata da P4p3r0g4 il 17/04/2008 alle 15:48

TSP (Ex-Member)
Pro

Messaggi: 99
Iscritto: 17/03/2008

Postato alle 16:01
Giovedì, 17/04/2008

l'ho dichiarata [dim ar() as integer] nelle dic generali poi ho provato nel form

risponde sempre nello sdtesso modo: indice non compreso nell'intervallo

ecco, date un occhiata al progetto(se avete vb6)

TSP ha allegato un file: Brawser.zip (226420 bytes)
Clicca qui per scaricare il file

Pagine: [ 1 2 3 4 5 6 7 ]