mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: ADO - accesso a database protetto

Ciao a tutti ...
Ho attivato su un database (Access 97) la protezione a livello di utente,
impostando degli user account con i relativi permessi.
Quando devo accedere al database seleziono il file del gruppo di lavoro
attraverso il
programma Wrkgadm , digito "luca" come username lasciando Blank la password
ed entro nel database con quel determinato  profilo utente.
Quando voglio far fare questo al mio programma qualcosa non funziona ...
Per connettermi uso il seguente codice:
Private Const m_PercorsoWorkgroup = "c:\windows\system"
Private Const m_NomeWorkgroup = m_PercorsoWorkgroup & "\Pippobaudo.mdw"
....
    Dim Cn As New ADODB.Connection
    Const ConnectionString = "F:\Database Immobili\db1a.mdb"
    DBEngine.SystemDB = m_NomeWorkgroup
    Cn.Provider = "Microsoft.Jet.OLEDB.3.51"
    Cn.Open ConnectionString, "luca"
l'errore di ritorno é :
errore di runtime :-214767259 (80004005)
Impossibile avviare l'applicazione il file di informazioni sul gruppo di
lavoro è mancante o aperto in modo esclusivo da un altro utente
visto che il percorso del file di informazioni sul gruppo di lavoro l'ho
preso direttamente dal "Wrkgadm" non so a cosa possa essere dovuto questo
errore.
Vi prego aiutatemi !!!?!?!?!?!?!?
Grazie.
    Luca

 wrote in message
8qs4a3$m32$1...@lacerta.tiscalinet.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Selezione nel ole

Ho inserito un documento word dentro ad un ole..
Però il tutto mi rimane statico.. c'è un modo per attiva la selezione ad
esempio di testo?
GRazie

 ha
scritto:

prova cosi...
call ole1.DoVerb (vbOLEPrimary)
ti consiglio di guardarti tutti i parametri del metodo DoVerb.
Ciao.
--------------------------------
Inviato via 
http://usenet.libero.it

Grazie, perň cosi mi apre la pagina word...
Io vorrei non farla aprire ma permettere la selezione direttamente dal ole..

Grazie cmq ora ci guardo..

 ha scritto nel messaggio
news:213Z26Z221Z98Y1...@usenet.libero.it...


 mi puo dare un mano? non riesco..
dici a me??? se si puoi darmi pure del tu ;)
guarda io di solito quando non sono molto sicuro su quello che scrivo evito
di rispondere ai post, nel tuo caso ho visto che nessuno lo faceva quindi ho
cercato di aiutarti pur non essendo ferrato in materia.
comunque tornando a noi cito da msdn....
ole1.DoVerb VbOLEShow : Attiva l'oggetto per la modifica. Se l'applicazione
in cui è stato creato l'oggetto supporta l'attivazione diretta, l'oggetto
verrà attivato all'interno del controllo contenitore OLE.
Quindi penso sia proprio quello che chiedevi, io ho anche provato, su tre
tentativi la prima volta mi è partito Word, le seconde due il documento si è
aperto in modifica dentro il contenitore. Non chiedermi il motivo perchè lo
ignoro!!!
Ti auguro che qualcuno più skillato di me e di buon cuore si imbatta nel tuo
post e possa darti una mano.
ciao.


ok ti do del tu
Ti ringrazio ora provo..
Ciao

Sono riuscito però mi appare la barra di word... ci sarà un modo per
toglierla completamente?
visualizzando solo il testo?
Ciao e grazie
Newsgroup: it.comp.lang.visual-basic
Titolo: array e ricerca

Salve a tutti.
Volevo chiedervi se e' possibile su un array ad uno o a due indici,
effettuare un "seek", una ricerca mirata e se si come, oppure occorre
scorrerlo tutto fino a verificare la ricerca o la fine dell'array.
Grazie

 scorrerlo tutto fino a verificare la ricerca o la fine dell'array.
    Nel caso di array di stringhe ad una dimensione potresti considerare il
metodo che illustro con l'esempio qui sotto. Pero', prima di usarlo in
applicazioni critiche, leggi gli eventuali commenti dei colleghi del ng.
' A Roberto Piazzolla
'
Option Explicit
Private Sub Main()
  On Error GoTo errh
  Const c_sDelim = vbTab
  Dim a_sNames(9) As String
  Dim sSeek       As String
  Dim a_sFound()  As String
  Dim lIndex      As Long
  Dim lItem       As Long
  a_sNames(0) = "Pippo"
  a_sNames(1) = "Pluto"
  a_sNames(2) = "Paperino"
  a_sNames(3) = "Qui"
  a_sNames(4) = "Quo"
  a_sNames(5) = "Qua"
  a_sNames(6) = "Topolino"
  a_sNames(7) = "Gambadilegno"
  a_sNames(8) = "Basettoni"
  a_sNames(9) = "Manetta"
  sSeek = "ino"
  a_sFound _
    = Split( _
          UCase$(Join(a_sNames, c_sDelim)) _
        , UCase$(sSeek))
  Debug.Print _
      "'"; sSeek; "'" _
    ; " trovato"; UBound(a_sFound); "volta/e:"
  For lIndex = LBound(a_sFound) To UBound(a_sFound) - 1
    lItem _
      = lItem _
      + Len(a_sFound(lIndex)) _
      - Len(Replace(a_sFound(lIndex), c_sDelim, ""))
    Debug.Print lItem, a_sNames(lItem)
  Next
ext:
  Debug.Print
  Exit Sub
errh:
  With Err
    MsgBox .Description, vbCritical, "ERR#" & .Number
  End With
  Resume ext
End Sub
OUTPUT:
'ino' trovato 2 volta/e:
 2            Paperino
 6            Topolino
--
Ciao :-)
Maurizio
--------
?SPQR(C)
 X
--------

Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] Tremendo OutlookExpress 5 - Attenzione

E' la seconda volta che mi capita.
Ho più account di posta con diversi provider. Per tenerli 'vivi' mi tocca
ogni tanto collegarmi ai vari provider direttamente.
Se mi distraggo e vado a controllare le News con il provider sbagliato (per
intendere, non quello presso il quale ho impostato l'account delle News in
OE), lo stesso OE mi elimina tutto quanto ho gelosamente conservato per
lunghi mesi di scaricamento. Sigh!
Credete che esista una patch per questo problema? (A parte la maggiore
attenzione da parte mia o il buttare via OE).
Grazie
Federico

 ha scritto


 attenzione da parte mia o il buttare via OE).
Azzardo. La casella:
Strumenti >Account... >News "NomeAccount" >Proprieta' >Connessione >Connetti
sempre all'account utilizzando "NomeConnessione"
e' spuntata?
--
Ciao.
Maurizio

 e' spuntata?
grazie :)
non lo era.
rimane il dubbio: perche' tin si azzera e libero no ?
neanche libero era spuntata.
e' una cosa troppo russa per me.

 Libero, invece, mi pare sia accessibile da tutti.
incurante del possibile azzeramento, ho provato a cliccare ora iclvb su
libero.
mi propone di disconnettermi da tin e avviare a.r. su libero.
Newsgroup: it.comp.lang.visual-basic
Titolo: Aiuto Help VB6!!!

Ciao a tutti,
mi chiedevo se qualcuno sa dirmi come posso fare un help in VB6...Se
potete aiutarmi mi fate un grosso favore. Vi ringrazio da subito,
ciao!

 wrote in message
2grg9s0dspn7pbc64...@4ax.com...


Newsgroup: it.comp.lang.visual-basic
Titolo: Problema su cancellazione file con KILL

In un programma copio un file da una directory ad un'altra con FILECOPY
esegue
una serie di operazioni poi cancello il file con KILL; a questo punto mi si
presenta
l'errore 75 Path/File access error, la cosa curiosa è che se eseguo la KILL
all'interno
di un LOOP dopo una cinquantina di tentativi l'operazione va a buon fine ...
Vi è mai capitato ?
Grazie.
Roberto

La cosa è un po' sibillina. Potresti postare il pezzo di codice che ti dà
errore?
--
________________________________
Raffaele Tripodo
E-Mail:              
raff...@conmet.it
MSN Messenger: 
px...@hotmail.com
¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯


non č che funziona solo dopo che ha finito di copiarlo?
ciao
Enrico


cosi' a lume di naso la prima
soluzione che mi viene in mente potrebbe essere la gestione dell'errore...
con la classica On Error goto...
ciao
Enrico

 wrote in message
news:1rDo5.119288$dF5.1...@news.infostrada.it...


file, l'unico modo di saperlo e' cercando di rinominarlo o cancellarlo.
E se invece succedesse ad una directory?
Io con una Sub cancello il contenuto di una serie di directory, ma non
riesco a cancellare la directory che conteneva i file.
Naturalmente non c'e' piu' nulla nella directory, ne' file ne'
sottodirectory.
In questo caso come potrei fare?
Grazie
Bye,
   Ricky

 wrote in message
news:39ab7a02...@news.iunet.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] - Quotare i messaggi

Vedo che da qualche tempo la pratica del quoting corretto non viene più 
rispettata. Personalmente non amo i messaggi che indicano che si quota 
male, tipo 'a proposito, impara a quotare'. Solo che oramai sempre più 
spesso faccio fatica a seguire i messaggi e qualcosa la devo fare...
Generalmente prima di inviare un messaggio si dovrebbe seguire il gruppo 
per un certo periodo, onde comprendere il tono ed i livello dei 
messaggi.
Al contempo una lettura della guida al comportamento nella rete non 
guasterebbe:
http://it.wikipedia.org/wiki/Netiquette
Per quelli che non hanno tempo e vogliono solo sapere come si quota 
correttamente ecco qui:
http://wiki.news.nic.it/QuotarBene
Outlook Express ha un bug nella gestione del quoting. A tale proposito 
esiste un programma gratuito che si chiama OE Quotefix che è caldamente 
raccomandato. Si scarica da qui:
http://www.pidownload.it/p.aspx?is=1125230
Per chi quota male e non ha interesse a rendere la vita agli altri più 
semplice non resta che tutta la mia disapprovazione ed un posto caldo 
caldo nel mio kill file.
Adieu.
-- 
-> GbC|
www.gbcweb.com
www.chiappori.com
 

 spesso faccio fatica a seguire i messaggi e qualcosa la devo fare...
Mi sa che è una battaglia contro i mulini, che se vuoi puoi interpretare 
  come strutture atte alla macinazione di materiali di vario tipo, 
oppure come mammiferi di piccola taglia particolarmente cocciuti.
Io propenderei per la seconda :-)
ciao
stefano

 Io propenderei per la seconda :-)
E' che molti non sanno neanche la differenza fra NG e forum... :\
Non è raro trovare qualcuno che fa UP nei suoi post -_-'


Fortunatamente sono per lo più troll, niubbi e lamer a quotare col cu#o, 
quindi non si perde molto a ripopolare il kill file.


Newsgroup: it.comp.lang.visual-basic
Titolo: Raedy for SP4

Buon dowload!
http://msdn.microsoft.com/vstudio/sp/vs6sp4/default.asp
Corrado

Intendevo,ovviamente dire Ready, la tastiera mi ha gabbato...
Ciao ;-)
C

Senti questa:
Ho chiamato M$ per ordinarlo via Posta ordinaria (Essendo 50 Mb) e mi
dicono: "Esiste solo Sp3. forse l'Sp4 è solo in inglese!"
Gli detto l'indirizzo
http://msdn.microsoft.com/vstudio/sp/vs6sp4/default.asp
e mi dice: "Ha si ma questo vale solo per gli abbonati MSDN!"
ed io: "Ma posso scaricarlo tranquillamente senza nessuna password!"
e lei: "Avranno sbagliato ad inserire quella pagina!"
NO COMMENT



And the winner is: ... Microsoft Italia!
Roal Zanazzi

E' risaputo che l'assistenza M$ č piuttosto scarsa.
Come appunto aggiungo che l'SP4 č disponibile (in dowload) in tutte le
lingue
Io ho scaricaro e installato SP4-Eng e (sembra) funzionare tutto
Ciao
Corrado
Newsgroup: it.comp.lang.visual-basic
Titolo: Set simboli grafici

Qualcuno sa indicarmi come fare a creare un set si fimboli grafici
personalizzato da usare in una picture? (ad esempio crocette,
asterischi,quadrati,ecc)
Da notare che non vorrei utilizzare il testo (e quindi l'istruzione print)
Ciao a tutti
Peter
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 asterischi,quadrati,ecc)
semplice ti fai delle func cosi :
sub drawCrocetta(Centrox,Centroy,Dimensione)
picture.line(centrox-(dimensione/2),centroy-(dimensione/2))+(centrox-(dimens
ione/2),centroy+(dimensione/2))
end sub
poi la chiami con :
drawCrocetta (100,200,500)
logicamente schiaffale tutte in un modulo per ordinare un po il progetto e
pensa bene a quali parametri passare ecc...
-- 
<Gigio2K>
Sito Comune
Nokia -> I.T.H.N. -> 
http://www.ithn.it/
VB -> I.C.L.VB -> 
http://www.it-lang-vb.net/

Newsgroup: it.comp.lang.visual-basic
Titolo: Programma Vb rimane in memoria su ME

Ciao a tutti, un'info ho un programma che funziona benissimo su xp,
chiudendo il programma
con end non rimane traccia nel task maneger. Con ME invecie rimane appeso,
tante volte aperto
tante volte rimane il memoria creando problemi all'applicativo.
Idee ?
Grazie


Ciao
Aran Banjo
-- 
web: 
www.ponchio.it
 (non aspettatevi molto)
Replay to: *[[banjo]]spamdim..@**
ponchio.it
**
"Il cul è per la gente dotta, per il villan c'è la potta"
"E' un vero peccato che tutte le persone che sanno come far
funzionare il paese siano troppo occupate a guidare taxi o
a tagliare capelli" - George Burns


.... Si, oltre a non usare End... non usare ME!
Ciao, Vincenzo

 ha scritto nel messaggio
news:B%wHc.44205$c_1.1...@twister1.libero.it...


> se nn uso end ke posso usare?
Unload Me
bye (oppure Uninstall ME...)
-- 
Esistono 10 tipi di persone: chi conosce il binario e chi no.
"Seminate Linux, che Windows si pianta da sč...." (Antico Adagio)
Gestione Ottica - Gestionale per Ottici e Programmi Gratuiti su:
http://www.nicolaottomano.it

 se nn uso end ke posso usare?
Devi chiudere tutti i form che costituiscono il programma.
Ah poi cercati un manuale di quoting.
--
Starman

Newsgroup: it.comp.lang.visual-basic
Titolo: Runtime libraries versione 6.0

Ci sono da qualche parte da scaricare come lo si faceva per le VB5?


-------------------------
Guarda sul mio sito Internet, all'indirizzo
http://www.armaditaggia.com/marco
Ciao
Marco Minerva

Newsgroup: it.comp.lang.visual-basic
Titolo: scheda audio

c'è un modo per sapere la frequenza dei suoni in entrata dalla scheda audio?


Se lo trovi me lo fai sapere, è un pò che provo a carecare, ma nn ho
trovato niente =P
Grazie e ciao
    Mavimo
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] OLE e TWAIN come faccio ?

Devo inserire delle immagini scannerizzate in un campo OLE di una tabella 
Access. Per la scannerizzazione/visualizzazione uso i controlli Wang ma 
non riesco in nessun modo a inserire l'immagine in un oggetto OLE.
Qualcuno è in grado di darmi una mano ?
Grazie anticipatamente
Saluti
Navari Simone

 ha scritto nel messaggio
news:MPG.13ea3cbf1...@news.tiscalinet.it...


 ha scritto nel messaggio
news:8lp7va$m7b$1...@news.mch.sbs.de...


 Ciao a tutti devo piccolo problema, doveri inserire e poi
cancellare un immagine in un capo ole di un database di access
come posso fare.
controllo Data che carica la tabella
PictureBox legata al controllo Data con DataField = al campo
OLE
Edit del RecordSet
carico l'immagino nella PictureBox con LoadPicture
Update del RecordSet
--
Ciao.
Maurizio
--------
?SPQR(C)
 X
Newsgroup: it.comp.lang.visual-basic
Titolo: Errore dimensioni Form MDI

Ho creato la mia prima vera applicazione con MDI.
In pratica ho convertito un mio programma da SDI a MDI.
Non capisco perchè quasi tutti i form figli sono di dimensioni errate,
inoltre, non riesco a visualizzarli se uso la proprietà
WindowState=Maximized...
Da cosa può dipendere? Ho guardato tutta la MSDN ma non ho trovato niente.
Non ho visto su google perchè ho la connessione esterna a fastweb down e non
riesco ad accedervi.
bye
-- 
Esistono 10 tipi di persone: chi conosce il binario e chi no.
Gestione Ottica - Gestionale per Ottici e Programmi Gratuiti su:
http://www.nicolaottomano.it

 bye
:-P (ho bevuto)

 
Concordo con cio' che ha detto Lupo. Gli MDI piacciono molto alla gente 
che ama le cose semplici, ma sono ingestibili per tanti altri motivi.
Vedrai che divertimento quando, ad esempio, ti servira' usare dei form 
modali ...
:-(
ciao
	maxx
-- 
NOSPAM: Rimuovere i trattini dallo username!
Cut hyphens from my username!

 dei form modali ...
'azz, mai usato nulla in MDI.
Leggendone, all'inizio, non m'č venuto di considerare il tutto complicato,
ma in netto contrasto con la funzonalitą. Perchč? Non lo so, sensazioni...
Devo smettere di leggere questo NG... mi condiziona.

 Devo smettere di leggere questo NG... mi condiziona.
Intendi dire che hai finalmente deciso di passare ad 
ADO.NET
?
;-)


 Intendi dire che hai finalmente deciso di passare ad 
ADO.NET
?
Io, ormai, posso solo passare a m. v. (abbreviazione scaramantica con
quadricorna, mani e piedi).
Ma, come si dice?, "mai dire mai".


wrote:


Ho letto i vari post  di risposta e devo dire che mi avete "demoralizzato"
:-)
Ma sul serio l'MDI fa cosě schifo? Vabbč ora provo a vedere come va. Se la
cosa č infattibile allora ritorno al caro vecchio SDI.


 vita si complica.
Me ne sono accorto :-(
Se provo ad aprire un form da codice, a volte capita che ne vengano aperti
altri in cascata...
Mi spiego.
Se voglio aprire il form di schede clienti, clicco sul pulsante relativo e,
magia, si apre anche la fatturazione e il modulo Dichiarazioni di
conformità.....
Assurdo!!!
Come correggere la cosa?


 Come correggere la cosa?
Controllando il tuo codice!
A parte gli scherzi, gli mdi hanno dei difetti, ma non cosi' gravi. Se 
tu usi il metodo .show ti si apre il form che tu hai scelto, non altri.
Magari hai riciclato del codice non adattandolo completamente.


 altri. Magari hai riciclato del codice non adattandolo completamente.
Nella disperazione ho avviato le norton utilities sperando che fosse un
errore in qualche ocx caricato.
In effetti dopo aver corretto 85 errori.... la cosa funziona alla
perfezione.
Le norton utilities sono MIRACOLOSE!

Newsgroup: it.comp.lang.visual-basic
Titolo: Alberi

Ciao a tutti scusate la domanda banale :
da come ho visto sulla guida non è possibile allocare memoria dinamicamente,
e se volessi costruire un albero binario come faccio ?
Grazie ReDICuori


come faresti in qualsiasi altro linguaggio di programmazione (o quasi)
applicando gli algoritmi opportuni;
ciao

 wrote in message
news:T1mu8.35502$m41.9...@twister2.libero.it...


 wrote in message
news:T1mu8.35502$m41.9...@twister2.libero.it...


 wrote in message
news:T1mu8.35502$m41.9...@twister2.libero.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Chia ha esperienza del dbgrid ?

... un saluto a tutti voi.
Mi necessita sapere come rendere evidente l'intera riga di un controllo
dbgrid da programma. Ho provato molti metodi ma finora non ho ottenuto
risultati.
Mi potete aiutare ?
Pippo

 ha scritto
| Mi necessita sapere come rendere evidente l'intera riga di un controllo
Evidente?
Forse "evidenziata"...  ;-PPPPPP

Jabba The Hutt ha scritto:

Be', ma e' evidente ;-)
-- 
ciao, hal.OT

 ha scritto

povero pippo, in che mondo sei capitato...
clic dx sulla dbg
proprieta'
split
full row
--
ciao, j.evidency
--
http://digilander.iol.it/javalab

"Jabba The Hutt" <Jabba....@Alderaan.SW> ha scritto nel messaggio
news:VNzL7.12241$BA4.3...@news1.tin.it...

... molto divertente. Evidente.... non conosci l'argomento.
Ciaio

 ha scritto nel messaggio
news:9tmhjg$3lijf$1...@ID-56381.news.dfncis.de...

... non me lo aspettavo da te ...
Ti sapevo per uno dei migliori .... Ma evidente ....
Ciao.

 ha scritto nel messaggio
news:9tmjre$3ktb1$1...@ID-51318.news.dfncis.de...

ci provo subito. grazie.

 dbgrid da programma. [...]
Usa la proprietą MarqueeStyle dell'oggetto Split e assegnale il valore:
3 - HighlightRow
Ciao,
Carlo.

Ti sapevo per uno dei migliori .... Ma evidente ....
Ti sei offeso ?
Beati pauperes in spiritu, allora :PPP
-- 
ciao, hal

 ha scritto nel messaggio
news:9tp4mq$43dh9$1...@ID-56381.news.dfncis.de...

Nessuna offesa.
ciao, pippo

ciao, pippo
-- 
ciao, hal

 ha scritto
| > | Mi necessita sapere come rendere evidente l'intera riga di un controllo
| >
| > Evidente?
| > Forse "evidenziata"...  ;-PPPPPP
| >
| ... molto divertente. Evidente.... non conosci l'argomento.
Effettivamente non avevo sotto mano VB e la memoria mi ingannava al momento del post. Pero' penso di
sapere la differenza tra le parole "evidente" e "evidenziata". ;-PPPPPPPP
^_^
Ciao,
Jabba :-))))

... molto divertente. Evidente.... non conosci l'argomento.
Quien sabe ?
-- 
ciao, hal

Newsgroup: it.comp.lang.visual-basic
Titolo: datagrid vuota

Ciao a tutti avrei una domanda:
apro una form con dentro una dg, come far sapere al prg se la dg č vuota?
grazie... :)

 ha scritto nel messaggio
news:3bbddf30...@News.CIS.DFN.DE...

Newsgroup: it.comp.lang.visual-basic
Titolo: VB, socket e Java

Volevo sapere se è possibile far comunicare tra loro due programmi residenti
in due computer differenti attraverso socket, uno realizzato in VB (il
client) e uno realizzato in Java (il server).
Il programma VB utilizza Winsock e non può essere modificato (non è
possibile sostituirlo con un programma Java), mentre il server Java è ancora
da realizzare: graditi consigli
Grazie.

Tokamak ha scritto:

Visto che il sw da scrivere e' in java, ti converra' rivolgerti a it.comp.java.
In ogni caso direi proprio che si possa, ma bisogna avere la documentazione
del protocollo usato dall' altro programma.
-- 
ciao, hal

Newsgroup: it.comp.lang.visual-basic
Titolo: VB e CD-Rom

Ciao, qualcuno sa dirmi come posso ricavare la label di un CD inserito nel
lettore?
Grazie


Non riesci con il programma che usi per masterizzare ?
giuseppeD

lettore?
Il codice sotto la firma funziona con qualsiasi unita', anche floppy e cd audio.
-- 
hth, hal
----------------------- inizio codice ---------------------
Option Explicit
Private Declare Function GetVolumeInformation Lib "kernel32" _
                        Alias "GetVolumeInformationA" ( _
                                ByVal lpRootPathName As String, _
                                ByVal lpVolumeNameBuffer As String, _
                                ByVal nVolumeNameSize As Long, _
                                ByRef lpVolumeSerialNumber As Long, _
                                ByRef lpMaximumComponentLength As Long, _
                                ByRef lpFileSystemFlags As Long, _
                                ByVal lpFileSystemNameBuffer As String, _
                                ByVal nFileSystemNameSize As Long _
                                ) As Long
Private Function Sz2Str(ByRef a_Src As String)
    Dim ch As Long
    ch = InStr(1, a_Src, vbNullChar, vbBinaryCompare)
    If (ch) Then a_Src = Left$(a_Src, ch - 1)
End Function
Public Function vbGetVolumelabel(ByVal a_VolumeLetter As String) As String
    Dim lpVolumeNameBuffer As String, lenBuffer As Long
    Dim lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long
    Dim lpFileSystemFlags As Long, lpFileSystemNameBuffer As String
    lenBuffer = 256
    lpVolumeNameBuffer = Space(lenBuffer)
    lpFileSystemNameBuffer = Space(lenBuffer)
    If GetVolumeInformation(a_VolumeLetter & ":\", _
                            lpVolumeNameBuffer, lenBuffer, _
                            lpVolumeSerialNumber, lpMaximumComponentLength, _
                            lpFileSystemFlags, _
                            lpFileSystemNameBuffer, lenBuffer) Then
        Sz2Str lpVolumeNameBuffer
        vbGetVolumelabel = lpVolumeNameBuffer
    End If
End Function    '// vbGetVolumelabel
------------------ fine codice --------------------------
Newsgroup: it.comp.lang.visual-basic
Titolo: Re: aiuto "LIKE"

 DataClienti.Refresh
[SNIP]
Mai provato con il datacontrol, ma comunque in DAO il carattere jolly da 
usare e' '*' (perlomeno se non sei connesso via ODBC Direct)
Ciao
-- 
Luca Dormio - 
luca....@tin.it
________________________________
"Marty, non stai ragionando in maniera quadridimensionale"
Dr. Emmett L. Brown 

 ha scritto nel messaggio 
news:KO5Qd.45629$2h5....@tornado.fastwebnet.it...


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

Sono un principinte di VB che in poco meno di un anno ha realizzato un
programma per la gestione del magazino e della fatturazione (D.D.T
Inclusi) per la propria attività.
Giunto il fatidico momento di installarlo sul pc destinato a tale
scopo mi sono venuto a scontrare con questo problema (Scusate la mia
ignoranza !!!!)
Ho agganciato il report di Crystal report Versione 8.0 con un
dataenviroment.
La connesione del dataenvironment viene presa dal regedit
 ex 
DataEnvironment1.Connection1.ConnectionString = sFileMdb
Dove sFileMdb è una variabile stringa con l'ubicazione del db.
Fin qui tutto ok se non fosse per Crystal Report che continua a
cercarmi il db nella locazione vecchia non riesco a capire dove
sbaglio
Questo è il contenuto nella load del form di Crystal Report
Set Report = New CrystalReportFattura
Screen.MousePointer = vbHourglass
Report.RecordSelectionFormula = "{DataEnvironment1_Fattura.IDFattura}
= " & CStr(m_iiIdfattura) 
CRViewer1.ReportSource = Report
CRViewer1.ViewReport
Screen.MousePointer = vbDefault
Grazie a tutti 

Andando a lume di naso... prova a settare la proprietą DiscardSaveData =
False
Ciauz!
Tango

Grazie a tutti 
Niente da fare..non funziona

Grazie a tutti 
la soluzione al problema č questa (per tutti coloro che in seguito si
inbatteranno in questo problema)
Set Report = New CrystalReportFattura
DataEnvironment1.rsFattura.Open
Report.Database.SetDataSource DataEnvironment1.rsFattura
Screen.MousePointer = vbHourglass
Report.RecordSelectionFormula = "{DataEnvironment1_Fattura.IDFattura}
= " & CStr(m_iiIdfattura) 'lupaccio lupaccio lupaccio
CRViewer1.ReportSource = Report
CRViewer1.ViewReport
Screen.MousePointer = vbDefault
nella unload inserire 
DataEnvironment1.rsFattura.Close
naturalmente DataEnvironment1 e rsFattura secondo i propri nomi 
Grazie Marco....!!!!!!!!!!

Newsgroup: it.comp.lang.visual-basic
Titolo: un'altra questione...


Prigio

Prigio ha scritto nel messaggio <01bdd11a$38d6d480$d104d8d4@mprigion>...

L'API "sndPlaySound" consente di riprodurre il file WAV specificato senza
ricorrere ad un programma esterno, quale, ad esempio, Registratore di suoni.
La dichiarazione è la seguente:
Public Declare Function sndPlaySound Lib "Winmm.dll" Alias "sndPlaySoundA"
(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Per riprodurre il file, è conveniente definire la seguente routine:
Public Sub PlaySound(File As String)
    'File contiene il nome ed il percorso completo del file WAV che si vuole
riprodurre
    Dim Suono As Integer
    Suono = sndPlaySound(File, 1)
End Sub
Spero di aver risolto il tuo problema. Ciao
Marco Minerva
Newsgroup: it.comp.lang.visual-basic
Titolo: Protezione Software

Hi all!
E' possibile proteggere contro la copia un eseguibile contenuto in un cd che
attiva una procedura d'installazione del proprio programma scritto in vb?!
Thanks in advance...
Ciao, Alfonso.

prova NmKit3.ocx...
e gratis, nel sito comune o da me...
enjoy...
-- 
GbC
http://www.chiappori.net

 wrote


Ciao Pal!
In effetti la frase e' un po' contorta, ma e' stata elaborata dopo ore di
lavoro quindi scusate la poca chiarezza! ;)
Mi riferivo esattamente ad un file del tipo setup.exe che avvia una
procedura d'installazione automatica...
Purtroppo chiudere il cd in cassaforte non sarebbe poi cosi utile in quanto
il cd dovrebbe essere distribuito in qualce modo ;)
Nel programma e' prevista una chiave di registrazione che rende il numero di
operazioni effettuabili illimitato (senza chiave le operazioni sono ridotte
a 25), chiave che e' definita mediante un apposito algoritmo.
La ditta per cui lavoro, tuttavia, vorrebbe ulteriormente tutelarsi cercando
di evitare che il file possa essere copiato ed installato "n" volte su "n"
computers (in quanto una volta terminate le operazioni su un computer anche
reinstallando il software non si ottengono nuove 25 operazioni).
Mah...


Ciao!
Grazie per l'indicazione... ma avevo gia' implementato una cosa simile
(probabilmente cambia solo l'algoritmo) sul mio programma!
Credo abbiamo avuto la stessa idea! ;)
Io mi riferivo proprio alla copia fisica da cd e sull'hd dell'eseguibile
d'installazione...
Grazie, Alfonso.

 wrote


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





Visual Basic 6.0


Ho 2 form, nel 2 "form" come faccio a fare 
riconoscere degli "oggetti" (LABEL, COMMAND, CHECK BOX) che ho inserito nel 
primo form?



Ho 2 form, nel 2 "form" come faccio a fare riconoscere degli "oggetti"
(LABEL, COMMAND, CHECK >BOX) che ho inserito nel primo form?
Non ho capito niente...
Allora, tu hai due form, nel primo hai messo vari oggetti e vuoi cambiare
proprietą a questi oggetti, ma lo devi fare dal secondo form, o sbaglio?
Se č solo questo il problema, per accedere a controllo su altri form fai
cosģ:
NomeForm.NomeControlloSulForm.ProprietąControllo = ValoreProprietą
Spero di aver centrato il problema, altrimenti aspetto delucidazioni.
P.S. Non postare in HTML please!
--------------------------------------------
             ASSA
http://assatarram.yohoo.it
Napster: Assatarram3
it.comp.lang.visual-basic: Assa
--------------------------------------------

Salve a tutti!!
Come posso fare in modo che la una finestra appaia sempre in primo piano? e
finita di caricare la mia applicazione chiuderla?
Saluti a tutti e grazie in anticipo!!

 ha scritto nel messaggio
news:0ypD6.51233$s93.4...@news.infostrada.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Risoluzione 480x480

Ciao a tutti
ho un problema che non capisco. Ho trovato il codice per avere  la
risoluzione del video:
  **************************************
        'No API Calls
  Global ResolutionWidth As Integer
  Global ResolutionHeight As Integer
  Global ScreenResolution As String
  **************************************
  ResolutionWidth = Screen.Width / 15
  ResolutionHeight = Screen.Height / 15
  ScreenResolution = Str(ResolutionWidth) + ", " +
Str(ResolutionHeight)
  Label1.Caption = ScreenResolution
  **************************************
Questo codice funziona bene, sia con la risoluzione a 800x600 che
1024x768.
Quando però cambio la risoluzione a 640x480 mi scrive sull'etichetta
480x480.
Come mai?
Grazie mille
-----= Posted via Newsfeeds.Com, Uncensored Usenet News =-----
http://www.newsfeeds.com
 - The #1 Newsgroup Service in the World!
-----==  Over 80,000 Newsgroups - 16 Different Servers! =-----

   ResolutionHeight = Screen.Height / 15
Usa TwipsPerPixelX e TwipsPerPixelY al posto di 15.
Eventualmente cercali nell'help :-)
Bye, G.

Newsgroup: it.comp.lang.visual-basic
Titolo: Informazione vb7

Ho sentito dire che dovrebbe uscire tra qualche mese il vb7..
è vero?
E ho pure sentito dire, che nn  è più compatibile con le versioni fino a 6
è vero?
Ma il 
vb.net
 è forse la versione n°7?
è vero?
Sono felicissimo se qualcuno mi darà dei chiarimenti idonei.
Salutoni  a tutti
(è vero?)

 Sono felicissimo se qualcuno mi darà dei chiarimenti idonei.
suff. ?
--
bye BlackMagic
ICQ: 85485468
Aiuta la ricerca sul cancro 
http://members.ud.com
Join
at:
http://members.ud.com/services/teams/team.htm?id=2E71C62A-8E67-48DB-B472-
BCA129B35412

 è vero?
Yes
Corrado
Newsgroup: it.comp.lang.visual-basic
Titolo: loop in un RS

Set DBChiusura = OpenDatabase(App.Path + "\chiusura.mdb")
Set RS = DBChiusura.OpenRecordset("chiusura", dbOpenTable)
RS.MoveFirst
Do
    RS.MoveNext
Loop While RS("DescrizioneNegozio") = Cassa.Text
    Text1(0).Text = RS("DescrizioneNegozio")
End Sub
io ho scritto questo codice.
 ma non funziona.
in pratica devo trovare il record che selezioneda cassa.text e poi sciverlo 
in text1(0) 

 ha scritto

prova:
do while not rs.eof
    if rs!descrizionenegozio=cassa.txt then
        text1(0).text=rs!descrizionenegozio
        exit do
     endif
    rs.movenext
loop
pero' in un caso del genere, specie se sei sicuro che c'e' un solo record
che risponde alla condizione, userei un select, tipo:
set rs=DBChiusura.OpenRecordset( _
    "select descrizionenegozio from chiusura where descrizionenegozio='" &
cassa.text & "'", _
    dbopensnapshot)
text1(0).text =rs!descrizionenegozio
ho scritto al volo, controlla e metti una gestione d'errore se non trova
nessun record ecc.
ultima cosa: mi sembra di ricordare che cassa e' un combo.
se usi i prefissi soliti, non si ammattisce a capire cosa e' cosa:
cboCassa
txtCassa
lstCassa
cmdCassa
lblCassa
ciao, a.
alt. forse non ho capito nulla.
non fai parecchio prima a fare text1(0).text=cassa.text ?
a cosa ti serve girare nella tabella ?
capirei se trovato quello che ti serve, selezionassi poi un altro campo.
ma cosi'...

 
Devi fare insomma una ricerca...!!!
Questo metodo è assurdo! invece di aprire la tabella facendo una 
interrogazione: SELECT chiusura WHERE DescrizioneNegozio = '" & 
Replace(Cassa.Text, "'", "''") & "'", dbOpenText (o simile)

 ha scritto nel messaggio 
news:3cmli3F...@individual.net...

grazie 1000 sto imparando tantissimo da voi è perdetto  con i comandi SQL 
che mi hai dato. giro nella tabella perche oltre a quel campo che conosco 
gia mi serve prenderne molti altri. ciao grazie
è buona norma metter il prefisso davanti al nome del comando 


Prova a leggere in italiano quello che hai scritto:
"avanza nel ciclo fintanto che (mentre) DescrizioneNegozio = Cassa.Text"
questo significa che il ciclo avanza quando "DescrizioneNegozio = 
Cassa.Text" e *si interrompe* non appena incontra un valore <> Cassa.Text, 
ergo, al primo record, se diverso, esci subito dal ciclo e sei fregato... tu 
invece vuoi fare
"avanza nel ciclo fintanto che (mentre) DescrizioneNegozio<>Cassa.Text"
oppure
"avanza nel ciclo fino a quando DescrizioneNegozio = Cassa.Text"
traduci di conseguenza in codice VB e vedrai che funziona.
A parte questo, come ti hanno gia' detto, l'utilizzo di una SELECT+WHERE al 
posto di aprire tutta la tabella, per questo genere di cose e' meglio
Ciao
-- 
Luca Dormio - 
luca....@tin.it
________________________________
"Marty, non stai ragionando in maniera quadridimensionale"
Dr. Emmett L. Brown 

 è buona norma metter il prefisso davanti al nome del comando
Eh??
Alberto
-- 
"C'è un Calvelli dentro ognuno di noi" (cit.) 

 Alberto
"controllo", i guess.
solo che lui non lo fa :)
Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] Scheda di Acquisizione Dati

Ciao a tutti, sapete dirmi che prezzi hanno le schede di acquisizione dati
per pc ? E dirmi qualche marca ?
Magari anche compatibili con VB ... ma non necessario ...
Ciao e grazie a tutti ...
        bruce

 ha scritto nel messaggio
news:YIsX6.1731$i51....@news2.tin.it...


 Un esempio di buon rapporto qualitą/prezzo e


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

è possibile realizzare un programma in visual basic che resti in
ascolto su una o più porte? per esempio la porta 80... e anche
che possa inviare messaggi tramite una porta ad un altro pc sul
quale è installato lo stesso software
grazie
-- 
Postato da Alice Newsgroup: lo usi da web ma con le funzioni del newsreader 
http://newsgroup.alice.it
Gerarchie it, italia, it-alt, tin, it.binari. Unico!

 per esempio la porta 80...
La porta 80 è riservata per il protocollo http.
Ciao.
Daniele.

 Daniele.
Grazie infinite!!
Pier


Newsgroup: it.comp.lang.visual-basic
Titolo: [?2] Domanda SEMPLICE su una SHAPE

Ho una shape (un rettangolo) in un punto qualsiasi della form. L'utente
dovrebbe poterla trascinare in un punto qualsiasi della form, e se ciò
succede devo chiamare una sub.
1- Si può fare?
2- Come si fa?
Per favore, se rispondete di guardare il sito comune datemi un riferimento
preciso.
Grazie
(Stracca, so che sei un genio... aiutami tu!!!!!!!!!!!!)
--
Jimmy
-----------------------------------------------------------------
E-mail: 
jimm...@hotmail.com
ICQ#: 41646051
- È insopportabile la superficialità dei critici che sostengono che chi si
siede davanti a un computer e partecipa a conversazioni online non vive una
vita autentica. (Howard Rheingold, cybersociologo)
- Siamo esseri analogici intrappolati in un mondo digitale e la cosa più
assurda è che siamo stati noi a crearci questo mondo. (Don Norman)
- I computer hanno troppe funzioni inutili e gli utenti troppo da imparare:
i manuali contenuti sul mio PC occupano lo spazio dell'Enciclopedia
Britannica (Michael Dertouzos, docente del Mit)
- La personalizzazione è tutto (Tim Koogle, chef executive officer di Yahoo)

Potresti infilare lo shape in un contenitore (picture, ...) e lavorare sugli
eventi di quest'ultimo.
Ciao.
Alfredo.

Newsgroup: it.comp.lang.visual-basic
Titolo: OCX Masterizzare

Ciao a tutto l'NG
c'è qualcuno che conosce un buon OCX per masterizzare dati?
Ho già provato quello della Vision Factory ma mi chiede wnaspi32.dll
versione 5
e io ho la versione 2 (pur avendo installato Nero Burning ultima versione)
HELP !!!
Gianni.

 ha scritto nel messaggio
news:f3JY7.17156$s04.7...@news.infostrada.it...


Ti ringrazio ma come avevo già specificato:
"Ho già provato quello della Vision Factory ma mi chiede wnaspi32.dll
versione 5
e io ho la versione 2"
mi serve qualche altro OCX oppure la versione 4.57 (esattamente) della
wnaspi32.dll
Ing. Gianni Ronco
------------------------------------------------
sito web: 
www.studioronco.it
email: 
gia...@studioronco.it
------------------------------------------------

 c'è qualcuno che conosce un buon OCX per masterizzare dati?
Se ti serve per fare backup perche' non usi semplicemente DirectCD (o
simili)? In questo modo nel tuo programma ti basta fare un copy dei file da
salvare/masterizzare....
--
   Alex Palmese
--- Per scrivermi elimina "LOSPAM" dall'indirizzo ---
Sei anche tu stanco dei messaggi spam? Usa Terminator, il programma
anti-spam italiano FREEWARE! 
http://www.sertel.net/terminator/

La tua soluzione č buona ma devo sviluppare un software portabile
anche su altre macchine (dove puň non esserci Direct CD)
grazie comunque
:-)

CD Writer XP
http://www.active-x.com/download.asp?id=2469
č un fantastico OCX per bruciare CD da Visual Basic. Supporta di tutto,
dati, audio
ecc. Lo consiglio.
Non č che qualcuno puň darmi il numero di serie per sbloccarlo o mi dice
dove trovare il programmino crack che li genera??
:-)



A me NAV mi dice che c'e' un virus nlla pagina...
chissa!!!!!
L2K

Newsgroup: it.comp.lang.visual-basic
Titolo: azzerare file MDB

Ciao, abbiamo un problema:
come si fa a svuotare e compattare un file MDB?
Grati a chiunque ci aiuti
Fabio

...


//------------------------------------------------------------------------------------
//  Questo vale per una sola tabella dell'archivio Access:
Dim cSQL as string
Dim dbArchivio as Database
  Set dbArchivio = DBEngine.Workspaces(0).OpenDatabase    _
  (App.Path + "\ARCHIVIO.MDB")
  cSQL = "DELETE * FROM TABELLA ;"   
 //  nb: TABELLA deve essere sostituito con il nome effettivo
 
 dbArchivio.Execute cSQL, dbFailOnError
 // Per eliminare i dati da tutte le tabelle:
 For i = 0 To Workspaces(0).Databases.Count - 1
              // codice.....
 Next i
//--------------------------------------------------------------------------------------------
// Per compattare:
 DBEngine.CompactDatabase App.Path & "\ARCHIVIO.MDB",  _
    App.Path & "\ARCHIVIO2.MDB", dbLangGeneral
// come avrai notato l'archivio finale
// non puo possedere lo stesso nome
// dell'archivio iniziale
// Terminata la compattazione elimina l'archivio
// iniziale e rinomina il finale.
Ciao,   fabrizio.
---

Newsgroup: it.comp.lang.visual-basic
Titolo: Comunicare a basso livello con una porta parallela

Come posso gestire i singoli pin di una porta parallela in Visual Basic ?
Si può trattare come se fosse una "Multi - Com"?
Grazie a tutti
Giuseppe

 Come posso gestire i singoli pin di una porta parallela in Visual Basic ?
Ciao! 
Non so proprio se si puo' fare, ed io della gestione della porta
parallela non so niente, pero' forse trovi qualcosa che ti interessa a
questo indirizzo:
http://www.lvr.com/parport.htm
Spero possa esserti utile...
Ciao
Brando

Newsgroup: it.comp.lang.visual-basic
Titolo: Non riesco ad installare un componente COM

Salve a tutti,
 con il comando
regsvr32 /i d:/.../pippo.dll
ottengo l'errore:
d:/.../pippo.dll was loaded, but the DllInstall entrypoint was not found.
DllInstall may not be exported, or a corrupt version af d:/.../pippo.dll may
be in memory. consider using Pview to detect and remove it.
Eppure č la prima volta che la installo, e con pview non la vedo.
Questo mi accade quando la installo su una macchina diversa da quella su cui
l'ho sviluppata, mentre su quest'ultima il componente funziona.
vi prego aiutatemi
graqzie anticipatamente
Ciak21
--
______________________
Piů forti della sforuna!

Eppure è la prima volta che la installo, e con pview non la vedo.
Che centra il pview?
Regsvr32 non trova l' entry point della funzione: per sicurezza, potresti
guardare con il dumpbin (o altro strumento analogo) quali sono
le funzioni che esporta.
Quasi certamente non troverai DllInstall.
Se hai fatto la dll con vb, allora credo che non la esporti proprio,
quindi puoi solo registrarla senza il parametro /i
perche' dovrebbe esportare solo
DllCanUnloadNow
DllGetClassObject
DllRegisterServer
DllUnregisterServer
Facci sapere ;-)
-- 
hth, hal

Newsgroup: it.comp.lang.visual-basic
Titolo: Dopo aggiornamento nelle combo con dati

Nelle combobox contenenti dati esiste un evento usatissimo che si
chiama Dopo Aggiornamento che scatta quando l'utente ha variato il
contenuto della Combo o scrivendo o selezionando nella tendina, esiste
un corrispondente in VB5 ?

Il Fri, 04 Jul 1997 06:15:02 GMT, 
me...@mail.asianet.it
 (Paolo Holzl)
ha scritto:

Certo, anche in VB4 e precedenti si possono gestire tali eventi.
Combo1_Change viene attivato quando si scrive all'interno della
casella, mentre Combo1_Click quando si seleziona (con il mouse con le
freccette) una voce dall'elenco. Se li vuoi gestire come un'unico
evento, basta inserire all'interno di uno la chiamata all'altro:
es.
sub combo1_Click
    Combo1_change
end sub
sub combo1_Change
   [...]  ' codice
end sub
Ciao
REMO FRANCESCHELLI - ITIAV 4a Info.
http://www.geocities.com/SiliconValley/Lakes/7668
(Programmazione in Pascal)
** Concentrazione = Forza **
Newsgroup: it.comp.lang.visual-basic
Titolo: [.Net] Verificare il cambiamento del nome di un controllo

E' possibile intercettare il cambiamento della proprietą Name in design di
uno Usercontrol?
Grazie, ciao.
-- 
Skysurfer

uno Usercontrol?
A naso direi proprio di si'. Che fai nel codice di gestione della
proprieta' Name?
-- 
ciao, un hal di passaggio

 proprieta' Name?
Ciao... io sono all'ultimo lavoro, prima di 2 settimane di ferie... pero' se
ti va di rispondermi leggerò tra 2 sett.
Praticamente ho creato un mio controllo composto da una label e da un
TextBox di ComponentOne.
Vorrei che quando lo piazzo sul form e cambio il nome del controllo, nella
proprietà Text del TextBox venga visualizzato il nome del controllo.
Ciao e grazie.
-- 
Skysurfer

Newsgroup: it.comp.lang.visual-basic
Titolo: Macro su excel (VBA)

Un saluto  a tutto il ng.
Mi sto' scervellando per ottenere una macro particolare, chiedo un vostro
aiuto.
.                    (a tutto schermo)
Supponiamo di avere su un foglio excel i seguenti dati:
1   Rossi Mario      Via Dante 25    00100  Roma     Lire   600.000 PAGATO
2   Rossi Mario      Via Dante 25    00100  Roma     Lire   200.000 NON
PAGATO
3   Rossi Mario      Via Dante 25    00100  Roma     Lire   200.000 NON
PAGATO
4   Rossi Mario      Via Dante 25    00100  Roma     Lire   200.000 NON
PAGATO
1   Bianchi Giorgio Via Nenni 18    00100  Roma     Lire   600.000 NON
PAGATO
2   Bianchi Giorgio Via Nenni 18    00100  Roma     Lire   200.000 PAGATO
3   Bianchi Giorgio Via Nenni 18    00100  Roma     Lire   200.000 NON
PAGATO
4   Bianchi Giorgio Via Nenni 18    00100  Roma     Lire   200.000 NON
PAGATO
1.........
2......
3...........
4........
etc......................
in pratica il sig. Rossi Mario ha pagato tutto il debito in una unica
soluzione,  in questo caso
ho l'esigenza di cancellare automaticamente le tre rate dal foglio excel in
quanto è stata pagata la rata in prima riga che
equivale all'intero importo.
Invece pero' supponendo che il Sig. Bianchi  paghi a rate, al momento che il
sig Bianchi  paga la prima delle tre rate
la riga contenente la soluzione unica verra' automaticamente cancellata.
Grazie di cuore.
Roberto.

 Mi sto' scervellando per ottenere una macro particolare, chiedo un vostro
[CUT]
Scusa puoi rendere la domanda esplicita?
                            danilo


Premesso che, a mio avviso, la gestione dei tuoi dati tramite un
database (ad es. Access) sarebbe stata molto piu' razionale, date le
tremende ridondanze contenute nel tuo foglio, puoi tentare di
risolvere il tuo problema senza macro ma realizzando una tabella
pivot.
-- 
ing. Franco Varoli
fva...@tin.it
fva...@libero.it
Newsgroup: it.comp.lang.visual-basic
Titolo: Excel: Workbooks.Open, Workbooks.SaveAs

Scusate il disturbo.
Sto tentando di lavorare con Excel da VB funziona quasi tutto a parte i
comandi Workbooks.Open e SaveAS che mi generano errori che producono la
chiusura del programma.
Il programma lo scrivo su un computer con WindowsXP (fornito di Excel2002)
e lo faccio girare su uno che ha Windows98 (Excel97).
Nelle Project References ho selezionato "Microsoft Excel 10.0 Object
Library"
Set xlApp = New Excel.Application
Set xlWbk = xlApp.xlApp.Workbooks.Open("C:\dbvolt.xls")
' il percorso è giusto, ma il programma si inchioda
' e lo stesso accade quando cerco di salvare
xlWbk.SaveAs ("C:\dbvolt.xls")
Cosa posso fare?
Grazie e ciao
Luca

 Set xlWbk = xlApp.xlApp.Workbooks.Open("C:\dbvolt.xls")
[SNIP]
Magari hai sbagliato nel riportare il codice nel messaggio, ma sicuramente
non esiste la property ".xlApp" nell'oggetto Excel.Application.
Se comunque l'errore e' dovuto al fatto che volevi scrivere
xlApp.Application.Workbooks.Open("C:\dbvolt.xls")
stai attento che anche questo puo' dare problemi... per motivi loro gli
oggetti di Office hanno parecchi riferimenti circolari di questo tipo, che
serviranno sicuramente internamente ma per quanto ho verificato spesso
causano comportamenti imprevisti se referenziati all'interno di VB; dato che
xlApp e' gia'un istanza di Excel.Application, quindi e' sufficiente
xlApp.Workbooks.Open("C:\dbvolt.xls")
Se, infine, il codice effettivamente e' gia' questo, allora non saprei: qui
funziona...
Ciao
--
Luca Dormio - 
luca....@tin.it
________________________________
"Marty, non stai ragionando in maniera quadridimensionale"
Dr. Emmett L. Brown

il problema sta nella compatibilità delle due versioni di excel e nelle
librerie che usi..il mio consiglio è di aggiornare la versione del
computer dove vuoi fare girare il programma
-- 
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: menu

ciao,
come faccio a far comparire una linea di separazione fra la barra dei
menu e il resto del form?

 menu e il resto del form?
Ciao Bocardo,
inserisci una toolbar vuota.
Ciao
Franco

inserisci una toolbar vuota.
grazie, ma potresti specificarmi meglio?....sai sono un po' niubbino
;-)


tracci due linee sottili ravvicinate, una di colore bianco e 
l' altra grigio scuro per dare l' effetto 3D
Ciao
Aldo

l' altra grigio scuro per dare l' effetto 3D
questa mi piace davvero! ;-))
grazie.

 grazie, ma potresti specificarmi meglio?....sai sono un po' niubbino
Beh se inserisci una Toolbar vuota ti viene già messa al posto giusto (sotto
i menu) e la riga di separazione si ridimensiona automaticamente con il
form...
La toolbar è un controllo standard di VB "sotto" Microsoft Windows Common
Controls credo...
Ciao
Franco