mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: [SITO COMUNE] Proposta di sezione.

Si potrebbe creare una sezione del sito comune contenente i sorgenti.
Dove
chiunque può aggiungere un sorgente con un form...
NATURALMENTE NIENTE
ABUSI...
Cosa ve ne pare?
--
Timothy
timothy....@email.it
--------------------------------
Inviato via 
http://usenet.iol.it

?????!!!

Cosa ve ne pare?
Ehm... c'è già... con la nuova versione del Sito Comune viene usato un form per inviare del
materiale da pubblicare. Ovviamente è moderato, ovvero è il WebMaster a pubblicarlo e non l'utente
direttamente. Questo per ovvi motivi, che non sto a rielencare perché basta leggere lo statuto del
Sito Comune...
Ciao,
Moreno
#sirri#@#morenosoft#.com
(togliete "#" dall'indirizzo)
Moreno Sirri VB Site - 
http://www.msvbsite.net
---------------------------------------------------------------------------
Le risposte alle tue domande le trovi sul Sito Comune di questo NewsGroup:
 
http://www.it-lang-vb.net
---------------------------------------------------------------------------

?????!!!
Va bene proverò a spiegarmi meglio....
Si potrebbe creare una sezione
dove ognuno può inserire i propri sorgenti utilizzando un form per postarli
e quindi aggiornata in tempo reali.
NATURALMENTE OGNI TANTO UN CONTROLLO
PER GLI ABUSI...
Cosa ve ne pare?
--
Timothy Redaelli


Cosa ve ne pare?
Ehm... c'è già... con la nuova versione del Sito Comune viene usato un form per inviare del


Newsgroup: it.comp.lang.visual-basic
Titolo: misterioso mistero di Winsock

allora...ho un server ed un client..
il server ha delle operazioni da mandare ai vari client...
se scrivo il codice come sotto riportato:
If Check1(0).Value = 1 Then
                   WSCK(1).SendData "00"
                    MsgBox "pippo"
                Else
                    WSCK(1).SendData "01"
End If
al server arriva la stringa av,
se viceversa scrivo il codice:
               If Check1(0).Value = 1 Then
                   WSCK(1).SendData "00"
                Else
                    WSCK(1).SendData "01"
                End If
senza la riga del MsgBox (che tra l'altro NON mi serve)
non arriva al server la stringa av
sto diventando matto...
ogni suggerimento e' bene accettisssssimmo.
ciao !

 non arriva al server la stringa av
Provato un doevents al posto del msgbox o un loop di attesa sembrerebbe un
porblema di timing?
No non picchiatemi! :-)
Newsgroup: it.comp.lang.visual-basic
Titolo: stranezze di visualizzazione

ho fatto un prg che usa la form MDI maximized e le varie form interne di
varie grandezze.
sul pc di sviluppo con  win 98 e risoluzione video 1024x768 si vede tutto
bene,
sul pc dell'utilizzatore con le stesse impostazioni le form diventano +
grandi dello schermo..
(il prg è stato aggiornato per un po su win 2000 con la stessa risoluzione,
poi è tornato sotto win98)
qualcuno saprebbe dirmi come mai???
grazie mille

In data Tue, 26 Nov 2002 14:28:11 GMT, Emanuele ha deciso di scrivere:
Potrebbe essere dalle dimensioni del carattere...
Proprietà video>impostazioni>avanzate>generale>schermo>dimensioni
caratteri... tutto questo su windows 2000...
Ciao Emanuele
______________________
Emanuele
TDM 850 93' "la scura"
Ts4n full ergal
Ipaq 3630 ppc2002

Newsgroup: it.comp.lang.visual-basic
Titolo: Order BY

Ciao a tutti ho una tabella di un database access con due campi: NOME e
COGNOME, come faccio (usando SQL) ad ordinare questa mia tabella prima per
cognome e poi per nome?
Esempio:
SELECT * FROM tabella ORDER BY cognome AND nome
Ma non mi sembra che cosě funzioni.
Grazie e ciao.

Select * from [tua Tabella] order by Cognome,Nome
Ciao 
mauro.b...@tiscalinet.it

 ha scritto

SELECT * FROM tabella ORDER BY cognome, nome

 Grazie e ciao.
Per queste domande è più indicato it.comp.software.database (news che già
conosci visto che hai fatto la stessa identica domanda di là nello stesso
momento)
Ciao VB

Newsgroup: it.comp.lang.visual-basic
Titolo: Visual Basic Profiler

Hi,
I found your Profiler for Visual Basic projects.
I have some question if you can help me.
I tryed it, but I'm not able to do it work: all I get when I press
"Instrument" is a line with "0|profiler".
I'm not used with COM+ components so I think I didn't installed it
correctly.
I need to test an exe with some activex dll and ocx referenced by it (so
*not* by IIS).
Your profiler can trace also exe or just dll/ocx?
And can you tell me the right way to install the profiler.dll?
Thank you
--
Math Parser : 
http://www.neodatatype.net

 wrote in message
news:X4ntb.31338$hV.11...@news2.tin.it...
ooops...
Sbagliato indirizzo :P
Ciao a tutti

Newsgroup: it.comp.lang.visual-basic
Titolo: Problemi con porta seriale

Uso le RAS API per connettere alcuni Pc con un server AS/400 e fino a qui
nessun problema! Nel caso in cui la linea è occupata, provo a rieseguire la
chiamata ma puntualmente ricevo il messaggio di "Porta già aperta" o
"Hardware danneggiato". E' possibile tramite le API controllare lo stato di
una porta ed eventualmente chiuderla?
Grazie anticipatamente
--
VincePik

 wrote in message
news:Z7ju6.9769$lT1.1...@news2.tin.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Variabile a livello di modulo

Lo so che la domanda è a dir poco da super-principiante, ma sto imparando ad
usare vb6 e il mio manuale (Balena) da, stranamente, per scontato una cosa
che non riesco a capire!!!
Quando dice che una variabile deve essere dichiarata "a livello di modulo"
(e non in un dato evento), dove diavolo devo scriverla la dichiarazione
della variabile????
Spero che qlcuno mi risponderà nonostante la "nubbiezza" della domanda :)

 ha scritto nel messaggio
news:iZCjc.26409$Qc.10...@twister1.libero.it...


 > della variabile????
<cut>

 ha scritto nel messaggio
news:c6nj9k$ds1lj$1...@ID-61213.news.uni-berlin.de...


 Giuseppe
E l' "Option Compare Text" dove lo mettiamo ?
Saluti

 ha scritto nel messaggio
news:c6nrl4$dpmsj$1...@ID-169051.news.uni-berlin.de...



è una direttiva a livello di modulo che ti consente di utilizzare
l'operatore di confronto "uguale" ("=") case unsensitive
esempio :
Option Compare Text
?"A" = "a"     => True
senza Option ...
?"A" = "a"     => False
funziona anche per l'InStr e le altre funzioni di ricerca e confronto di
tipo string.
Comodo .. anche se i puristi storcono il naso ...
in caso tu debba fare un confronto Case Sensitive puoi usare la funzione
StrComp.
Saluti

 usare la funzione StrComp.
O viceversa =)
StrComp(string1, string2, vbTextCompare)
Lokar.purista
-- 
Sito Comune: 
http://www.it-lang-vb.net/
Manifesto: 
http://www.it-lang-vb.net/docs/Manifesto.txt
Statuto: 
http://www.it-lang-vb.net/docs/Statuto.txt
UGIdotNET - 
http://www.ugidotnet.org

Grazie a tutti!!!
Alla fine era l'uovo di Colombo.... :-)
Solo che non pensavo si potesse scrivere codice al di fuori dei singoli
eventi....
Spero che la prossima volta che posterò una domanda su questo NG sia un po'
meno banale... :p
Grazie ancora e alla prossima...

 meno banale... :p
Come per tutte le cose .. c'è sempre un principio ... il problema è che la
fine arriva sempre troppo presto.
Saluti
Newsgroup: it.comp.lang.visual-basic
Titolo: SELECT WHERE: chi mi dà una mano ?

Ciao a tutti.
Ho creato in VB un piccolo archivio di nomi che estraggo con la seguente
formula assegnata al RecordSource:
"Select * From Tabella Where Cognome = '" & NomeCo.text & "'"
tutto funziona bene fino a quando non bisogna ricercare un cognome
contenente
l'apostrofo '.
Qualcuno puņ aiutarmi a risolvere il problema ?
Un grazie di cuore !
--
Posted from 
hernest.agarde.it
 [193.70.81.194]
via Mailgate.ORG Server - 
http://www.mailgate.org

g...@agarde.it
 (gdc) ha scritto:
->Ciao a tutti.
->Ho creato in VB un piccolo archivio di nomi che estraggo con la seguente
->formula assegnata al RecordSource:
->"Select * From Tabella Where Cognome = '" & NomeCo.text & "'"
->tutto funziona bene fino a quando non bisogna ricercare un cognome
->contenente
->l'apostrofo '.
->Qualcuno puņ aiutarmi a risolvere il problema ?
->Un grazie di cuore !
->
Se nella stringa e' presente un apostrofo quello che devi fare e' raddoppiarlo.
Prova con il codice seguente (da me funziona)
Dim StgA as String
Dim IntPos as Integer
StgA = NomeCo.Text
IntPos = InStr(1, StgA, chr(39))
If IntPos <> 0 Then 
	StgA = Left(StgA, IntPos) & Chr(39) & Right(StgA, Len(StgA) - IntPos)
EndIF
e poi fai la SELECT con StgA anziche' NomeCo.text
Ciao
Vincenzo

 l'apostrofo '.
Basta scrivere:
"Select * From Tabella Where Cognome = """ & NomeCo.text & """"
(usando due virgolette al posto di una scrivi il carattere " nella stringa invece di chiuderla)
Ciao
Riccardo

 ------------------------------------------------------------------------
    Ho provato entrambi i sistemi e funzionano benissimo.
    Un grazie di cuore ed una calorosa stretta di tentacolo.
    Ciao.
    Giuseppe


Newsgroup: it.comp.lang.visual-basic
Titolo: Rich Text Box allineamento testo

Qualcuno saprebbe indicarmi un controllo ocx, corrispondente al rich text
box
che abbia l'allineamento del testo, oltre che a sinistra, destra e centro,
anche
giustificato, cioè distribuito a destra e sinistra.
Grazie
Enzo

Il formato RTF (nato oltre 20 anni fa) non supporta la giustificazione
del testo.
Per compatibilità gli editor RTF standard (non M$ Word, che infatti
usa il formato DOC) non possiedono questa feature. Se vuoi un bel
testo a pacchetto devi usare un formato non RTF, quindi proprietario.
Peenso che troverai OCX in quantità...
Ma tutte non RTF e quindi incompatibili con tale formato.
--
GbC

 wrote in message
7u2iea$dvp$1...@nslave1.tin.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: VB6 Connessione Remota ad un DBaccess

Buongiorno a tutti i prof.
mi servirebbe una manuzza d'aiuto
ho un applicazione VB6 gestionale magazzino e fatturazione che gira su una 
rete locale
il database (Access) si trova su c:\ di un computer che funge da server
poi su ogni computer che funge da client e' installato il programma che si 
va a connettere al db sul server.
Domanda:
e' possibile tramite internet andarsi a connettere al db installato sul 
server ???
mi spiego meglio
c'e' qualcosa che mi consenta da casa di andarmi a connettere tramite 
internet al computer in azienda ed interrogare il database ???
Grazie per le eventuali ben accette risposte e buon lavoro. 

 internet al computer in azienda ed interrogare il database ???
IIS e ASP...
-- 
C:\BELFRY is where I keep my .BAT files.
News 2000 [v 2.06] - 
http://www.akapulce.net/socket2000

Scusa ma sono propro zero in merito mi potrsti spiegare meglio cosa fare ???
grazie.
"Due di Picche" <mega...@TOGLISPAMaruba.it> ha scritto nel messaggio 
news:evl0hu$qfe$1...@tdi.cu.mi.it...


 > IIS e ASP...
Devi riscriverti il client in asp (active server page) che č una tecnologia
web per la quale puoi usare vbscript e appoggiare il database su un server
web, su Internet Information Service come ti č stato suggerito.
Come risultato avresti che per usare il tuo gestionale useresti internet
explorer o firefox o qualsiasi altra cosa e lņe prestazioni sarebbero a dir
poco eccellenti.................se c'č la linea adsl!!!!
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 fatto. Nella pratica si rivelerebbe non funzionante.
Uhmmm ripensandoci, via odbc non si potrebbe fare qualche cosa?
-- 
Modem:  How a Southerner asks for seconds...
News 2002 [v 2.07] / StopDialer / PopDuster - 
http://www.socket2000.com
Akapulce portal: 
http://www.akapulce.net

Newsgroup: it.comp.lang.visual-basic
Titolo: caricamento combo .net

Ciao a tutti,
sono alle primissime armi con 
vb.net
.
Sto cercando di creare 2 combobox correlate tra loro, cerco di
spiegarmi meglio:
La mia base dati è costituita da 2 tabelle
MARCHE
MODELLO
CodiceMarca                                      CodiceModello
DescrizioneMarca                               DescrizioneModello
                                                         CodiceMarca
La prima combo contiene la lista delle marche, quando cambia la marca
selezionata la seconda combo deve caricate tutti i modelli associati
alla marca scelta.
Sono riuscita a caricare la prima combo ed a prendere il CodiceMarca
scelto volta per volta, ma non riesco a caricare la seconda combo con
una quantità parziale di dati presenti nella tabella.
Potete aiutarmi per favore!!!
Grazie

 ha scritto nel messaggio 
news:1194977347.7...@o80g2000hse.googlegroups.com...

Newsgroup: it.comp.lang.visual-basic
Titolo: [HELP] Riuscireste a risolvere questo problema?

Per uscire dall'applicazione usa il comando END, questo comando ti
consentirà di chiudere completamente la tua applicazione
-- 
Posted from 
ns.isiline.it
 [213.144.64.1] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 wrote in message
news:C1256977.0...@alpitech.it...
Per uscire dall'applicazione usa il comando END, questo comando ti
consentirą di chiudere completamente la tua applicazione


Ho provato a usare End all'evento UNLOAD del form principale, e a
settare a nothing tutte le variabili che carico nel form che chiama il
report, ma purtroppo, dopo che ho stampato, se vado a chiudere il
programma, mi genera un errore e mi sta creando parecchi casini :-(
Non sai come poter risolvere il problema? ( sono sul punto di pensare
di "nascondere" l'applicazione in background in modo da non rendere
piu' visibile l'errore. In questo caso l'applicazione non terminerebbe
mai.....ma ho paura che quando poi vanno a spegnere il pc, l'errore si
ripresenti! :-(  )


 wrote in message
news:C1256977.0...@alpitech.it...
Per uscire dall'applicazione usa il comando END, questo comando ti
consentirą di chiudere completamente la tua applicazione
--


--
infatti credo che il problema sia proprio quello.......ho paura che il
Crystal Report mi mantenga il recordset, perche' questo errore avviene
SOLO quando faccio fargli passare una stampa (il programma ha + stampe
da effettuare, e appena ne lancio una e' la fine, perche' appena
chiudo il programma in questione, mi genera quell'errore......)
Ora sto pensando seriamente di lasciare il programma in background per
non avere + problemi, ma mi sa che all'arresto del pc, l'errore si
causi lo stesso...... Non e' che sapresti come distruggere il
recordset usato da Crystal Report?
Grazie Mille!!!

 wrote in message
news:sqalus0mn9ve5i8lh...@4ax.com...


Newsgroup: it.comp.lang.visual-basic
Titolo: Crystal Report ?

Ciao ho acquistato Visual Studio 6 enterprice edition
ma del crystal report nemmeno una traccia perchè non è incluso
in questo pacchetto, dove lo posso trovare ?
Ciao Bicio.

 wrote in message
387B8AAA...@tiscalinet.it...


 Ciao Bicio.
Il file per l'installazione si chiama crystl32.exe
Prova a cercarlo nel cd di Visual Studio

In qualche CD in una subdir \tools
c'è sotto il nome Crystal

Newsgroup: it.comp.lang.visual-basic
Titolo: ma visual basic 6 gira su xp ?

salve ragazzi volevo sapere se visula basic 6 si poteva installare su 
windows XP
grazie

 ha scritto nel messaggio 
news:d1Rvg.47671$zy5.9...@twister1.libero.it...


 windows XP
Assolutamente si...
Bye,
-- 
Carmine ( 
pikachu...@gmail.com
 (Togli la scritta NOSPAM) )
Webmaster di The Total Site 4 : 
http://www.thetotalsite.it
My Blog: 
http://blog.thetotalsite.it
MariokartDS Codice Amico: 532639027909 - CarmineC in MarioKartDS
Se un circuito funziona al primo tentativo è perchè il problema è molto
più nascosto e subdolo di quanto tu possa pensare...
E apparirà nel momento in cui farà il massimo danno 

 ha scritto nel messaggio 
news:d1Rvg.47671$zy5.9...@twister1.libero.it...



ho seguito le tue discussioni tra VB6 e vb net ... alla fine hai deciso x
VB6?

 deciso x VB6?
Bah...
Io direi che è sbagliato scegliere vb6 ora.


Carmine, appena sei in chat, querami che ti dico di un nuovo progetto..

 ha scritto nel messaggio 
news:44c0c15e$0$45309$4faf...@reader3.news.tin.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] Parsing

Scusate l'OT ma mi servirebbe un programmino che che permetta di
applicare la notazione polacca postfissa (Parsing) a delle espressioni
algebriche. Mi vanno bene anche dei sorgenti o ocx.
Thnkx

 algebriche. Mi vanno bene anche dei sorgenti o ocx.
Cosa intendi per "applicare la notazione polacca postfissa"?
Vuoi un OCX che ti restituisca la notazione polacca data un'espressione o un
valutatore di espressioni?
In ogni caso io ne ho fatto uno.
Se vuoi ti posso postare l'OCX.
Ciao.

Newsgroup: it.comp.lang.visual-basic
Titolo: Posizionamento cursore

Ciao,
mi sapreste indicare come posizionare in modo automatico il cursore in un
TextBox all'interno di un Form?
Cioč, quando apro il form, voglio subito, e sempre, scrivere nel TextBox
senza cliccare con il mouse.
Grazie e ciao.
~~~~~~~~~~~~~~~~~~~~~~~
 Per rispondere in E-Mail togli AT

 TextBox all'interno di un Form?
Metti a 0 il valore di TabIndex del TextBox, oppure nella form_activate
scrivi:
   On Error Resume Next
   TextBox.SetFocus
   On Error GoTo 0
Ciao
*Roby*

 ha scritto nel messaggio
news:Dzqc8.85864$3J1.2...@news2.tin.it...


 Forse dipende da come azzero il TextBox?
Potrebbe dipendere da molte cose.
Prova a vedere se passi per la activate alla seconda apertura della form
(metti un breakpoint, mettici un Debug.Print "passato da activate").
Poi guarda se per caso disabiliti il textbox, o se hai una setfocus da
un'altra parte, o se disabiliti (o rendi invisibile) il container del
textbox (se sta in un frame o in una picturebox), o se cambi tab (se sta su
una tab), o se disabiliti tu la form oppure è disabilitata di default e la
riabiliti tu a mano dopo.
Insomma, hai da guardare un mare di roba.
Ciao
*Roby*
Newsgroup: it.comp.lang.visual-basic
Titolo: parola in html

Facendo finta che ho un codice html come il seguente:
totalcashcredits:</font></b></font></td><tdalign=right><fontcolor=#99ff33siz
e=2><b>
Come posso prendere solo la parola successiva a quanto segue?

 ha scritto:

Puoi provare con le espressioni regolari (disponibili anche per Vb come
Riferimento esterno RegExp o RegularExpression), sono molto potenti. Devi
per questo studiare bene la struttura (attenzione, non i dati) della tua
pagina web. Ci sono poi metodi piu' semplici, quali l'uso di "instr" ma
molto meno fini. Purtroppo ho poche info sul tuo caso, per una soluzione ad
hoc.
Ciao
Haxl
 
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

Newsgroup: it.comp.lang.visual-basic
Titolo: DLL, come diavolo devo fare ad interfacciarmi ?

Ciao
vorrei interfacciarmi ad una DLL scritta in C, creata da terze parti.
Ora di questa ho l'elenco delle funzioni da richiamare.
Porto un esempio:
int  Machine_Configure(long int *par);
void Machine_About(long int *par);
ho dichiarato in un modulo la funzione così:
     Declare Function Machine_Configure% Lib "bank.dll" (ByRef par As Long)
     Declare Function Machine_About% Lib "bank.dll" ()
ed in un form
    Dim valore1 As Long
    Dim valore2 As Long
    msgbox (Machine_About(valore1))
    msgbox (Machine_Configure(valore2))
ma appena lancio.. mi và in errpre di scrittura..
qualcunoi sa darmi spiegarmi il perchè?
Ho provato a dichiarare anche il valore BYVAL.. ma niente :((
Sapete dirmi dove SICURAMENTE sbaglio ?
Uso VB6 con sp5.
Grazie
Mario

      Declare Function Machine_About% Lib "bank.dll" ()
[SNIP]
Hmmmm... La seconda non mi torna, credo debba essere cosi':
Declare Sub Machine_About Lib "bank.dll" (ByVal par As Long)
Ciao
--
Luca Dormio
luca....@tin.it


Declare Function Machine_Configure Lib "bank.dll" (ByRef par As Long) As
Long
Declare Sub Machine_About Lib "bank.dll" (ByRef par As Long)
Cosě mi sembra meglio.
Machine_About č una sub non una function poichč non ritorna niente.
Ciao
Sir Jo


No, ByRef: int *par
ByVal = int par
Ciao

      Declare Function Machine_About% Lib "bank.dll" ()
Mi sono dimenticato di dirti che i simboli % vanno tolti,
innanzitutto perchè è meglio specificare un "As" come valore di ritorno,
secondo perchè il simbolo % identifica un tipo di dato Integer di Visual
Basic,
mentre il tipo "int" di C corrisponde al Long di Visual Basic
Ciao
Sir Jo

 secondo perchč il simbolo % identifica un tipo di dato Integer di Visual



Vuol dire che le funzioni non sono _stdcall nella DLL. Devi ricompilare la
DLL correggendo le funzioni in modo che si possano chiamare da VB.
Ciaotutti,
*


 
Penso di no, dovrebbe essere dovuto alla convenzione di chiamata utilizzata.
-- 
Samuele Battarra
mail server: 
libero.it
, indirizzo: battarsa@(mail server)
prova il mio newsreader:
http://digilander.iol.it/battarsa/programmi/leggiminews.html

    ret1 = Module1.GPU_About(ret1)
mi metti in confusione................
ma probabilmente basta che scrivi
Module1.GPU_About(ret1)
e in ret1 hai il risultato
Ciao
Sir Jo
P.S. che "macchina" č ???
Newsgroup: it.comp.lang.visual-basic
Titolo: i campi si possono calcolare al volo?

Stavo cercando di modificare un report di stampa di una fattura con cristal 
report , cercavo i campi corrispondenti nel database di access in cui 
vengono archiviati i dati.
In fondo alla fattura c'è il campo  TOTALE FATTURA  meno ACCONTO  uguale 
SOMMA DOVUTA
Nel database ho trovato i campi data , cliente , prezzo , quantità,sconto 
,totale fattura  etc... ma non trovo il campo ACCONTO (l'acconto lo digiti 
in un campo
nella maschera di caricamento fattura ) : è possibile che la sottrazione 
venga calcolata al volo e poi stampata da codice ?
Quindi il campo ACCONTO e il campo SOMMA DOVUTA non esistono nel database 
???
grazie e saluti

 In fondo alla fattura c'è il campo
solo nella fattura stampata su carta , nel modello in cristal report non c'è 
tale campo ! 

cert ha scritto:

Nel datareport di vb esistono dei campi funzione con cui tu puoi 
calcolarti proprio i dati che dici, però lo trovi anche a design-time.
Non conosco Crystal report quindi magari può essere differente. Sei 
proprio sicuro che nel modello non ci sia il campo calcolato?
ciao
stefano


purtroppo anche quel report viene creato al volo ( cioè il file rpt di 
CrystalReport non esiste ) ;
stavo appunto cercando di crearne uno nuovo (stampa esterna) ma mi sono 
accorto che mi mancano alcuni campi calcolati,
in quando sono assenti nel file MDB di access dove si archiviano i dati .
Ad es. il campo acconto è assente .
ciao 

 in quando sono assenti nel file MDB di access dove si archiviano i dati .
Mi dispiace, non conoscendo CR non posso esserti d'aiuto.
ciao
stefano
Newsgroup: it.comp.lang.visual-basic
Titolo: Listbox con voci in grigio.

Dovrei mostrare una lista (listbox) di articoli alcuni dei quali non possono
essere selezionati e, quindi, dovrebbero apparire in grigio. Come posso
fare?
        Massimo

Non é possibile (a meno di subclassing {OWNERDRAW_STYLE} oppure l'uso di ocx
dedicati) cambiare il forecolor di un item in una listbox.
In alternativa potresti usare una listview,che oltre ad essere piú
flessibile, ti permette di usare la proprietá Ghosted che disattiva l'icona
che appare nella listview in formato report.
Con VB6 puoi anche impostare le proprietá di ogni singla riga della listview
(Bold,Forecolor...)
Ciao
Corrado

Newsgroup: it.comp.lang.visual-basic
Titolo: Creazione di istanze

Ringrazio anticipatamente per l'eventuale aiuto.
Ho 10  tabelle in Access tutte strutturate allo stesso modo (campo codice e
campo descrizione). Devo realizzare le form di caricamento in VB.
Invece che realizzare 10 form vorrei sapere se è possibili creare 10 istanze
della stessa form.
Se è possibile come faccio a passargli il nome della tabella da utilizzare a
seconda della selezione.
GRAZIE LAURA

Detta cosi', non mi sembra complessa..... basta una bella property
nella form attraverso cui indicare la tabella. Per maggiori info, devi
dirmi se utilizzi DAO o ADO e, nel secondo caso, se usi un data
control o una connessione attraverso il data environment.....
Ciao!
Luca Menegotto

Newsgroup: it.comp.lang.visual-basic
Titolo: Screen Saver con VB

Ciao a tutti, vorrei chiedervi se qualcuno di voi sa indicarmi un sito
internet da dove scaricare i sorgenti o il programma originale, scritto in
VB, per creare degli "screen saver" personalizzati che utilizzino delle mie
immagini in formato JPG.
Ho provato con il programma incluso nel pacchetto VB ma sfrutta immagini ICO
e non mi riesce di adattarlo per le JPG.
Con ALTAVISTA ho trovato varie cose ma l'unico che poteva fare il caso mio
era un programma di tale F.MARRA ma la pagina di collegamento mi dava
inesistente.
Un grazie a tutti per la cortese attenzione e in modo particolare a chi
intende darmi una mano.
Daniel

Ciao a tutti, vorrei chiedervi se qualcuno di voi sa indicarmi un sito
internet da dove scaricare i sorgenti o il programma originale, scritto in
VB, per creare degli "screen saver" personalizzati che utilizzino delle mie
immagini in formato JPG.
Ho provato con il programma incluso nel pacchettro VB ma sfrutta immagini
ICO e non mi riesce di adattarlo per le JPG.
Con ALTAVISTA ho trovato varie cose ma l'unico che poteva fare il caso mio
era un programma di tale F.MARRA ma la pagina di collegamento mi dava
inesistente.
Un grazie a tutti per la cortese attenzione e in modo particolare a chi
intende darmi una mano.
Daniel
pgm...@tin.it

 ha scritto nel messaggio
news:%RTc6.22898$Up.1...@twister1.tin.it...


inesistente.
Dai un'occhiata sul Sito Comune.
Ciao,
Moreno
#sirri#@#morenosoft#.com
(togliete "#" dall'indirizzo)
Moreno Sirri VB Site - 
http://www.morenosoft.com/MSVBSite/
---------------------------------------------------------------------------
Le risposte alle tue domande le trovi sul Sito Comune di questo NewsGroup:
 
http://www.murialdo.it/it_lang_vb
---------------------------------------------------------------------------

Newsgroup: it.comp.lang.visual-basic
Titolo: xceedZip per zippare file

Ho generato un exe (che è stato salvato) che usa xccedZip per trasformare il
file da mdb(access) a zip
Se lancio l'exe generato dal mio PC tutto funziona correttamente.
Se però lo esporto e lo installo sul server questo non funziona
Run-time error 430
Class does not support Automation or does not support expected interface
Cosa posso fare (ho già provato di tutto)

 Cosa posso fare (ho già provato di tutto)
Hai registrato l'ocx sul server? Hai aggiunto l'ocx all'installazione?
Ciao

"Lord Rayden" <ray...@hardwaretips.com.rimuovimi> ha scritto nel messaggio
news:9sgbhj$2l68$1...@half.spin.it...

XceedZip non è ocx ma una dll; comunque è incluso nelle referenze ed
installato sul server.
Grazie ciao

 [...] XceedZip non è ocx ma una dll; comunque è incluso nelle referenze ed
installato sul server.
Non è che la .dll ha a sua volta qualche dipendenza non registrata
correttamente sul server?
Ciao,
Carlo.


Sul server l'ho installato il pacchetto (xccedZip) chiede solo di copiare
exe in system32
La documentazione non parla di dipendenza particolare
Grazie, Bye
Newsgroup: it.comp.lang.visual-basic
Titolo: Propagazione tasto premuto

Ho un problema di questo tipo: da un oggetto (in cui e' gestito l'evento
DoubleClick) in una form richiamo una funzione che, chiesto un valore
con una InputBox, effettua un paio di calcoli e restituisce il controllo
all'oggetto. Se confermo l'InputBox premendo con il mouse su OK, nessun
problema. Se invece premo Invio, la funzione che contiene la InputBox
funziona correttamente, ma all'uscita viene scatenato il DoubleClick sul
controllo. Le cose simpatiche sono che:
1) Se metto dei breakpoint il comportamento non si presenta
2) La funzione chiamata completa il suo lavoro, anche se la InputBox e'
tra le prime istruzioni.
Come c#!@@#! si fa a 'eliminare' la propagazione del tasto Invio?
Grazie a tutti
Bye by Massimo 8-]

 ha scritto nel messaggio
news:391BE14D...@txt.it...


 Enrico
Non funziona. L'evento di pressione di Invio si propaga anche quando esco
dalla funzione con la InputBox.
bye by Massimo 8-]
Newsgroup: it.comp.lang.visual-basic
Titolo: vb e classi di oggetti(ingegneria del sw)

Esiste una corrispondenza e, se si , quanto è stretta tra le classi di
oggetti di un diagramma delle classi(ingegneria del sw) e i moduli di classe
di visual basic?
Sono in rapporto 1 a 1?

di visual basic?
Se intendi fino alla versione 6 di vb, le sue classi sono "finte", nel
senso che non e' un vero linguaggio ad oggetti.
-- 
ciao, hal

 "finte", nel senso che non e' un vero linguaggio ad oggetti.
Perché scusa? Le classi sono vere (e permettono di costruire
veri e propri oggetti), ed il VB *è* un linguaggio basato
sugli oggetti (ma non orientato agli oggetti).
Ciao.
--
BSD is for UNIX-lovers -- linux is for Windows-haters.

 sugli oggetti (ma non orientato agli oggetti).
ecco, imho hai centrato il bersaglio :-)
-- 
ciao, hal
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

una limitazione da poco).
Ok, però l'ereditarietà d'interfaccia sì e, magra consolazione, è
appunto quella che traspare dai class diagram a cui si riferiva il
maggiolino tutto matto (herbie) :-)
Ciao,
Moreno
-- 
sirri at morenosoft dot com
Moreno Sirri VB Site - 
http://www.msvbsite.net
---------------------------------------------------------------------------
Le risposte alle tue domande le trovi sul Sito Comune di questo NewsGroup:
 
http://www.it-lang-vb.net
---------------------------------------------------------------------------

 ecco, imho hai centrato il bersaglio :-)
Comunque, illustri programmatori affermano che la OOP sia un
paradigma di programmazione, e che pertanto sia indipendente
dal supporto offeto dal linguaggio. Ovvero che sia possibile
fare OOP anche in C (che gli oggetti non sa proprio cosa
siano), figuriamoci quindi in VB.
Sinceramente, la mia modestissima e insignificante opinione è
decisamente discorde, per vari motivi.
Ho visionato codice C object oriented (basta vedere i sorgenti
della libreria GTK), e devo dire che oltre a non avere nulla a
che fare con la OOP, non ne ha neppure i vantaggi, anzi... ho
trovato difficilmente codice meno leggibile ed utilizzabile.


maggiolino tutto matto (herbie) :-)
come dire...
sempre meglio di una randellata nei denti ;-)
-- 
ciao, hal

 bella roba, devi delegare tutte le chiamate :-(
Ti assicuro che, per motivi di design, la maggior parte delle
volte utilizzo la sola ereditarietà di interfaccia anche in
C++.


sempre meglio di una randellata nei denti ;-)
no, a domanda, risposta... :-)


scritto è "Inherits..." :-))
Ad essere pignoli, sono i due punti: cerchero' di evitare quanto possibile
il 
vb.net
 perche' e' diventato ancora piu' prolisso.
-- 
ciao, hal
p.s.
Sono prossimo ad un bel po' di ferie, se capita che tu e Cri
girellate da queste parti ...
Newsgroup: it.comp.lang.visual-basic
Titolo: Come faccio?

Sto sviluppando un programma con una risoluzione a 1024x768,
come faccio a dimensionare e disporre i vari bottoni,finestre,ecc. vacendo
in modo che si trovino in una zona visibile anche a risoluzioni inferiori?
GRAZIE
die...@netsys.it
--
Posted from 
obi.netsys.it
 [194.244.100.2]
via Mailgate.ORG Server - 
http://www.mailgate.org


die...@netsys.it
------------
Francesco Beccari
frankb@I_HATE_SPAM_interplanet.it

 in modo che si trovino in una zona visibile anche a risoluzioni inferiori?
Tempo fa ad un quesito simile risposi cosě:
(non ci sono stati reclami quindi penso vada bene :-)  )
----------------------------------------------------------------------------
------------------
Se ho ben capito tu vuoi che con qualsiasi risoluzione video il tuo form
rimanga invariato... Se si non devi fare altro che specificare nell'evento
Load del form (ancora meglio nel Main di un modulo) le sue dimensioni
relative all' oggetto screen e riconvertire la posizione degli oggetti nel
form mantenendo le proporzioni...
Ti allego questo esempio:
'Variabili per memorizzare le dimensioni del form standard
Dim FW As Single
Dim FH As Single
Private Sub Form_Load()
Dim X As Single
Dim Y As Single
Dim H As Single
Dim W As Single
'Memorizzi le dimensioni del form standard
FW = Me.Width
FH = Me.Height
'Dimensioni il form con riferimenti all'oggetto screen
X = Screen.Width * 0.25
Y = Screen.Height * 0.25
W = Screen.Width * 0.5
H = Screen.Height * 0.5
End Sub
Private Sub Form_Resize()
Dim O As Object
Dim X As Single
Dim Y As Single
Dim H As Single
Dim W As Single
' Ridimensioni ogni oggetto
For Each O In Me
    X = (O.Left * Me.Width) / FW
    Y = (O.Top * Me.Height) / FH
    W = (O.Width * Me.Width) / FW
    H = (O.Height * Me.Height) / FH
    O.Move X, Y, W, H
Next O
'Rimemorizzi le variabili del form
FH = Me.Height
FW = Me.Width
End Sub
Ciao
Daniele
---------------------------------------------------------------------------
Le risposte alle tue domande le trovi sul Sito Comune di questo NewsGroup:
 
http://www.murialdo.it/it_lang_vb
---------------------------------------------------------------------------

 etc.etc.etc..............
Ho provato la procedura ma ho un problemino.....
-Ho costruito la form in 640x480.
-Ho inserito il codice sopra riportato nella form.
La risoluzione video è 640x480 quindi quando apro la form tutti i controlli
dovrebbero essere al loro posto.
Questo però non succede in quando nella form_load me.width ha un valore
mentre nella form_resize me.width ha un'altro valore.
Premetto che la form_resize viene chiamata anche quando viene caricata la
form.
Perchè succede questo ??? Quale può essere la soluzione ??
Grazie



> Perchè succede questo ??? Quale può essere la soluzione ??
Non riesco a capire il problema...
Prova a mandarmi il codice incriminato via e-mail... ancora meglio il
progetto zippato.
Se il progetto è troppo grosso, o troppo 'prezioso', mi potresti rispondere
a queste domande:
Qual'è l'impostazione di Scalemode del form?
In fase di progettazione il form ha l'aspetto che deve avere in fase di
esecuzione?

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Mantenere agganciati due form

Ciao ragazzi (chi è rimasto...)
c'è un modo per mantenere due form "agganciati" l'uno con l'altro. Un po'
come fa Winamp, dove c'è form principale attorno al quale rimangono sempre
attaccati gli altri della playlist e l'equalizzatore.
Devo gestire l'evento Move del form? Basta questo?
Purtroppo non ho la possibilità di testarlo adesso....
Grazie, good coding!!!
-- 
Damiani Liborio Igor
ig...@igordamiani.it
 - 
soft...@igordamiani.it
 - 
idam...@hotmail.com
http://www.igordamiani.it
ICQ : 11847262

 ha scritto

ciao igor
ho l'impressione che move sia un metodo, non un evento.
cioe':
quando muovi tu form1, farai qc come
    form2.left= form1.left+form1.width
o
    form2.move ...
ecc., e fin qui non e' un grosso problema.
se pero' vuoi intercettare gli spostamenti di form1 per affiancargli il 2,
temo che si debba usare un timer e sondare le coordinate di 1.
non e' leggerissimo, nel caso, ma non so se ci sono sistemi piu' pratici.
-- 
ciao, j.
http://www.sundaysw.com/google.gif

ci ho provato questa mattina, mettendo un timer su form2 ogni 30ms imposto
il .Left e il .Top ma non sono per niente soddisfatto.....
per chi sa quale ragione molto spesso il timer salta l'esecuzione e quindi i
due form per buona parte del tempo non sono mai affiancati.......che
palle.....
cercherò qualcosa su google, magari qualche codice a basso livello con api
funziona meglio....
grazie comunque, good coding!!!
---


 due form per buona parte del tempo non sono mai affiancati
Il timer non č per niente affidabile.
Innanzitutto il suo tick non puň scendere sotto i 50ms, poi ti ciuccia
risorse per niente.
Inoltre il timer non č ne realtime ne asincrono, il che significa che il
"giro" viene effettuato non appena possibile e non al suo scadere effettivo.
L'unico modo per fare quello che ti serve (in VB6) č utilizzare il
subclassing.
Se non vuoi impazzire con debug e crash vari puoi usare il mio ocx sul sito
comune (cerca "subclass") con queste poche righe:
Progetto vuoto, aggiungi Form1 e Form2, appiccica il controllo adHook su
Form1 e questo codice, poi fai run.
Private Sub adHook1_AfterMessage(hWnd As Long, wMsg As
ad_Hook13.EWindowMessages, _
                                 wParam As Long, lParam As Long)
    If (wMsg = WM_MOVING) Or (wMsg = WM_MOVE) Then
        Form2.Move Me.Left, Me.Top + Me.Height
    End If
End Sub
Private Sub Form_Load()
    Call adHook1.SetSubClass(Me.hWnd)
    Form2.Show
End Sub
Ciao
--
Math Parser, VB.Framework : 
http://www.neodatatype.net
Sito Comune               : 
http://www.it-lang-vb.net

 ha scritto

Newsgroup: it.comp.lang.visual-basic
Titolo: Apostrofo in SQL... ancora ? :))

Ho riletto vari messaggi sull'argomento e da quello che ho capito devo
aggiungere due apici invece di uno per inserire l'apostrofo.
Però mi succede che il record viene aggiunto con due apostrofi =( Per
esempio dall'acqua me lo aggiunge dall''acqua...
Ho utilizzato il seguente codice:
linea = Replace(linea, "'", "''")
SQLtrova = "NOMI='" & linea & "'"
Dove sbaglio ?
Grazie !
CiAo :-)
--- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
UIN: 50254876
http://www.danteworkshop.f2s.com
--- --- --- --- --- --- --- --- --- --- --- --- --- --- ---

 wrote in message
#$5dKUTN...@newsmst.mcis.galactica.it...


Il fatto è che io non so se mi arriva una stringa con apici o meno, quindi
usando replace se ci sono apici me li raddoppia se non ci sono la stringa
resta uguale... ma quindi perchè mi aggiunge un record con due apici ?
dovrebbe leggere come se fosse un apostrofo no ?
Grazie, CiAo :-)

 wrote in message
UAJ$DpTNA...@newsmst.mcis.galactica.it...

Trovata in rete, non ricordo se su questo ng o altrove
Function EspandiApostrofo(ByVal sIn As String) As String
' restituisce una stringa con tutti gli apostrofi sostituiti da due
apostrofi successivi (serve per le query)
Dim k As Integer, sOut As String, ch As String
' verifica che ci sia un apostrofo
If InStr(sIn, "'") > 0 Then
sOut = ""
For k = 1 To Len(sIn)
ch = Mid$(sIn, k, 1)
sOut = sOut & ch
If ch = "'" Then sOut = sOut & ch
Next
Else
sOut = sIn
End If
EspandiApostrofo = sOut
End Function
utilizzo:
        Select * from tabella where campo = '" & EspandiApostrofo(record) &
"'"
Ciao a tutti, Valli

Grazie per la risposta ma ho scoperto che avevo fatto un errore in un'altra
riga, la strnga SQL era giusta =((
CiAo :-)

 wrote in message
news:UAJ$DpTNA...@newsmst.mcis.galactica.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: lettura file .eml

Esiste un modo in vb per poter leggere i file di Outlook Express con
estensione .eml??? Diciamo che dovrei leggere solo il testo scritto
nell'e-mail...nient'altro...
Grazie e buon lavoro.
Inviato da X-Privat.Org - Registrazione gratuita 
http://www.x-privat.org/join.php

 Grazie e buon lavoro.
sono normali file di testo, con eventuali attach encoded.
fai un minimo di parsing, togli gli header, e se ci sono ti fermi prima 
degli attach.
ciao, a.

Newsgroup: it.comp.lang.visual-basic
Titolo: [SITO COMUNE] Service Pack 4 disponibile

Buongiorno a tutto il newsgroup,
comunico che sul server del Sito Comune č presente per il download il
Service Pack di Visual Basic 6.0.
Per prelevarlo, collegarsi via FTP al server 
ftp.murialdo.it
, entrare
nella directory IT_LANG_VB e poi in VB6SP4. I file hanno una dimensione
approssimativa di 58 megabytes.
Umberto Meroni
Webmaster del Sito Comune del newsgroup it.comp.lang.visual-basic
E-mail: 
it_la...@murialdo.it
Sito Comune: 
http://www.murialdo.it/it_lang_vb

 approssimativa di 58 megabytes.
pochissimo!!!  ;-)
appena mi capita di nuovo di andare all'università lo scarico
lì scarichiamo a circa 90 kb/sec... :-)))))

 lì scarichiamo a circa 90 kb/sec... :-)))))
Ecco, da questo punto di vista sì!
Umberto
Newsgroup: it.comp.lang.visual-basic
Titolo: Vi scongiuro, aiutatemi !!!!

Ciao
Lo so, magari ho postato un paio di msg di troppo negli ultimi tempi, ma in
fin degli conti un Ng serve a questo, no? :)
Vi prego ho un problema >> TREMENDO <<, se qualcuno è disposto a darmi un
aiutino gli sarei molto grato!
Ho scaricato il progetto per la scansione di una determinata unità d'esempio
dal sito comune. cioè serve a leggere tutte le cartelle e visualizzarle in
un controllo listbox.
Quello che devo fare io e usare, invece del controllo Listbox, il controllo
ListView. Il problema riscontrato è il seguente. il listbox ha la proprietà
"ItemData" è la persona che ha creato il progetto d'esempio usa questa
proprietà. Il fatto è che il ListView non ha questa proprietà.
ho provato a usare la proprietà "ListItems.Index" oppure "ListItems.Key", ma
tutte e due non accettano lo stesso valore due volte e nemmeno valori sotto
1.  poi ho provato con la proprietà "Tag", ma questa volta VB mi ha fatto
proprio fesse. Dopo l'assegnamento del valore alla proprietà "Tag", VB la
risvuota. Orami non so più cosa fare, anzi...SONO DISPERATO !!!!
Vi prego, Aiutatemi
Se volete vi mando il progetto d'esempio.
Grazie 1000 a chi ha perso un po di tempo per la lettura del msg

Non ho ben capito il problema...
Questo esempio prende dati da un file e li scrive nella list view
 lista.ListItems.Clear   ' pulisce
 Dim imgX As ListImage
Set imgX = ImageList1.ListImages.Add(, , Image1.Picture)
lista.Icons = ImageList1
lista.SmallIcons = ImageList1   'per vedere anche le icone
lista.View = lvwReport    'modalità report
      Dim itmX As ListItem
 ' On Error GoTo err
    Open nome_file_apri For Input As #1
    Do While Not EOF(1)
    Line Input #1, rep_1
    Line Input #1, rep_2
Line Input #1, rep_3
    Set itmX = lista.ListItems.Add(, , rep1, 2)
    itmX.SubItems(1) = rep2
    itmX.SubItems(2) = rep_3
     itmX.SmallIcon = "phone"
    Loop
    Close #1
Spero possa essere utile,
ciao


 risvuota. Orami non so più cosa fare, anzi...SONO DISPERATO !!!!
A me il tag funziona benissimo, prova con questo codice, per l'aggiunta di un nodo:
    Dim Nodo As Node
    Set Nodo = TreeView1.Nodes.Add(, , , "abc")
    Nodo.Tag = "123"
Fammi sapere
Ciao
Riccardo

Riccardo Sale wrote:
Scusa ho letto ListView e ti ho risposto con una TreeView... (ogni tanto la fretta fa questi scherzi), comunque anche con la ListView funziona bene:
Dim Elemento As ListItem
Set Elemento = ListView1.ListItems.Add(, , "abc")
Elemento.Tag = "123"
Ciao
Riccardo

Grazie 1000 a chi ha perso un po di tempo per la lettura del msg
---------------------
Ciao!
Se mi mandi il progetto di esempio, sarņ felice di aiutarti.
Aspetto una risposta
Marco Minerva
http://www.geocities.com/SiliconValley/Foothills/7260/
http://www.armaditaggia.com/marco
Newsgroup: it.comp.lang.visual-basic
Titolo: Oggetto Printer che fa comecavologliparealuibruttomaiale

Hello!
se stampo del testo e delle linee con l'oggetto printer ottengo risultati
diversi se lo faccio da ambiente di sviluppo o se compilo il prog.
capita anche a voi?
volete un esempio?
Prendete il mio file di esempio 
http://www.logicalsystem.it/p1.zip
e fatemi sapere qualcosa,grazie...
-- 
ricc...@nospam.it
Per inviare posta sostituire logicalsystem a nospam
To send e-mail please change nospam with logicalsystem

Se usi VB5 e non c'è installato il Service Pack 3, fai prima a disegnare a
mano libera.....   :-)
Mauro Mariz
Trento
Riccardo ha scritto nel messaggio <01bdaa7f$48251440$dfa09384@chiba>...


Newsgroup: it.comp.lang.visual-basic
Titolo: Come dare focus ad un'altra applicazione

Sapete come e' possibile dare il focus ad un'altra applicazione attiva
in memoria?
Grazie.
Zuma

Con un'accendinus...
Scusate, ma era d'obbligo  :))
zuma ha scritto:


 wrote in message 37737904...@news.mi.linux.it...


 in memoria?
AppActivate <caption del form, anche parziale> oppure usa la API SetFocus
(richiede l'handle del form)
-- 
Ale...@tiscalinet.it
Newsgroup: it.comp.lang.visual-basic
Titolo: Problema con OptionButton

Salve a tutti. Ho un problema: in una form voglio fare due domande
all'utente utilizzando i controlli OptionButton.
L'utente puo' rispondere Si' o No a entrambe le domande. Ora utilizzando
i controlli OptionButton, se faccio click sul Si' della prima domanda
non posso cliccare sul No della seconda (si attiva un solo
OptionButton).
Come posso risolvere il problema?
Ciao Grazie da Roberto

scusami se ti ho postato la risposta a casa...

gli OptionButton sono 4, no? due si e due no..
metti un si e un no in un frame, e gli altri due in un altro
Ciao
Faber

 Ciao Grazie da Roberto

La soluzione più coretta sarebbe quella di usare dei CheckBox....
------------
Ciao
Sabba

> La soluzione più coretta sarebbe quella di usare dei CheckBox....
CheckBox? per domande la cui risposta può essere si o no?
"Il tuo nick è Sabba?"
voglio vederti a cliccali entrambi   :)
Faber

Ah ora ho capito, quindi il layout č cosě:
                      Si       No
Domanda        O        O
Domanda        O        O
Scusa avevo frainteso, pensavo che fosse:
Domanda1             O
Domanda2             O
Scusa...... allora devi mette dentro contenitori diversi (pictureBox o
Frame) le varie coppie di domande
Sě, il mio nick e Sabba perchč?
---------
Ciao e scusa
Sabba

 Ciao e scusa
non c'č bisogno di scusarsi!
Ciauz
Faber
Newsgroup: it.comp.lang.visual-basic
Titolo: Puntatori in VB

In un programma con 2 matrici pubbliche devo fare una funzione che sceglie
con quale delle due lavorare in funzione del valore di una variabile.
In C sarebbe semplice:
int m1[100], m2[100], *p;
if (flag) p=m1 else p=m2;
Ho provato a smanettare con Set di VB ma senza successo.
Potrei fare 2 sub, una che sceglie quale matrice usare e richiama la seconda
mettendo il nome della matrice come parametro nella chiamata, ma io vorrei
fare tutto all'interno di una sub.
Ciao, Stefano

if (flag) p=m1 else p=m2;
prova cosi`:
dim int m1[100], m2[100], p[] as integer
if flag then set p=m1 else p=m2
Bye
~~
Roberto Colmegna
roberto...@login.it
Ipotesi su di un linguaggio `multicromatografico`:
 
http://members.tripod.com/~roberto1972/


Allora sfrutta l'idea delle due sub applicando la ricorsione
Sub Pippo(a(), b(), p)
    If p = 1 Then
        Pippo a(), a(), -1
    ElseIf p = 2 Then
        Pippo b(), b(), -1
    ElseIf p = -1Then
        'quello che vuoi lo puoi fare fallo
        'indefferentemente su a() o su b()
    End If
End Sub
--
Ciao
---------------------------------------
Mauro CB
blue...@atcenter.it
NON modificare l'indirizzo:
me ne frego degli spammers!
---------------------------------------

Try this
Metodo1-Spreca un poco di memoria...
Private Declare Function RtlMoveMemory Lib "kernel32" (lpDest As Any, lpSrc
As Any, ByVal cbBytes As Long) As Long
Private Sub Command1_Click()
Dim a(1 To 10) As integer
Dim b(1 To 10) As integer
Dim c(1 To 10) As integer
a(10) = 99
RtlMoveMemory c(1), a(1), 2 * UBound(a)
Debug.Print c(10)
Metodo 2 (Piu' complicato,più alà C++)
1- Usa una classe per simulare il tuo array
* CArray.cls *
Private maiData() As Integer
Private Sub Class_Initialize()
ReDim maiData(1 To 100)
End Sub
Public Property Let MyArray(ByVal Index As Integer, value As Integer)
maiData(Index) = value
End Property
Public Property Get MyArray(ByVal Index As Integer) As Integer
MyArray = maiData(Index)
End Property
Nota: Imposta il metodo MyArray come Defaut.
* frmTest.frm *
Option Explicit
Private Declare Function RtlMoveMemory Lib "Kernel32" (lpDest As Any, lpsrc
As Any, ByVal cbBytes As Long) As Long
Private Sub Command1_Click()
Dim a1 As New CArray    '// Lazy method (usa se voi as CArray.. Set a1=new
CArray)
Dim a2 As New CArray
Dim a3 As CArray
a1(21) = 99
a2(21) = 33
Set a3 = New CArray
IF bFlag The
    RtlMoveMemory a3, ObjPtr(a1), 4
 ELSE
    RtlMoveMemory a3, ObjPtr(a2), 4
END IF
Debug.Print a3(21)
Ciao,
Corrado


if flag then set p=m1 else p=m2
Se ho capito bene dici di fare così:
Sub pippo()
  Dim m1(10) As Integer, m() As Integer
  Set m = m1
End Sub
ma non funziona
Ciao, Stefano
Newsgroup: it.comp.lang.visual-basic
Titolo: Notifiche a nuvola ?

Salve, qualcuna sa come posso creare in vb6 delle notifiche a forma
di nuvola ?
Franco


a scelta:
a) Fumando erba buona
b) Fumando gli zebedei
c) Legna ...accendino....coperta...manuale "Il pefetto Navajo" edizioni
Zagor
d) Bidone....benzina...telo nylon...manuale "Una vita per la strada"
edizioni Michela Lapompa
e) Preservativo....spiaggia...chiaro di luna...fidanzata....manuale "la
sabbia e l'attrito maledetto" edizioni CroceRossa
f)
http://www.vbaccelerator.com/home/VB/Code/Libraries/Graphics_and_GDI/Changing_Window_Shapes/Creating_Geometric_Window_Shapes/article.asp
;-)
-- 
------------------------------------------------
Il Wodkino Nazionale è a : 
www.martek.it
Pagina Vb/Bestiario/Lamer Experience :
http://www.martek.it/go.asp?portamia=2
 New Entry nel bestiario!
:-)

ADDENDUM
1bis) Rami secchi....pigne....carbonella...bistecca
2bis) Tonaca bianca...barba e capelli biondi e lunghi...occhio
ceruleo...manuale "VàafarilGuru" edizioni OM
3bis) 
http://www.andreavb.com/tip050007.html


Se non ti interessa se funziona solo su WinXP e successivi, questa soluzione
dovrebbe fare per te:
http://vbnet.mvps.org/index.html?code/textapi/showballoontiptext.htm
Bye
Raf