PROBLEMA RISOLTO

Article View: free.it.visual-basic

Article #2686

Back to free.it.visual-basic Previous Next

#2686

From: --Devaraja--
Date: Tue, 18 Feb 2003 19:08

41 lines
2236 bytes

PROBLEMA RISOLTO:

dim strn as string, strr(1 to 10000) as string

'strn � la stringa da dividere
'nella routine del bottone, dopo la chiamata della commondialog si inserisce

nomef = Replace(commondialog1.filename, Chr(0), Chr(13))
call divstr(nomef)

Private Sub divstr(strn As String)
xxy = 0
tmpvar = Split(strn, Chr(13))
For Each tmp In tmpvar
xxy = xxy + 1
strr(xxy) = tmp
Next
    If xxy >= 2 Then
    For cntaa = 2 To xxy
        elenco.AddItem (strr(1) & "\" & strr(cntaa))
    Next
    Else: elenco.AddItem (nomef)
    End If
End Sub

Ciao, Devaraja

"--Devaraja--" <leonzio@libero.it> ha scritto nel messaggio
news:nkP0a.199046$AA2.7743510@news2.tin.it...
> ciao, ho un problema che non riesco a risolvere. In un progetto ho
inserito
> un commondialog e le ho dato la flag AllowMultiSelect che permette di
aprire
> pi� di un file. Ho inserito poi un codice che aggiunge il file aperto in
una
> listbox. Il problema � che se apro pi� di un file vedo nella listbox un
solo
> elemento che � la loro cartella. Come posso fare a fare apparire i file in
> tanti elementi separati?
>
>

Technical Details

Message-ID: <vwv4a.265950$AA2.10264331@news2.tin.it>

Path:

arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!sn-xit-04!sn-xit-06!sn-xit-08!supernews.com!newshosting.com!news-xfer1.atl.newshosting.com!news-spur1.maxwell.syr.edu!news.maxwell.syr.edu!nntp.infostrada.it!newsfeeder.edisontel.com!news-out.tin.it!news-in.tin.it!news2.tin.it.POSTED!not-for-mail

References: <nkP0a.199046$AA2.7743510@news2.tin.it>

Show Full Headers

Complete Article Headers

X-Google-Language: ITALIAN,ASCII
X-Google-Thread: f94ee,e6818dc07547ca79
X-Google-Attributes: gidf94ee,public
X-Google-ArrivalTime: 2003-02-18 11:08:15 PST
Path: arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!sn-xit-04!sn-xit-06!sn-xit-08!supernews.com!newshosting.com!news-xfer1.atl.newshosting.com!news-spur1.maxwell.syr.edu!news.maxwell.syr.edu!nntp.infostrada.it!newsfeeder.edisontel.com!news-out.tin.it!news-in.tin.it!news2.tin.it.POSTED!not-for-mail
From: "--Devaraja--" <leonzio@libero.it>
Newsgroups: free.it.visual-basic
References: <nkP0a.199046$AA2.7743510@news2.tin.it>
Subject: PROBLEMA RISOLTO
Lines: 43
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 5.50.4133.2400
X-MimeOLE: Produced By Microsoft MimeOLE V5.50.4133.2400
Message-ID: <vwv4a.265950$AA2.10264331@news2.tin.it>
Date: Tue, 18 Feb 2003 19:08:11 GMT
NNTP-Posting-Host: 80.116.56.29
X-Complaints-To: newsmaster@tin.it
X-Trace: news2.tin.it 1045595291 80.116.56.29 (Tue, 18 Feb 2003 20:08:11 MET)
NNTP-Posting-Date: Tue, 18 Feb 2003 20:08:11 MET
Organization: TIN

Reply to Parent Message