[VB6] Aiuto azioni su listbox

[xamira]

Ciao a tutti, oggi è il primo giorno che mi imbatto in vb.
Sto creando un programma per i miei contatti personali, ho questi oggetti:
List1=nome e cognome
Text1=biografia
Picture1=foto
Command1=url personale
Command2=cartella personale
Command3=avvia il suo programma

Sapete dirmi che azioni devo dare a vb per far si che clikando sul contatto 1 mi dia le sue rispettive cose, al 2 idem e così per tutti gli altri.

Grazie 1000

[xamira]

Sono riuscito in parte nel mio intento:

Private Sub List1_Click()
Select Case List1.ListIndex
Case 0
    Text1.Text = "Mario"
    Picture1.Picture = LoadPicture(App.Path & "/risorse/mario.jpg")
Case 1
    Text1.Text = "Marco"
    Picture1.Picture = LoadPicture(App.Path & "/risorse/marco.jpg")
Case 2
    Text1.Text = "Gino"
    Picture1.Picture = LoadPicture(App.Path & "/risorse/gino.jpg")

End Select
End Sub

Vorrei sapere come caricare un rtf da codice al posto di text1 così creo file esterno e formattato

E posto di nuovo il problema per i vari pulsanti che non sono riuscito a risolvere.

Grazie 1000

[xamira]

Anche il caricamento rtf sono riuscito a farlo ora mancano i pulsanti
mi aiutate please?

Grazie 1000

Private Sub List1_Click()
Select Case List1.ListIndex
Case 0
    RichTextBox1.LoadFile (App.Path & "/risorse/mario.rtf")
    Picture1.Picture = LoadPicture(App.Path & "/risorse/mario.jpg")
Case 1
    RichTextBox1.LoadFile (App.Path & "/risorse/marco.rtf")
    Picture1.Picture = LoadPicture(App.Path & "/risorse/marco.jpg")
Case 2
    RichTextBox1.LoadFile (App.Path & "/risorse/gino.rtf")
    Picture1.Picture = LoadPicture(App.Path & "/risorse/gino.jpg")
End Select
End Sub

[xamira]

Ma il forum non è attivo o non sono ben gradito?
Non riesco proprio a risolvere il problema e non ho molto tempo per fare il programmino perché il pc non è il mio.
Sapete risolvere anche questo problema?
Ho un RichTextBox con la scrollbar verticale che mi scrolla il testo quando serve, quando scrollo il testo e interrompo il mio scroll ad un punto qualsiasi sembra che la scrollbar memorizza la sua ultima posizione e quindi leggo le righe che sono in quel punto. Come faccio a far ripartire la scroll dall'inizio del testo.


Grazie e scusate i frequenti thread

[Brainjar]

Non pensare di non essere gradito. Cerca invece di essere più chiaro nell'esporre i tuoi quesiti.
Intanto ti faccio alcune domande :
1) Cosa intendi per azioni sui pulsanti?
2) I dati (URL personale, cartella personale ecc ) dove devi reperirli ? Da un file, da una tabella ?
3) come devi visualizzarli ? In una finestra di dialogo, in una TextBox ?
Se dai almeno queste informazioni vedrai che qualche aiuto te lo diamo !

Ciao,

[xamira]

Allora chiedo scusa per la chiarezza dei miei messaggi.
1) Cosa intendi per azioni sui pulsanti?
Intendo associare un azione al pulsante cioè al click far partire un url per il pulsante uno,la cartella di quel contatto in esplora risorse per il pulsante 2 e per il terzo un programma personale del mio contatto
2) I dati (URL personale, cartella personale ecc ) dove devi reperirli ? Da un file, da una tabella ?
3) come devi visualizzarli ? In una finestra di dialogo, in una TextBox ?
Come già detto sono tutte azioni da associare ai vari pulsanti, l'url mi deve partire nel browser predefinito, cartella personale non è altro che la cartella dove sono contenuti i file di quel contatto quindi aprire la cartella come in eslora risorse e il prog è contenuto in questa cartella,quindi cliccando sul tasto 3 mi dovrebbe eseguire quel programma

[xamira]

Ma nessuno mi può aiutare?
Forse è difficile realizzare una cosa come quella che chiedo

Grazie anche per una risposta negativa

[xamira]

Ma nessuno può rispondere, credo che sia una cosa fattibile da fare.
Sono riuscito in parte e vorrei poter finire.

Grazie

[xamira]

Mi potreste dare una risposta, non ho chiesto la vita, moderatori ma non ci siete?

Grazie

[xamira]

 Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Public Sub Navigate(frm As Form, ByVal WebPageURL As String)
   Dim hBrowse As Long
   hBrowse = ShellExecute(frm.hwnd, "open", WebPageURL, "", "", SW_SHOW)
End Sub

Private Sub Command1_Click()
Select Case List1.ListIndex
Case 0
    Call Navigate(Me, "http://www.mariorossi.com")
Case 1
Case 2
Case 3
Case 4
Case 5
Case 6
End Select
End Sub

Con questo codice mi da questo errore:
Compile error:
Costants,fixed-length strings,arrays,user-definied types and Declare statements not allowed as Public members of object modules
Mi aiutate please