mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: Resize form

Se a qualcuno può interessare...
Giorni addietro ho scaricato dal sito comune la classe clResize;  ho visto
che fa ottimamente il suo lavoro, tranne per il fatto che faceva il resize
della form ad una percentuale a piacere, ma uguale per tutti e due lati
della form.
Allora ho modificato appena 2 righe della sub SizeFormToScreen e adesso fa
il resize adeguandosi alla risoluzione che trova, ma mantenendo le
proporzioni tra i 2 lati del form.
Queste sono le 2 righe:
'FormHeight = Int(Screen.Height * (Percent / 100))
'FormWidth = Int(Screen.Width * (Percent / 100))
FormHeight = Int((m_FormHeight * Screen.Height) / sAlto)
FormWidth = Int((m_FormWidth * Screen.Width) / sLarg)
sAlto e sLarg sono 2 costanti che indicano le misure dello screen quando si
è designtime.
A quel punto, visto che il resize si ferma solo ai controlli, ho fatto
un'altra sub che che va a cercare tutti i controlli le proprietà FontSize e
aumenta di 2 o 4 punti a seconda dei casi.
Da notare che alcuni controlli espongono FontSize altri Font.Size.
Da ultimo una seconda sub, che chiamo solo in quelle form dove ci sono
griglie, e per ogni colonna faccio:
    Flex1.ColWidth(X) = Int((f.ColWidth(X) * Screen.Width) / sLarg)
in quanto nella versione orginale passando da 800x600 a 1024x768 veniva
allargata la griglia ma non le singole colonne, lasciano dell'inutile spazio
vuoto a destra dell'ultima colonna
Ciao
--
Greg

 proporzioni tra i 2 lati del form.
Ritengo cosa buona e giusta pubblicare la modifica sul sito
comune per facilitarne il riutilizzo da parte di tanti.
Webmasteeeeeer! Cheddici?
-- 
ciao, hal

 Webmasteeeeeer! Cheddici?
ok.
L'unica cosa che mi è rimasta oldzise è la .... msgbox; hai qualche idea,
hal?
--
Greg

 della form.
Visto che siamo in argomento, per una mia recentissima applicazione ho
realizzato ex-novo una piccola libreria (costituita da tre .cls) per il
resize dei controlli. 
Il funzionamento è semplice ed un pò particolare, nel senso che si può
controllare nella fase del resize se ridimensionare o semplicemente
spostare i controlli; la cosa più utile, comunque. è il fatto di poter
utilizzare dei frame come contenitore di controlli ed applicare le regole
del frame, eventualmente, automaticamente a tutti i controlli che contiene.
Domani penso di metterla online sul mio sito (sezione Software); 
qual è l'indirizzo del sito comune ?
-- 
Ciao,
 Fabrizio
=== 
http://www.negusweb.it
 ===

 === 
http://www.negusweb.it
 ===
www.it-lang-vb.net
anche se in questo momento non risponde.
il wm č nicola ottomano, dovresti trovare post suoi qui.
grazie e ciao, a.

 qual č l'indirizzo del sito comune ?
http://www.it-lang-vb.net/
Ma risulta impossibile accedervi adesso: "Il tempo concesso per accedere al
sito č scaduto" o qualcosa di simile.
E' il sito, o č sempre Telecom che traballa?
--
Greg

 E' il sito, o è sempre Telecom che traballa?
alice sta abbastanza bene, grazie, saluti alla signora.
ciao, a.
Newsgroup: it.comp.lang.visual-basic
Titolo: ?vbscript

ho aperto una pagina html contenente uno script vb su IE4 versione Mac, la
pagina mi da errore
Qualcuno sa darmi una spiegazione? grazie
Ciao

...

Questo č "IL" problema che assilla i programmatori Internet in questo
periodo: la compatibilitą.
Esistono diversi browser, in diverse versioni, che usano diversi script
(anche loro in diverse versioni), applet, ActiveX, DHTML ed altre diavolerie
che qualcuno penserą questa notte per far venire a noi gli incubi domani.
Bisogna avere molta  pazienza.
Ciao
---
--
-
MIX (VB5SP3)
170 links a siti VB
http://space.tin.it/computer/gaais/
http://www.tempolibero.com/user/mix/
-
--
---


Un consiglio: usa javascript, è supportato da quasi tutti i browser.
Ciao Marco

> la pagina mi da errore
...che errore??
ne esistono a centinaia!
Descrivi meglio il tuo problema.
Ciao
-- 
May
---------------------------------------------------------
MaySist...@lycosmail.com
Togliere MAYBE
ICQ_UIN: 27234690
---------------------------------------------------------

Newsgroup: it.comp.lang.visual-basic
Titolo: testo con oggettto printer

Ciao a tutti... :-)
Ho una domanda da porvi.
Come si fa tramite l'oggetto printer a stampare testo orientato in maniera
diversa?
Mi spiego:
posiziono il cursore virtuale (priprietą CurrentX e CurrentY) se stampo la
scritta Ciao tamite printer.print "Ciao" viene stampato da sinistra verso
destra dall posizione da me impostata.
Come faccio a fargli capire che deve stampare una stringa dall'alto verso il
basso e con la base delle lettere rivolta verso sinistra?
Grazie!
Andrea

...

Nel sito comune c'č un esempio di stampa di stringhe con angolazione
variabile.
Newsgroup: it.comp.lang.visual-basic
Titolo: Funzione SpedisciEmail

Cia a tutti
Avrei bisogno di una funzione per spedire un'e-mail con un allegato.
Ricordo che qualcuno aveva postato una function per spedire e-mail, ma
mi da un errore.
Mi servirebbe una cosa del genere:
SpedisciMail destinatario, attach
E basta. Niente testo, niente subject........
Non è che avete qualcosa di gia pronto? Se si, me lo potreste spedire?
Mi serve! Oppure spiegatemi come devo fare per costruirmelo da me, che
driver devo usare (mi sembera che c'entrino qualcosa le MAPI, ma nmon
so dove poterle prendere........)
ByeZ!
Alkondor

 Non č che avete qualcosa di gia pronto? Se si, me lo potreste spedire?


 Non è che avete qualcosa di gia pronto? Se si, me lo potreste spedire?


>E basta. Niente testo, niente subject........
mmmm....... mi puzza un po'........ comunque guarda sul Sito Comune...
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
---------------------------------------------------------------------------

mmmm....... mi puzza un po'........ comunque guarda sul Sito Comune...
In che senso?
Comunque ho gia guardato........ L'esempio c'è, ma faccio un po'
fatica ad adattarlo alle mie necessità....... Per questo che ho
chiesto a voi...... Comunque ci proverò... Grazie lo stesso.
ByeZ!
Alkondor

Newsgroup: it.comp.lang.visual-basic
Titolo: ado e creazione tabelle

Ciao
scusate l'ingnoranza ma, posso creare una nuova tabella in un db access
usando ado, e come faccio?
Grazie
Luca

...

Ciao Luca, vedo che hai seguito i miei consigli sulle potenzialita' di
questo NG.
Quarda un po' chi ti risponde :-) .....
Attualmente mi risultano 3 soluzioni:
- usare una Query di CREATE TABLE (vedi la guida in linea di Acces per
vedere la sintassi)
- usare ADOX, estensione di ADO per la definizione dello schema del DB (non
chiedermi pero' come si faccia)
-passare a DAO e usare la collezione TableDefs
Buon lavoro
locaduck

Newsgroup: it.comp.lang.visual-basic
Titolo: Toolbar e bottoni a cascata.

Come faccio a intercettare un click su un bottone a scelta multipla
(cascata) in una toolbar ?
per intercettare il click su un bottone della toolbar uso
toolbar.button
che mi retituisce il nuemro del bottone ma se uso un bottone che
una volta premuto fa comparire una lista di bottoni come faccio a
intercettare il secondo bottone ?
grazie
Nick


evento ButtonMenuClick...
In ogni caso Tasto F1...
--
Stefano Zamboni (
sz...@libero.it
)
--------------------------------------------------------------
"If Bill Gates had a dime for every time a Windows box crashed...
...Oh, wait a minute, he already does."
Newsgroup: it.comp.lang.visual-basic
Titolo: Compilatore file .RES

Chi puņ aiutarmi a reperire il compilatore per i file .RES che si
utilizzano in VB4.
Grazie per consigli e suggerimenti.
-- 
da...@itelcad.it

 utilizzano in VB4.
ci sono tantissimi programmi shareware per costruire i file di Help,
personalmente preferisco Help Writer Assistant, (file: HWA11.ZIP), e'
disponibile presso i piu' comuni siti shareware. (vedi sotto per come
scaricarlo) Oltre a questo servira' anche il compilatore Help della
Microsoft, (file HC505.EXE),   disponibile presso il sito Microsoft (e non
solo).
Per recuperare tali file, puntare il browser WEB in questa direzione:
http://ftpsearch.ntnu.no/ftpsearch

 utilizzano in VB4.



da...@itelcad.it
Ma scusate... quello che cercate non e' presente nella directory \tools del
CD di VB5?
(ora controllo e poi vi dico)

Newsgroup: it.comp.lang.visual-basic
Titolo: Dynamic controls

hello,
I want to create a control dynamically and dock it in a form.
For example, imagine you have a form and by pressing a button a
new label appears.
The controls should be the standard ones in Windows (labels,
textbox...).
How can I do it? Can it be done under Visual Basic? Does it have
anything to do with createObject?
Thanks.

This is an example!
Sub Main_Controll()
    'dichiarazione (si può anche dimensionare a più dimensioni)
    'limite controlli contemporaneamente su schermo circa 1700 in fase di
test
    Dim Txt(10)
    Dim Lbl(10)
    Dim Lbl2(10, 5)
    For c = 0 To 10
        '            nomeform                 tipo
nome_controllo_nel_form
        Set Txt(c) = frmMain.Controls.Add("VB.TextBox", "txt" +
Trim(Str$(c)))
        Set Lbl(c) = frmMain.Controls.Add("VB.Label", "lbl" + Trim(Str$(c)))
        For ck = 0 To 4
            Set Lbl2(c, ck) = frmMain.Controls.Add("VB.Label", "lbl2" +
Trim(Str$(c)) + Trim(Str$(ck)))
        Next ck
    Next c
    'uso
    For c = 0 To 9
        'si possono usare tutte le proprietà e i metodi del vero controllo
        With Txt(c)
             .Visible = True
             .Top = 0
             .Left = 0 + c * 400
             .Height = 200
             .Width = 400
             .Text = Trim(Str$(c))
        End With
        'modo 1
        With Lbl(c)
             .Visible = True
             .Top = 400
             .Left = 0 + c * 400
             .Height = 300
             .Width = 400
             .Caption = Trim(Str$(c))
             .BorderStyle = 1
             .ForeColor = vbYellow
             .BackColor = c * 20
        End With
        'modo 2
        For ck = 0 To 4
            With Lbl2(c, ck)
                 .Visible = True
                 .Top = 800 + ck * 400
                 .Left = 0 + c * 400
                 .Height = 300
                 .Width = 400
                 .Caption = Trim(Str$(c))
                 .BorderStyle = 1
                 .ForeColor = vbYellow
                 .BackColor = c * ck * 1000
            End With
        Next ck
    Next c
    'mandare a video solo alla fine per evitare problemi di sfarfallamento
    frmMain.Show
End Sub
Gianni Moretti
Newsgroup: it.comp.lang.visual-basic
Titolo: usare invia a

Qualcuno mi può indicare come gestire la voce menu " invia a " so che
è un collegamento alla cartella send to ma non so come funzioni per
inviare un documento al server di posta o al fax o altre applicazioni.
Grazie in anticipo a tutti.


La cartella sotto windows\sendto raccoglie i collegamenti alle
applicazioni alle quali vuoi inviare il file.

Grazie per la risposta, ma questo lo sapevo è come usarli da programma
che non so. Se puoi aiutarmi magari con un esempio per chiarire come
avendo un documento  utilizzare un' applicazione con "invia a" da menu


Newsgroup: it.comp.lang.visual-basic
Titolo: Operazione non valida

Un mio piccolissimo programma (LoVb) che in pratica usa solo un controllo
Dbgrid, e che ha sempre funzionato, ora provoca il classico messaggio:
questo programma ha eseguito un operazione non valida e sarà terminato
LoVb ha provocato un errore di pagina non valida nel modulo DBGRID32.OCX in
0167:230f4d5d ............
Cosa può essere successo?
E più in generale da che dipendono e come si affrontano questi tipi di
errori che spesso si presentano?
Ringrazio in anticipo.
Francesco

Un'idea che mi viene e' che e' stato installato un programma che ha
modificato il file DBGRID32.OCX, installando una versione precedente o
successiva incompatibile col tuo prg !!!
Prova a ricompilare e reinstallare (non sono a copiare l'EXE!!!)
--
Ciaps
Stracca
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Cerca le risposte alle tue domande sul Sito Comune del
newsgroup it.comp.lang.visual-basic: 
http://www.murialdo.it/it_lang_vb
Magari prima leggi l'Help in linea!
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Francesco <fran...@tecnonet.itXXX> wrote in message
7shh2q$avr$1...@fe1.cs.interbusiness.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Segnalazione Software

Ciao a tutti,
Volevo segnalarvi un software che ho realizzato per la gestione e la
generazione di query su database.
Il programma si interfaccia con qualsiasi db collegabile tramite oledb /
odbc
L'ho provato con successo (e lo uso come tool di sviluppo ogni giorno da
qualche anno aggiornandolo frequentemente) con Access, Sql Server, MySQL,
Oracle, Interbase, DBF.
Ha una serie di funzioni interessanti, come la gestione grafica di query in
stile Access / Sql Server, la formattazione e l'esportazione delle query
verso VB, l'esplorazione di tabelle, viste, campi e SP.
Lo sto divulgando come freeware, chiedo solo una registrazione gratuita per
sapere in quanti lo utilizzano.
Vorrei avere i vostri suggerimenti e consigli a riguardo.
Potete scaricarlo da :
www.omniasystem.com/updates/utility/SetupDBManager.exe
Ciao,
Gabriele
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/


Carino, potrebbe essere una valida alternativa per chi come me non vuole 
installare (se possibile) Access.
Cosě a prima vista ha qualche comportamento strano, ma la cosa che proprio 
non mi piace č che il setup installa sia DAO che MDAC.
Questi dovrebbero essere prerequisiti di competenza dell'utente.
Se il tuo setup mi avesse scassato la mia configurazione ti avrei bruciato 
la casa ;)
Ciao 

 Ciao
Ciao!

Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] News server nuovo

Sto ufficialmente abbandonando il serverone tedesco.
Sto postando dal newsserver nuovo....
Sembra funzioni bene..
Se vi interessa
http://diesel.cu.mi.it/
-- 
"Tutta la droga del mondo non vale un grammo della mia adrenalina"
Lorenzo Cherubini alias Jovanotti
Per bypassare i filtri antispam scrivi nel testo del messaggio "AIEIE"
MasterDavidex - David Ruscelli
ICQ 223258511 

 
http://diesel.cu.mi.it/
prova questoz
x-privat.org
anonimo e italiano
ciaoz
-- 
Indovina il film:
Marty McFly torna nuovamente indietro nel tempo fino al 1885 per salvare il
suo amico Doc, che si è messo nei guai nell'era dei cow boys.
Riusciranno i due a tornare nel loro futuro?
Soluzione: 
http://cinemaz.altervista.org/?id=2743

 anonimo e italiano
tra l'altro chi lo cura e` una persona che mi pare abbastanza
disponibile e si trova spesso sui ng
lo trovo pero` un po' "lento", rispetto ai tedeschi o a quello
di fastweb
-- 
ciao, hal

 disponibile e si trova spesso sui ng
mi sono iscritto pure a quello.
Faccio la convalida per l'iscrizione sul sito, clicco il link che arriva via 
mail, quindi tutto ok.
Poi lo provo e non mi becca username e password....
Cosě da ieri...
Idee?
Visto che conoscete chi lo cura, c'č modo di dirglielo  di questo disguido?



Grazie 1000.
Ho fatto l'iscrizione e stò già postando dal nuovo newsserver!!! wow
Ciao, Vincenzo

 Visto che conoscete chi lo cura, c'è modo di dirglielo  di questo disguido?
ecco l'idea :)
così vedrai che ciò che dice hallz è vero :)
-- 
Indovina il film:
Dal futuro vengono inviati due cyborg: uno per uccidere e uno per difendere
John Connor, il futuro capo della resistenza contro le macchine.
Il cyborg T-800 è mandato dagli umani per salvare John, mentre il cyborg
T-1000 viene mandato da Skynet, l'intelligenza artificiale a capo delle
macchine che voglino sterminare il genere umano.
Soluzione: 
http://cinemaz.altervista.org/?id=18

 Visto che conoscete chi lo cura, c'č modo di dirglielo  di questo disguido?
certoz
...
concentrazionez...
fattoz :)
ed ora puede dimostrar che quello che dice hallz č vero :)
-- 
Indovina il film:
Una famiglia in gita in camper viene attaccata da dei misteriosi piccoli
alieni cannibali.
Solo degli altri alieni provenienti dallo spazio potranno salvarli da
queste piccole creature assetate di sangue...
Soluzione: 
http://cinemaz.altervista.org/?id=695


Ate come va?
Fino ad ora a me funge bene, non noto differenze dal serverone tedesco, 
l'unica differenza sta nel numero di newsgroup disponibili credo, ma 
l'importante è che ci sia la gerarchia it....
Per il resto la velocità è buona, non noto rallentamenti o stranezze...



ok, grazie...



A me va benissimo. Nemmeno io noto differenze dal fu 
individual.net
!!!
Purtroppo non c'è la gerarchia microsoft.public.it.*
Ciao, Vincenzo
Newsgroup: it.comp.lang.visual-basic
Titolo: perchè non va inet?

Ciao a tutti.
Ho davanti VB6 ed č da poco che ci siamo incontrati.
Perň lavoro da qualche anno in asp.
Allora.
Devo fare una cazzatina che mi scarichi delle immagini da internet, 
prendendo i filename da un db.
Il problema č che non riesco proprio a usare il componente Inet.
Ho anche scaricato dei .vbp e non funzano neanche quelli.
1) creo il progetto
2) ci attacco il componente Microsoft internet transfer control 6
3) faccio una form, un pulsante
4) al click pulsante metto
Inet1.AccessType = icUseDefault
Inet1.URL = ("
http://www.mioindirizzo.it/cgi-bin/
")
Inet1.Execute , "GET, immagine.jpg C:\miofolder\webpub\immagine.jpg"    
Do While Inet1.StillExecuting
    DoEvents
Loop
Inet1.Execute , "CLOSE"
Cosa che grosso modo capisco, e comunque ne ho provate mille.
L'errore č: "OBJECT required".
Ma gli ho pur inserito il componente!
Cos'altro bisogna fare?

 Inet1.Execute , "GET, immagine.jpg C:\miofolder\webpub\immagine.jpg"
Prova a togliere quella virgola dopo il GET...

 
No il problema è con l'oggetto!
Come incontra Inet, mi dice Object required

*rozilipo* ha scritto:

Ma l'hai messo nel form?

 
come non detto, era un problema strano di "licenza" di msinet.ocx, 
praticamente metteva e non metteva l'oggetto, ho risolto con una patch 
da ms
Newsgroup: it.comp.lang.visual-basic
Titolo: Immagine Random

Vorrei far partire ad ogni caricamento del mio programma una immaggine
random fra un parco di 20 immagini diverse...
Come posso farlo in modo che le 20 suddette immagini siano tutte precaricate
nel file eseguibbile?
Tnx a lot,
Splash
http://www.opty.net/splash/

nel file eseguibbile?
Utilizzi un file di risorse che importi nel progetto di VB. Per caricare poi
la singola immagine utilizzi l'istruzione LoadResPicture
Ciao Bruno

Puoi caricarti le tue 20 immagini in una ImageList e con una funzione
random ti vai a scegliere di volta in volta un'immagine. Per la funzione
random come seme utilizza la funzione time.
-- 
Remove xxx from E-mail.


Esagerato ;-) un OCX di mezzo mega per 20 immagini! Si possono anche usare
(sono un po' scomode sulla form, ma si può fare) 20 controlli Image uniti in
un control array.
Paolo BOnzini

nel file eseguibbile?
Potresti ricorrere ad una imagelist con dimensioni personalizzate delle
immagini. Basta che carichi le immagini nella imagelist, poi, ad ogni avvio del
programma, aggiorni, ad esempio, il contenuto di un controllo image con la
stretch=true facendogli caricare una delle immagini inserite nella imagelist,
cioe':
Private Sub Form_Load()
   Dim n As Integer
   Randomize
   n = Int(20 * Rnd + 1)
   Image1.Picture = ImageList1.ListImages(n).Picture
End Sub
L'unico problema e' che sei legato ai file BMP e ICO, gli unici che una
imagelist puo' contenere.
~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~
Gabriele Bertolucci - NT4WKSITA+SP3 - VB5PROITA+SP3
pbe...@vi.ats.it
pbe...@freemail.it
 (alias)
pbe...@bigfoot.com
 (alias)
http://members.spree.com/sip/pberto/
http://userspace.ats.it/free/pberto/
 (alias)
http://www.fortunecity.com/skyscraper/spiff/523/
 (alias)
http://www.bigfoot.com/~pberto/
 (alias)
ICQ #: 9732192
~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] fourth dimension

mi stanno per consegnare un db realizzato in 4d, col runtime 6.5.
qualcuno lo conosce ? e' gestibile da vb ?
grazie, a.

 wrote in message
8qi4o6$fm4d5$1...@ID-51318.news.cis.dfn.de...



wrote:

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Seriale HD

Come posso leggere il numero seriale di un HD, sia esso formattato Fat12,
FAT16, FAT32 o NTFS ?
Grazie
Carlo Strano







FAT16, FAT32 o NTFS ?
Con la funzione API GetVolumeInformation. Nel caso ti serve per
"proteggere" un programma, ti conviene cercare un metodo piu' serio
perche il numero seriale dell'hard disk può essere cambiato mooolto
facilmente, sia con Win95 che con NT (
http://www.sysinternals.com
)
--
My e-mail address is:
j l s @ a c m . o r g

Newsgroup: it.comp.lang.visual-basic
Titolo: Come compilare HTM

Ho un sito personale 
xxxxx.com
La mia pagina principale risulta:
http://www.naglieri.com/
Ora vorrei creare una pagina che risulti cosě come tante ne vedo in giro:
http://yyyy.naglieri.com/
Qualcunio mi sa dire gentilmente come devo fare?
Uso FrontPage
Per i Jawa uso qualcosa di prefabbricato che trovo in rete.
Grazie dell'aiuto
Tullio Naglieri - Roma
tullion chiocciola naglieri punto com
WEB page:
http://www.naglieri.com


se ho ben capito tu vuoi una cosa 
http://qualchenome.naglieri.com
 .. se 
è questa la soluzioni che cerchi non è una cosa che puoi fare da programma.
Questi sono domini di terzo livello e lo puoi tranquillamente richiedere 
a chi ti fornisce il servizio per hostare il tuo dominio (
www.naglieri.it
).
A te non cambia nulla tranne che il dominio è 
nome.naglieri.it
Spero di esserti stato d'aiuto
-- 
[CapoBecchino]
Il becchino si sposa: in abito rigorosamente nero, con la sposa accanto 
parte in auto (nera) con le classiche bare attaccate al paraurti posteriore.
La sera, dopo cena, lei lo aspetta semisdraiata su letto, in un negligé 
che sembra una nuvola. Lui si prepara in bagno ed esce impeccabile: 
pigiama nero con i risvolti oro, viso impassibile, passo bilanciato; si 
avvicina alla moglie e dice:
- Signora, vuol baciarlo prima di metterlo dentro? (da Barzellette.it)

 Spero di esserti stato d'aiuto
Si grazie mille, lo sospettavo, il mio provider è aruba e lo fa naturalmente
a pagamento, beh per ora non mi serve volevo fare 
blog.naglieri.com
.
Ciao e grazie

Newsgroup: it.comp.lang.visual-basic
Titolo: macros in word

Ciao, è la prima volta che scrivo ad un newsgroup, ma credo che solo voi
potete aiutarmi. Ho bisogno di creare delle macros con word per formulare
degli esercizi didattici, del tipo eliminare tutte le preposizioni o gli
avverbi da un testo, etc. C'è qualcuno che potrebbe darmi una mano?
Grazie mille

 avverbi da un testo, etc. C'è qualcuno che potrebbe darmi una mano?
Potresti cominciare sperimentando con:
    Modifica > Sostituisci
e il registratore di macro attivato.
--
Ciao.
Maurizio
--------
?SPQR(C)
 X
--------
Newsgroup: it.comp.lang.visual-basic
Titolo: RS485...

Il mio tentativo di realizzare un convertitore  RS232-RS485 utilizzando il
Pin RTS per commutare da ricevitore a trasmettitore č fallito miseramente.
Infatti il Pin in questione si comporta come vuole lui!!! Con un pugno di
componenti, me la cavo meglio con il saldatore, sono riuscito ad aggirare
l'ostacolo. Se a qualcuno interessa posso inviare lo schema.
                                                                    P.S. Sta
funzionando egregiamente da due giorni...
Ciao a Tutti....Edy


wrote:


OK! Sono in ricezione...
Giuseppe <gzi...@NOSPAMtin.it> wrote in message
38896ea6...@news.tin.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Barra di avanzamento durante l'esecuzione di una query

E' possibile visualizzare una barra di avanzamento durante l'esecuzione di
una query?
Grazie per i suggerimenti.

Newsgroup: it.comp.lang.visual-basic
Titolo: Problema di sintassi

Salve a tutti.
Ho bisogno di cambiare il colore di circa 40 label di un form.
Tutto bene se scrivo:
Label1.backcolor=MioColore
Label2.backcolor=MioColore
Label3.backcolor=MioColore... e cosě via.
Potrei fare una matrice di label e con un ciclo For cambiarle tutte.
Ma io ora vorrei sapere se č anche possibile con un ciclo For cambiarle
tutte scrivendo:
(scusate se ora scrivo cose orribili)
For C = 1 to 40
  Label & " C " &.backcolor=MioColore
Next C
o qualcosa del genere; insomma č possibile indicare un oggetto creandone la
stringa? C'č una sintassi per scrivere 'a pezzi' il nomeoggetto?
Giorgio

 wrote in message 8ku6c2$4a8$1...@nslave2.tin.it...

crea una matrice di label (dai  a tutte lo stesso nome e dai index da 0 a n
nelle proprieta' )
quindi fai il tuo ciclo
for c =0 to n
    label1(c).backcolor = miocolore
next c

 o qualcosa del genere; insomma č possibile indicare un
oggetto creandone la stringa? C'č una sintassi per scrivere 'a
pezzi' il nomeoggetto?
    For c = 1 to 40
        Controls("Label" & c).BackColor = MioColore
    Next
--
Ciao.
Maurizio

Next C
e possibile in questo modo:
verifica il tipo di controlli presenti nel form e se sono label cambi il
colore l'esempio seguente colora lo sfondo delle label del form in rosso
Dim a As Control
For Each a In Form1.Controls
    If TypeOf a Is Label Then a.BackColor = RGB(255, 0, 0)
Next a
Ciao stefano

Newsgroup: it.comp.lang.visual-basic
Titolo: passare un parametro a un DATAREPORT

Salve a tutti,
ecco il mio quesito: ho un datareport costruito su una query SQL (uso
DataEnviroment e ADO). Il commandtext (cioč la stringa SQL) della query
viene modificato via codice in runtime . Vorrei inserire nel titolo del
report una variabile che viene letta nel Form. Come posso fare? Ho il timore
che c'entrino i parametri da passare alla query e purtroppo non ne ho mai
capito il funzionamento.
Grazie a tutti

Se ho capito la tua domanda, per modificare la caption del datareport
basta:
datareportname.caption = miavariabile
se invece vuoi modificare una label all'interno del datareport:
datareportname.Sections("Section2").Controls("Label3").Caption =
"AAAAAA"
Lore.

Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] Oleaut32.dll

Da quando ho installato sul mio portatile un software per la gestione delle
chiavi hardware mi compare, ad ogni avvio del notebook, che la versione di
OLEAUT32.dll non è più valida.
Dove trovo la versione valida ??
A cosa serve questo file ??
Grazie a tutti come sempre.
Claudio

 wrote in message
news:4yox5.39851$XZ4.5...@news.infostrada.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Estrapolare dati da un dispositivo wireless

Salve a tutto il NG.
Spiego il mio problema: io vorrei estrarre da una scheda PCMCIA Wireless il
valore in dB del segnale, eseguendo una campionatura a scopo statistico.
Qualcuno sa se devo fare riferimento ad una qualche API o se devo fare
riferimento a qualcosa di proprietario dei vari costruttori?
Grazie in anticipo a chi mi risponderà.
M.

 ha scritto nel messaggio
news:3dee8...@news.dada.it...

io penso sia meglio la seconda , cerca qualche produttore e manda delle
email di richiesta, visto mai che ti rispondano ?!
cmq prova anche san google con , chesso', "nome periferica + vb"

Newsgroup: it.comp.lang.visual-basic
Titolo: copia da floppy???

Devo importare il file pippo.zip dal floppy alla cartella
"c:\programmi\progetto1", ma il msg di risposta con il codice sotto è il
seguente:
"Autorizzazione negata". Uso Win98 e non sono collegato in rete....
retNomeFile = "pippo.zip"
ChDir ("c:\programmi\progetto1")
 retFileSuA = "A:\" & retNomeFile
 FileCopy retFileSuA , retNomeFile
Grazie a tutti
GiP

"GiP" <*_*
tecno...@libero.it
*_*> ha scritto

FileCopy Statement
Copies a file.
Syntax
FileCopy source, destination
The FileCopy statement syntax has thesenamed arguments:
      Part Description
      source Required.String expression that specifies the name of the file
to be copied. The source may include directory or folder, and drive.
      destination Required. String expression that specifies the target file
name. The destination may include directory or folder, and drive.
Remarks
If you try to use the FileCopy statement on a currently open file, an error
occurs.
ciao, a.

"GiP" <*_*
tecno...@libero.it
*_*> ha scritto nel messaggio
news:a5rr2c$qb7$1...@lacerta.tiscalinet.it...

Forse che devi indicare il percorso completo del file di destinazione?
Esempio:
retNomeFile = "pippo.zip"
retFileSuA = "A:\" & retNomeFile
FileCopy retFileSuA , "c:\programmi\progetto1\" & retNomeFile
--
Esteban
Hosted by 
www.seber.it
(Remove nonspammare for reply)

 The FileCopy statement syntax has thesenamed arguments:
[snip]
Che strano... ho letto la stessa cosa sull'help in linea!
Con il vantaggio che era pure in italiano!
Ciao

"GiP" <*_*
tecno...@libero.it
*_*> wrote in message
news:a5rr2c$qb7$1...@lacerta.tiscalinet.it...

Controlla se il file era ancora aperto o puntato da qualche parte
(ad es.: Gestione Risorse").
--
Er Roscio.
Newsgroup: it.comp.lang.visual-basic
Titolo: colori nelle form

ciao a tutti vorrei sapere come fare per dare alle form un colore
diverso da quelli proposti,per esempio sfumato . si può fare ?
grazie
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 diverso da quelli proposti,per esempio sfumato . si puņ fare ?



Per avere un colore sfumato nel form, all'evento paint puoi inserire questa
funzione
ciao
Ste
****************************
Public Sub OmbreggiaturaForm(Color As Integer, frm As Form)
Dim Conta As Integer, DS As Integer, DW As Integer, SM As Integer
Dim SH As Integer
DS = frm.DrawStyle
DW = frm.DrawWidth
SM = frm.ScaleMode
SH = frm.ScaleHeight
frm.DrawStyle = vbInsideSolid
frm.DrawWidth = 2
frm.ScaleMode = vbPixels
frm.ScaleHeight = 256
For Conta = 0 To 255
    Select Case Color
        ''''' ROSSO
        Case 0
            frm.Line (0, Conta)-(frm.Width, Conta + 1), RGB(255 - Conta, 0,
0), B
        ''''' VERDE
        Case 1
            frm.Line (0, Conta)-(frm.Width, Conta + 1), RGB(0, 255 - Conta,
0), B
        ''''' BLU
        Case 3
            frm.Line (0, Conta)-(frm.Width, Conta + 1), RGB(255 - Conta,
255 - Conta, 0), B
        ''''' ROSSO - VERDE
        Case 4
            frm.Line (0, Conta)-(frm.Width, Conta + 1), RGB(255 - Conta,
Conta, 0), B
        Case Else
            MsgBox "Colore non impostato.", vbInformation + vbOKOnly
            Exit For
    End Select
Next Conta
frm.DrawStyle = DS
frm.DrawWidth = DW
frm.ScaleMode = SM
frm.ScaleHeight = SH
End Sub

Newsgroup: it.comp.lang.visual-basic
Titolo: SOS sui controlli SHERIDAN

Aiuto.
Fino a ieri avevo installato sul mio PC sia VB 4 16 bit che 32 bit.
Mi sono creato una maschera (VB 4 16bit) che conteneva dei controlli
Sheridan (tasti e opzioni). Poi ho pensato "Cancello VB 32 bit, che 
tanto non uso, presto installerň la versione 5.0". Detto fatto.
Riapro la maschera contenente i miei bottoni Sheridan (che belli, 
potevo inserirgli una immagine) e........
'Impossibile aprire la maschera, non hai il permesso (o licenza) per
questi controlli'
E ora ? Non posso piů installare la 32bit perchč non era mia.
Che posso fa' ?
Grazie a tutti.
Gianfranco
La...@usa.net



Nella directory \Tools\Controls del cd di VB5 sono contenuti i
seguenti ocx (non piu' supportati).
This directory contains all of the ActiveX Controls that shipped with
Visual 
Basic 4.0 Professional and Enterprise Editions, which are no longer
shipping 
with Visual Basic 5.0.
AniBtn32.ocx
Gauge32.ocx
Graph32.ocx
  Gsw32.EXE
  Gswdll32.DLL
Grid32.ocx
KeySta32.ocx
MSOutl32.ocx
Spin32.ocx
Threed32.ocx
Comunque anche i bottoni Microsoft VB5 possono contenere immagini
basta settare la proprieta' Style a 1 - Graphical
Ciao
 
pro...@pulp-fiction.com
Newsgroup: it.comp.lang.visual-basic
Titolo: Print

Quando faccio una PRINT su file di una stringa do 2.800 caratteri, mi trovo 
sempre un carattere in + , come posso eliminare questo problema ?

 sempre un carattere in + , come posso eliminare questo problema ?
Solo uno?
Avrei pensato almeno due, chr(10) e chr(13), anche se non ricordo
esattamente in quale ordine.
Prova a mettere un punto e virgola alla fine del comando.
-- 
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

Newsgroup: it.comp.lang.visual-basic
Titolo: VSFlexGrid e mdb

Ho bisogno di realizzare l'apertura di un mdb (diverso per cliente),
successiva modifica e salvataggio.
Ho configurato il comando adodc1 con il file mdb di base (strutturato)
che poi copierò con nome diverso per ogni nuovo cliente.
Ho collegato una griglia VSFlexGrid con adodc1.
All'avvio del programma mi viene visualizzato l'mdb di base e fin qui
tutto OK.
Se si tratta di nuovo cliente, copio il file mdb di base daldogli il
nome del nuovo cliente,
Poi, in esecuzuione, devo modificare la proprietà:
adodc1.connectionString=Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=PERCORSO\NomeFile.mdb;Persist Security Info=False
Già questa modifica, effettuata in esecuzione, non va in porto; cosa
sbaglio?
In ogni caso il collegamento è perfetto per la prima parte e in
griglia vedo un record messo lì per prova.
Al cambiamento del file, come dicevo, già non vedo l'effetto del
dirottamento.
Poi nella griglia modifico il record esistente per prova e ne aggiungo
altri ma questi non vengono scritti direttamente nel mdb e infatti li
perdo.
Cosa devo fare?
mi potete aiutare?
Grazie
Tommaso

 perdo.
E infatti la flex funziona solo in lettura
-- 
Greg 


sai dirmi cosa devo fare?
grazie, ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: Intercettare eventi in modo GLOBALE....

Ciao a tutti... ho un problema che mi attanaglia da almeno un mesetto...
Ho una form su cui ci sono degli oggetti... di cui però non conosco a priori
ne il numero e ne il tipo... Ad esempio: può capitare che in un certo
momento vi siano 2 Label ed 1 TextBox, ed in un altro momento 2 Command e 3
Option, ecc...
Ho bisogno di "intercettare", quando viene scatenato, un qualunque evento di
qualunque oggetto contenuto sul form...
Potrei risolvere la cosa inserendo DENTRO OGNI EVENTO la seguente riga di
codice:
   Msgbox "E' stato scatenato l'evento: " & Nome_Evento & " sull'oggetto: "
& Nome_Oggetto
... ma naturalmente riempirei il progetto di una quantità enorme di codice
rindondante...
Esiste un modo per evitare di scrivere del codice dentro ogni singolo evento
ed intercettare un qualsiasi evento in modo globale?
DB

 ed intercettare un qualsiasi evento in modo globale?
Potresti subclassare il form e  metterti in alert solo per i messaggi relati
agli eventi dei controlli contenuti.
Tutto questo in teoria ... di più non saprei.
Saluti

Tutto questo in teoria ... di più non saprei.
Immaginavo che la strada da percorrere fosse quella del SubClassing...
Ma non saprei proprio che messaggi intercettare (come si chiamano) e
tantomene come scrivere il relativo codice... hai qualche link o
suggerimento?

"Diavoletto Biondo" <a@b.c> ha scritto nel messaggio
news:ao10qg$9hh$1...@serv1.albacom.net...

Per avere un'idea della massa di eventi che girano, attiva lo Spy++
Ciao
Alberto

Newsgroup: it.comp.lang.visual-basic
Titolo: VB6 Stampa su acrobat

Ho i seguente codice che mi permette di stampare un documento word. E fin 
qui tutto ok.
Se lancio la stampa su una stampante adobe, il seguente codice mi funziona 
come convertitore del file
word in pdf.
Ho questo problema pero'. Ogni volta mi esce la mascherina di salva con nome 
del file pdf.
Quindi devo premere ok e, solo allora, il programma mi visualizza il file 
pdf appena convertito dal file di word.
Qualcuno ha avuto lo stesso problema. Avrei bisogno di sapere come fare per 
bypassare la richiesta del nome da dare al pdf.
Grazie per l'attenzione.
 Set WordApp = CreateObject("Word.Application")
   WordApp.Visible = False
   WordApp.ActivePrinter = NomeStampante
   WordApp.Documents.Open FileName:=NomeFileWord
   WordApp.ActiveDocument.PrintOut Background:=False
   WordApp.ActiveDocument.Close 

 pdf appena convertito dal file di word.
Prova a vedere se può esserti utile:
http://www.hwupgrade.it/forum/showpost.php?p=14978457&postcount=8612
ciao
stefano

 stefano
Ho risolto scaricanco PdfCreator. Mi installa una stampante pdf Con questo 
programma posso decidere di salvare l file automaticamente e inoltre posso 
decidere dove salvarlo.
Grazie cmq per il link mi tornerà utile.
Newsgroup: it.comp.lang.visual-basic
Titolo: IN VB6 ESISTE ROTATE

Ciao ragazzi,
volevo chiederVi se in VB6 esiste la possibilità di usare tipo rotate per
far girare una picture di 90°,180°
ciao e grazie a quanti mi risponderanno
--
ELETTRONIC SYSTEM
VIA FRATTE 55
35010 SANTA GIUSTINA IN COLLE
PADOVA
SISTEMI DI SICUREZZA
WEB: 
www.elettronicsystem.com
email: 
in...@elettronicsystem.com

 ha scritto nel messaggio
news:3qI85.28940$2s6.3...@news.infostrada.it...


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

ho un form con una tabstrip di 4 schede, sulla prima scheda ho una decina di
controlli ed un pulsante che al click fa partire un argomento della guida,
quando viene visualizzata la guida i controlli sfarfallano e dall'aspetto 3d
passano all'aspetto flat.
Qualcuno puņ darmi qualche aiuto, grazie.
Ciao
Marco


--------------------
Ciao
Subito dopo il click, prova a forzare il rinfresco (Refresh) del controllo.
Spero che possa servire.
Marco Minerva
http://www.geocities.com/SiliconValley/Foothills/7260/
http://www.armaditaggia.com/marco
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Recuperare indirizzo smtp

Salve a tutti,
sto scrivendo un programma che, tra le altre cose, invia un'email. Per
l'invio dell'email utilizzo ovviamente il protocollo smtp (sul sito comune
ho trovato documentazione a riguardo, ma ce ne è molta in giro per la rete).
Solo che c'è bisogno di specificare il server smtp... Siccome il mio
programma verrà utilizzato prevalentemente da utenti molto poco esperti di
pc, non vorrei dover spiegare a tutti dove prendere tale indirizzo. So che
per gli utenti windows l'indirizzo smtp viene memorizzato in determinati
file di outlook/outlook express, so anche quali sono questi files e dove si
trovano sul disco... Però non so come accedere a tali files! Esiste un modo
per leggerli direttamente? O magari passando per outlook/outlook express?
Grazie
Antonio Mirarchi

 ha scritto: 
 AM> Salve a tutti, 
 AM> sto scrivendo un programma che, tra le altre cose, invia un'email. Per 
 AM> l'invio dell'email utilizzo ovviamente il protocollo smtp (sul sito 
 AM> comune ho trovato documentazione a riguardo, ma ce ne č molta in giro 
 AM> per la rete). 
ciao, 
tra i vari esempi, ti segnalo anche questo che, se non ricordo male (non ho 
con me VB), implementa anche il codice per effettuare le query DNS per 
ottenere il record MX relativo al dominio di posta al quale stai inviando 
l'email. In pratica, invece di utilizzare il server SMTP del proprio 
provider di accesso alla rete, contatta ogni singolo server SMTP relativo 
allo specifico dominio. 
In questo modo, non e assolutamente necessario conoscere, a priori, il 
server SMTP utilzzato da client come OL o simili. 
Ciao 
http://www.freevbcode.com/ShowCode
. Asp?ID=109 
-- 
Gianluca Cannalire 
Microsoft Visual Basic MVP/MCP 
http://www.visual-basic.it
 (from the beach 
with PocketPc) 

 server SMTP utilzzato da client come OL o simili.
Bhe grazie per la tua risposta! In effetti quella DLL e proprio quella che
uso per l'invio dell'email... E come soluzione sarebbe perfetta... Ma ho
letto la documentazione della DLL a proposito delle MXQUERY e dice <<The
MXQuery Method may not return a valid SMTP host in all scenarios>>. E, in
effetti, se io utilizzo questo metodo su me stesso (ho fastweb adsl) mi
ritorna un'indirizzo che NON E' quello del mio smtp di dominio! Purtroppo
questa, pur essendo la soluzione perfetta, non mi risolve il problema visto
che non posso prevedere a priori se i miei utenti utilizzeranno il programmo
su fastweb!
Ti ringranzio comunque molto
Antonio Mirarchi
Newsgroup: it.comp.lang.visual-basic
Titolo: Archivio ODBC con Word

Si può aprire un archivio attraverso ODBC in Word97 ?
Io non ho trovato nessun modo.
Grazie.
Stefano

Ci sono driver odbc per excel (mai provati) ma che io sappia nulla per word.


Puoi utlizzare MSQuery aprire una fonte dati con uno qualsiasi dei driver
che hai installati sulla macchina e poi restitutire i dati a Word.
CIAO ;-)

Newsgroup: it.comp.lang.visual-basic
Titolo: Convertire programma da Access a VB6

Come posso fare?

 Come posso fare?
Sito comune.
ciao
ugo

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

Vorrei acquistare la versione standard di 
VB.NET
,
ma quando sarà in vendita la versione 2003 ?
Se adesso acquisto la versione "vecchia" , uscirà una
service pack (gratis?) che la renderà uguale alla 2003 ?
Grazie
*FeDe*

La versione 2003 sarà rilasciata in concomitanza con Windows Server 2003
quindi intorno ad Aprile 2003, per chi ha una regolare licenza di VS2002
sarà possibile (per un periodo limitato) richiedere la'ggiornamento alla
versione 2003 al solo costo delle spese di gestione e spedizione (qualche
decina di Euro)
HTH
-- 
Corrado Cavalli [Microsoft MVP]
UGIdotNET - 
http://www.ugidotnet.org

 ha scritto nel messaggio
news:2vXY9.50258$ZE.14...@twister2.libero.it...

Solo x chi ha VS:NET o anche se ho 
VB.NET
 ?

 decina di Euro)
31 euro
giuseppeD

Newsgroup: it.comp.lang.visual-basic
Titolo: Forms 2.0...Help me!!

Oggi ho provato ad inserire un "Microsoft Form 2.0" ma ho avuto il seguente
problema.
    Finche' il form era vuoto me lo ha caricato tranquillamente, ma appena
inserisco un "qualsiasi" oggetto (textbox, bottoni, label, etc.) non me lo
carica e mi segnala il seguente errore:
    run time '370' informazioni Activex non corrispondenti a quelle
salvate.Impossibile caricare.
    Che devo fare ??
grazie in anticipo
CONFIGURAZIONE : VB6   e WinNT server 4.0 (service pack 3)

...

Prova a dare un'occhiata a questo articolo:
http://www.microsoft.com/intlkb/italy/i15/5/33.htm
Omar

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

Ciao a tutti come posso memorizzare in una variabile solo la parte decimale
di una divisione?
C'è una funzione io ho provato a usare la funzione CDEC ma senza grossi
risultati.
Se è una cosa difficile potete postarmi anche la parte di codice per
ottenere la parte decimale.
Scusate la mia ignoranza e grazie a chiunque mi risponderà.
Barbara

Il modo più semplice che mi viene in mente è
Dim dDec As Double
Dim dVar As Double
dVar = 13334232.9444
dDec = dVar - Int(dVar)
in dDec hai la parte decimale.
Ciao Andrea

Newsgroup: it.comp.lang.visual-basic
Titolo: Form in primo piano

Ciao ragazzi
Devo fare un'applicazione con un form che rimanga sempre in primo piano
Sapete darmi un aiuto
ciao
giuseppe_d...@retittv.com
Giuseppe De Franceschi
|---------------------------------------------------------------------------
|
| RE.T.I. T.T.V. SRL
|
| NETWORKING & TELECOMUNICATION ENGINEER
|
| WEB:         
www.retittv.com
|---------------------------------------------------------------------------

 Sapete darmi un aiuto
Devi usare l'API SetWindowsPos
Ciao
Lele



Newsgroup: it.comp.lang.visual-basic
Titolo: Utenti su un MDB

Ho creato un applicativo senza alcuna gestione degli utenti pur essendo
sviluppato per essere adoperato in rete.
JET compie bene il suo dovere e cio' per ora mi basta, vorrei pero' dare
all'utente una segnalazione se qualcun'altro e' sullo stesso record in quel
momento.
C'e' un modo sbrigativo per avere questa informazione?
Grazie.
M. Scordamaglia

...


Confermi che la nuova versione di jet (access 2000) ha il blocco a livello
di record? Ho letto delle recensioni (forse un pò sbrigative) e il
miglioramento non era segnalato.
Grazie

Confermo. L'ho anche provato e funziona. E' chiaro che il database deve
essere in formato Jet 4.0 (lo dico perche' e' possibile leggere anche i .mdb
in formato 3.5, ma non supportano il lock a livello di record). Comunque
tale miglioramento e' stato segnalato da Microsoft molti mesi prima
dell'uscita di Access 2000: tale miglioramento riguarda anche SQL Server 7.
Per la cronaca, vorrei far notare che sui sistemi IBM (S/36 ed As/400) il
lock a livello di record esiste da vent'anni.
Fabio Pagano
Krusty ha scritto nel messaggio ...


 Usi ADO? O usi DAO? O ODBCDirect?
DAO
Grazie in anticipo.
M. Scordamaglia

...
---CUT


 sapere, in caso avessi bisogno di chiarimenti.
Qui tocchi un tasto dolente. So che con ADO si ha il blocco di record, ma ho
in corso lo sviluppo di un grosso applicativo sviluppato con VB5 e DAO e
ormai in fase avanzata.
A tuo avviso quante lacrime e sangue dovrei versare per passare a VB6 e ADO?
Sto sentendo pareri discordanti in merito!
Intanto grazie!
M.Scordamaglia

Sto sentendo pareri discordanti in merito!
Da Vb5 a Vb6 non molte (tra l'altro Microsoft ha fatto un convertitore
automatico...). Inoltre non c'e' bisogno di Vb6 per ADO (se non usi data
controls).
Per il passaggio DAO->ADO ho il tuo stesso problema: ho sviluppato
tonnellate di codice in Vb5+DAO. Passare ad ADO? Se devi continuare ad usare
solo il Jet, non c'e' molto da modificare (ADO 2.1 supporta anche le Seek),
ma mi sembra inutile. Se ti vuoi aprire ad altri database (SQLServer,
Oracle, Db2/400), e nel tuo codice DAO hai usato molto la "Seek", sappi che
in questo caso c'e' parecchio da modificare, in quanto l'unico OleDb
provider che supporta la Seek e' appunto quello del Jet. Con tutti gli altri
database dovrai sostituirla con altro: sappi che in ADO non esiste la
FindFirst; la Find accetta una sola colonna; la Filter e' lenta e non usa
gli indici. ADO risulta interessante soprattutto per l'elaborazione
asincrona. Se vuoi un consiglio, accertati che nel database tutte le tabelle
abbiano chiavi univoche primarie, altrimenti ADO ti fa degli scherzetti
niente male. To be continued...
Fabio Pagano
Newsgroup: it.comp.lang.visual-basic
Titolo: Riordinare le colonne in un true db grid

Ho un problema nel riordinare i dati dentro una
true db grid.
Che succede ... la true db grid è popolata dall'xarraydb
e carica un layout da file.
Bene ... il layout a video è perfetto ... se ordino
le colonne così come sono ... sò che a colonna x
corrisponde la colonna del db x ... e quindi non ho problemi.
Ma se sposto le colonne nella true db ... allora iniziano
i guai. Infatti dopo aver spostato più di una colonna (con una
sola funziona l'evento head_click e sto a posto) ... l'evento
head_click non viene generato ... e non sò che colonne ho
spostato.
Questo parziale problema l'ho risolto alla grande con un array
che popolo nell'evento click.
Bene andiamo oltre ... dopo aver spostato le colonne ... se
interrogo la true db grid e gli chiedo che colonne ho alla posizione
2 ... lui mi dirà 2 ... con tutte le proprietà impostate a 2 ... quando
magari alla colonna 2 ci ho messo la colonna 0 e 2 inevitabilmente
e slittata alla posizione 1 ...
Non sò se sono stato chiaro ... ho pensato allora di tenere traccia
degli spostamenti nell'evento col_move ... ma mi sto impicciando
il cervello nel fare  la routine che gestisce lo spostamento multi
colonna.
Nel frattempo che arriva la neuro, qualcuno ha qualche soluzione
qualche idea ... tip o altro che posso leggere oltre alla scarsa
documentazione della component one di cui non funziona nemmeno
il server news ... e il supporto sembra non esistere??..
Ciao Andrea


prova con quanto segue
Option Explicit
Dim NuovoIndice As Integer
Dim VecchioIndice As Integer
Private Sub TDBGrid1_Click()
     VecchioIndice = TDBGrid1.SelStartCol
     Debug.Print "Visualizza la Posizione del Vechhio Indice;" &
VecchioIndice
End Sub
Private Sub TDBGrid1_ColMove(ByVal Position As Integer, Cancel As Integer)
     Cancel = False
     NuovoIndice = Position
     Debug.Print "Visualizza la Posizione del Nuovo Indice;" & NuovoIndice
End Sub

Questo è inerente ad una e solo una colonna.
Già avevo visto dentro agli esempi che forniscono
alla componentone ...
Il mio problema - ribadisco - è inerente allo spostamento
di più colonne.
Ciao Andrea