mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: [DB] Ricerca dinamica su più campi

Salve a tutti
Ho un problema come da topic.
Mi spiego meglio: dovrei fare una ricerca dinamica su una tabella,
cioè col programma in esecuzione. Il problema sorge perchè per
costruire la stringa SQL devo sapere se il campo è testo o numerico, e
non possibilità di saperlo ( a meno che non mi faccia una function
astrusa che mi cerchi il campo nella tabella, mi veda che tipo di
campo è e mi crei la stringa ).
E' possibile fare in qualche modo la ricerca, o devo per forza crearmi
quella function?
ciao e grazie

 ha scritto nel messaggio
news:3c6d2d6f...@news.tin.it...

Temo ti serva la funzione, la quale comunque non e' cosi' astrusa; a seconda
della tecnologia di accesso ai dati che usi (DAO, ADO, ...) esistono classi
e metodi apposta per ottenere lo schema delle tabelle partendo solo dal
nome.
Se la cosa non ti infastidisce troppo dal punto di vista stilistico, ecco un
bel trucco "quick & dirty" che dovrebbe funzionare:
apri un recordset come al solito specificando come comando SQL
"SELECT * FROM TABELLA WHERE 0<>0" (N.B. sono cifre... Zero<>Zero)
l'esecuzione e' estremamente rapida perche' il risultato sara' sempre un
recordset vuoto, in compenso la collection dei fields e' caricata con
attributi e tutto, e puoi usarla per verificare le informazioni che ti
interessano.
Io pero' non ti ho detto nulla ;-)
Ciao
--
Luca Dormio - 
luca....@tin.it
________________________________
"Marty, non stai ragionando in maniera quadridimensionale"
Dr. Emmett L. Brown


Tranqui, sarò muto come un pesce!

Newsgroup: it.comp.lang.visual-basic
Titolo: [!] servizi nt

l'url dell'altro post e' cambiato:
http://gogman.net/development/controls.asp
se qualcuno se l'archivia (e possib lo prova)
magari lo chiedono quando io sono in ferie :)

Ok
Newsgroup: it.comp.lang.visual-basic
Titolo: VB4 - 5 o 6?

Vorrei chiedere un favore a tutti:
Quando si posta una domanda, appena si crede di andare un po' fuori dal puro
stile VB e comunque appena si pensa che sia necessario ricorrere alle API
COMUNICATE LA VERSIONE DI VB SU CUI LAVORATE!
VB3 - 4 - 5 e 6 pur essendo basati sullo stesso linguaggio in casi
particolari non tutti permettono di eseguire alcune operazioni, ad esempio
da vb5 in poi si possono utilizzare tutte le API con callback, il che č
impossibile con VB4 e 3.
Per evitare risposte che poi si rivelerebbero inutilizzabili, e comunque per
evitare a chi risponde l'imbarazzo di decidere quale metodologia sia meglio
postare (magari lo stesso problema puň essere risolto molto piů semplicemete
con una specifica versione di vb rispetto alle altre).
Ringrazio tutti quelli che vorranno seguire questa linea, che tra l'altro va
a tutto vantaggio di chi domanda.
Ciao.

COMUNICATE LA VERSIONE DI VB SU CUI LAVORATE!
( Vedi MANIFESTO.. .. .. appunto. )
Ciao
By -MES-   Maronese Ettore
http://ilmes.freeweb.org
(con OCX per stampare i recordset)
Sito Comune di programmatori Visual Basic
http://members.xoom.com/it_lang_vb


WOW!
Il sito comune č spaziale!
Veramente migliorato dall'ultima volta che ci ho fatto un giro.
Complimenti!
Ciao.

Complimenti!
Merito di Roal Zanazzi,  il nuovo aspetto e' opera sua, ed i banner invece
li ha fatti.... . non ricordo.... . .


Newsgroup: it.comp.lang.visual-basic
Titolo: printer object vs commondialogcontrol

I have a VB6 app which uses both the CommonDialogControl and the Printer
object to select printers.
The problem is that once I have used a 'Set Printer = Printers(x)' routine,
the CommonDialogControl no longer selects the printer - it is stuck on the
one set by the 'Set Printer...' routine.
Any ideas?
Matt

 wrote in message
news:997723361.11664.0...@news.demon.co.uk...

Newsgroup: it.comp.lang.visual-basic
Titolo: Api.

GRAZIE TANTE PER LA RISPOSTA AL QUESITO DI PRIMA, mi sei stato di notevole
aiuto.
Sto utilizzando, come hai ben intuito le Api, e il quesito di prima è
proprio legato ai cambiamenti che le riguardano passando da Windows Me ad
esempio (è il mio caso) al futuro Windows XP o 2000.
Come mai la BufDat mi restituisce un valore differente nei due S.O.?Ho
diverse difficoltà a individuare le differenze sostanziali fra i due
suddetti S.O. e a capire come intervenire sul software in Visual Basic 6.0
per poterlo fare girare correttamente.
Cosa sai al riguardo?
Grazie tante,cordiali saluti
Alessandro.

 Grazie tante,cordiali saluti
Ciao, la prossima volta posta con un po' di cognizione :)
-- SiDB Simple DataBase engine ---------------------------
 
http://space.virgilio.it/zntf...@tin.it/sidb/sidb.htm
----------------------------------------------------------

 Ciao, la prossima volta posta con un po' di cognizione :)
rooooootfl
--
Fibia "Sakamoto" FBI

 ha scritto nel messaggio
news:4E5q7.8042$aU1....@news1.tin.it...


 Sai prevedere pure il futuro?
Non ancora, per ora mi limito a prendere insulti dagli incapaci.
Ciao

 Non ancora, per ora mi limito a prendere insulti dagli incapaci.
se il ng non sara moderato
vuol dire che sai anche prevedere il futuro :)

problemi della mia vita. Sai prevedere pure il futuro?
No. E nemmeno leggiamo la palla di cristallo. Richieste piů chiare, 
prego

Newsgroup: it.comp.lang.visual-basic
Titolo: VB.NET

Ciao a tutti.
Volevo soltanto sapere se qualcuno di voi è già passato alla piataforma .NET
e sta realizzando dei progetto in 
VB.NET
.
Per che non è ancora passato, mi interesserebbe sapere se ha intenzione di
farlo.
Inoltre, c'è qualcuno di voi che intenzione di abbandonare VB e di passare a
C#.
Io sono veramente confuso!!!

 ha scritto nel messaggio
news:59ZC7.23732$Qj6.1...@news.infostrada.it...


Io sto usando VB.Net per un nuovo progetto, per quelli vecchi mi tengo
stretto VB6.
Ciao
Corrado

Newsgroup: it.comp.lang.visual-basic
Titolo: Programma simile a ICQ

Ciao,
secondo voi è possibile creare con vb6
un programma simile ad ICQ?
e se si... mi dite + o - che controlli  usare oltre all'INET?
tnX
!+Mr.Fog+!

e se si... mi dite + o - che controlli  usare oltre all'INET?
Dipende da come intendi progettare l'applicazione.... se accedi ad un DB remoto devi usare ADO
(oppure RDO se non ricordo male), Winsock, e poi dipende da quello che vuoi che il tuo programmino
faccia...
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: Collegamenti banali?

Salve a tutti, anche io come Cesare Nicola sto facendo i primi passi nella
programmazione e cosi mi sa che a porvi domande un po' banali saremo in
due!!
Ed ecco la prima:
In un data base fatto con visual data maneger mi creo le classiche tabelle.
Per ora le tabelle sono tre. Naturalmente ad ogni tabella ho messo il campo
cod_ libro ed ho selezionato sia l'opzione "richiesto" che l'opzione
"autoincremento".
Poi ho usato il codice più il titolo del libro per creare una chiave
primaria.
L'altra tabella del mio data è clienti ed anche essa ha il suo bel
cod_cliente autoincrementato e richiesto. A questa tabella ho aggiunto un
campo che si chiama cod_libro per poter creare un collegamento tra le due
tabelle.
Una dei mie 100.000 dubbi è: quando creo questo campo devo ripetere la
selezione di richiesto e autoincremento??
Il buonsenso mi direbbe di no perchè quel campo dovrebbe contenere
semplicemente una copia di quello "originale" della tabella da
collegare..... però la mia ignoranza in materia è tale da non fidarmi per
niente del mio buonsenso!!!
Grazie all'anima pia che mi vorrà schiarire le idee.
Giovanna

 wrote in message
news:7d3bt9$7do$1...@fe2.cs.interbusiness.it...


Grazie mille !!
mi hai messo un altro dubbio perň:
come double? io uso il long per il contatore.... (lo ho letto su un libro!!)
č melgio che usi il tipo double per i campi contatore?
Ciao
 Giovanna


...


selezione di richiesto e autoincremento??
No, deve essere di tipo Long (intero lungo)
--
Roal Zanazzi
z...@iol.it

Grazie mille per le risposte, specialmente l'ultima mi ha dipanato molti
dubbi.
Giovanna

Newsgroup: it.comp.lang.visual-basic
Titolo: Api Windows

Sto cercando disperatamente una Api di Windows che mi
permette di impostare la data di sistema nel seguente formato:
dd/mm/yyyy
-- 
Posted from 151.99.156.226 by way of 
mail2.webmessenger.it
 [193.70.193.55] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

The SetSystemTime function sets the current system time and date. The system
time is expressed in Coordinated Universal Time (UTC).
The SYSTEMTIME structure represents a date and time using individual members
for the month, day, year, weekday, hour, minute, second, and millisecond.
By Borland Api Guide..
Ciao
--
Timothy Redaelli
timothy....@e-mail.it
Togliere il trattino tra "e" e "mail"

dd/mm/yyyy
Vedi SetLocaleInfo, che pero' agisce a livello utente, ma non sistema.
Sono, peraltro, pochi i casi in cui e' corretto modificare le impostazioni del
pannello di controllo sulla macchina dell' utente.
ciao, hal

 wrote in message
news:9d9uvu$hagk5$1...@ID-56381.news.dfncis.de...

Del tipo l'installazione di un programma che richieda esplicitamente una
macchina dedicata...
In tutti gli altri casi rischi perlomeno di far incazzare l'utente...
Ciaotutti,
Alessandro
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Split

spero qualcuno mi aiuti...
Private Sub Prova()
    Dim strtmp As String
Dim aRes()
 
    strtmp =
"915,2640,795,375,315,825,315,900,855,1275,1185,1485,2055"
    aRes() =
Split(strtmp, ",")
 
End Sub
mi da Runtime 7 tipo non
corrispondente, perchč?
--------------------------------
Inviato via 
http://usenet.iol.it

 corrispondente, perchè?
Ricevi un Type Mismatch perché hai definito un array di Variant invece che
String.
Ti allego l'esempio funzionante:
Private Sub Prova()
    Dim strTemp     As String
    Dim aRes()      As String
    Dim lngIndex    As Long
    strTemp = "915,2640,795,375,315,825,315,900,855,1275,1185,1485,2055"
    aRes() = Split(strTemp, ",")
    For lngIndex = 0 To UBound(aRes)
        Debug.Print aRes(lngIndex)
    Next
End Sub
Ciao!
--
Lorenzo Benaglia
UGIdotNET - 
http://www.ugidotnet.org

Basta che dichiari la matrice di stringhe e non ti da + errore:
Dim aRes() as String
Ciao
Duccio


Newsgroup: it.comp.lang.visual-basic
Titolo: Aiuto: formato dati

Ciao,
Avrei bisogno di un'aiuto: devo leggere dei dati (numeri) da un file txt e
riscriverli in un'altro file, ed in quest'ultimo ogni dato deve far parte di
una stringa lunga 30 caratteri.
Un'esempio del risultato che dovrei ottenere:
File txt origine
101,60
44,50
25,40
File destinazione
101,60                        44,50                         25,40
Ho provato ad utilizzare la funzione
dato = Format(dato, "###0.00                       ")
che funziona nel caso di numero con 3 interi e 2 decimali, ma non quando ho
2 interi e 2 decimali.
Si può risolvere la cosa in maniera semplice? Grazie a quanti potranno
aiutarmi.
Ciao. Flavio (indirizzo corretto: 
fc...@yahoo.com
 )

Semplice:
dato = Left$(dato & String(30, 32), 30)
Ciao
Aldo
Flavio <fc...@NOSPAMyahoo.com> wrote in message
news:8rle53$csh$1...@nslave3.tin.it...


 ha scritto nel messaggio
news:8rocqc$cju$1...@nread1.inwind.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Grafici in VB

Esiste un controllo o qualche altro sistema versatile e magari anche
semplice da usare per realizzare grafici in VB.
Ho già provato col controllo MSChart che fortunatamente mi permette di
lavorare con coppie di x e y, ma non mi permette di specificare scale
differenti per x e y né di assegnare etichette all'asse x.
Capita spesso nei miei dati di avere ascisse svariati ordini di grandezza
più grandi delle ordinate.
Grazie per l'attenzione
Alex

Alessandro:
  per avere grafici tipo y = F(x), io mi sono scritto una routine
di uso generale che scala un PictureBox, scrive i valori di ascisse
ed ordinate con sequenza 1, 2, 2.5 e 5, etichette e titoli.
La puoi trovare, nell' ultima versione, a nome Quadro nel progetto
SurFit reperibile a: 
http://www.flanguasco.org
Vi e' anche una versione, in via di sviluppo, di un Quadro per
rappresentare funzioni z = F(x, y) a tre dimensioni.
Ciao, per ora e se poi ti servisse altro aiuto, contattami pure.
Franco
Newsgroup: it.comp.lang.visual-basic
Titolo: installazioni molto compresse

Esiste la maniera di fare installazioni molto compresse e con solo i file
realmente utili per occupare poco spazio  per distribuzioni su internet,
ovviamente con VB?


si basta distribuire le runtimes come file a parte visto che basta una
sola volta per tutti i programmi scritti con vb.
Solo le runtimes occupano da soli ben cira 1.8 M...
-- 
Sidewinder  
---------------------------------------------------------------------
"You, sir, are nothing but a pathetically lame salesdroid!
I fart in your general direction!"
	-- Randseed on #Linux
---------------------------------------------------------------------
Newsgroup: it.comp.lang.visual-basic
Titolo: ? Controlli Data...CPU al 100%

Cari amici,
ho questo problema
In un form due controlli DATA che popolano le rispettive GRID, cercano e si
scambiano dati.
Se i record dei controlli DATA, sono parecchi (diciamo almeno 1000)
il PC mi segnala l'utilizzo della CPU al 100% e le risorse scendono sotto il
livello di guardia.
Cio accade dopo l'elaborazione di una metà del database.
La situazione torna normale quando il ciclo FOR-NEXT che esplora il DB
termina.
Cosa posso fare ???
Ringrazio in anticipo e spero nel Vs aiuto.
C E S A R E

Se fai molte piccole operazioni nel tuo database
puoi inserire una o più istruzioni DoEvents che rilasciano per un pò
il controllo al sistema operativo che in questo modo non è più
inchiodato (ovviamente il tuo ciclo durerà di più)
Ciao


Ciao
La DoEvents va bene ma in questo modo l'utente puo' andare in giro per il
tuo programma, premere pulsanti, voci di menu', etc. La cosa potrebbe essere
fastidiosa.
In alternativa puoi chiamare la funzione di sistema Sleep(n) che manda a
dormire il processo per <n> millisecondi.
Ho avuto anch'io un problema del genere con un programma in C++ ma ho notato
che su Windows 9x l'utilizzo del 100% della cpu non portava rallentamenti
all'interfaccia utente. Su Windows NT, invece, e' vietato fare loop di
elaborazioni (e' documentato su TechNet) lunghi perche' rallentano
pesantenemente l'interfaccia utente (alla faccia del multitasking).
Ciao
Antonio Donatiello

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

dopo aver installato e regolarmente 'attivato' via internet la trial
di .NET sul pc a casa (per lo studio 'notturno'), ho pensato di farlo
anche sul portatile (ndr entrambi con s.o. licenziato) ma...
SORPRESA.... =>questa versione e' gia' stata attivata ecc. ecc.., ma
se e' una trial, come faccio a 'trializzarla' se non la posso usare
sui miei pc?

 sui miei pc?
Temo che per "trial" non intendano "shareware"...



Pero' e' una bella palla poterla installare su un pc solo.
Dopo tutto non dovrebbe riuscire (anche se, in effetti, sarebbe
possibile) ad usarla contemporaneamente su piu' pc, ma se il contratto
di licenza e' quello, non c'e' niente da fare.
Per quanto mi riguarda, xp, .net e tutto quello che verra' se li
possono infilare proprio li' ;->
-- 
ciao, hal

 news:b7mis5$2h6m6$1...@ID-106271.news.dfncis.de...
.NET
in particolare 
VB.NET
, penso che non sia OT
giuseppeD

 possono infilare proprio li' ;->
Soprattutto se (come xp) č peggiore della versione precedente (evviva
windows 2000!)...

Newsgroup: it.comp.lang.visual-basic
Titolo: Sono una cucciolotta piccina e cerco un cucciolo dolce.

 ha scritto nel messaggio
news:8il87v$och$1...@fe2.cs.interbusiness.it...
Sono una cucciolotta piccina e cerco un cucciolo dolce.
Sono su 
www.just2minutes.com
 il nuovo sito per conoscere qualcuno in 2
minuti.
Vieni e prendimi per il guinzaglio, verrò con te.
Giovanna


Si fa fatica a mettere un OT, a evitare lo spamming e a non postare in
HTML??

 minuti
si, adesso se vai su sto dito perņ ti manda al sito disney...

Giovanna (Carla?) sta inondando un po' tutti i NG con questo
messaggio.
Denunciate, gente, denunciate.
Newsgroup: it.comp.lang.visual-basic
Titolo: Document Properies

Hello experts,
Can someone help me with the following problem:
I want to make a word macro that asks me to fill out the standard document
properties for every document I want to close. I tried to use this code
ActiveDocument.BuiltInDocumentProperties.wdPropertySubject.Value="faxes"
but I get an error message 438.
Thanks a lot
Ger...@nooyen.nl

 but I get an error message 438.
You dont need a macro. Do something like so (I've italian version):
    Tools
    > Options
      Save
      [ ] Ask for properties
and save Normal.dot
--
Ciao.
Maurizio
--------
?SPQR(C)
 X
--------

Newsgroup: it.comp.lang.visual-basic
Titolo: TreeWiew Help

Qualcuno mi puņ aiutare ?
Non ho mai usato il TreeWiew qualcuno mi puņ dare un aiuto, magari anche con
un po di codice di esempio ?
Grazie
Andrea
andr...@libero.it

 ha scritto nel messaggio
news:sekD7.5005$7A4.3...@news.infostrada.it...

http://www.sitocomune.com/
 > Forms > Esempi di utilizzo:
TreeView,ListView,ImageList
giuseppeD

 TreeView,ListView,ImageList
Magari si potrà anche fare... ma come può usare quegli esempi
per Access in VB ?
Un Paperino col VB dalla ver. 1.0, ma che odia i DB. :-(

Newsgroup: it.comp.lang.visual-basic
Titolo: SQL - non riesco a visualizzare record giusti

Con questo codice non riesco a visualizzare i record (La DBGRID appare
vuota)
stServ = "Rosso"
FrmVedi.DatServizi.RecordSource = Servizi
stSQLServizi = "SELECT IDCliente, Servizio, Pratica, DataPratica, Operatore
FROM Servizi " & _
               "WHERE Servizio = '& stServ &'"
FrmVedi.DatServizi.RecordSource = stSQLServizi
FrmVedi.DatServizi.Refresh
mentre con
stSQLServizi = "SELECT IDCliente, Servizio, Pratica, DataPratica, Operatore
FROM Servizi " & _
               "WHERE Servizio = 'Rosso'"
tutto OK.
Qualcuno mi puo' aiutare. Grazie
Francesco

                "WHERE Servizio = '" & stServ &"'"
                                                      ^^                  ^^
ciao
Ven.

Ciao
ti sei dimenticato delle virgolette
prova con
stSQLServizi = "SELECT IDCliente, Servizio, Pratica, DataPratica, Operatore
FROM Servizi " & "WHERE Servizio = '" & stServ & "'"
Ciao
Sergio



Prova a sostituire con:
stSQLServizi = "Select IDCliente, Servizio, Pratica, DataPratica,
Operatore FROM Servizi" & _
   "WHERE Servizio Like '" & stServ &"' "
   ciao
-- 
Sidewinder  
---------------------------------------------------------------------
I've run DOOM more in the last few days than I have the last few
months.  I just love debugging ;-)
	-- Linus Torvalds
---------------------------------------------------------------------

 FROM Servizi " & _

Newsgroup: it.comp.lang.visual-basic
Titolo: [HELP] Come si fa x le icone?

Mi serve di sapere la funzione che ritorna l'icona predefinita di windows
associata al file scelto... esempio l'icona di una bmp da associare
all'icona di una treeview...
Possibile che nessuno abbia mai pensato a quest'ipotesi???Non la trovo!
1000 grazie!!!

 ha scritto nel messaggio
news:0kAy7.22681$pm2.4...@news2.tin.it...


Le icone di sistema sono nella shell32.dll
-> GbC

Ho preparato anche il dischetto con il progetto, ma l'ho dimenticato a casa.
Uffa. Abbi fede, domani me ne ricorderò.

Francy ha scritto:

E' già la quarta volta che fai questa domanda.
Questo non aiuta certo ad avere risposte.
Comunque prima di chiedere si cerca su MSDN, sito comune, vecchi post...
Su MSDN ci ho messo 20 secondi a trovare la funzione:
ExtractAssociatedIcon
The ExtractAssociatedIcon function returns a handle to an indexed icon
found in a file or an icon found in an associated executable file. 
-- 
Samuele Battarra
prova il mio newsreader:
http://digilander.iol.it/battarsa/programmi/news/

Newsgroup: it.comp.lang.visual-basic
Titolo: [?VB6] Espandere frame in altra form

Ciao a tutti,
ho un problema che non ho anocora capito se č un cavolata oppure una cosa
complicata.
Dovrei riuscire ad espandere, con un doppio click, un frame e tutto il suo
contenuto in nuova form.
l'idea č di creare una form vuota con un metodo per passargli il frame in
questione, nel metodo creo un frame nuovo uguale a quello sorgente e poi lo
visualizzo.
Il tutto non funziona.
Non mi lascia impostare il .container del frame nuovo nella nuova form e
per di piů quando ridimensiono il frame nella nuova form mi si ridimensione
quello sorgente.
E' fattibile una cosa cosě , se si come, oppure sto sercando di fare cose 
astruse??
Grazie a tutti, saluti!
-- 
Vietto
http://fun.supereva.it/vietto.freeweb
To replay by mail change NOSPAM in libero

 astruse??
Veramente non ho ben capito cosa stai cercando di fare :)
Ciao
-- 
NeoDataType : 
http://www.neodatatype.net
Sito Comune : 
http://www.it-lang-vb.net

 Veramente non ho ben capito cosa stai cercando di fare :)
Per la precisione, sul dblClick del frame, aprire una buona form contenente
il frame in questione.
Ciao!


 il frame in questione.
Scusa, ma credo che tu debba *ri*spiegare da capo il tutto perchè non ho
capito un tubo.
Tu apri un form da un double click su un frame?
Mai vista una roba del genere... sono addirittura incerto che tu per frame
intendi quel coso con bordo che contiene altri oggetti.
E poi quando apri il tuo form qual è il frame che devi vedere?
Quello che hai cliccato?
Uno nuovo?
Uno che sta su un altro form?
Perchè non fare già il form con il tuo frame?

Newsgroup: it.comp.lang.visual-basic
Titolo: [?]Evento click generato dal'impostazione di ListIndex

Non si puň evitare che l'impostazione di ListIndex (esempio:
LstPippo.Listindex = 5) generi l'evento click della ListBox? Lo trovo
estremamente fastidioso.
P.S. [OT]:
"la" listbox oppure "il" listbox?
Secondo me: box = scatola = femminile = "la".
Oppure listbox = controllo = maschile = "il"
--
Ciao a tutti
Cesare Nicola
http://digilander.iol.it/cesare
L'indirizzo del sito comune č:
http://www.murialdo.it:8000/it_lang_vb/

 Oppure listbox = controllo = maschile = "il"
ho promesso di non dire piu' nulla.
i posteri, e l'uso, decideranno :)

 Oppure listbox = controllo = maschile = "il"
Secondo me è "la" listbox (essendo una lista)
Ciao
Enrico

Newsgroup: it.comp.lang.visual-basic
Titolo: Apertura di un file in sola lettura

Ho la necessità di aprire dei file con l'applicazione a loro associata in
modalità di sola lettura. Per il momento sto utilizzando la funzione
ShellExecute che apre un determinato file con l'applicazione corrispondente,
ma non riesco a trovare il modo per aprirlo in sola lettura. Qualche
consiglio?
Ciao e grazie anticipatamente,
Roberto

 consiglio?
Post di qualche giorno fa , stesso identico quesito 
http://groups.google.com

Newsgroup: it.comp.lang.visual-basic
Titolo: problema con lettura file di testo

Ciao a tutti,
io devo leggere un file di testo composto da diverse righe.
Vorrei leggere riga per riga e mettere ognuna in una variabile di tipo
String. L'unico problema č che mi ignora gli spazi in testa e in coda ad
ogni riga ed invece io non vorrei che facesse ciň!
Qualcuno sa come risolvere questo problema??
Grazie a tutti!

 ogni riga ed invece io non vorrei che facesse ciò!
Strano, forse dipende dalla modalità di apertura/lettura.
dim canale as integer
dim riga as string
canale=freefile
open "C:\Cartella\File.txt" for Input Shared As #canale
do
    if eof(canale) then exit do
    line input #canale, riga
    'Qui hai in riga la riga letta dal file
loop
close canale
Newsgroup: it.comp.lang.visual-basic
Titolo: R: Finalmente io mio Baby Editor

 wrote in message
TtZV6.3287$ET5....@news2.tin.it...



[...]

Ringrazio a tutti quelli che mi hanno aiutato a realizzarlo. Ciao!!
2 cose:
- non postare binari sul gruppo perche' non si dovrebbe fare. Comunque
era tanto piccolo che a me non ha dato fastidio. Diciamo che e' una
raccomandazione da amico :)
- il frmAbout mi piace di piu' quand'e' personalizzato: quello di VB
non mi piace tanto :)
Ottimo inizio.
Ora potresti lavorare per aggiungere elenchi puntati e piccole
tabelle.
Saluti.
-- 
      Gianni "bugbarbeq" Rondinini, 25, RA, 242, 152
  VBR - Vero Birro Romagnolo®, diffidate dalle imitazioni!
 Opel/ECC Calibrezio EVO-VI --- Kawasaki "Gas Gas" ZZ-R 1100
 ICQ# 36893168 - IRCNet: bugbarbeq, @ on #linux-it & #NetBSD
   On contrary of popular belief, Unix *IS* user friendly:
    it just appears to be selective who it is friend with

 ampliarlo piů di tanto. Insomma č una cosina fatta tanto per essere fatta.
Ahem, forse sono arrivato tardi, ma prova a dare una occhiata a questo:
http://www.vbcity.com/pubs/article.asp?alias=elitepad
Un editor RTF in sorgente VB5 con un sacco di feature. Magari ci trovi delle
dritte interessanti.
Ciao
*Roby*

Newsgroup: it.comp.lang.visual-basic
Titolo: Creare un report in vb 2013

Buongiorno a tutti,
esistono dei tool free o a basso costo per stampare un report a partire 
dai risultati di un dataset?
Uso vb express 2013 e in rete, a parte ComponentOne e Crystal Reports 
non ho trovato nient'altro.
Premetto che non vorrei semplicemente stampare i risultati ma magari 
rendere il report un pï¿œ piï¿œ "presentabile", con una intestazione, una 
legenda per leggere i dati e poco altro.
 
Esiste qualcosa?
Francesco


Non ho ancora provato con la 2013 (che non ho nemmeno ancora scaricato), 
ma con VB6 e VB2010 Express ho usato ReportManager, un tools OpenSource 
realizzato in Delphi.
 
http://reportman.sourceforge.net/
 
 
 
 
-- 
Daniele Pinna
DAPINNA.COM
 
(leva oops per rispondere)
-----
Utente Skype: dapinna
DAPINNA.COM
        :  
http://www.dapinna.com
 
Il Docfa in Pillole:  
http://www.ildocfainpillole.it
 - Sito Aggiornato!!!
DAPINNA.COM
 su Facebook: 
www.facebook.com/pages/Sassari-Italy/DAPINNACOM/110085322371199
 
 


Credo che andrï¿œ bene anche per la versione 2013, in ogni caso mi leggo 
la documentazione e ci faccio un giro...grazie mille!
 
Francesco

 Francesco
 
 
Prego :-)

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Primo piano di un Form MDI secondario

Il seguente codice mette sempre in primo piano una finestra.
Perchè non funziona con i form MDI secondari?  Grazie! :-)
Declare Function SetWindowPos Lib "user32" ( _
    ByVal hWnd As Long, ByVal hWndInsertAfter As Long, _
    ByVal X As Long, ByVal Y As Long, ByVal cx As Long, _
    ByVal cy As Long, ByVal wFlags As Long) As Long
'Per tenere sempre una finestra in primo piano
'Costanti per impostare la finestra TopMost o NoTopMost
Public Const HWND_NOTOPMOST = -2
Public Const HWND_TOPMOST = -1
Public Const SWP_NOSIZE = &H1
Public Const SWP_NOMOVE = &H2
Public Sub SetFormState(ByVal hWndForm As Long, _
        bTopMost As Boolean)
        'Per tenere sempre una finestra in primo piano
If bTopMost Then
    SetWindowPos hWndForm, HWND_TOPMOST, _
        0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
Else
    SetWindowPos hWndForm, HWND_NOTOPMOST, _
        0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
End If
End Sub
In una routine:
'Per attivare il primo piano
Call SetFormState(Me.hWnd, True)
'Per togliere il primo piano
Call SetFormState(Me.hWnd, False)

 ha scritto nel messaggio
news:tNso7.61442$ul3.2...@news.infostrada.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: set Conn = Nothing (problemi)

Ho trovato un bug in una mia applicazione, praticamente quando tentavo di
compattare il database, ricevevo errore di runtime perchè secondo vb il Db
era aperto da qualcuno (me), quindi non sarebbe stato possibile compattarlo.
Però io avevo avuto l'accortezza di chiuderla la connessione.
In questo modo
Set Conn =Nothing
Da notare che è impossibile che abbia fatto confusione tra varie connessioni
diverse, dimenticandone magari qualche altra aperta, perchè ho utilizzato
un'unica connessione per tutto il progetto.
Ho provato a sostituire  il codice in questo modo:
Conn.close
Tutto ora va a meraviglia.
Mi sembrava di aver capito che set Conn = Nothing era equivalente...anzi,
migliore come sistema, invece...
Ma per tutte le altre situazioni dove invece di usare Conn.close ho usato
Set Conn=nothing mi devo preoccupare?
Ciao
Ps: Db Access2000, ADO, VB6
--
---------------------------------------------------------
Ruscelli David
    Ufficio E.D.P.
    Intesa Soc. Coop. a r.l.
www.intesacoop.com
--------------------------------------------------------

 Tutto ora va a meraviglia.
Usale entrambe: Prima Close e poi Nothing

 Set Conn=nothing mi devo preoccupare?
La cosa corretta è quella che ti hanno già proposto, ossia usare sia il
.Close che il Set=Nothing. Per stare tranquillo puoi anche fare l'Unload
prima del nothing.
Il problema nasce se tu hai qualche riferimento alla Connection.
Ad esempio, se tu hai fatto Set Recordset.ActiveConnection=Connection, e non
hai ancora distrutto il Recordset, la connection è ancora referenziata, per
cui il Set=Nothing ti porta solo a perdere il puntatore, e NON a distruggere
l'oggetto.
Ciao
Alberto

 ha scritto nel messaggio
news:CFN373699...@powernews.libero.it...
scusate se mi intrometto ma ho anch'io un problemino con la compattazione
del
db, io però uso ancora DAO.
Come faccio in questo caso a chiudere la connessione al db?
Datemi una mano per favore, mi manca solo questo per finire il mio
programmino
da niubbo...:):)
Come sopra:
db.close
set db=Nothing
e poi (io faccio così):
DBEngine.CompactDatabase percorso_e_nome_file_mdb_originale,
percorso_e_nome_file_mdb_compattato
Poi cancelli il vecchio (Kill) e rinomini il nuovo (Name)


Grazie a tutti e due
Che palle vb!
:-|
Newsgroup: it.comp.lang.visual-basic
Titolo: IsLoad(form) ?

IsLoad(form)....magari esistesse!
Infatti ho la necessità di sapere se un form è stato caricato (Load mioForm)
oppure no.
Mi sarebbe bastato anche controllare la proprietà Visible ma alla richiesta
il form va in load e quindi non mi va bene.
Sapete indicarmi un metodo valido ?
Grazie

 ha scritto

contatore pubblico
incrementi a ogni load
decrementi a ogni unload
cosi' se vuoi sapere se ce n'e' o no
se invece vuoi i singoli form, legali ognuno a un bool che vari ai singoli
load/unload.
ciao, j.

 ha scritto nel messaggio
news:2ucu37F...@uni-berlin.de...


Oggetto Forms.
Public Function IsLoad(ByVal FormName As String) As Boolean
Dim F As Form
Dim Flag As Boolean
     FormName = Trim$(UCase$(FormName))
     Flag = False
     For Each F In Forms
         If UCase$(F.Name) = FormName Then
             Flag = True
             Exit For
         End If
     Next F
     IsLoad = Flag
End Function
-- 
Quando noi ignoranti eravamo di piů, tutto era piů bello (A. Celentano).
  ___   _   ___ _  _______   _______ ___
|   \ /_\ | _ \ |/ / _ ) \ / /_   _| __|
| |) / _ \|   / ' <| _ \\ V /  | | | _|
|___/_/ \_\_|_\_|\_\___/ |_|   |_| |___|

 Quando noi ignoranti eravamo di più, tutto era più bello (A. Celentano).


Newsgroup: it.comp.lang.visual-basic
Titolo: [VB 2005] ComboBox

Salve,
ho una ComboBox con una lista di elementi. E' possibile
che uno di questi elementi compaia come
predefinito all'apertura della Form ?
Grazie.


    Private Sub MainForm_Shown(ByVal sender As Object, ByVal e As
System.EventArgs) Handles Me.Shown
        FillComboBox()
        If ComboBox1.Items.Count > 0 Then
            ComboBox1.SelectedItem = ComboBox1.Items(0)
        End If
    End Sub
Prego.

Newsgroup: it.comp.lang.visual-basic
Titolo: API rete

Qualcuno conosce le API che permettono di sapere i PC in rete, le unità
condivise, ecc ? Mi serve per realizzare un semplice programma per cercare
dei files in rete, tipo il "Risorse di rete" di Windows.
Grazie
    MirKo

Mirko Bartolini ha scritto:

Prova con GetDriveType...
C'è un esempio su 
http://members.xoom.it/CesareRizzi
Ciao
:-) Hd (-:
hd...@TOGLI.freemail.it
Sito Comune:
www.murialdo.it
\it_lang_vb

Newsgroup: it.comp.lang.visual-basic
Titolo: ShowInTaskBar

  Salve a tutto il newsgroup.
Ho ripreso da poco, e non mi riesce di vedere l'eseguibile creato, né 
con la sequenza Alt+ Tab né sulla barra delle applicazioni. C'è rimedio ?
Grazie a chi mi aiuta (e anche a chi vorrebbe ma non sa come aiutarmi)

 Grazie a chi mi aiuta (e anche a chi vorrebbe ma non sa come aiutarmi)
Mi pare che ti sia già risposto da solo nel subject ;)
Ciao

Zanna ha scritto:

Non Proprio.  Ci deve essere qualche altro parametro, perchè è True.
Ciao

 applicazioni. C'è rimedio?
Affinche' sia visualizzato sul taskbar, il form, AFAIR, non
puo' essere di tipo dialog o toolwindow.
hth,
Lokar
P.S. Il morhping e' MALE.

 
D'accordo, grazie.

Newsgroup: it.comp.lang.visual-basic
Titolo: Service Pack 5

A chi l'ha provato...
come sta andando il Service Pack 5?

Io lo stò usando...ma per adesso non ho notato miglioramente...ne (per
fortuna) nuovi problemi.
Gianni Moretti

 ha scritto nel messaggio
news:9805vk$reitj$1...@ID-77234.news.dfncis.de...


 A CHE DIAVOLO E' SERVITO INSTALLARE IL SP5????
I Service Packs sono cumulativi... vale a dire che contengono
anche tutte le correzioni dei Service Packs precedenti.
Ora, se consideri che la cartella di installazione del SP4 è 139 Mb
(sono nostalgico di natura quindi l'ho ancora :p) e quella del SP5 è
143 Mb puoi facilmente capire che le modifiche sono state veramente
esigue. (come si nota poi dal readme incluso)
Byee
Zeross

 ha scritto nel messaggio
news:8QTp6.4082$Xj7.1...@news.infostrada.it...


 128 MByte... Come mai la tua è di 143 MByte?
Io ho scaricato i vari file separati e ho decompresso tutto in un'unica
cartella e dentro ci sono
143 Mb di file.
Forse tu ti riferisci al file del download unico, che è compresso.
Byee
Zeross

 ha scritto nel messaggio
news:%eeq6.46094$Xj7.3...@news.infostrada.it...


A CHE DIAVOLO E' SERVITO INSTALLARE IL SP5????
Qualcuno leggera' mai il readme? ^__-
Cmq questo dovrebbe chiarire qualche dubbio almeno sulle fix...
http://support.microsoft.com/support/kb/articles/Q280/3/67.asp
-- 
Giovanni "Gyo" Perdicaro
E-Mail: 
gperd...@sicilyonline.it

 ha scritto nel messaggio
news:4m3patcr7opic32pv...@4ax.com...


 avevi già installato il SP1! Semplice ed economico.
Ti farò contento con questa news:
Visual Studio.NET ha integrata una funzione di aggiornamento incrementale
(una sorta
di Visual Studio Update).
... e scontento con questa:
Ovviamente solo per coloro che di Visual Studio hanno comprato la licenza (a
tal riguardo
pare che (aspetto conferma di ciò) anche in 
VS.NET
 troveremo lo stesso
Product
Activation Key pensato per Windows XP e Office XP.
Byee
Zeross


Non so se c'è da essere contenti, significa che probabilmente ci saranno un
bel po' di Service pack 8-(
Ciao VB

 ha scritto


be', in compenso ogni sp aggiungera' solo i propri bug.
e per essere veramente incrementale non correggera' quelli precedenti.
:))

 ha scritto nel messaggio
news:98mam2$2hva5$1...@ID-51318.news.dfncis.de...

Figooooo  8-)
Newsgroup: it.comp.lang.visual-basic
Titolo: Font con il simbolo dell'EURO

Ebbene: dove posso trovare il simbolo dell'Euro in un font, senza
dover usare una infinità di volte l'equivalente bitmap ottenendo .DOC
di dimensioni epiche ??? (scusate se sono un po OT ma credo che molti
di noi abbiano prima o poi questo problema !)
Ciao !
Marco Grignoli
EMAIL: 
sinfosofNO...@tin.it
   >>Togliere NOSPAZZATURA<<

Ebbene: dove posso trovare il simbolo dell'Euro in un font(...)
ftp://ftp.microsoft.com/SoftLib/MSLFILES
 : il file TAHOMA32.EXE
dovrebbe contenere il font Tahoma con il grifo...
Comunque prima scarica l'indice in /SoftLib ;-)
Bye :-)
Greg
gbia...@logix2.lognet.it
http://www.geocities.com/Athens/Aegean/3276/index.html

Comunque prima scarica l'indice in /SoftLib ;-)
Grazie per l'informazione!
Ho scaricato il font da te segnalato, ma NON HO TROVATO IL SIMBOLO DEL
GRIFO!
DOV'E'? E COME SI FA A VISUALIZZARLO?
Grazie anticipatamente
Marro
--
To reply please remove from e-amil 'xyz'- Per rispondere togliere 'xyz' dall'indirizzo e-amil.


Purtroppo l'ho constatato anch'io...  :-(((
Preso *dall'entusiasmo* mi ero fidato di quanto 'dichiarava' Microsoft
nella lista dei files scaricabili in /MSLFILES.
Mi sa che, tanto per cambiare, bisognerą rimettersi al buon cuore di
Guglielmo Cancelli... e aspettare un patch!
Ti farņ sapere se riuscirņ a cavare il grifo dal buco. ;->
A presto. Ciao. :-)
Greg
gbia...@logix2.lognet.it
http://www.geocities.com/Athens/Aegean/3276/index.html
Newsgroup: it.comp.lang.visual-basic
Titolo: Testo scorrevole e CTRL+ALT+CANC....

Avrei cortesemente bisogno di 2 informazioni......:
1) Vorrei sapere come si fa per far "muovere" un testo contenuto in una
label (in modo da creare un effetto di testo scorrevole..)
2) Vorrei sapere come si fa per "bloccare" momentaneamente (e anche x
sbloccare quindi...) i pulsanti di reset CTRL+ALT+CANC...
di modo che non si possa più resettare il computer con questa
combinazione....
Grazie
Ciao
Federico

Entrambe le risposte le trovi sul Sito Comune di questo Newsgroup
Ciao,
Moreno
#sirri#@
morenosoft.com
(togliete "#" dall'indirizzo)
Moreno Sirri VB Site - 
http://www.morenosoft.com/MSVBSite/
Home Page - 
http://www.geocities.com/SiliconValley/Bridge/1414/
---------------------------------------------------------------------------
Le risposte alle tue domande le trovi sul Sito Comune di questo NewsGroup:
 
http://www.murialdo.it/it_lang_vb
---------------------------------------------------------------------------

Sempre sul sito comune, mi sembra di aver visto qualche cosa su questo
argomento.....
ByeZ!
Alkondor


 Moreno
Grazie ora guardo....
Ciao
Federico

> Grazie ora guardo....
Di solito prima si guarda e poi se non c'e' si chiede!!!
Scusa non e' riferito a te direttamente, ma atutti coloro che fanno cosi', e
non sono pochi !!!
Ciaps
Stracca
Newsgroup: it.comp.lang.visual-basic
Titolo: Ancora interfacce e resizing

Salve gente, 
dopo aver "fatto passare" qualche tempo dopo il mio ultimo messaggio a
riguardo, ripropongo il qesito, anche se in maniera piu' mirata.
Per fare il resizing di un form e di tutti i suoi controlli in base alla
risoluzione dello schermo, ho utilizzato una classe clsResize che ha tra i
suoi metodi, un Resizing
Public Sub Resizing (ToResize as Object)
    ToResize.Height = Toresize.Height * Ratio
    ..... eccetera
End Sub
Il codice client non fa altro che passare il riferimento al form o al
controllo da dover ridimensionare, poi la classe fa tutto il lavoro.
Dato che passo un riferimento ad un oggetto qualunque, starei costringendo
il compilatore a lavorare in Late Binding, giusto?
Ammettendo che volessi scirvere una interfaccia per poter lavorare in
Early, come potrei fare?
So che non e' usanza del ng preparare la pappa pronta, e neanche la
vorrei, altrimenti non imparerei un bel niente, ma potreste farmi degli
esempi *molto* dettagliati su come scrivere e usare una onterfaccia del
genere? Magari imparo il concetto :-)))
Altra domanda... non ricordo chi, ma nel mio primo post sull'argomento,
qualcuno mi disse che la funzione delle interfacce, e' solo
secondariamente quella di dar la possibilita' al compilatore di lavorare
in Early... ma, insomma, a che servono allora queste interfacce?
grazie a tutti, buon anno, e se state a leggermi il 29/12, non sono
l'unico messo male :-))))
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 
Ricorda....c'è sempre chi sta peggio di te!
-- 
Free As In Freedom
www.fsf.org
http://blog.libero.it/LeleB/

 Ricorda....c'è sempre chi sta peggio di te!
-- 
questo articolo e` stato inviato via web dal servizio gratuito 


 giusto?) ed utilizzarli cosi' come sono.
Mmmm...forse non ho trovato l'esempio giusto...
Prova a dare uno sguardo qui...
http://msdn.microsoft.com/library/ita/default.asp?url=/library/ITA/vbcn7/html/vaconinterfacebasedpolymorphism.asp
Ciao!



http://msdn.microsoft.com/library/ita/default.asp?url=/library/ITA/vbcn7/html/vaconinterfacebasedpolymorphism.asp
...
Ci ho dato un'occhiata rapidisima, ma ancora non ci vedo molto chiaro.
Ripassero', promesso :-)
Poi, magari scrivo un esempietto io, e vediamo come metterci in mezzo le
interfacce.
Ciao ed... a presto


Newsgroup: it.comp.lang.visual-basic
Titolo: scrivere componenti

Vorrei cimentarmi nella scrittura di componenti con il vb6 quale testo mi
consigliate anche costoso basta che sia completo e scenda al livello piu'
basso consentito dal VB6 e soprattutto che sia in italiano.

 wrote in message 7hdp29$7t$1...@serv1.iunet.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: "IL COMPONENTE ACTIVEX NON PUO' CREARE L'OGGETTO"

La seguente procedura mi genera l'errore in oggetto:
dim ObjWord as new Word.Application
set objword=word.application
Stessa cosa se provo con set objword=createobject(word.application)
La cosa strana è che l'errore è generato solo in alcuni computers.........
AIUTO!!!!!!
Qualcuno mi sa dire come evitare il suddetto errore?

penso manchino dei riferimenti nel tuo proj....

 set objword=word.application
Verifica che ci sta il word e che il word abbia la licenza... mi pare di
aver letto da qualche parte che se non c'e' la licenza l'oggetto non funge.

e se provi cosě?
dim ObjWord as Word.Application
 set objword=new word.application
Ciao Lorenzo

Ho già provato tutte le forme di dichiarazione di oggetti, e la libreria di
word è un file MSWORD8.olb, e quindi il regsrv32.exe non lo registra...
Qualche altra idea?

Newsgroup: it.comp.lang.visual-basic
Titolo: [VB .NET] intercettare evento cambio stato della finestra del form

Salve,
quesito banale, ma a cui non sono riuscito a dare risposta:
sto semplicemente implementando un notifyicon per mettere
l'applicazione nel systray.
Il problema č che vorrei che al "minimize" della finestra, questa
sparisse dalla taskbar e rimanesse solo nel systray.
Sarebbe interessante applicare la stessa logica al pulsante a x per la
chiusura della finestra.
La chiusura sarā data solo da un pulsante apposito magari da un menų.
Ora ho controllato gli eventi della form, ma mi pare che non esista un
evento che soddisfi la mia richiesta.
Mi domando allora se esista un oggetto window relativo che faccia da
contenitore alla form?!
Grazie per tutti i consigli/delucidazioni del caso!
Ciao!

 evento che soddisfi la mia richiesta.
Resize e verifica del windowstate?
-- 
Salutoni
Sergio
Per rispondere... togli il group dall'indirizzo
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

Resize e verifica del windowstate?
Ok chiaro,
ma a che evento della form devo eseguire il controllo con windowstate?
In piů windowstate non mi gestisce l'evento "close" dato dalla
pressione sul pulsante x della barra del titolo della finistra.
E vorrei evitare di utilizzare l'evento closing della form per fare
questo.

 questo.
E eliminare il MinButton e gestire tutto dall'evento Closing non č piů
facile?
Ciao
--
Reporting tool: 
http://www.neodatatype.net

Ciao
si ma sarebbe fin troppo facile :P meglio dare un poco di confusione
all'utente :P
Newsgroup: it.comp.lang.visual-basic
Titolo: VB.Net 2010 - Gestire pulsanti tramite il valore della TabIndex

 
 
Su una form ho posizionato un pannello con sopra  529 pulsanti.
 
Sempre sulla form ho aggiunto un pulsanto che mi dovrebbe cambiare il 
colore di sfondo di tutti i pulsanti del pannello.
 
Come è possibile cambiare contemporaneamente a tutti il colore di sfondo?
 
Voglio evitare di scrivere 529 volte Button1.BackColor = Color.Red...
 
Con un ciclo mi risulterebbe tutto più facile gestire il problema (il 
valore della TabIndex dei pulsanti va da 1 a 529)
 
nero23
 


529 pulsanti in un form? senza dubbio hai vinto il premio come peggior 
interfaccia utente del secolo!
 
Cmq per il tuo problema basta fare un ciclo sui controlli del form e 
impostare il nuovo valore di background, qualcosa del tipo:
 
         For Each ctrl As Control In Me.Controls
             If TypeOf (ctrl) Is System.Windows.Forms.Button Then
                 ctrl.BackColor = Color.Red
             End If
         Next
 
Ciao, Vincenzo

 interfaccia utente del secolo!
 
in realtà i 529 pulsanti formano una matrice di pixel. Cliccandoci 
sopra, cambia colore.
 
In poche parole, assomiglia a uno di quei programmi per creare icone...
 
Grazie tanto


Voglio sperare che i 529 pulsanti tu li abbia aggiunti via codice, e non a manina sulla form, per cui con la stessa logica (ciclo che aggiunge all'insieme Controls) puoi fare un ciclo per recuperare i singoli controlli ai quali cambiare le proprietà che vuoi.
 
Per fare ancora prima, se nella tua interfaccia ci sono altri pulsanti che non fanno parte di questo gruppo, quando aggiungi all'insieme Controls generale puoi anche aggiungere ad un insieme creato ad-hoc (un List(of), Dictionary o altro tipo di collection a piacere) e fare il ciclo solo su quello


 
Senza scomodare le collection, allo stesso modo potrebbe usare la 
proprietà Tag del controllo per memorizzare se fa parte di un certo 
gruppo...
 
Ciao, Vincenzo

 
 
Beh, in questo caso il tag mantiene la scomodità di dover comunque fare tutte le volte un TypeOf, una IF, eventualmente un cast a Button ecc.. perchè 'Controls' resta un insieme non (o meglio poco) tipizzato; con una lista tipizzata ad-hoc, fai sempre un ciclo secco, perchè sai esattamente cosa contiene.
 
Incidentalmente, memorizzare 500 nuovi valori da mettere in '.tag' impegna parecchia memoria in più che non una lista che punta a 500 oggetti esistenti.

Newsgroup: it.comp.lang.visual-basic
Titolo: creare una tabella ordinata per data

ho creato una tabella in VB6 per access in cui verranno inseriti dei dati.
io ho bisogno di avere un database che rimanga ordinato per la colonna data
tutto tramite codice vb.
come posso fare??

 tutto tramite codice vb.
Dimentica come sono ordinati i dati nel database (non lo sa nemmeno lui!):
Select * From Tabella Order By data


CREATE CLUSTERED INDEX Idx_Data ON Tabella (ColonnaData)
A me funziona con Sql Server 2000
Ciao ;)
fabriZio
Newsgroup: it.comp.lang.visual-basic
Titolo: creare un generatore di password

Cerco spiegazione per creare un generatore di password in Visual Basic.
-- 
Posted from 
h213-0-201.rm.genie.it
 [213.213.0.201] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

> Cerco spiegazione per creare un generatore di password in Visual Basic.
se non ricordo male c'č un esempio su 
http://www.freevbcode.com/
ciao
--
-------
sito: 
www.dadev.it
ultime: Ocx per irc testi freeware
-------

 Cerco spiegazione per creare un generatore di password in Visual Basic.
Io mi sono scritto questa:
_______________________________
Private Sub Command1_Click()
    Dim N As Integer
    Dim Password As String
    Dim Indice As Integer
    Dim CarAmmessi As String
    Dim Carattere As String
    '     CarAmmessi = "abcdefghijklmnopqrstuvwxyz
    '    ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890
    '    -_.:,;'=)(/&%$£!?<>[]\^|" ' se alcuni non li vuoi o puoi utilizzare, li togli.
    '    stringa modificata già rimescolando a mano, non si sa mai...
    CarAmmessi = "Frs7S?yzI6M]\efop%$£!89KxE<WtN1[OwX2Ta" & _
"-mnBC|,RJcdV43Y>QbAv^hGHq.;'=LDu_gZijklU:50P)(/&"
    Randomize Timer
    For N = 1 To 10 ' lunghezza PWD, nel caso cambiala
        Do
        Indice = Int(Len(CarAmmessi) * Rnd + 1)
            Carattere = Mid$(CarAmmessi, Indice, 1)
            If InStr(Password, Carattere) = 0 Then Exit Do ' no ripetizioni
                                                                                    ' dello stesso car
        Loop
        Password = Password & Carattere
    Next N
    MsgBox Password ' non la scriviamo certo in un file... te la copi a manina ;-)
End Sub
_______________________________
Bye, G.