Newsgroup: it.comp.lang.visual-basic
Titolo: quale oggetto?

ciao a tutti.
volevo sapere quale oggetto in vb6 va utilizzato tipo
DirListBox,DriveListBox,ecc.. per la scelta della postazione di
lavoro,quindi per poter permettere di navigare nella LAN.
Ad esempio per poter scegliere "MyPc" dall'elenco di pc della rete,in cui
tramite il DriveListBox sceglierň c:,da cui estrarrň con il DirListBox la
tal cartella,e via dicendo.
grazie
Beba

Beba
Credo che tu abbia bisogno di utilizzare un paio di API, ma non ne
sono sicuro.
I controlli standard non ti permettono di "vedere" la rete, a meno di
risorse già mappate sul pc dove gira l'applicazione.
Ciao
Aran Banjo

Ci sono dei post passati che risolvono il tuo problema; in effetti hai
bisogno di qualche api per vedere il "contenuto" della rete (nel senso, gli
altri computer).
--
Starla. SP.
Sito Brutto: 
http://digilander.iol.it/starlasp
Sito Comune: 
http://www.it-lang-vb.net
star...@libero.itspam

 ha scritto nel messaggio
news:0mg%7.1021$pm3....@news1.tin.it...


 ciao a tutti.

Ok ti rispondo io con il codice di cui si parlava :)
Metti quanto segue in un modulo.
Devi richiamare la BrowseResource().
Ciao
'-----------------------
'Browser
Public Const MAX_PATH = 260
Type BROWSEINFO
        hwndOwner As Long
        pidlRoot As Long
        pszDisplayName As String 'Ritornato
        lpszTitle As String
        ulFlags As Long
        lpfn As Long
        lparam As Long
        iImage As Long
End Type
Declare Function SHBrowseForFolder Lib "shell32.dll" (lpbi As BROWSEINFO) As
Long
Declare Function SHGetPathFromIDList Lib "shell32.dll " (ByVal pidl As Long,
ByVal pszPath As String) As Boolean
Declare Sub CoTaskMemFree Lib "ole32.dll" (ByVal lpv As Long)
' Browsing for directory.
Public Const BIF_RETURNONLYFSDIRS = &H1     ' For finding a folder to start
document searching
Public Const BIF_DONTGOBELOWDOMAIN = &H2    ' For starting the Find Computer
Public Const BIF_STATUSTEXT = &H4
Public Const BIF_RETURNFSANCESTORS = &H8
Public Const BIF_BROWSEFORCOMPUTER = &H1000 ' Browsing for Computers.
Public Const BIF_BROWSEFORPRINTER = &H2000  ' Browsing for Printers
' message from browser
Public Const BFFM_INITIALIZED = 1
Public Const BFFM_SELCHANGED = 2
Const WM_USER = &H400
' messages to browser
Public Const BFFM_SETSTATUSTEXT = (WM_USER + 100)
Public Const BFFM_ENABLEOK = (WM_USER + 101)
Public Const BFFM_SETSELECTION = (WM_USER + 102)
'iParam Definiti opportunamente per non interferire con BIF_*
'Tipo di ritorno
Public Const rALL_RESOURCES = 0
Public Const rONLY_DIRS = 16    'solo dirs con tutto il percorso
Function BrowseResource(ByVal Title As String, ByVal iParam As Long,
Optional ByVal hWnd) As String
'uso di iParam: iParam = Const BIF_* + rParam
'Ritorna la directory selezionata
Dim bi As BROWSEINFO
Dim lpIdList As Long
Dim szFolderName As String
bi.lpszTitle = Title
bi.pszDisplayName = "C:\Temp\" 'Space$(MAX_PATH)
If Not IsMissing(hwnd) Then
    bi.hwndOwner = CLng(hwnd)
End If
If iParam And rONLY_DIRS Then
    bi.ulFlags = iParam - rONLY_DIRS
Else
    bi.ulFlags = iParam
End If
lpIdList = SHBrowseForFolder(bi)
If lpIdList Then
    If iParam And rONLY_DIRS Then
        szFolderName = String$(MAX_PATH, 0)
        SHGetPathFromIDList lpIdList, szFolderName
        szFolderName = Left$(szFolderName, InStr(szFolderName, Chr$(0)) - 1)
    Else
        szFolderName = Left$(bi.pszDisplayName, InStr(bi.pszDisplayName,
Chr$(0)) - 1)
    End If
    BrowseResource = szFolderName
    CoTaskMemFree lpIdList
End If
End Function

 > tramite il DriveListBox sceglierò c:,da cui estrarrò con il DirListBox
