ruggy94 (Member)
Guru
Messaggi: 890
Iscritto: 21/04/2008
|
Postato originariamente da maxas:
giusto ma per leggerlo sto elenco^^ |
Un po' di iniziativa...non so come vuoi leggerlo.
Codice sorgente - presumibilmente VB.NET |
For each S as string in BookmarksList messagebox.show(s) Next
|
Così te li mostra in delle MsgBox... |
|
maxas (Normal User)
Rookie
Messaggi: 53
Iscritto: 26/07/2009
|
Non Funziona!!!
Ricominciamo da capo
ho creato un form questo e il codice
Codice sorgente - presumibilmente VB.NET |
Imports System.IO Public Class Preferiti Private Sub Preferiti_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load salvapreferiti.Text = Form1.indirizzo.Text End Sub Private Sub aggiungi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles aggiungi.Click Dim sw As StreamWriter = File. AppendText("C:\Programmi\browser\preferiti.txt") sw.WriteLine("" & salvapreferiti.Text) sw.Close() Me.Close() End Sub End Class
|
ricava il link del sito e lo salva...giusto
ma per leggerlo come posso fare...
cosa devo aggiungere al form1
vorrei farlo come quello di firefox che secondo me e il migliore
|
|
manvb.net (Member)
Guru
Messaggi: 663
Iscritto: 28/01/2008
|
Perchè non funziona, spiegati meglio, cosa non va, che errore ti da...
Purtroppo qui non abbiamo la sfera di cristallo.
|
|
ruggy94 (Member)
Guru
Messaggi: 890
Iscritto: 21/04/2008
|
Postato originariamente da manvb.net:
Perchè non funziona, spiegati meglio, cosa non va, che errore ti da...
Purtroppo qui non abbiamo la sfera di cristallo. |
Parole sante. Aggiungo che a me funziona, quindi l'idea è corretta.
Poi non capisco perchè scrivi
Codice sorgente - presumibilmente Plain Text |
sw.WriteLine("" & salvapreferiti.Text)
|
non fai prima con
Codice sorgente - presumibilmente Plain Text |
sw.WriteLine(salvapreferiti.Text)
|
?
Comunque, al tuo codice aggiungi quella funzione che ti ho scritto, e poi aggiungi al form un bottone, mettendo nel gestore del suo evento click
Codice sorgente - presumibilmente VB.NET |
Private Sub Leggi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Leggi.Click Dim L As List(Of String) = ReadBookmarks(percorsoDelFile) For Each S As String In L MsgBox(S) Next End Sub
|
Così funziona di sicuro. |
|
maxas (Normal User)
Rookie
Messaggi: 53
Iscritto: 26/07/2009
|
Tu dici cosi...
perché non ho capito bene...
Codice sorgente - presumibilmente VB.NET |
Function ReadBookmarks(PathFile As String) As list (of String) Dim R As New Io.streamreader(pathfile) Dim BookmarkList As New list (of String) Do Until r.endofstream bookmarklist.add(r.readline) Loop r.close Return Bookmarklist End Function Private Sub Leggi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Leggi.Click Dim L As List(Of String) = ReadBookmarks("C:\Programmi\browser\preferiti.txt") For Each S As String In L MsgBox(S) Next End Sub
|
|
|
ruggy94 (Member)
Guru
Messaggi: 890
Iscritto: 21/04/2008
|
Si, in questo modo dovrebbero apparirti delle MsgBox con i link dei preferiti salvati.
|
|
maxas (Normal User)
Rookie
Messaggi: 53
Iscritto: 26/07/2009
|
Sembra che funzioni sto diventando scemo di quando sto creando sto coso...
una cosa invece di vederlo come
msgbox
io vorrei creare che per ogni link aggiunto
dovrebbe farlo vedere come
ToolStripMenuItem
sai come posso fare penso usando add.
|
|
manvb.net (Member)
Guru
Messaggi: 663
Iscritto: 28/01/2008
|
Esattamente:
MenuStrip1.Items.Add("testo elemento")
e per sapere quando l'utente clicca su un elemento:
Codice sorgente - presumibilmente VB.NET |
Private Sub MenuStrip1_ItemClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles MenuStrip1.ItemClicked Dim elemento As String = e.ClickedItem.Text 'Con elemento ci fai quello che vuoi End Sub
|
Ultima modifica effettuata da manvb.net il 11/08/2009 alle 17:22 |
|