Problema risolto [VB 8] ListBox problema, prendere file dal pc con VB

[Arjen]

Ciao, scusate ma è da un pò che ci provo ma non riesco proprio, allora io ho un file .txt nel desktop con parole in linea, a me servirebbe una mano con il codice che quando premo il Button1 dalla Form si caricano nella ListBox tutte le parole del mio file.txt e cosi da poterle selezionare quelle che si vogliono, e che compaiono quelle selezionate in un TextBox sotto, e premendo ad esempio "F1" si carichi la parola direttamente nel sito che vorrei, non so se mi sono spiegato; vi lascio uno screen. Grazie per la pazienza! Intanto questo è il codice che sto provano ma non carica niente: Public Class Form2 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim DirInfo As New IO.DirectoryInfo("C:\Users\Arjen\Desktop\Lista_frasi.txt") For Each f As IO.FileInfo In DirInfo.GetFiles() ListBox1.Items.Add(f.Name) Next End Sub End Class e questo è lo Screen: Spoiler: Spoiler:

[ebello]

Ciao, scusate ma è da un pò che ci provo ma non riesco proprio, allora io ho un file .txt nel desktop con parole in linea, a me servirebbe una mano con il codice che quando premo il Button1 dalla Form si caricano nella ListBox tutte le parole del mio file.txt e cosi da poterle selezionare quelle che si vogliono, e che compaiono quelle selezionate in un TextBox sotto, e premendo ad esempio "F1" si carichi la parola direttamente nel sito che vorrei, non so se mi sono spiegato; vi lascio uno screen. Grazie per la pazienza! Intanto questo è il codice che sto provano ma non carica niente: Public Class Form2 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim DirInfo As New IO.DirectoryInfo("C:\Users\Arjen\Desktop\Lista_frasi.txt") For Each f As IO.FileInfo In DirInfo.GetFiles() ListBox1.Items.Add(f.Name) Next End Sub End Class e questo è lo Screen: Spoiler: PS: per far visualizzare in Microsoft Web Browser solo una pagina ad esempio Google come si fa a impostare predefinita? GRAZIE VERAMENTE!

Per l'inserimento di una listbox che prende i dati da un file txt ti consiglio di seguire questa guida
*Registrati per vedere i link, basta cliccare qui
Per quanto riguarda il fatto di scrivere nel sito che vorresti la parola selezionata in listbox è un po più complicato prima di tutto dobbiamo configurare il webbrowser
WebBrowser1.Navigate("link")
Poi con chrome devi ispezionare l’elemento della TextBox dove deve essere inserito il nome della listbox.
Non so quale è il sito in questione se magari me lo comunichi anche in pm posso aiutarti ... ma comunque dovrebbe essere tipo una cosa del genere
<input id="userName" class="text" type="text" name="name" value="" maxlength="15">
dobbiamo prendere l'id "username" in questo caso
e scrivere nel comando del bottone
WebBrowser1.Document.GetElementById("userName").In nerText = listbox1
Non so se hai capito cmq c'entra qualcosa blurum?

[Arjen]

Haha si mi hai sgamato, ho postato un nuovo screen, così magari si capisce meglio
Comunque grazie adesso provo a vedere con il video, ma non ho ben capito la seconda parte, se io invece al posto di premere un tasto come "F1" premessi un ulteriore bottone da agevolarmi il tutto?

[ebello]

Haha si mi hai sgamato, ho postato un nuovo screen, così magari si capisce meglio
Comunque grazie adesso provo a vedere con il video, ma non ho ben capito la seconda parte, se io invece al posto di premere un tasto come "F1" premessi un ulteriore bottone da agevolarmi il tutto?

Allora aspetta che ti aiuto visto che adesso so il sito ti scrivo direttamente il codice di tutto ok?
Dammi solo un po di tempo

[Arjen]

Grazie mille*--* aspetto allora, comunque con il video ci sono riuscito diciamo
--------------- AGGIUNTA AL POST ---------------
Ah, scusa se rompo ancora c.c allora, appena mi puoi passare il codice avrei finito il programma, solo che premendo il tasto "cerca con Google" si apre una finestra di ie, volevo creare un ulteriore form ma con Form3.Show() e dopo un timer di 0,001 secondi che si chiude in automatico, in modo che non si veda nemmeno l'apertura di questa finestra, che ne dici si può fare?
In poche parole voglio bloccare l'apertura della finestra che si apre cliccando "Cerca con google"

[ebello]

Grazie mille*--* aspetto allora, comunque con il video ci sono riuscito diciamo
--------------- AGGIUNTA AL POST ---------------
Ah, scusa se rompo ancora c.c allora, appena mi puoi passare il codice avrei finito il programma, solo che premendo il tasto "cerca con Google" si apre una finestra di ie, volevo creare un ulteriore form ma con Form3.Show() e dopo un timer di 0,001 secondi che si chiude in automatico, in modo che non si veda nemmeno l'apertura di questa finestra, che ne dici si può fare?
In poche parole voglio bloccare l'apertura della finestra che si apre cliccando "Cerca con google"

Scusa per la lunga attesa avevo dei problemi con la listbox cmq ci sono riuscito
Ecco l'intero progetto:
*Registrati per vedere i link, basta cliccare qui
Ok ora ho letto il fatto della nuova finestra provo a cercare su internet un rimedio...

[Arjen]

Gentilissimo, ora provo e ti faccio sapere

[ebello]

Gentilissimo, ora provo e ti faccio sapere

Ora sto aggiungendo la funzione che preme il tasto cerca visto che nel progetto che ti ho inviato inserisce solo la parola selezionata della listbox

[Arjen]

Intendi che aggiungi "l'opzione" che in automatico cerca anche? Uhm, sarebbe davvero fantastico, bè ho inserito i tuoi codici e funziona alla perfezione ti meriti la reputazione

[ebello]

Intendi che aggiungi "l'opzione" che in automatico cerca anche? Uhm, sarebbe davvero fantastico, bè ho inserito i tuoi codici e funziona alla perfezione ti meriti la reputazione

Grazie mille
Cmq purtroppo non riesco a trovare un codice per premere quel tasto...
cmq non mi arrendo devo riuscirci

[Arjen]

Però c'è un problemino, su 2mila frasi in lista carica solo la prima, come mai?

 Dim asd = ListBox1.SelectedItem
        WebBrowser1.Document.GetElementById("txtSearch").InnerText = (asd)

Non so se centra qualcosa, ma mi sembra che sia qui l'errore..

[ebello]

Guarda che cosa ti ho trovato


Ti può essere di aiuto penso lol
--------------- AGGIUNTA AL POST ---------------

Però c'è un problemino, su 2mila frasi in lista carica solo la prima, come mai?

 Dim asd = ListBox1.SelectedItem
        WebBrowser1.Document.GetElementById("txtSearch").InnerText = (asd)

Non so se centra qualcosa, ma mi sembra che sia qui l'errore..

Comunque penso che non ti carichi le altre parole perchè ci sia il quadratino strano davanti ... ancora capisco il perchè lo mette cmq vedendo questo video ti spiega anche come mettere il bottone
E' una guida fatta molto bene

[Arjen]

Utile, ma non si legge molto, bè grazie ma non c'è un modo per far si che tutte le frasi della lista caricata funzionino? Perchè a me solo la prima va

Ah ok ma comunque non c'è nessun quadratino strano ahaha

Risolto per metà diciamo, ho impostato tutte le frasi dentro VB e c'è comunque l'opzione da inserire il file .txt ma selezionandolo fa sempre il problema che seleziona il primo della lista e basta

Spoiler:

[ebello]

Utile, ma non si legge molto, bè grazie ma non c'è un modo per far si che tutte le frasi della lista caricata funzionino? Perchè a me solo la prima va

Anche a me lo fa infatti nella listbox ti appaiono certe parole con tipo un rettangolino davanti vero?
Devo scoprire il modo per levare questo "rettangolo" e sono sicuro che dopo andrà tutto liscio

[Arjen]

Proprio non riesco a sistemarlo non trovo nulla in internet, secondo me devo inserire dentro

Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
    End Sub

il codice che seleziona un tot di righe