Associare il contenuto di una TextBox ad una ListBox

[Robyn69]

ciao a tutti
vorrei se fosse possibile come da oggetto
associare le due voci
premetto che il tutto e un database
e che nella text1.text sono contenuti i nomi che inserisco di volta in volta
e nella listbox sono inseriti i file eseguibili con gli stessi nomi
es.
text1.text = pippo
listbox = pippo.exe
vorrei poi far in modo di visualizzare solo il nome corrispondente in questo caso solo pippo.exe

se però nella text1 non c'e visualizzato nulla la lista deve comparire vuota

il tutto perche poi dovro usare una shell che mi lancia l'eseguibile
mi aiutate anche conun esempio oppure indirizzarmi su qualche doc

[LMondi]

Temo di non aver capito appieno il tuo problema, comunque per caricare la Lbox da una Txt (solo se quest'ultima ha del contenuto) potresti fare così:

Private Sub Command1_Click()
    If Len(Text1.Text) > 0 Then List1.AddItem Text1.Text & ".exe"
    Text1.Text = ""
    Text1.SetFocus
End Sub

[Robyn69]

ciao vediamo se ho capito il codice
con il len verifico la lunghezza del text1 e la confronto con il contenuto e il risultato lo aggiungo alla lista che mi visualizza lo stesso nome giusto?
Text1.SetFocus
il puntamento cosi rimane sulla textbox ho sbaglio cmq
potrei puntarlo sulla listbox?
ora lo provo ma avrei voluto farlo in automatico senza lanciare nessun controllo

pero' se non ho capito male non risolvo il problema

allora consedirando che la text1.text e un campo di un database e che quindi ha un suo contenuto di nomi. e che la lista rappresenta il contenuto fisico di una cartella con i nomi dei programmi che hanno lo stesso nome di quelli della textbox

con questo codice non riesco a visualizzare nella listbox solo il nome che e scritto sulla textbox....

[LMondi]

Robyn69, non devi scrivere in modo così costipato, altrimenti non ti capisco.
Ho fatto riferimento a questo:

che nella text1.text sono contenuti i nomi che inserisco di volta in volta

Quindi ora hai nella LBox tutti i nomi, a questo punto cosa devi fare?
PS. ho usato un CmdButton per attivare il codice perchè non potevo collegare un DB.

[Robyn69]

ok allora ho inserito il codice ma come pensavo non e cosi che intendevo colpa mia non mi sono spiegato ben ci riprovo:
database elenco.mdb
campi del db
nome:
categoria:
lingua:
note:
Figura:
poi ho aggiunto una commondialog per salvare le immagini a ciascun nome.
fin qui il programma in vb funziona perfettamente, aggiungo,modifico, eleimino ecc..
ora o inserito una filelistbox che fa riferimento ad una cartella ed all'interno di essa ci sono tutti gli eseguibili.(che hanno lo stesso nome contenuto nel db e a sua volta li visualizzo nella textbox).
ogni volta che apro il programma nella textbox trovo lultimo record inserito,e a questo punto vorrei fare in modo che nella filelistbox mi apparisse solo il nome che vedo nella textbox, senza però svuotare la textbox
es. text.text = pippo
filelistbox= pippo.exe
oppure un commando che mi permetta di lanciare l'eseguibile che si trova nella cartella e che ha il nome della text1.text
sarebbe ancora meglio.

[LMondi]

Vedo che hai cambiato completamene rotta.
Per visualizzare/selezionare un file, in un controllo FileListBox, facendo in modo che appaia solo quel Nome di file e che sia uguale al contenuto della proprietà Text, devi semplicemente inserire:

File1.FileName = Text2.Text

[Robyn69]

grazie le cose più semplici sono sempre le migliori...
ora non mi resta che passare la shell sul click del file selezionato ed ho terminato..
grazie molto

scusa un altra cosa
posso fare la stessa cosa da una picturbox in modo da togliere il commondialog.

[Robyn69]

ciao inserendo questo codice e selezionando il file nella listbox mi flescia l'esecuzione
per un attimo ma l'installazione non parte dov'è che sbaglio

[Private Sub File1_Click()
Dim list As String
Dim nomefile As String
Dim X As Long
nomefile = Dir(str & "*.exe")
str = str & nomefile
list = (Dir1.Path & "File1.FileName")
File1.FileName = Text1.Text & "*.exe"
X = Shell(str, 1)
End Sub]
vorrei far partire la str in realtà parte ma un attimo

[LMondi]

Prova ad usare il parametro: , vbNormalFocus

[Robyn69]

cosi mi da lo stesso flash l'applicazione non si avvia
X = Shell(str, vbNormalFocus)
X = Shell(str, vbNormalFocus, 1)
X = Shell(str, 1, vbNormalFocus)
in tutti e tre i modi mi flescia