mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: Aiuto per estrazione icone

Salve ,
avrei bisogno di sapere come estrarre un icona 
specifica contenuta in file.
Grazie a tutti
Bye
      Rocco

...


Newsgroup: it.comp.lang.visual-basic
Titolo: Trovare la posizione di una lettera in una stringa...

Non ho capito se il posto che ho mandato prima sia arrivato...lo 
riposto, nuovamente.
Ho una stringa, voglio contare da destra verso sinistra la posizione di 
un carattere specifico...mi ricordo che in vb esiste (se non sbaglio) 
qualcosa del genere ma non ricordo la sintassi...a qualcuno viene in 
mente qualcosa?
Aspetto news, grazie.
Saluti ciao ciao.
-- 
Posted from 212.29.130.175 by way of 
smtp5.libero.it
 [193.70.192.55] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

instr e instrrev. quest'ultima dovrebbe funzinoare da destra a sinistra,
cioe all'indietro.
mario

Newsgroup: it.comp.lang.visual-basic
Titolo: Serial # unità

ho bisogno di ottenere il serial # del disco fisso.
su M$DN c'è un esempio ma funziona da win98 in poi xè utilizza un
pseudoscript (tra l'altro mi restituisce il # anche del floppy: figata).
qualcuno ha qualche idea? è abb. urgente
grazie
ciao, daniele
Newsgroup: it.comp.lang.visual-basic
Titolo: Problemi con la rs232

Da poco tempo mi sto dedicando alla lettura di uno strumento
attraverso il pc, collegandolo alla rs232, con un programmino che sto
scrivendo  in VB.
Dopo aver configurato la com 1 a 9600 bit per secondo, 8 bit di dati,
parita' N, e 1 bit di stop come la casa costruttrice dello strumento
richiede, nel buffer di ricezione, in MScomm1,  trovo una stringa di
dati in formato ascii. Aggiungendo altre tre righe di codice, traduco
questi valori e mi accorgo che il valore 1 che lo strumento mi
restituisce corrisponde al valore ascii 1.
Mi spiego meglio: la stringa 342, esempio, che lo strumento mi
visualizza sul display, la leggo attraverso il pc come il carattere
ascii 3, il carattere ascii 4 ed il carattere ascii 2.  Fin qui tutto
bene..forse!!!
Il problema invece sorge quando nella stringa compare il valore 0
(zero); ad esempio 302, leggo: il carattere ascii 3 ed il carattere
ascii 2 e lo zero giustamente non compare perche' il carattere ascii 0
(zero) non ha nessun simbolo e la fregatura sta nel fatto che non mi
lascia nemmeno lo spazio vuoto il quale corrisponde al volere ascii
32.
Ho provato anche con altri programmi terminali sotto win come Hyper
Terminal ed altri ma i risultati sono stati identici. Solo sotto Dos
sono riuscito a leggere lo zero ed una lettera (che non e'
fondamentale) ma il programma che ho utilizzato serve a tutt'altre
cose.
Mi sapete spiegare perche' sotto Dos riesco a leggere i valori
corretti??
Vi ringrazio anticipatamente per qualsiasi informazione e suggerimento
che mi possiate fornire.

 che mi possiate fornire.
Se hai bisogno di altro scrivimi pure privatamente, che con il controllo
MSComm, purtoppo, ci ho fatto le ossa!
Ciao,
Henrik.


Prova ad entrare nelle proprietą di MScomm1 poi su hardware poi deseleziona
"NullDiscard"  e vedrai che ti arrivano anche i zeri .
Ciao e fammi sapere
Roberto


Grazie Roberto per aver risposto!
Ho seguuito il tuo consiglio deselezionando NullDiscard ma gli zeri
non ancora li vedo. Non so se sbaglio la visualizzare in formato
testo:
Private Sub MSComm1_OnComm()
    Select Case MSComm1.CommEvent
            	Case comEvReceive
            	buffer = MSComm1.Input
	Text1.Text = Text1.Text + buffer
    End Select
End Sub
Ho provato anche a visualizzare con un command1 il Chr$(0) ma non c'e'
stato nulla da fare.
Ti ringrazio!
Newsgroup: it.comp.lang.visual-basic
Titolo: uscire da un ciclo while

come si esce da un ciclo while in visual basic?

 wrote in message
news:6fNW6.7685$Cq5.3...@news.infostrada.it...


        Exit While
ho qualche dubbio :(
ciao, hal

 wrote in message
news:9ggdhl$6ju$2...@pegasus.tiscalinet.it...


ho capito, ma quindi come si fa ad uscire da un ciclo while?
Diego ha scritto nel messaggio ...


Ripropongo la domanda posta qualche giorno addietro.
Qual'č l'istruzione per uscire da un ciclo WHILE?
Al precedente messaggio mi era stato risposto EXIT WHILE, ma non č esatto.
Qualcuno di voi sa come fare?

>ho capito, ma quindi come si fa ad uscire da un ciclo while?
non si esce, a meno di usare Exit Function (o Exit Sub)
in casi come questo usa Do ... Loop
hth, hal
p.s.
studiarsi l' help o un libro di programmazione no, eh ?


1.
amigo, frena l' ansia:
il "precedente messaggio" dista solo 24 ore e 42 minuti da quello nuovo.
2.
ti ho risposto in coda al precedente thread
3.
se c'e' una cosa che mi fa girare i c0g110n1 e' la gente che
pretende tutto, subito e gratis.
A buon intenditor ...
ciao, hal

 ha scritto

cambia il while in do while e usa exit do.

 Al precedente messaggio mi era stato risposto EXIT WHILE, ma non è esatto.


 sbagliare ;-)
e dopo gli Intel Inside abbiamo i Roal Inside..
--
Fibia "Sakamoto" FBI
E-mail: 
fibi...@hotmail.com

 pretende tutto, subito e gratis.
/me afferra un taccuino e segna
*scrib scrib scrib*
questa mi servirà in qualche occasione
impara l'arte e mettila da parte (ora chi sia Parte non lo so)
--
Fibia "Sakamoto" FBI
E-mail: 
fibi...@hotmail.com
ICQ UIN 63586057
Sito Personale: 
http://www.geocities.com/fibiafbi
VB Simple: 
http://vbsimple.virtualave.net
Membro #25 delle Mitiche Brigate Takahashi sezione Sud

e dopo gli Intel Inside abbiamo i Roal Inside..
while true 
      ROTFL ()
wend

Out of memory
................
hal rebooting ...........
Newsgroup: it.comp.lang.visual-basic
Titolo: Problemi con Excel

Ho questo problema con VB di Excel.
Ho tre colonne su un foglio1.
La prima contiene nomi, la seconda e la terza delle coordinate.
Il mio scopo è quello di creare tanti quadratini su un altro foglio , uno
per ciascun nome presente su foglio1.
Sto impazzendo.
Ho guardato le matrici, gli array, ma ho qualche difficoltà-
Qualcuno mi può aiutare ?
Grazie.
Gianfranco
la...@libero.it

 Ho guardato le matrici, gli array, ma ho qualche difficoltà-
Immagino.
Procediamo per gradi. Cominciamo con "Foglio1". Hai problemi
ad effettuare un ciclo per ogni riga dell'area contenente i
dati? Facci vedere come faresti.
--
Ciao.
Maurizio
--------
?SPQR(C)
 X

Ciao Claudio. Grazie per aver risposto alla mia domanda. Ti ripropongo il
problema :
Ho tre colonne su un foglio1.
La prima contiene nomi, la seconda e la terza delle coordinate.
Il mio scopo è quello di creare tanti quadratini su un altro foglio , uno
per ciascun nome presente su foglio1. Per quadratini intendo dei
rettangolini.
Sto impazzendo.
Ho guardato le matrici, gli array, ma ho qualche difficoltà-
Set mioDocumento = Charts("grafico2")
'Qui creo un grosso rettangolo.
    mioDocumento.Shapes.AddShape msoShapeRectangle, 0, 0, 240, 240
'Qui ricreo i rettangolini dando come coordinate i valori presi nelle 'celle
delle due colonne.
Pa = 1
For Each cella In Worksheets("Foglio2").Range("c2:c27").Cells
Pa = Pa + 1
    mioDocumento.Shapes.AddShape msoShapeRectangle, cella * 2,
(Worksheets("Foglio2").Range("D" & Pa) * 2), 5, 5
Next
Ora, sempre se è possibile, vorrei anche assegnare delle Label (tipo
tooltips) a ciascun rettangolino. E' possibile ?
Grazie ancora.
Newsgroup: it.comp.lang.visual-basic
Titolo: OpenSchema(adScemaTables)

Giorni fa avevo domandato come poter popolare un treeview prelevendo i dati
da un database Access in quanto mi interessava popolare il tree con le
tabelle delmio database collegato.
Il codice che mi avevano indicato nel post funziona perfettamente solo che
popola il mio tree con tutti gli elementi contenuti nel databse , le Tabelle
, le Tabelle nascoste e le Query.
Come posso far si che il mio ciclo aggiunga al tree solo le tabelle
omettendo le query e sopratutto le tabelle di sistema ( quelle che non sono
visibili come ad esempio MSysAccessObject , MSysAccessXML ecc ecc.)
Posto anche il codice che ho utilizzato:
Private Sub GetSchema()
    Dim N As Node
    Dim strNode As String
    Dim i As Integer, j As Integer
    Set m_Rs = m_Conn.OpenSchema(adSchemaTables)
    tvSchema.Nodes.Add , , "ROOT", "Tabelle"
    tvSchema.Nodes("ROOT").Expanded = True
    i = 0: j = 0
    While Not m_Rs.EOF
        Set N = tvSchema.Nodes.Add("ROOT", tvwChild, "TBL_" & i,
m_Rs("TABLE_NAME"))
        For j = 0 To m_Rs.Fields.Count - 1
            strNode = m_Rs.Fields(j).Name
            If Not IsNull(m_Rs.Fields(j).Value) Then
                strNode = strNode & " = " & m_Rs.Fields(j).Value
            Else
                strNode = strNode & " = (vuoto)"
            End If
            tvSchema.Nodes.Add N.Key, tvwChild, "PROP_" & i & "_" & j,
strNode
        Next
        i = i + 1
        m_Rs.MoveNext
    Wend
End Sub
Grazie a chi mi potrą aiutare e un particolare ringraziamento a Giuliano che
mi ha postato il codice sopra e che mi ha aiutato.
Ciao a tutti.

 Giuliano che mi ha postato il codice sopra e che mi ha aiutato.
prego, ciao

 > Grazie a chi mi potrŕ aiutare e un particolare ringraziamento a



Ok, no problem, perň ti ringrazio io se in futuro quoterai correttamente!
promesso? ;-)))


Promesso, spero si faccia cosě......!!!!! ???????


ottimo ;-)

> ottimo ;-)
Approfitto per chiedere quale razza di testo posso comperarmi per evitare di
rompere i gentilissimi partecipanti dell' NG.
Quale manuale contiene questo tipo di informazioni ???? Un testo con un bel
po' di codice di esempio .....??
Grazie a tutti.

 Grazie a tutti.
prego
ciaociao

Newsgroup: it.comp.lang.visual-basic
Titolo: stampa file .bmp

Per favore c'è qualcuno che mi pò fare un esempio su come stampare un
file .bmp con l'oggetto printer in vb6 .
Grazie
Sent via Deja.com 
http://www.deja.com/
Before you buy.

Hai provato con PaintPicture ?
Printer.PaintPicture Picture1.Picture,
xdestinazione,ydestinazione,Widthdestinazione,
Heightdestinazione,xorigine,yorigine,Widthorigine, Heightorigine
Ciao Stefano
Newsgroup: it.comp.lang.visual-basic
Titolo: Auguri

Buon Natale a tutti Voi

 Buon Natale a tutti Voi
Mi accodo: Auguri a tutto il NG.

> Buon Natale a tutti Voi
Assolutamente si!! Auguri a tutto l'NG e mille grazie sempre per il vostro
aiuto!!
Antonio Mirarchi

Un augurone anche a voi per un felice natale e un
sereno anno nuovo e lavorativamente parlando
piů prosperoso!
Gioie ed emozioni, pure, ma come fare senza tanti bei
dollaroni??
Ovviamente scherzo ... amche perchč il dollaro
č in perdita con l'euro ... quindi meglio tanti begli
"euroni" ...
Naaa ... suvvia siamo meno venali ... un augurio
sincero da
Andrea Moro

Newsgroup: it.comp.lang.visual-basic
Titolo: database 2 .net

Ciao a tutti e buon anno ;)
Vorrei vedere qualche esempio di applicazione 
vb.net/asp.net
 che usa sql 
server(viste e stored procedure) sia in ambiente disconnesso che connesso.
Mi dareste qualche indicazione?
Grazie. 

 ha scritto nel messaggio 
news:4b3b7956$0$1132$4faf...@reader3.news.tin.it...

http://msdn.microsoft.com/it-it/cc351057.aspx
http://www.asp.net
http://quickstarts.asp.net/QuickStartv20/aspnet/Default.aspx
http://www.aspitalia.com
e per finire.... 
http://www.google.com
 + fantasia nella ricerca! ;-)
Ciao, Vincenzo

Newsgroup: it.comp.lang.visual-basic
Titolo: Codice HTML di una pagina WEB?

Ciao a tutti,
sto facendo un programmino che dovrebbe autoaggiornarsi da
un sito internet! La mia idea era guardare il codice HTML della pagina e
andarmi a cercare dentro il codice i testi e numeri che voglio aggiungere
al mio DB......
Come faccio a visualizzare il codice HTML dentro una
textbox?
P.S. Ho provato con il controllo WebBrowser di VB ma non trovo la
proprietą giusta........si potrą fare?
Grazie
Fabio
--------------------------------
Inviato via 
http://usenet.iol.it

 proprietą giusta........si potrą fare?
guarda l'oggetto inet
ciao. buc

 ha scritto nel messaggio
news:34i18.180$7m1....@twister1.libero.it...

Crea un oggetto Internet Explorer, e poi con imetodi, ricavi i dati.
Se ti interessa un poco di codice te lo invio.(se vuoi vedere come funziona
scarica il file mygpf.zip da 
www.volftp.it
)
ciao, Fabio
obi...@rete039.it

 scarica il file mygpf.zip
MyGPF ?? Ma crea un oggetto Explorer o Exploder? ;-)
Ciao
*Roby*

Newsgroup: it.comp.lang.visual-basic
Titolo: processi unici?

Ciao, vorrei sapere come posso far si che di un mio processo ne "giri" solo 
una copia per volta sulla macchina.
Grazie anticipatamente 
    	Fabrizio

 wrote in message
news:Xns91C1ADD04A...@192.168.100.1...

Sub Main
    If App.PrevInstance Then End
    [resto del codice]
End Sub
Ciaotutti,
*

 End Sub
End o Exit Sub ?  :P
--
Faber

 
Mmm... Nella Main() e come prima istruzione? Ma anche ExitProcess ;)
Se invece c'e' qualche allocazione precedente e' di rigore Exit Sub
Ciaotutti,
*

 Mmm... Nella Main() e come prima istruzione? Ma anche ExitProcess ;)
ma sì, dai... anche un ExitWindowEx() ci starebbe bene  :P
--
Faber
Newsgroup: it.comp.lang.visual-basic
Titolo: Come sapere l'ultima riga selezionata in una listview ??

Aiuto. E' impossibile che non si riesca!!
Ho un problema di questo genere :
ho una listview, piena di righe (records...). Ogni volta che seleziono
una di queste righe voglio sapere da quale riga "provengo".
Ovvero, ho scelto la riga 2 poi seleziono la riga 5 ! In questo
momento io vorrei una proprietà che mi dica che prima dell'attuale
scelta (5), io avevo premuto sulla riga 2.
Non ditemi che per una cosa "banalina" così, mi debbo costruire un
array delle ultime righe scelte, o qualche cosa del genere?  E'
impossibile che non ci sia un qualche OLDVALUE o PREVValue o un
PRIMA_ERI_QUI !!??
Nessuno ha mai avuto un'esigenza simile ?
confido in voi, e vi saluto!!
DM

 Nessuno ha mai avuto un'esigenza simile ?
 
  Bho!!!
 
--------------------------------
Inviato via 
http://usenet.libero.it

 confido in voi, e vi saluto!!
si , io uso di solito 2 variabili globali CurValue e OldValue appunto !
appena entro nella procedura/evento/metodo che mi interessa faccio :
----------------------------------------------------------------------
CurValue =  [long]  ' index del controllo sia esso una flexgrid o qualsiasi
lista
If OldValue = Cur value then Exit sub ' esco perche' mi ha riscelto lo
stesso
'qui eseguo il codice che voglio
...
OldValue = CurValue ' assegno il nuovo valore a OldValue in uscita
Exit sub
----------------------------------------------------------------------

Newsgroup: it.comp.lang.visual-basic
Titolo: Corso on line di programmazione Visual Basic

Impara a programmare in VBA, Delphi, Visual Basic, ecc.
 La Teaching OnLine organizza Corsi on line di programmazione Access,
 SQL,Visual Basic, ASP, Delphi
Per informazioni, contattare
 Teaching On Line
 
in...@teachingonline.it
http://www.teachingonline.it/index.asp


Newsgroup: it.comp.lang.visual-basic
Titolo: [ot] Monitor TouchScreen

Olà,
ho sviluppato un'applicazione kiosk e avrei bisono di un monitor touch
screen economico da applicare dietro ad una vetrina. Qualche
suggerimento/linkone?
saluti


Dietro una vetrina?
Vuoi una vetrina touch-screen allora!
La 3M vende la pellicola per fare touch-screen al metro...
Puoi piazzarla fuori dalla vetrina e far giocare i passanti :)
Scherzo...
Dubito che un TS possa funzionare dietro ad un vetro...
Provato gugl?
http://www.magictouch.com/it/
http://www.fullpress.it/articolo.asp?ID=7621
Il secondo lo conosco e va bene.
-> GbC|
www.gbcweb.com

 Dubito che un TS possa funzionare dietro ad un vetro...
Invece si...
Se passi da Milano vai alla Tim in galleria Vittorio Emanuele (Duomo)
bye
-- 
Esistono 10 tipi di persone: chi conosce il binario e chi no.
www.nicolaottomano.it

 suggerimento/linkone?
esistono dei ts capacitivi che funzionano anche da dietro una vetrina: 
dovresti trovarli cercando "projected capacitive". Come marchio 
personalmente posso consigliarti gli ELO (se li fanno).
Ciao,
Moreno
Inviato da 
www.mynewsgate.net

 Dubito che un TS possa funzionare dietro ad un vetro...
Se e' una tastiera ti tipo capacitivo funziona benissimo anche dietro un
vetro.
L'ho gia' visto fare con dei programmi pubblicitari che certi commercianti
mettono in vetrina.
Ciao
Giuseppe

 personalmente posso consigliarti gli ELO (se li fanno).
Grazie! ;)

Newsgroup: it.comp.lang.visual-basic
Titolo: clipboard help needed

I need help getting text from the clipboard to a text box on another form as
follows
I have a form with various options on it that a user can select and a button
called create configuration, this then creates a list of the items that the
user has selected and places the output in a text box called Text6
I need to copy all the Text6 output to the clipboard and past them onto
another form that has a textbox called txtBox, this form pops up on the
users screen with the clipboard contents, basically its instead of the user
having to open notepad and past the contents there
Here is the code I have used to copy the contents to the clipboard and open
my form: -
clipboard.clear
Text6.setfocus
Text6.selstart = 0
Text6.selLength = Len (Text6.Text)
Clipboard.SetText Text6.SelText
List1.SetFocus
Call frmNotepad.Show
I need to know how to copy the text from clipboard to the txtBox on
frmNotepad
Many thanks
Chet

 wrote in message
news:f4IRe.5494$x4....@newsfe2-gui.ntli.net...

Newsgroup: it.comp.lang.visual-basic
Titolo: Errore in VB.net

Vi è mai capito questo errore in VB.net? 
http://filrub.altervista.org/errore-vb.jpg
Stavo lavorando tranquillamente da 3 o 4 ore e ad un certo punto dopo aver
avviato la compilazione/esecuzione ha cominciato a saltar fuori questa
finestra. Se eseguo solo la compilazione con SHIFT+CONTROL+B va tutto bene.
Avete idee?
Ciao Fil
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 
http://filrub.altervista.org/errore-vb.jpg
Errore 404
Il documento cercato non è stato trovato.
Probabilmente è stato spostato o rimosso.

Ora la vedo.
E' successo pure ad un mio amico.
Lui ha fatto il ripristino dell'installazione (o qualcosa del genere) e poi
è andato tutto a posto.

Utopian.NET ha scritto:


Adesso va...


Utopian.NET ha scritto:

Proverò anch'io, però mi sembra davvero una cosa strana...
Grazie comunque!


 Grazie comunque!
Ho eseguito il ripristino lanciando il setup di Visual Studio.
Ora tutto funziona perfettamente!

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] password Access

Ho protetto un file.mdb con password e poi ho provato ad aprirlo con ADO
.NET ma ho il seguente errore:
Errore di Microsoft Data Link
Verifica connessione non riuscita. Errore durante l'inizializzazione del
provider. Impossibile avviare l'applicazione. Il file di informazioni sul
gruppo di lavoro è mancante o aperto in modo esclusivo da un altro utente
Ho allora creato un file .mdw tramite il menu Strumenti\Protezione di Access
ma niente da fare. Dove sbaglio?
Ringrazio in anticipo,
Adriano

Verifica connessione non riuscita. 
Come hai aperto il db? Da codice o stabilendo una connessione con
il visual studio?
In ogni caso, cio' che va impostato, anche per 
ADO.NET
, e' la proprieta' estesa
"Jet OLEDB:Database Password=<tua_password>;"
che, se hai usato lo wizard per fare la connessione, e' impostabile
nell' ultimo pannello.
-- 
ciao, hal


Ho protetto un db.mdb con password e funziona.
- o non hai installato "the Jet components"
- o la sintassi della stringa di connessione non è corretta.
 ( ho copiato una utilizzata in VB6)
- o .......................
giuseppeD

Ho la sensazione (se n'è parlato a lungo, ma poi non ho visto risultati
certi) che Access 2000+password+Data+ADO sia un peletto incasinato
(ovviamente la mia colpa va direttamente all'ultimo interprete, alla peggio
agli ultimi due):
Ho provato con Access <97 2000> + password + Data + DAO : nessun problema
Ho provato con Access 97 + password + Data + ADO : nessun problema
Ho provato con Access 2000 + password + Data + ADO : Non ci riesco!

Giuseppe, 
ma stai rispondendo a me o ad Adriano?
-- 
ciao, hal


pardon
ad Adriano
giuseppeD

 ha scritto nel messaggio
news:ps_n9.57266$e31.1...@twister2.libero.it...

Avvertenza: se erro , si prega di correggere.
I data sono rimasti per rendere utilizzabili le applicazioni sviluppate
prima di VB5 , in quanto erano i soli oggetti in
grado di sollevare eventi.
Ma con VB6 utilizzare un controllo per rappresentare una sorgente dati ,
penso sia da evitare (vedere i numerosi post di
help).
Potrei trovarmi in necessità che la sorgente dati sia rappresentata da un
oggetto , utilizzo una classe impostando la
proprietà (della classe) DataSourceBehavior a vbDataSource.
Per gli eventi utilizzo la parola chiave WithEvents
---------------------------------------------------------
Ho eseguito la seguente prova con un componente ADODC e un DataGrid:
Pagina proprietà del ADODC , la seguente stringa mi connette ad un db Access
2000 , e visualizzo i dati in un DataGrid:
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Northwind_password.mdb;Jet
OLEDB:Database Password=elemento1
giuseppeD


Ok grazie
Funziona!

Newsgroup: it.comp.lang.visual-basic
Titolo: VB5 ita e service pack?

Salve a tutti, da poco ci e' arrivato il VB5ITA; volevo sapere se il
service pack presente sul sito microsoft (e' presente ?:) ha problemi
di lingua o posso andare tranquillo... 
--------------------------
MATRO
http://www.geocities.com/SiliconValley/8383
"I computer risolveranno tutti i problemi ma
         non saranno mai in grado di porne uno"
                                      Albert Einstein

...

Newsgroup: it.comp.lang.visual-basic
Titolo: ASCII accentati

Ho una tabella Excel e devo creare un file xml con i campi secondo un
certo ordine. Il problema è che quando copio una cella con del testo
dove per esempio c'e' del testo accentato (per esempio à - a') nel
file xml non viene (devo usare l'encoding UTF-8), mi dovrebbe venire
&#xe0;
L'unica soluzione che mi è venuta in mente e' quella di scandire tutta
la stringa ed ogni volta che trovo un carattere ascii maggiore di 127
eseguire una conversione.
Però mi sembra molto macchinoso.
Mica avreste dei suggerimenti o se esiste gia' qualche funzione di VBA
che esegue questa conversione?
Grazie in anticipo
Francesco

Naldo wrote:

Dai un'occhiata a questo esempio e vedi se può esserti utile:
UTF-8 Encoder
http://pscode.com/vb/scripts/ShowCode.asp?txtCodeId=44569&lngWId=1
Ciao!
-- 
Gianluca Cannalire
Microsoft MVP/MCP - Visual Basic
http://www.visual-basic.it
http://italy.mvps.org

 Ciao!
Grazie mille, gli do un'occhiata.
Per ora avevo risolto cosě e funziona
'''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Function Ascii2Utf8(Testo As String) As String
Dim J As Integer
Dim Result As String
For J = 1 To Len(Testo)
    If Asc(Mid(Testo, J, 1)) > 127 Then
        Result = Result + "&#x" + Hex(Asc(Mid(Testo, J, 1))) + ";"
    Else
        Result = Result + Mid(Testo, J, 1)
    End If
Next
Ascii2Utf8 = Result
End Function
'''''''''''''''''''''''''''''''''''''''''''''''''''''''
Grazie di tutto
Francesco

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

Ciao a tutto il NG.
Volevo chederVi come si possano ricavare i tutti i comandi da una DLL o da
una API.
Spero di essere stato chiaro
Grazie come sempre per l'aiuto.
Paolo
--
in...@elettronicsystem.com
ICQ N.: 27427846

 wrote in message
news:99l0cd$g7$1...@lacerta.tiscalinet.it...


 Spero di essere stato chiaro
in effetti non molto :D)
--
Fibia "Sakamoto" FBI
E-mail: 
fibi...@hotmail.com
ICQ UIN 63586057
Sito Personale: 
http://www.geocities.com/fibiafbi
VB Simple: 
http://vbsimple.virtualave.net
Membro #25 delle Mitiche Brigate Takahashi sezione Sud
Newsgroup: it.comp.lang.visual-basic
Titolo: [SEMI-OT] Evento MS, domani a Bologna, chi viene?

Ciao a tutti,
domani, 7 giugno, a Bologna ci sarà il:
*Developer Security Tour*
http://www.microsoft.com/italy/msdn/eventi/developer/securitytour.mspx
Il roadshow (la partecipazione è gratuita) è (IMHO) molto interessante sia 
per la qualità degli speaker, Fabio Santini e Raffaele Rialdi, sia per il 
tema...
Io ci sarò e se magari viene qualcuno di voi, possiamo incontrarci per 
fare quattro chiacchiere dal vivo ;)
Riconoscermi sarà facile: avrò una magliatta blue con un grosso '3' sulle 
spalle sormontato dalla scritta ".NET Developer" :))))
A domani!
-- 
Gianluca Cannalire
Microsoft MVP/MCP - Visual Basic
http://www.visual-basic.it
http://community.visual-basic.it/gianluca

 ha scritto nel messaggio 
news:d80nae$ja0$1...@area.cu.mi.it...

Io ci sono...anche se  non sono un programmatore coi fiocchi come voi del ng 
vengo a spero di capirci qualcosa.... 

 fare quattro chiacchiere dal vivo ;)
Io dovrei esserci...
Bye
Raf

 Raf
Beh, per chi non puň venire, un riassuntino stringato, o le proprie
impressioni....  Grazie :)
--
Greg

 impressioni....  Grazie :)
Riassumere quello che hanno fatto vedere Fabio e Raffaele, durante 
l'intera giornata, è praticamente impensabile in un singolo post :)
L'unica cosa che posso dire è che è un vero peccato perdere eventi di 
questo tipo, a prescindere che si stia sviluppando, in VB, C++, .NET o 
magari anche in Java.
Poi, fate voi...
Però, al link qui sotto puoi scaricare slide e demo di tutte le sessioni
http://playmobil.sts.winisp.net/Lists/Events/DispForm.aspx?ID=11
Vi ricordo anche le prossime date del tour:
Bari 09/06
Udine 16/06
Palermo 21/06
Nel caso in cui non riusciate ad iscrivervi a causa della chiusura 
dell'iscrizione, non preoccupati... presentatevi comunque all'evento e 
dite a Fabio che vi ho mandato io ;)
Ciao!


Newsgroup: it.comp.lang.visual-basic
Titolo: [?] WIN95/98 e VB6 stranezze

Stranamente quando uso WIN98 e VB6 tutto funziona piu' o meno bene.
Ho un grosso problema mentre prendo il progetto e lo passo sull'altro PC con
win95.
Noto stranezze del tipo:
le textbox non mi accettano piu' l'allineamento LEFT RIGHT CENTER
Stranissimo.
Anche riproducendo un nuovo form, questi comandi non mi funzionano.
E' un mio problema? Come risolverlo?
ciao grazie

le textbox non mi accettano piu' l'allineamento LEFT RIGHT CENTER
E` un  "Baco By M$"  devi mettere MultiLine = TRUE tra le proprietą del
textbox perchč funzioni l'allineamento in W95 ( in W98 e in NT funziona
invece tutto normalmente).
Ciao.
---
Daniele Grison
gri...@tin.it

Grazie della info, effettivamente il "CENTER" ora funziona, ma resta il
problema del RIGHT che anche col multiline non me lo accetta... qualche
altro tips da attivare per farglielo vedere sotto il win95?
Non c'e' una qualche update che corregga questi "bugghetti"? www.???
ciao grazie





Nooo, non e' un bug, e' una "undocumented feature"!!!! :-)
--
Roal Zanazzi
z...@iol.it
Newsgroup: it.comp.lang.visual-basic
Titolo: [VB6+ADO] Gestione campi AutoIncrement

Ciao,
ho un recordset (disconnesso) basato su due JOIN dove la tabella
principale ha un ID AUTOINCREMENT.
Ora, che io sappia, da ADO 2.1 in poi, quando viene aggiungo un record,
in automatico ADO esegue una sorta di "SELECT MAX(ID).." e viene
popolato il campo ID del recordset con il nuovo valore.
La cosa _Veramente_ strana è che a volte lo fa, altre il campo è Null!!!!
.AddNew
.Fields("PIPPO") = "PLUTO"
Set .ActiveConnection = ConnAnagrafiche
.UpdateBatch
Set .ActiveConnection = Nothing
Debug.Print .Fields("ID") <----- è NULL!!!!
Avete qualche idea?!?!
-- 
Tnx a lot!
Daniele.
Free As In Freedom
www.fsf.org


Si.
I campi autoincrementanti vengono "riletti in automatico" solo in
presenza di determinati tipi di cursore. Non ricordo quali, fai qualche
prova.

 ha scritto nel messaggio 
news:deYgg.25110$jP5.6...@twister1.libero.it...


 Io farei una refresh del recordset dopo l'update.
Requery?! E se il RST ha 10000 record?
Io volevo evitare il Requery....visto che non riesco a far funzionare il
Resync!!! :(


 Cioč?


 figuriamoci 10.000!.
Bè si hai ragione, forse ho esagerato, anche questo era solo per dare
l'idea :)
Io cmq recupero 200 record, il fatto è che il Requery non mi piace molto...
In effetti sono sempre un po' indeciso quando devo gestire dei dati che
mi possono servire 'al volo': se lavorare solo di SQL (INSERT, UPDATE,
SELECT ecc...) oppure gestirli attraverso Recordset caricati in memoria...


 memoria...
Il provider Jet OLEDB supporta il costrutto @@IDENTITY, per chi non lo sapesse.
Cioè, per recuperare l'ultimo valore utilizzato del campo autorincrement puoi
fare così:
.AddNew
.Fields("PIPPO") = "PLUTO"
.UpdateBatch
.Close
.Open "SELECT @@IDENTITY FROM MiaTabella", ConnAnagrafiche
ID = .Fields(0)
Bye
Raf

 SELECT ecc...) oppure gestirli attraverso Recordset caricati in memoria...
Io ho cominciato ad usare recset in memoria SOLO per le procedure di
calcolo, quando invece di rifare 100 select mi prendo tutti i dati a
monte e poi li filtro dopo.
In ogni caso per la mia esperienza ti consiglio di usare SQL puro.
Troppo più comodo trovare errori ed evitare "incomprensioni".
Il contatore in firebird si gestisce definendo un generatore (che tiene
il progressivo) e definendo un trigger per quella tabella.
Una sorta di funzione in cui dici tipo:
In caso di insert se ID=Null allora ID=gen_id(contatore,1)
E per leggere l'ultimo id inserito c'è una sintassi 
select gen_id(contatore, 0) from tabella
select gen_id(contatore, 1) from tabella
Il secondo incrementa di 1 e ti restituisce il valore
Dovresti specificare che DB usi ed eventualmente cercarti i
corrispondenti.
-- 
Freccia@Bulldozer63 :D

 corrispondenti.
Si, hai ragione, in effetti non lo avevo specificato!
Grazie!

Newsgroup: it.comp.lang.visual-basic
Titolo: ? Data in stringa

Cari Amici ho bisogno di creare un file che abbia come nome la data del
giorno in cui è stato creato.
Ad es il giorno 03/02/00 voglio creare il file 030200.dat
qualche idea ???
--
Posted from 
siml1ca-3v.fst.it
 [213.255.37.65] (may be forged)
via Mailgate.ORG Server - 
http://www.mailgate.org

 Ad es il giorno 03/02/00 voglio creare il file 030200.dat
    NomeDelFile = Format$(Now, "ddmmyy")

 wrote in message 89mg69$31r$1...@nslave1.tin.it...

Meglio ancora:
NomeDelFile = Format$(Now, "yymmdd") & ".dat"
Il formato "yymmdd" ti permette di avere i files in ordine di data.
--
Lunga vita e prosperità
Joshua
mailto://
jos...@mclink.it

 Il formato "yymmdd" ti permette di avere i files in ordine di data.
anche
NomeDelFile = Format$(Now, "yyyymmdd") & ".dat"
non sarebbe male...
vi e' mai capitato di mettere in un db lettere degli ultimi 6 secoli ? a me
si' :)
ciao, a.
ps- com'e' che si sbatte sempre sull'8+3 ? imprinting ?

Newsgroup: it.comp.lang.visual-basic
Titolo: RICHIESTA AUTORIZZAZIONE

Rieccomi.
Come dicono  gli utenti CB ho fatto un periodo di bianco ( sono stata fuori
zona per un pò), ma ora rimetterò il male.
Lavoro su due computer collegati in rete Windows.
Sul computer2 riesco a compilare il mio progetto senza alcuna difficoltà, ma
se lo porto sul Computer1 ( il solito computer che dava problemi per il
DAO - non mi dite di buttare via il computer -) la compilazione non va a
buon fine.
Infatti quando incontra l'istruzione opendatabase si blocca dando il
seguente messaggio:
            Errore di compilazione : Autorizzazione negata ( errore 70 ).
Ora mi sapete dire se devo fare qualche domanda in carta bollata per avere
questa benedetta autorizzazione?
A parte tutto non né posso più. Non riesco a capire per quale motivo sul PC2
funziona tutto regolarmente e sul PC1 no pur avendo entrambi i computer gli
stessi riferimenti.
Mi potete aiutare?
Elisa.

 wrote in message
8btfql$19l$1...@nslave2.tin.it...


Ciao,
ti ringrazio del suggerimento, ma ho access97 e non 2000 e vb5.
Il problema credo che mi sia nato dopo aver installato sulla macchina2 un
programma di contabilità in vb6
che mi ha modificato (con certezza) il crystal.ocx e non so quale altra
cosa.
Ho provato ristallare VB 4 o 5 volte, ma il risultato è sempre lo stesso.
Non vorrei spostare il programma di contabilità, come posso procedere ?
Grazie.
Elisa

Newsgroup: it.comp.lang.visual-basic
Titolo: Disconnessione modem con VB6

Come posso inviare in segnale di disconnessione al modem?
Grazie
Stefano

 Come posso inviare in segnale di disconnessione al modem?
guarda sul sito comune o cerca sul sito di moreno sirri
www.morenosoft.com
cerca RAS API
ciao
	maxx

 Stefano
Collegato a cosa ???
Se collegato tramite MSComm basta che chiudi la seriale.
Se collegato a Internet, prelevati il DialUp dal sito
di Moreno Sirri
Ciao
Sir Jo
Newsgroup: it.comp.lang.visual-basic
Titolo: Algoritmo di ottimizzazione

Buonasera e scusate il topic un po' vago - direi molto vago ;)
Espongo il problema particolare, ma l'algoritmo dovrebbe valere anche
per altri casi e situazioni. Comunque... 
Quale è l'algoritmo per ridurre al minimo il numero di supporti mobili
(poniamo CD) necessari per salvare un certo numero di files di diverse
dimensioni (nessuna maggiore della capacità del singolo CD)
In pratica si tratta di distribuire (ovviamente senza frammentarli) i
vari files nei vari CD in modo da usare il minor numero possibile di
CD
Io ho ordinato i Files per grandezza e partendo dal maggiore ho
aggiunto via via quelli più piccoli (partendo dall'ultimo) e
risalendo, fino a impiegare tutto lo spazio del CD e ripetendo quindi
il ciclo, ma non sono in grado di calcolare se è un criterio ottimale
o piuttosto uno dei tanti.
Magari è un problema classico, studiato e ristudiato ed esiste un
bell'algoritmo noto.
Qualcuno mi sa dare indicazioni?
Grazie
Filippo


Comunque se n'era parlato sul ng  mi pare.



Grazie, adesso controllo.
Il problema per cercare i precedenti post è qullo di individuare una
possibile chiave di ricerca.... che ci scrivo? :)
Ciao
Filippo


Bin packing, ad esempio.
http://en.wikipedia.org/wiki/Bin_packing_problem
Bye
Raf 


Grazie.
Adesso so anche il nome scientifico del problema.
Andrò a studiare la soluzione.
Ciao
Filippo

 possibile chiave di ricerca.... che ci scrivo? :)
Io l'ho visto definire "Algoritmo dello zaino".
Bye, G. 

 Io l'ho visto definire "Algoritmo dello zaino".
Si, è il "Knapsack algorithm" (cercando su google si hanno tutte le info
necessarie).
Anche se però è leggermente diverso. Nell'algoritmo dello zaino si ha a
disposizione solo un supporto (quindi la funzione obiettivo *massimizza*
il numero di oggetti trasportabili in uno spazio dato), in questo
bisogna avere il numero minimo di supporti, quindi la funzione obiettivo
è *minimizzare* il "numero di zaini" data una certa quantità di oggetti
differenti tra loro.
In ogni caso un algoritmo greedy come quello proposto garantisce una
soluzione ottimale ad un prezzo abbastanza basso.
Nicola
Newsgroup: it.comp.lang.visual-basic
Titolo: ordinamento di una griglia

Qualcuno ha una funzione che ordina gli elementi di una griglia in base ad
una colonna selezionata?
Se qualcuno mi risponde ....GRAZIE GRAZIE GRAZIE GRAZIE
SALUTI  LAURA

La MsFlexGrid lo puo' fare da sola (metodo .sort), anche su piu' colonne
contigue.
Fabio Pagano
Laura ha scritto nel messaggio ...


una colonna selezionata?
Ciao,
Premessa: nel codice seguente suppongo che la tua griglia sia legata ad un
controllo data.
Situazione:
una griglia (DBGrid) con nome DBgrdLibriRicerca
un datacontrol con nome datLibriRicerca.
...chiaramente i due sono legati :-)
Private Sub DBgrdLibriRicerca_HeadClick(ByVal ColIndex As Integer)    
    With datLibriRicerca
        .Recordset.Sort = DBgrdLibriRicerca.Columns(ColIndex).DataField ' **
        Set .Recordset = .Recordset.OpenRecordset
    End With
End Sub
N.B. Se il nome del campo contiene spazi la riga **  la sostituisci con:
If InStr(1, DBgrdLibriRicerca.Columns(ColIndex).DataField, " ") = 0 Then
   .Recordset.Sort = DBgrdLibriRicerca.Columns(ColIndex).DataField
 Else
   .Recordset.Sort = "[" & DBgrdLibriRicerca.Columns(ColIndex).DataField & "]"
End If
Oppure sempre all'interno di HeadClick:
 With datLibriRicerca
    Set .Recordset = .Database.OpenRecordset(" **** ORDER BY [" &
Recordset.Fields(ColIndex).Name & "]")
End With
Dove al posto di **** metti l'istruzione SQL che riempie il controllo Data.
Ammetto che il codice possa spaventare ma se conosci bene DAO non dovresti avere
problemi.
A presto,
teddy...@hotmail.com
ICQ 7044062
Como - Italy

...

Grazie mille solo che il mio problema è proprio questo:
la mia DBGrid la popolo con dei dati di una tabella di Access ma l'ho
completamente slegata da un data control.
Grazie lo stesso LAURA

 >controllo data.


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

    non so se č ammesso fare questo  tipo di richieste nel newsgroup, vi
chiedo scusa anticipatamente se non rispetto qualche regola.
    la mia richiesta č quella di formare un gruppo di studio nella provincia
di Napoli o di Caserta che si incontri una volta a settimana o quando il
gruppo riterra piů opportuno per studiare insieme.
        vi ringrazio anticipatamente.
per risposte:
alfred...@libero.it

 gruppo riterra più opportuno per studiare insieme.
Studiare cosa?


Oggetto: corso
Data: lunedě 24 settembre 2001 17.01
    non so se č ammesso fare questo  tipo di richieste nel newsgroup, vi
chiedo scusa anticipatamente se non rispetto qualche regola.
    la mia richiesta č quella di formare un gruppo di studio nella provincia
di Napoli o di Caserta che si incontri una volta a settimana o quando il



Newsgroup: it.comp.lang.visual-basic
Titolo: implementare ping

Sapete darmi una dritta su come implementare il ping con le api
winsock? Esistono funzioni specifiche?
Oppure basta provare ad aprire una connessione e vedere se si apre?
Saluti
--
demis 
Head of M.T.D. group
[Internet: chi cerca trova]

 Oppure basta provare ad aprire una connessione e vedere se si apre?
No, perche' dovresti fornire una porta, e potresti non conoscerla.
Se vuoi ti mando un programmino (con sorgente) che effettua
l'interrogazione del server remoto e la risoluzione IP/DNS e viceversa.
CIao

...


 
C'e' un Ping.zip perfettamente funzionante sul Sito Comune (Vedi qui sotto) completo di sorgenti.
Unica cosa e' che non risolve i noli col DNS, bisogna dargli gli indirizzi nel formato xxx.xxx.xxx.xxx.
Ma quella e' una modificha che penso sei capace di fare.
PS) Chi sa gia come fare, piu' upgradare il suddetto Ping.zip che lo metto sul sito?
-- 
Hi, Ciao
Ettore                 By -MES-
http://freeweb.aspide.it/freeweb/ilmes
Il sito comune di programmatori VB
http://members.xoom.com/it_lang_vb

Se ti interessa ho appena terminato un pacchetto di ocx che implementano  il
ping,sia in normali applicazioni che su pagine web,basta mettere l'url,o
passare il mouse sopra il link,per ottenere il ping in formato numerico,a
barra,o a variazione di colore..Li metterò sul mio sito a
giorni.Sono shareware.
Eventualmente puoi scrivermi.
ciao
carlo
http://www.lunet.it/offerte/berti





Mi spiace,ma involontariamente ho inviato più volte il messaggio,vi prego di
scusarmi
ciao
Carlo

 CIao
--


 
No problema
saluti


...

Credo che tu abbia stabilito un record...
Ciao
-
MIX (VB5SP3)
post...@yahoo.com
60 links ai siti VB
http://space.tin.it/computer/gaais
http://www.tempolibero.com/user/mix/
 (alternativo)
-


Complimenti, con i tuoi 17 messaggi identici, hai battuto il record
italiano!
Lo so che non e' colpa tua, ma di news.interbusiness.it...
(vedi mio msg intitolato "[!] Messaggi multipli con 
news.interbusiness.it
")
--
Roal Zanazzi
z...@iol.it


Se lo modifichi per la risoluzione DNS, potresti mandare al webmaster del
sito la versione modificata (mi sembra il minimo, dato che il materiale ti
e' stato d'aiuto, no?).
Ciao
--
Roal Zanazzi
z...@iol.it

17 messaggi tutti uguali...... 
Stai tentando di implementare il ping anche sul NG?  :-))
-- 
Hi, Ciao
Ettore                 By -MES-
http://freeweb.aspide.it/freeweb/ilmes
 
(con OCX per stampare i Recordset)

Newsgroup: it.comp.lang.visual-basic
Titolo: Sapere se un oggetto e' nothing

In una procedura, in seguito a dei controlli, pongo a Nothing alcune
variabili oggetto. Alla chiusura della form dovrei chiuderle tutte, ma non
quelle che sono gia' nothing.
Esiste una funzione del tipo IsNothing(varObject) as Boolean in VB6?
Grazie

...



If varObject Is Nothing Then ...
Ciao.
--
Luca Dormio
l...@sig-la.com
ldo...@tin.it


If Not nomeOggetto Is Nothing Unload nomeOggetto
Ciao


Tutte le risposte date sono corrette, ma non penso che ti cambi molto se ti
limiti a risettarle tutte a Nothing, anche quelle che già lo sono.
VB non dovrebbe arrabbiarsi e tu tu risparmi dei controlli in più.
Ciao.


Non è esatto.
La risposta di Giangi "if VarObject=nothing then"
da come errore Utilizzo non valido di oggetto
Solo per essere precisi...
Ciao a tutti, Gundam :-))

da come errore Utilizzo non valido di oggetto
Hai ragione, questo perchè con gli oggetti si deve usare l'operatore "Is"  e
non "=".
Ciao, grazie della precisazione.





Prova questo, in un progetto con una form Form1 e un modulo con il seguente
codice: (la prima volta mi dice NO, la seconda mi dice SI)
Dim frm1 As Form1
Public Sub main()
    Set frm1 = New Form1
    '.......
    If frm1 Is Nothing Then
        Debug.Print "SI"
    Else
        Debug.Print "NO"
    End If
    Set frm1 = Nothing
    If frm1 Is Nothing Then
        Debug.Print "SI"
    Else
        Debug.Print "NO"
    End If
End Sub
Ciao Salvatore

Newsgroup: it.comp.lang.visual-basic
Titolo: Spedire mail

Ho bisogno di spedire mail, formattate html, da un programma vb per
mezzo di un server smtp (no exchange no mapi).
Usando Winsock, non so se bisogna fare la codifica MIME.
Perciò vi pongo la seguente domanda: esiste un componente che spedisca
mail tramite smtp o un componente che mi faccia la codifica mime?
Grazie.
PS: perché nelle header di tutte le mail generate da programmi M$ c'è
scritto "Produced By Microsoft MimeOLE"?
--
The Secret of Tabboz Island
http://it.geocities.com/tabbozisland

Non so se fa proprio al coaso tuo ma da una okkiata alle MAPI (.. il tasto
F1 ti puo aiutare)!!


Ciao.
Esiste un componente (OCX) gratuito che spedisce le mail direttamente.
Supporta sia formato HTML che testo. Visto che non sono a casa, non mi
ricordo il sito da dove lo puoi scaricare. Se non hai ancora risolto il
problema, fammelo sapere e ti mando il sito.

 problema, fammelo sapere e ti mando il sito.
Grande aiuto :)
Sì, ho trovato qualcosa, ma ne farò a meno.
Grazie.
Ciao


 problema, fammelo sapere e ti mando il sito.
mi puoi dire dove si scarica, grazie mille

 F1 ti puo aiutare)!!
Avevo detto NO MAPI...
Ciao


Newsgroup: it.comp.lang.visual-basic
Titolo: Sheridan 3D Controls.

Ciao a tutti,
sto utilizzando il controllo SSRibbon di Sheridan 3D Controls ma mi sta
dando diversi problemi.
Dove posso trovare informazioni su esso e sulle sue proprietā? Presenta dei
bugs? Vorrei studiarmelo per capirne di pių.
Grazie,
Ale.

 wrote in message
news:BTO88.39216$om6.9...@news1.tin.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] Certa gente non sa che fare...


-_-
Secondo voi, che gli devo rispondere?
Lo posso mandare a quel paese?
-_-
-- 
Andrea Raimondi
REICOM S.r.l.
Software Developer

 -_-
No, mostragli che sei un signore e togli la tua firma! ;-)
	maxx
-- 
NOSPAM: Rimuovere i trattini dallo username!
Cut hyphens from my username!


Sì, e magari la prossima volta, quando invece gli daranno del ladro, si
metterà a far beneficenza sperperando tutti i suoi risparmi....

 -_-
La tua prima nuova firma era un romanzo, ora mi sembra più che accettabile.
Chiedigli perchè non gli da fastidio che molti (non tutti) dei vari MVP e/o
certificati hanno sempre tutte le mostrine lucide e in bella vista... Non
mandarlo a quel paese, mandalo a ... ;-)

 maxx
Ciao,
Andrea

 
Forse e' sufficiente adattarsi agli usi e costumi di quel NG.
Ed al sig. Leonardo Nicolini rispondi garbatamente che non era tua 
intenzione fare pubblicita' ed e' poco educato da parte sua fare questo 
tipo di illazioni sul NG e che, nel dubbio, poteva scriverti in privato.
ciao


... cagher
-- 
-> GbC|
www.gbcweb.com

 -_-
io in firma ho il mio sito personale  sul quale pubblicizzo un mio
programma.
Non per questo credo che qualcuno possa accusarmi di fare spamming.
Anzi. Abbiamo il diritto di segnare ciò che vogliamo in firma (è chiaro che
fare un papiro non è il massimo, ci vuole sempre moderazione)...
Quindi se vuoi (poichè sono PR) posso darti dei pass per mandarlo a questa
discoteca
bye
-- 
Esistono 10 tipi di persone: chi conosce il binario e chi no.
www.nicolaottomano.it

scusate non ho finito di scrivere...
**************************
* DISCOTECA AFFANCULO *
**************************
Ingresso libero.
Consumazione Obbligatoria...
Info 02 69 69 69 69

 maxx
Andrea

 Info 02 69 69 69 69
Non risponde nessuno :-/
termoPilucco, deluso

 Non risponde nessuno :-/
Come potrebbero, con quel numero?
Bisognerą aspettare l'ora di pausa ;o)

 Lo posso mandare a quel paese?
Sì. Categoricamente e senza faccine. E già che ci sei, puoi dirgli
di leggere la RFC 1855.
La tua firma è perfettamente regolare, entro le canoniche quattro
righe, col delimitatore standard; quello che c'è dentro non sono
ca##i suoi e nessuno può sindacare, tranne che si configuri
un eventuale reato (ROTFL).
Un Paperino che non ha ancora preso il caffè, figuriamoci dopo. >:-|

 Bisognerà aspettare l'ora di pausa ;o)
 
LOL
-- 
www.nicolaottomano.it
[messaggio postato con Knode di Linux Mandrake]

 
Esattamente cio' che intendevo ...
:-)


 Un Paperino che non ha ancora preso il caffč, figuriamoci dopo. >:-|
Douch! Troppo tardi :-/
Newsgroup: it.comp.lang.visual-basic
Titolo: [VB.NET] Ancora sulla ricorsione (lista sottodirectory)

Ciao a tutti.
Secondo voi perchè questo codice non funziona bene?
Quando si "inalbera" tra le sottodirectory ad un certo punto si ferma...
Public myfile As New StreamWriter("c:\maxwrt.txt", False)
Private Sub RicorDir(ByVal direc As String)
    If direc = "" Then
        Return
    Else
        Dim s As String
        For Each s In Directory.GetDirectories(direc)
            myfile.WriteLine(s + vbCrLf)
            RicorDir(s)
        Next
    End If
End Sub
Ringrazio anticipatamente i beta tester :)))
Max

             RicorDir(s)
Descrizione di GetDirectories da MSDN: Ottiene i nomi delle 
sottodirectory nella directory specificata.
quindi s non contiene il nome completo della directory root.
Ma se è questo bastava un bel breakpoint.
Ciao

 quindi s non contiene il nome completo della directory root.
Tuttavia s contiene proprio tutto il path...
Purtroppo va per un po', ma dopo un bel numero di ricerche si fufa...
indagherò...
Max

"Max" <m@a.x> ha scritto nel messaggio news:4097...@x-privat.org...

If s <> "Accesso negato alla Directory" Then
       RicorDir(s)
End If
Ave
giuseppeD

 End If
Questo è sicuramente buono da controllare perchè mi evita di inchioppare il
prog...
Tuttavia il fatto che mi si bloccava a metà era dovuto al file che non
chiudevo o non flushavo... Una volta chiuso la funzione andava bene...
Gracias a todos!
Max