mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: Modifica Testo!!!!

Ciao e bentornati dalle ferie,
Qualcuno di voi sa come in un controllo TextBox o RichTextBox si possa
cambiare il colore del testo e lo sfondo?
Io non ci riesco: la TextBox cambia colore al testo ma a tutto il testo che
ho scritto!!!! mentre io vorrei farlo solo su certe righe o qundo incontro
un tipo di carattere.
Se non si puo qualcuno puo indicarmi altri controlli simili che lo facciano?
P.S. Sto cercando di fare una specie di compilatore e mi piacerebbe cambiare
il colore quando si fa un commento del codice...
Grazie a tutti

 wrote in message
news:8od63t$n84$1...@pegasus.tiscalinet.it...


| Io non ci riesco: la TextBox cambia colore al testo ma a tutto il testo
che
| ho scritto!!!! mentre io vorrei farlo solo su certe righe o qundo incontro
| un tipo di carattere.
Con la textbox non si può fare, la RTB non la conosco
Ciao

 > un tipo di carattere.


Newsgroup: it.comp.lang.visual-basic
Titolo: Non trova la Dll

Ciao,
ho dichiarato una dll nel seguente modo in un modulo
Pubblic Declare Function DM2 Lib "pippo.DLL" (ByVal hDC%, ByValText$,
PippoData As BPippoData) As Long
nel codice la chiamata e' la seguente:
err = DM2(Picture1.hDC, "pippo", BarCodeStruct)
Il Vb esce in errore n. 48 con il seguente messaggio: File  not found:
pippo.DLL
Premetto che la dll e' sta messa nella stessa directory del progetto, in
c:\windows\system,  ma ho sempre con lo stesso errore.
Cosa devo fare ?
Grazie dell'aiuto
Sergio
--
Posted from [195.223.72.130] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Hai registrato la dll? Se è veramente in windows\system fai:
start>esegui>regsvr32 pippo.dll


Newsgroup: it.comp.lang.visual-basic
Titolo: Ci rirpovo: risultato di una query in documento word

Buongiorno.
Un applicativo vb estrae dati da una tabella di db slq server 2000
mediante una query parametrica e li visualizza attraverso un controllo
MSHFlexGrid.
Come è possibile ottenere un risultato analogo generando un documento
word che contenga dati estratti nello stesso modo?
Grazie a chi vorrà aiutarmi.
Dariush


Pilotando Word a manina...
vedi oggetto Word.application e la sua struttura oggetti.
ciao
ugo
Newsgroup: it.comp.lang.visual-basic
Titolo: Prima lettera maiuscola in un campo di un report

Salve, come posso fare in modo che la prima lettera di un campo di un 
record sia maiuscola? E' il mese di una campo data. Ho provato con 
FORMAT(DPADatPag, 'Mmmm') ma resta comunque minuscola. Forse c'è 
qualcosa che si può mettere nel dataformat del campo?
Ciao e grazie
-- 
edoloz@work

 Ciao e grazie
ciao e prego
-- 
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

 StrConv(FORMAT(DPADatPag, 'mmmm'), vbProperCase)
Si ma io devo farlo all'interno di un rs gerarchico da associare a un 
data report, in pratica deve essere già formattato correttamente nella 
query, non posso passare da VB.
Ciao
-- 
edoloz@work

 non posso passare da VB.
Quindi non devi passare da questo gruppo :)
scherzo, eh...
termoPilucco
-- 


 qualcosa che si può mettere nel dataformat del campo?
Se parli di database Access ti serve per una query (quindi un report), 
visto che non ho trovato una funzione apposita, puoi usare questo:
ucase(left(FORMAT(CAMPO, 'Mmmm'),1))+mid(FORMAT(CAMPO, 'Mmmm'),2)
(quando poni domande su SQL devi specificare quale database usi, in ogni 
caso sei OT in questo NG...)
-- 
Ciao!
    -DocDoc-
--- Per scrivermi: docdoc()
sertel.net
Sei anche tu stanco dei messaggi spam? Usa Terminator, il programma
anti-spam italiano FREEWARE!     
http://www.spamterminator.it/

 caso sei OT in questo NG...)
Come sei fiscale! :-)
Speravo ci fosse qualche proprietą di formattazione del campo nel report 
(come per i numeri e le valute)

 sul db.
Funziona, funziona... Prova a fare una select con quell'espressione e 
(se parliamo di db Access) vedrai che funziona!:-) E' vero che sono 
funzioni "alla VB", ma Access le interpreta correttamente 
nell'istruzione SQL.
Ovviamente se ci provi su SQL Server ti sputa in faccia...;-)))

Newsgroup: it.comp.lang.visual-basic
Titolo: recupare file .frm da frx

Buongiorno a tutti.
Al rientro dalle ferie trovo che su un progetto a cui sto lavorando è
sparito il file form1.frm
tutti gli altri file sono presenti.
è possibile recuperare le informazioni dal file frx o non c'entra una
mazza.
Siccome il progetto sta in fase di sviluppo, non è presente nemmeno
l'eseguibile, quindi non posso usare nessun decompiler.
Devo riscrivere tutto o si può fare qualcosa?
grazie e ciao
Sam--

Devo riscrivere tutto o si può fare qualcosa?
Devi riscrivere e poi imparare a fare backup frequenti del tuo lavoro.
Una penna USB costa pochi Eurini e ti può risparmiare tanto lavoro di
rifacimento.
Anche se le penne non sono la soluzione perfetta, lo so, a volte si perdono o si
rompono, meglio che niente.
--
ciao
  Stefano

 rompono, meglio che niente.
Bhe con 2/3 penne spendi 30 euro, e ogni giorno ne usi una diversa.
Le penne ovviamente le compri di marche diverse e in periodi diversi.
Serve anche in caso che pasticci con un progetto, puoi recuperare lo
storico.
Poi un cd una volta alla settimana (0.15E * 52 settimane= 7.80E).
Eventualmente anche backup su un disco diverso se si ha interno, o via
rete.

 sparito il file form1.frm
Che sistema operativo? Se è Vista, o se usi un server Windows 2003, c'è 
l'opzione "Versioni precedenti" che potrebbe permetterti di recuperare un 
vecchio "stato" della cartella. Altrimenti Fai una ricerca con Goocle per 
trovare qualche programma di recupero file.



Scrivo qui e ringrazio tutti.
Sto riscrivendo il codice  :-((
Il back-up lo faccio su 2 pc differenti in rete; il back-up è
giornaliero per ogni giorno della settimana.
Quindi il backup del lunedi rimpiazza quello del lunedi precedente e
così via.
Il danno sicuramente è successo prima delle ferie, quindi.. nada
grazie a tutti
Newsgroup: it.comp.lang.visual-basic
Titolo: [VB6] - Ricompilazione VISDATA.exe

Salve a tutti
finalmente mi sono deciso a ricompilare questo tool, perchè vorrei
utilizzarlo per creare le query (non essendo un grande esperto di linguaggio
SQL).
Mi sono messo alla ricera è ho interpellato l'oracolo, il quale mi ha
indicato la retta via:
http://support.microsoft.com/default.aspx?scid=http://support.microsoft.com:80/support/kb/articles/Q252/4/38.asp&NoWebContent=1
Ho seguito scrupolosamente tutti i passi, e quindi ho cercato di compilare
il codice.
Nulla da fare. Se cerco di compilarlo, mi da l'errore:
"Impossibile assegnare ad una proprietà di sola lettura"
all'altezza di queste righe nel form frmAddField:
Private Sub cmdOK_Click()
  On Error GoTo OkayErr
  Dim fld As Field     'Variabile locale che contiene la struttura del campo
  Dim i As Integer
  'Crea un nuovo oggetto Field
  Set fld = gtdfTableDef.CreateField()
  'Inserisci i dati nell'oggetto Field
  With fld
    .Name = txtFieldName.Text
evidenziando .Name
se invece cerco di mandare il tutto in esecuzione dall'IDE di VB, mi da
l'errore:
"Impossibile trovare il metodo o  il membro di dati"
all'altezza di queste righe
        If mlNumRows > 32767 Then
          mrsFormRecordset.PercentPosition = (hsclCurrRow.Value / 32767) *
100 + 0.005
evidenziando mrsFormRecordset
ed in effetti .percentposition non mi viene visualizzato nella dropdownlist,
quando digito il "." dopo mrsFormRecordset.
Ovviamente suppongo che gli errori siano di più, ma dato che si ferma qui...
Esiste qualche altro link che mi spieghi come risolvere questi problemi? O
esiste un'anima pia che mi suggerisca qualcosa?
P.S. Lupo, per la storia di sabato scorso, non ho ancora risolto quella
query, ma per mancanza di tempo. Sto studiando per un esame e non ho avuto
modo di rimettere mano al codice... e poi sto Visdata che non va...

 che non va...
In bocca al lupo (o, se preferisci, in altro recondito luogo e forse meno
puzzolente, trattandosi di balena) per l'esame, per il resto non
preoccuparti, nemmeno del VisData. Mi sentirei quasi e persino di ...
sconsigliartelo.

 In bocca al lupo
Hai una bocca grande a sufficienza per contenermi? :D
e poi non ti conviene, non me la sentirei di augurarti di crepare
hauhauhauha :D
Scherzo naturalmente.
A presto!
P.S. ho trovato una versione già modificata di Visdata, ma il VB non me la
vede... funziona come applicazione standalone, ma se tento dall'IDE di VB mi
dice che nn riesce a trovare il file.

 numero delle query che fo al database, accorpandone alcune.
Intendevo dire che il trattamento visuale dei dati non può che produrre,
sempre e in ogni caso, un comando SQL. Conoscendo SQL (o imparandolo
cercando di interpretare quel comando "magicamente" generato) si può fare a
meno di ogni tool visuale. Per chi tratta dati, conoscere SQL, anche solo a
grandi linee, è assolutamente indispensabile.
Newsgroup: it.comp.lang.visual-basic
Titolo: datareport

 potete aiutarmi ?
Vai nelle proprietà della sezione Testa; la proprietà ForcePageBreak
definisce il tipo di interruzione di pagina che vuoi ...
Saluti

salve a tutti,
    sono nuovo di questo nws (ho sempre assistito in bckground) e di VB:
    ho creato un datareport don due sezioni (testa - dettaglio), ho un
piccolo problema :
al salto pagina può capitare di avere la testa in una pagina e il dettaglio
nell'altra !! come devo fare per chè stampi testa e dettaglio nella stessa
pagina ( non voglio che salti lapaina a ogni record di Testa !!)
potete aiutarmi ?
grazie a tutti
pantaleo

Newsgroup: it.comp.lang.visual-basic
Titolo: ? Label o variabile

In un form devo memorizzare un numero, che può variare a seconda delle
esigenze.
Questo numero deve in seguito alla pressione di un tasto, essere confrontato
con un altro.
Io ho inserito una label nascosta in cui memorizzo il numero.
Nel tasto ho inserito il seguente codice:
If Index <> label then fai questo.
Volevo sapere se è preferibile al posto della label, dimensionare una
variabile nel modulo del form e assegnare alla variabile il numero da
confrontare.
Voi come fareste?
Ciao Carmelo

 Ciao Carmelo
  Ciao
--------------------------------
Inviato via 
http://usenet.libero.it

 confrontare.
Non so come sia stato possibile il solo pensare si usare un oggetto (grafico
per giunta) per memorizzare un numero :)
Considerando anche che il confronto
Index <> label
è una delle bestialità più atroci :)
Significa far fare a VB qualcosa tipo:
1) Index <> label
2) (numero) <> (Label)
3) Impossibile confrontare (numero) con (Label)
4) Cerco proprietà predefinita di label
5) Riprovo Index <> label.Caption
6) Impossibile confrontare (numero) con (Stringa)
7) Tento conversione di Index in (Stringa)
8) Index (Stringa) <> Label.Caption
Qunado bastava una sola operazione.
Ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: Creazione di documenti word da visual basic

Buongiorno a tutti! Ho scritto il seguente codice per la creazione di un 
documento word a partire da un file di testo:
        Dim ReadRiga
 
        ' Apro una nuova istanza di Word
        Dim WordApp As New Word.Application
        Dim Riga As String
 
        WordApp.Visible = True
 
        ' creiamo un documento nuovo
        WordApp.Documents.Add
        WordApp.Selection.PageSetup.Orientation = wdOrientLandscape
 
WordApp.Selection.Font.Name
 = "Courier New"
        WordApp.Selection.Font.Size = "8"
 
 
        'Apro il file ASCII da convertire e lo leggo tutto, riga per riga
        Set fso = CreateObject("Scripting.FileSystemObject")
        Set MyFile = fso.getFile(PathComune & "\Stampe\" & Nomefile & 
".spool")
        Set ReadRiga = MyFile.OpenAsTextStream(1)
 
        Do While Not ReadRiga.AtEndOfStream
 
            Riga = ReadRiga.ReadLine 'leggo una nuova riga
            ' Scriviamo Il nostro testo
            WordApp.Selection.TypeText Riga & Chr(13)
            DoEvents
 
        Loop
 
        DoEvents
        Set ReadRiga = Nothing
        Set MyFile = Nothing
        Set fso = Nothing
Fi qui tutto bene, mi si presenta però un crash si winword.exe quando 
questo codice gira su macchine windows 2000 pro con office 2000, in 
pratica alla fine della creazione del documento word va in errore e mi 
obbliga a chiuderlo... (non sempre, a volte funziona), ci sto perdendo la 
testa ma non ho ancora trovato soluzione.
Consigli o suggerimenti?
Grazie comunque, Daniele.

 ha scritto nel messaggio
news:afrnhg$7tt$1...@newsreader.mailgate.org...


Purtroppo non risolve il problema...
Boh! Non so più dove sbattere la testa.
Ciao, Daniele.
Newsgroup: it.comp.lang.visual-basic
Titolo: Masked Edit Control

Ciao a tutti.
Nei giorni scorsi "effedipi" e "Max" mi hanno aiutato molto nel risolvere un
problema, la cui risoluzione risiedeva nell'inserimento di un controllo
MaskEdBox. Purtroppo, dopo aver inserito Microsoft Masked Edit Control 6.0
come componente, nel momento in cui vado ad inserirlo in un form (standard),
VB5 (enterprise edition) ritorna il seguente messaggio di errore:
"Non sono state trovate le informazioni relative a questo componente. Non è
possibile utilizzarlo nell'ambiente di sviluppo (errore 429)"
Soluzione proposta dalla guida: reinstallare il controllo perchè le
informazioni nel
registro sono stata cancellate o sono rovinate?!?!?!?
Ho provato ad installare manualmente il controllo MSMASK32.OCX, ma niente.
Tra l'altro, nelle Referenze del progetto è comunque presente e selezionato
(devo forse
impostargli la priorità???).
Lo stesso errore lo incontrai anche in passato con il controllo UpDown, ma
lo risolsi. Il guaio è che non mi ricordo come!!!!!!
Grazie a quanti mi risponderanno.
Buon lavoro e buona programmazione a tutti.
Federico

 possibile utilizzarlo nell'ambiente di sviluppo (errore 429)"
[snip]
Nel mio progetto c'č la versione 5.0 del Masked edit...
Magari qualche SW ti ha ricpoerto la versione utilizzabile con una piů
recente.
Hai provato anche ad installare SP ? Io ho il 3 (anche se l'utima modifica
al Masked č nel 2, se non sbaglio...)
    Saluti
        Massimo

Ciao carissimo.
Ultimamente mi sento proprio un inetto. Non riesco a risolvere cose
all'apparenza semplicissime.
Ho installato il Service Pack 3 qualche mese fa, ma č possible che abbia
fatto anche altre installazioni che hanno rotto l'equilibrio del PC.
Mo' provo a reinstallarlo e vediamo cosa succede.
Thanx e alla prox, vi faro' sapere com'e' andata.
Ciao da Federico

Molto bene, tutto chiaro!
Ho disintallato VB5, e rinominato msmask32.ocx, che ora il controllo
incriminato (potevo anche cancellarlo, ma non si sa mai!).
Ho riavviato diligentemente la macchina, e reinstallato il caro VB5
Enterprise Edition.
Vado subito a controllare i componenti.
VB5 ha in dotazione, Microsoft Masked Edit Control 5.0!
Il SP3 invece, installa Microsoft Masked Edit Control 6.0, aggiornando il
precedente (probabilmente è un aggiornamento valido per VB6). Non si finisce
mai di imparare.
Ora non ci sono problemi, posso inserire in un form, il tanto agoniato
controllo per date e numeri decimali.
Grazie e a buon rendere.
Federico
PS
Qualcuno si ricorda quali altri aggiornamenti e correzioni faceva il SP3?

 Grazie e a buon rendere.
Bene. Saluti.
    Massimo

Chi ci capisce qualcosa e' bravo!
Bye da Federico
Newsgroup: it.comp.lang.visual-basic
Titolo: AIUTO: Come si blocca la tastiera?!?!

Ci combatto da giorni: devo fare un programma che limita l'accesso a Windows
95, e non posso utilizzarne uno già fatto, perchè deve avere anche altre
funzioni particolari. Ma non riesco a bloccare le combinazioni di tasti di
Windows (tipo ctrl+alt+canc, per intenderci). C'è forse una chiamata API?
Qualche dll che blocca la tastiera?
Sarò MOLTO grato a chiunque mi sappia dare una risposta
Simone

Allora.....hai provato con un poco di attack?
--
Che il Bubuti Bauontico sia con Voi....
Gabriele Del Giovine
mc6491@_
sonoqui_mclink.it
Togliere _sonoqui_ per le risposte in e-mail
Please remove _sonoqui_ for e-mail reply

...



Grazie mille, funziona perfettamente!!!! Mi hai risparmiato secoli di
ricerca!
Simone

Che il Bubuti Bauontico sia con Voi....
Che vor di'?
Simone
Newsgroup: it.comp.lang.visual-basic
Titolo: Join tabelle access

Riposto il problema sperando in qualche anima buona
In un testo per programmare DB da Visual basic ho letto che l'unico modo per
ottenere tabelle modificabili in VB con DAO e' creare il recordset con la
join esplicita ( inner join  ) e cosi' ho fatto passando la stringa sql alla
proprieta' recorsource del controllo ma quando di scrivere i dati modificati
nei record mi da' un errore al runtime che mi dice che la tabella e' aperta
in sola lettura (!?)
GRazie per l'aiuto
Saluti
Corghi Stefano

>in sola lettura (!?)
Tabelle aperte con JOIN quasi mai sono modificabili. Access spesso lo lascia fare ma se hai aperto il database non in modalita' read only e se hai aperto un dynaset modificabile il tuo problema e' invalicabile.
Antonio

in sola lettura (!?)
Non basta l'inner join, devi verificare che i campi nel join siano
entrambi indicizzati e che quello dalla parte uno sia univoco.
Di solito, se puoi creare una relazione con l'integrita' referenziale,
allora puoi anche avere recordset aggiornabili.
Bai
--
Lorenzo Coronati
--
<<Nessuno sa che questa affermazione e' vera>>
(John D. Barrow)
--

 wrote in message
3899f35f...@news.libero.it...


Per creare gli indici da VB come devo fare?
Vale per DAO:
With tabledef
	Set indice = .CreateIndex("nomeindice")
	indice.Fields.Append .CreateField("campo")
	.Indexes.Append indice
	.Indexes.Refresh
End With



Controlla meglio la stringa SQL, provala prima con Access.
Il modo migliore per realizzare una stringa SQL che funzioni correttamente
su un database di Access è far creare la stringa da Access stesso
utilizzando la QBE, poi si visualizza la stringa SQL (è un'opzione della
query), la si copia e la si incolla sul codice VB.
A volte non è possibile aggiornare delle query, succede quando sono
collegate in "malomodo" alcune tabella. Il risultato è che si vedono i
risultati ma non si riesce ad aggiornarli. Ad esempio collegando una tabella
clienti ed una tabella ordini senza passare da un'altra tabella dettaglio
ordini crea un problema del genere che hai riscontrato.
Mi ripeto, crea la query con Access, verificala su questo programma, poi cut
and past.
--
Bye from WildSkin
wild...@iol.it
http://digilander.iol.it/wildskin/
ICQ #48778908
--------------------------------------------------------------------------
Sito ufficiale del NG it_comp_lang_visual-basic
http://www.murialdo.it:8000/it_lang_vb/
--------------------------------------------------------------------------
Newsgroup: it.comp.lang.visual-basic
Titolo: DataGrid & Evento Error

Ciao a tutti,
                come riporta la documentazione del VB6 l'evento Error viene
generato solo in seguito a un errore di accesso ai dati che si verifica
quando il codice Visual Basic non è in esecuzione.
Normalmente in seguito a questo evento il controllo DataGrid genera una
mesgbox dove viene riportato il tipo di errore avvenuto.
C'è qualcuno che sa come evitare la comparsa della msgbox?
grazie Jaxxon


Ciao, da dummies quale sono, ti consiglio un attento studio della gestione
degli errori che sono fondamentali in Vb per evitare "brutte figure" quando
i tuoi programmi si bloccano.
Ci sono due istruzioni fondamentali in VB
UNa è:
"On error resume next",da mettere all'inizio di una procedura che ti fa
andare avanti il programma nonostante l'errore...
Un altro è:
"On error go to Etichetta", dove nella procedura alla fine del codice
dichiari appunto l'etichetta e gli dai i comandi da svolgere in caso di
errore...
Guardati per maggiori info il comando "on error"...

 ha scritto nel messaggio
news:d5tY9.78219$0v.23...@news1.tin.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Email Spy Sniffer

Necessito di un software, che "guardi" la posta, in arrivo all'indirizzo
email della mia ragazza. QUalcuno sa? ha idea di come realizzare un
programma del genere o ne č in posseggo?
GRazie
MEssaggio URGENTE!!!
dev...@hotmail.com

Dubito che l'esca della gelosia funzioni!
Ciao Marco
-- 
Remove xxx from E-mail.

...



--__--  e vieni a cercare una cosa del genere qui? E tra l'altro in modo
cosě spudorato??? Come osi, solo permetterti di fare una richiesta del
genere? Che diritto hai di spiare la posta di qualcun'altro? Questa č
violazione di privicy bella e buona. Segnalo il tuo ip al tuo provider...
Addio.
Newsgroup: it.comp.lang.visual-basic
Titolo: [FORSE OT...ditemi voi]  Software multiutente in vb6

Salve ragazzuoli,
mi č capitato di sviluppare un software in vb 6  Server /client...una sorta
di spyware autorizzato che monitora tutti gli utenti in modo che non usino
un determinato programma, l'utente appena arrivato sulla macchina deve
inserire il proprio nick e l'indirizzo del server....e da quel momento in
poi č "controllato", ho fatto i vari controlli sulla duplicazione di nick e
di ip, ma c'č una cosa he mi frega, se un mio amico "pulito" si collega con
il mio nick io posso continuare ad utilizzare il programma senza che nessuno
mi posso vedere (anche perche gli ip sono dinamici e non ne ho
traccia...quindi non posso sapere se la persona che si collega č realmente
l'utente o meno)...per ora l'unica idea che mi č venuta č quella di far
registrare l'utente sul sito e fare in modo che al primo utilizzo inserisca
un codice univoco che mi permetta poi in seguito di vedere a quale utente č
registrata quella copia del software.
La cosa mi sembra un po macchinosa...avete qualke idea o avete gia
realizzato qualche cosa simile ?
Tnx Peppo

 software.
Si, se per esempio prevedi che gli utenti accedano ogniuno dalla propria
macchina, bhe allora prendi un numero formato dal seriale dell'hd, dal nome
utente...
inventalo ^_^
Magari genera un numero sul server e invialo in mail , cosi l'utente
autorizzato lo riceve e lo reinserisce sul sito.
-- 
<Gigio2K>
--- 
http://www.g2kweb.it/gigio2k
 ---
Nokia -> I.T.H.N. -> 
http://www.ithn.it/
VB -> I.C.L.VB -> 
http://www.it-lang-vb.net/

 autorizzato lo riceve e lo reinserisce sul sito.
Mi piace l'idea del numero seriale del hd....come faccio a leggerlo da VB?
Tnx del suggerimento Pep

 da VB?
API :
Private Declare Function GetVolumeInformation Lib "Kernel32" Alias
"GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal
lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long,
lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long,
lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal
nFileSystemNameSize As Long) As Long
Private Sub Form_Load()
'KPD-Team 1998
'URL: 
http://www.allapi.net/
'E-Mail: KPD...@Allapi.net
Dim Serial As Long, VName As String, FSName As String
'Create buffers
VName = String$(255, Chr$(0))
FSName = String$(255, Chr$(0))
'Get the volume information
GetVolumeInformation "C:\", VName, 255, Serial, 0, 0, FSName, 255
'Strip the extra chr$(0)'s
VName = Left$(VName, InStr(1, VName, Chr$(0)) - 1)
FSName = Left$(FSName, InStr(1, FSName, Chr$(0)) - 1)
MsgBox "The Volume name of C:\ is '" + VName + "', the File system name of
C:\ is '" + FSName + "' and the serial number of C:\ is '" +
Trim(Str$(Serial)) + "'", vbInformation + vbOKOnly, App.Title
End Sub


Gigio il codice che hai postato non funziona bene, sono riuscito cmq ad
estrapolare il seriale :)
tnx...mo mi metto al lavoro :)

 tnx...mo mi metto al lavoro :)
O_o come non funzia ? E' quella del team di Allapi !

Newsgroup: it.comp.lang.visual-basic
Titolo: Aiuto: "Inizializzazione del File VBA di JET (VBAJET.DLL.... VBAJET32.DLL..) non riuscita alla chiamata"

Cerco aiuto per risolvere un grave problema che affligge i programmi
realizzati in VB5.
Inspiegabilmente, probabilmente a seguito di una installazione di un
programma piuttosto datato,
i programmi scritti in VB5 (e anche VB5 stesso) non funzionano più!
Quando si attiva il controllo DATA compare l'errore "inizializzazione del
file VBA di Jet (VBAJET.DLL per le versioni 16 bit o VBAJET32.DLL per le
versioni a 32 bit) non riuscita alla chiamata. Provare a reinstallare
l'applicazione che ha restituito l'errore".
Ho tentano in tutti i modi di ripristinare il funzionamento (reinstallando
il programma e anche VB5) ma senza successo.
Qualcuno sa come risolvere il problema?
Grazie a tutti.

salve,
se hai installato VB6, con questo viene cambiata la Dao350.dll, che
necessita di Exprv.dll nel system..
altrimenti non saprei..
saluti
Andrea Montanari
hs...@guest.net

Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] bandi di concorso del Governo per l'ecommerce

Salve,
scusate l'irruzione e non flamatemi, perchè ritengo che questa informazione
possa essere di comune interesse per il NG.
Esiste un bando di concorso del Governo Italiano per finanziare attività
legate all'ecommerce, un'opportunità sia per chi propone simili attività,
sia per chi intende fruirne. In pratica se qualcuno di voi stà lavorando ad
un progetto simile (e per simile si intende anche motore di ricerca,
portale, ecc.) può essere finanziato dal 50% al 60%. Credo che parecchi di
voi potrebbero essere interessati, anche per la raggiungibilità dei
requisiti richesti. Quindi, se volete discutere con me di questo,
contattatemi privatamente.
Buon lavoro a tutti.
PS: Su questo argomento il Ministero ha predisposto un sito
(
http://www.legge388.info
) e anche un numero verde (800.388.388), ma per chi
non ha tanto tempo di fare ricerche ho predisposto un kit che potete
scaricare, contiene solo i documenti ufficiali (nemmeno una riga di
pubblicità o altro): 
http://apps.aielli.org/legge388.zip
 (ca 2MB)
//  ---------------------------------------------------------------
//  Giuseppe Simone Aielli - ICT & Web consulting
//  
http://www.aielli.info

 volete discutere con me di questo, contattatemi privatamente.
Davvero interessante , lunedi lo faccio valutare con calma grazie per la
segnalazione !
-- 
<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: Uso corretto di WM_SYSKEYDOWN per inviare tasti

Buonasera,
vorrei inviare ad un'applicazione di cui conosco l'handle la combinazine di 
tasti ALT+F.
Credo di aver capito che si debba usare il tipo di messaggio WM_SYSKEYDOWN 
insieme all'API SendMessage, ma non so come di preciso?
Potreste aiutarmi?
Grazie, Emilio. 

Emilio ha scritto...

Ciao Emilio,
puoi usare anche il comando SendKeys...
AppActivate "MyApp" ' Titolo della finestra da richiamare o l'ID del task
SendKeys "%{F4}", True ' Invia ALT+F4
-- Ciao Fede
By Chicco Production
http://www.webalice.it/bychicco/

> SendKeys "%{F}", True ' Invia ALT+F
Scusa per l'errore...


 ha scritto nel messaggio 
news:47d5c95f$0$10624$4faf...@reader2.news.tin.it...

Ciao Fede,
anzitutto grazie per la risposta.
Non voglio usare sendkeys per via della dipendenza dal focus.
Io vorrei mandare la combinazione di tasti ad una finestra specifica. 

insieme all'API SendMessage, ma non so come di preciso?
Qui c'è la risposta a uno che aveva i tuoi stessi problemi:
http://shorterlink.org/4138
In alternativa puoi usare l'api SetKeyboardState, più adatta per inviare
combinazioni di tasti:
http://allapi.mentalis.org/apilist/SetKeyboardState.shtml
--
ciao
  Stefano
Newsgroup: it.comp.lang.visual-basic
Titolo: Listsubitems.Add lento!!! esiste un TAB?

Innanzitutto auguro a tutti Buon Natale!
Devo riempire una listview con circa 200 dati.
Tempo impiegato per 200 "set itemx = listview1.listitems.add()"  ........
2,5 secondi.
Per ogni item aggiungo 3 subitems (itemx.listsubitems.add), mi aspetto che
ci voglia diciamo 10secondi.
INVECE CE NE METTE 22!!
A questo punto sarebbe bello se potessi fare:
Set ItemX = ListView1.ListItems.Add( , ,"Codice" & Chr$(9) & "Descrizione" &
Chr$(9) & "Unit" & Chr$(9) & "Prezzo")
cioč utilizzare un separatore "tipo" TAB. Perň Chr$(9) non funziona. Sono
sicuro che esiste un modo per visualizzare i dati di una listview in modo
tabulato SENZA usare le columns (pur potendo in qualche modo impostare
l'ampiezza delle colonne) utilizzando dei caratteri separatori, perň non mi
ricordo come si fa (l'ho visto di sicuro su qualche sito ma č tutta la sera
che lo sto ricercando e non lo trovo!)
Qualcuno sa come si fa?
Grazie
Valerio

 Chr$(9) & "Unit" & Chr$(9) & "Prezzo")
[SNIP]
Una cosa del genere puoi farla con una normale ListBox, tanto piu' che usare
un ListView in modalitą report per poi farsi le colonne "a mano" non ha
molto senso...
Piuttosto controlla esattamente la procedura di caricamento, perche' non e'
normale che ci metta cosi' tanto solo perche' invochi il metodo .Add,
perlomeno con il numero di elementi di cui parli.
per esempio se prendi una Form vuota, metti un ListView e provi questo
codice in un Command, quanto impiega?
Dim objItem As ListItem
Dim i As Long, j As Long
ListView1.View = lvwReport
ListView1.ColumnHeaders.Clear
ListView1.ListItems.Clear
For j = 1 To 5
    ListView1.ColumnHeaders.Add
Next
For i = 1 To 500
    Set objItem = ListView1.ListItems.Add(, , "Item #" & i)
    For j = 1 To 5
        objItem.ListSubItems.Add , , "SubItem #" & i & "." & j
    Next
Next
sul PC piu' "sfigato" ha cui ho accesso (PII 233) e' quasi istantaneo,
probabilmente il problema di lentezza deriva da qualcos'altro (tipo
l'accesso ai dati veri e propri)
Ciao
--
Luca Dormio - 
luca....@tin.it
________________________________
"Marty, non stai ragionando in maniera quadridimensionale"
Dr. Emmett L. Brown

 Dr. Emmett L. Brown
infatti, dottore, assolutamente monodimensionale.
cordiali saluti, sua
j.h.marcuse
--
ciao, j.
--
www.sundaysw.com

 ha scritto nel messaggio
news:9vtop0$hj7am$1...@ID-51318.news.dfncis.de...

Newsgroup: it.comp.lang.visual-basic
Titolo: [SEMI-OT] EBS1500 & Comunicazione Seriale

Salve a tutti, volevo fare una domanda che può risultare strana, come lo è
risultato a me...
Ho un marcatore a getto di inchiostro EBS1500 ma il problema è a riguardo la
comunicazione seriale. Ho la stringa che devo inviare a questo marcatore e
mandandola tramite HyperTerminal funziona correttamente, e mi ritorna la
stringa giusta, tramite VB non vuol sapere di andare. Questo è una cosa
assai strana anche perchè le impostazioni sono corrette, invio la mia
stringa ma da VB non vuol sapere di rispondere alla mia richiesta. Sono
certo di avere messo tutto corretto, anzi sicurissimo. Ma da HyperTerminal
funziona e da VB no...
Questo è un bel mistero.....
Sapete qualcosa a riguardo?

"Deimos" <m.l4s4gni[N0R3PLY]@tutt0imb4ll0.1t> ha scritto nel messaggio
news:b56q2j$ifi$1...@fata.cs.interbusiness.it...

Se non ci fai vedere un minimo di codice.....
e comunque se fosse tutto corretto come dici funzionerebbe! ;-)
ciaociao
Newsgroup: it.comp.lang.visual-basic
Titolo: Liste o Griglie selezionabili.

Salve a tutti,
qualcuno sa dirmi se è possibile popolare liste o griglie
con l'opportunità di selezionare i vari dati , magari con un checkbox, o
qualcosa di simile.
Grazie Alberto

 ha scritto:

Se ti accontenti di poco, usa l'oggetto Listbox in cui puoi settare
l'attributo Style = 1  (Checkbox)
termoPilucco.

Alberto ebbe il coraggio di dire:

ListView
MIk

Grazie Mille.  Alberto.

Newsgroup: it.comp.lang.visual-basic
Titolo: - COSTANTI X PROPRIETA'

Scusate se ripropongo questo msg un'altra volta,ma ho avuto dei problemi col
computer e di conseguenza ho perso le risposte.
Se qualcuno mi aveva risposto,potebbe farsi risentire???
AVEVO SCRITTO:
Parto con un esempio x essere chiaro:
la prop. scrollbar della textBox possiede le costanti:
    vbHorizontal
    vbVertical
    vbBoth
Siccome sto creando un ocx,vorrei definire x una prop. un mio gruppo di
costanti.
come?
rispondete sul ng

Dovresti creare una variabile Enum, se ne è già parlato.
Prova a fare una ricerca su 
www.deja.com
 
Ciao
:-) Hd (-:
p_di...@freemail.it
  (okkio, non è politico ^_^)
hd...@azienda.net
Sito Comune:
www.murialdo.it
\it_lang_vb
----------------------------------------------------------------------------
Quando l'ultimo pesce sarà catturato, l'ultima fiamma sarà 
spenta, l'ultimo fiume avvelenato, solo allora capirete che non 
si può mangiare solo denaro.
-----------------------------------------------------------------------------
Newsgroup: it.comp.lang.visual-basic
Titolo: Registrare un array

Salve a tutti.
Sapreste dirmi come fare a registrare un array ( le cui dimensioni non sono
predefinite, ma variano di volta in volta ) in un mdb ?
Grazie

 ha scritto nel messaggio
news:XPHm9.173315$ub2.3...@news1.tin.it...

?? non ho capito ciao Joe

 ?? non ho capito ciao Joe
Cerco di spiegarmi meglio :
ho un array (Dim celle(13,13) As String), che pero'  puo' variare di
dimensione (Redim ...) quindi potrebbe essere 12, 5 o 17, 20 ecc.
A fine elaborazione, vorrei memorizzare il contenuto di "celle" in un mdb,
ma come devo fare ?
Spero di essermi spiegato.
Ciao

 ha scritto nel messaggio
news:H1Im9.173406$ub2.3...@news1.tin.it...

le dimensioni sono sempre 2?
cosi' di primo acchitto mi viene in mente una tabella cosi'
indice1
indice2
valore
oppure se le dimensioni possono essere anche di piu'
puoi usare una chiave di tipo stringa che riempi con cifre a larghezza
fissa:
chiave
valore
e chiave potrebbe essere
'001001' per indicare l'elemento array(1,1)
oppure
'003127312' per indicare l'elemento array(3,127,312)
magari ti complichi la vita in lettura, ma neanche + di tanto
HTH
Ciao
Enrico
www.it-online.it
(^ non c'e' niente da scaricare.. pura e semplice pubblicità scroccata!!
:-)) )

Newsgroup: it.comp.lang.visual-basic
Titolo: Combo con spiegazione

Ho creato la mia combo in una form:
Private Sub Form_Load()
    Tipoturno2.AddItem "."
    Tipoturno2.AddItem "I"
    Tipoturno2.AddItem "R"
    Tipoturno2.AddItem "C"
    Tipoturno2.AddItem "AG"
    Tipoturno2.AddItem "M"
    Tipoturno2.AddItem "F"
    Tipoturno2.AddItem "FF"
    'Seleziona il primo elemento.
    Tipoturno2.ListIndex = 0
End Sub
Quando l'utente apre il menů a tendina di trova davanti una serie di lettere
e basta.
E' possibile aggiungere una colonna di fianco dove mettere la spiegazione,
perň quando l'utente seleziona la sua scelta deve restare solo la lettere
presente nella prima colonna.
Es.
I         Intervallo
R        Riposo
C        Congedo
M        Malattia
C'č un modo????
Ciao e grazieeeeeee

 news:ct8d8f$43s$1...@balena.cs.interbusiness.it...


 ha scritto nel messaggio 
news:ct8d8f$43s$1...@balena.cs.interbusiness.it...


 ha scritto nel messaggio
news:ct8j2j$2bf$1...@fata.cs.interbusiness.it...


Potresti fare cosě:
Tipoturno2.AddItem "I - Intervallo"
Tipoturno2.AddItem "R - Riposo"
Tipoturno2.AddItem "C - Congedo"
Tipoturno2.AddItem "I - Malattia"
Quando l'utente seleziona qualcosa dalla combobox, puoi capire cosa ha 
scelto usando questo pezzo di codice:
Dim Scelta As String
Scelta = Left(Tipoturno2.Text, InStr(TipoTurno2.Text, "-") - 2)

 ha scritto nel messaggio 
news:ctbd1f$h56$1...@fata.cs.interbusiness.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: da hex a dec

Ciao ragazzi,
dovrei convertire un numero esadecimali di due cifre, contenuto in una
variabile string, in sistema decimale...avete qualche dritta?
grazzzzzz....come smepre!

 variabile string, in sistema decimale...avete qualche dritta?
clng
però il numero deve essere preceduto da  &h
ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: Accesso ftp da VB.

Salve a tutti, quando ho problemi con VB spero sempre di trovare tra di voi 
le risposte adatte e di questo vi ringrazio in anticipo. Dovrei realizzare 
una semplice utility che mi permetta dopo aver scelto diverse foto dal 
proprio PC, di copiarle in automatico, tramite pressione del relativo 
pulsante, nella directory di un sito tramite ftp. In futuro questa cosa 
avverrà, si spera direttamente on-line dal sito stesso, ma per questioni di 
tempo sarebbe necessario qualche altro espediente, così pensavo ad un 
utility in VB. Per quanto riguarda il resto dell'applicazione tutto ok, so 
dove mettere le mani, a parte una cosa che vi chiederò tra poco, però per la 
parte del collegamento al sito tramite ftp e per la sostituzione delle foto 
presenti in una certa cartella con quelle scelte dall'utility proprio non so 
come fare. Mi potete consigliare qualcosa, anche un sito da poter 
consultare?
In più volevo chiedervi anche se fosse possibile tramite VB fare il resize 
della foto, e se si come.
Grazie mille a tutti.
Ciao, Ciao.


Io ho utilizzato questo:
http://activex.sourceforge.net/esftp.html
Ciao.
-- 
Sergio MAZZA 

 
http://activex.sourceforge.net/esftp.html
Hippi una risposta!!! ^_^
Ti ringrazio per la info, non appena potrň la proverň subito insieme ad 
un'altro ActiveX che ho trovato dopo innumerevoli ricerche.
Grazie ancora.
Ciao, Ciao.

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Aggiunta di una voce di menù in runtime

Si può aggiungere una voce di menù ad un form in runtime? Breve e conciso.
Grazie.
dario...@iol.it


Ossia? Nel file della guida non c'è niente a riguardo, mi sto quasi
disperatamente votando alle API...
dario...@iol.it
http://dariobrunocorti.freeweb.org

...



Si. Dai un'occhiata alle API GetMenu, AppendMenu, InsertMenu.
Ciao


[snip]
Grazie! Tutto a posto.
 
dario...@iol.it
http://dariobrunocorti.freeweb.org
Newsgroup: it.comp.lang.visual-basic
Titolo: Forse una scemata - Messanger

E' possibile in qualche modo gestire in un programma VB degli input che
arrivino da programmi come Messanger i Icq?
Vi spiego qual'č la mia idea ....non č un'applicazione commerciale ma un
programma che serve a me.
Io sono abbonato a FastWeb e come molti sapranno la rete FW č composta da
IP privati ....ora c'č un'offerta che permette di ottenere a pagamento un
IP pubblico ...unico problema č che ogni volta che si vuole l'IP pubblico
bisogna fare la "richiesta" dal computer in cui si vuole l'IP pubblico e
non si puň fare da remoto.
Ora se io avessi un programma VB in esecuzione che quando riceve un certo
input da messanger o icq facesse partire la richiesta di attivazione di
IP pubblico potrei anche farlo da remoto.
Se qualcuno ha qualche idea e se mi sa dire se č possibile farlo mi faccia
sapere ...se non fosse possibile in VB ma lo č in VB.Net o C# oppure se
avete altre idee invece che utilizzare icq e messanger fatemi sapere
ugualmente.
PS
Mi č venuto in mente ora che in alternativa a Messanger e IP siccome sul
PC di casa č anche installato un modem potrei mandare un segnale via modem
anche se tutto risulterebbe molto difficoltoso perché non potrei farlo da
qualsiasi postazione internet ma dovrei fare una chiamata direttamente a
casa.
--
Claudio P.
ICQ: 39052657

 da programmi come Messanger o Icq?
Ho scritto vari programmi che gestiscono MSN Messenger, l'interfacciamento
con le API di tale software e' estremamente semplice e ben documentato.
Sulla rete troverai numerosi tutorial su come realizzarlo.
Vado a memoria: dichiari una variabile Withevents come MsgrObject e
nell'evento OnTextReceived gestisci il testo ricevuto e conoscere il
contatto che te l'ha mandato.
hth,
Lokar
--
Sito Comune: 
http://www.it-lang-vb.net/
Manifesto: 
http://www.it-lang-vb.net/docs/Manifesto.txt
UGIdotNET - 
http://www.ugidotnet.org

 contatto che te l'ha mandato.
Sai mica indicarmi dove trovare qualche listato?
Grazie


Newsgroup: it.comp.lang.visual-basic
Titolo: Aiuto Urgente !!!

E' da tempo che non lavoravo + con VB5, quando l'ho riaperto per modificare
un mio programma mi dà un msg che non ho la licenza per usare il controllo
OCX MaskEdit, tutti gli altri funzionano regolarmente. Come posso fare per
risolvere il problema. Il msg originale è il seguente:
"Non sono disponibili informazioni sui diritti di licenza per questo
componente. Non sono disponibili i diritti di licenza necessari per
utilizzare questa funzione in ambiente di progettazione (Errore 429)"....
Vi prego aiutatemi, ne ho parecchio bisogno....
                                                        Grazie in
anticipo...                                                        Simone.

 wrote in message
8kiknv$m3p$1...@nslave2.tin.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Sintassi..

Ho bisogno che il nome della tabella sia definita da una stringa.
dove sbaglio??
Set myset = db.OpenRecordset("select * from ['" & nomeTabella & "'] where
['" & nomeTabella & "'].percorso like '*" & Text1.Text & "*' ")
Se qualcuno ha qualche idea......
Grazie!

 ['" & nomeTabella & "'].percorso like '*" & Text1.Text & "*' ")
Ipotizzando che "percorso" sia il nome di una campo della tabella con nome
"nomeTabella", nota alcuni ... piccolissimi ... particolari:


 wrote in message
b4dnsp$1ub1i0$1...@ID-174464.news.dfncis.de...


 ha scritto nel messaggio
news:ggtaa.26916$pG1.6...@news1.tin.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: [VB6] Algoritmo TEA e overflow

Devo fare il porting in VB6 dell'algoritmo di cifratura TEA.
Ne ho trovato un'implementazione qui:
http://www.experts-exchange.com/Programming/Languages/Visual_Basic/Q_21261563.html
Il problema però sorge con l' Xor che genera un overflow.
Sinceramente non sto riuscendo a trovare una soluzione...
Nemmeno seguendo le indicazioni di questo post:
http://groups.google.it/group/it.comp.lang.visual-basic/browse_frm/thread/2bd458829ef29cb6/4f1a8d2fc648b1d5?hl=it&lnk=gst&q=overflow+double#4f1a8d2fc648b1d5
Esempio:
  Dim a As Double: a = 25631#
  Dim p1 As Variant: p1 = 34466827869#
  Dim p2 As Variant: p2 = 491442869#
  Dim p3 As Variant: p3 = 1018616974#
  a = a + (p1 Xor p2 Xor p3) Overflow!
  a = a + (CDec(p1) Xor CDec(p2)  Xor CDec(p3) ) Overflow!
Avete qualche suggerimento?
Tnx.
Daniele.


Il problema AFAIK è che Xor accetta solo numeri che "stanno" in un long 
(-2^31..2^31-1).
P1>2^31, quindi il cast implicito di VB6 double (o decimal o currency) 
fallisce.
Nel primo link, scorrendo la soluzione, ho trovato un riferimento a questo 
codice VB, non so se l'avevi visto:
http://www.a1vbcode.com/snippet.asp?ID=468
Qui si usano byte array e long (signed) facendo attenzione al segno.
HTH
Raf

Credo che tu possa suddividere l'operazione di Xor in sotto operazioni 
gestibili da VB6
Ad esempio P1=34466827869# è uguale in esadecimale 0008 0662 0E5D
Perciò è sufficiente dividere P1 per &H10000 per ottenere 0008 0662 (byte a 
peso maggiore), mentre per ottenere quelli a peso minore (i primi 4) esegui 
la differenza:
    Dim p1H as Long
    Dim p1L as Long
    p1H = p1 / &H10000
    p1L = p1 - CDbl(p1H) * &H10000
Fatta la stessa cosa per p2 e p3, l'operazione a tre fattori la scomporrai 
così:
    Dim rH as long
    Dim rL as Long
    rH = p1H Xor p2H Xor p3H
    rL = p1L Xor p2L Xor p3L
a = a + CDbl(rH ) *  &H10000 + rL
Non ho provato, ma questa è la strada giusta
-- 
Ettore Massimo Albani
. 


Si, l'avevo visto...
La cosa che mi era sfuggita era che il codice _DEVE_ essere compilato
(senza controllo sugli overflow) per funzionare!
Per fare prima mi sono creato una mini-DLL che richiamo dal mio
progetto (abilitandola tramite un'opzione di compilazione) quando devo
fare il debug nell'IDE, invece quando compilo il progetto uso il
codice embedded.
Tnx!
Daniele.

 Non ho provato, ma questa è la strada giusta
Si effettivamente ci avevo pensato...ma non ho molto tempo.
Per adesso uso un accrocchio, che ho spiegato rispondendo a Raf!
Tnx!
Daniele.
Newsgroup: it.comp.lang.visual-basic
Titolo: MAPI e attachments

Sto tentando di scrivere un piccolo client di posta elettronica
utilizzando le MAPI control del VB, però ho un problema riguardo al nome
degli attachments.
Infatti le proprietà .AttachPathName e .AttachName, dell'oggetto
MAPIMessages, contengono dei nomi generati in modo automatico che non
hanno alcuna attinenza con i nomi con i quali il mittente ha spedito gli
attachments.
Il problema è che questi nomi di file generati automaticamente sono
privi di estensione e quindi diventa laboriosa la determinazione del
tipo di file.
Sapete se c'è un modo per ricevere i nomi originari degli attachments?

Giorgio ti ringrazio molto per l'aiuto. Avevo provato in tutti i modi e avevo
quasi perso le speranze.
Ho cercato il file che mi hai indicato nel sito Microsoft, ma non sono riuscito
a trovarlo, ti sarei grato se me lo potessi mandare.
Ancora grazie
 Ciao


...


Newsgroup: it.comp.lang.visual-basic
Titolo: vb6 "intercettare carattere ritorno a capo in stringa"

                    Vorrei sapere come si possa intercettare in una stringa il carattere di
"ritorno a capo".
Ho un applicazione che con vb6 legge dei dati esportati da oracle e gli
esporta su excel, tra i dati c'è appunto una stringa che viene digitata
dall'utente e la presenza in questa stringa del carattere di controllo
ritorno a capo mi da diversi problemi, quindi vorrei eliminarlo
intercettandolo.
 
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 ha scritto nel messaggio news:192Z85Z50Z2Y11...@usenet.libero.it...
                    Vorrei sapere come si possa intercettare in una stringa il carattere di
"ritorno a capo".
Ho un applicazione che con vb6 legge dei dati esportati da oracle e gli
esporta su excel, tra i dati c'č appunto una stringa che viene digitata


 per sistemi non Windows
ciao, j.

 ciao, j.
Come diceva ... "per completezza dell'informazione":
I files di testo prodotti da dos/windows hanno i caratteri vbCrLf (hex
0D0A) come terminatore di riga
I files di testo prodotti da unix hanno il carattere vbLf (hex 0A) come
terminatore di riga
I files di testo prodotti da mac (hanno / avevano) il carattere vbCr (hex
0D) come terminatore di riga
-- 
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: [?] Delaunay

Qualcuno può indicarmi dove reperire materiale e/o software (ocx,
sorgenti...) per implementare la triangolazione di Delaunay in prg VB di
topografia?
grazie

 ha scritto nel messaggio
news:97irv7$367$1...@lacerta.tiscalinet.it...



Grazie. Pensavo non rispondesse più nessuno.
(Ma tu sei il Fabio che ha realizzato Thopos?)

Newsgroup: it.comp.lang.visual-basic
Titolo: Searching files

i like to search the file in a dir or hard disk,
and then get the result, add in the listbox.
how can i do that?
please help me!
thank.

 how can i do that? > please help me! > thank.
jeff
i'm mailing you an ms example.
hth, pal