Discussion :

[DashRendar]

Bonjour les gens
Je sens que je vais encore devoir me démerder tout seul, mais je poste quand même, on sait jamais

Bon, je vous explique rapidement : J'ai une listview, alimentée par une requête, et je voudrais, lorsque je clique sur une ligne de ce ListView, que les informations contenues dans (par exemple) la colonne 1 aillent dans une zone de texte.

Comme une image vaut 1000 mots, zieutez ça :



Voilà je pense que c'est clair ^_^

Si vous pouviez me donner un ptit coup de pouce, histoire de me faire gagner un peu de temps, ça serait sympa Merci !

[DashRendar]

Haha j'ai trouvé tout seul comme un grand une fois de plus. Allez je poste la réponse, au cas où un autre pauvre hère aurait le même souci que moi

Sur l'évènemement "Clik" de la listview =>

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
    Private Sub liste_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles liste.Click
        Dim lvTemp As ListView
        Dim lviTemp As New ListViewItem
        Dim strRefCieemg As String
 
        lvTemp = sender
        lviTemp = lvTemp.FocusedItem
        zs_modif_cieemg.Text = lviTemp.Text
        strRefCieemg = lviTemp.Text
        AfficherContenu(strRef)
    End Sub

Code de la procédure AfficherContenu

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
 
    Public Sub AfficherContenu(ByVal strRef As String)
        Dim oconBase As OracleClient.OracleConnection
        Dim ocomCommand As OracleClient.OracleCommand
        Dim strConnexionSQL As String
        Dim strRequete As String
        Dim rs As System.Data.OracleClient.OracleDataReader
 
        strConnexionSQL = CONNECTION_STRING_IFS_DATABASE
        oconBase = New OracleClient.OracleConnection(strConnexionSQL)
        strRequete = "SELECT COMM.REF_DEMANDE,"
        strRequete = strRequete & " CLIENT.NOM_CLIENT,"
        strRequete = strRequete & " FROM CLIENT, COMM"
strRequete = strRequete & " WHERE(COMM.REF_DEMANDE = '" & strRef & "')"
        strRequete = strRequete & " ORDER BY CLIENT.NOM_CLIENT"
        ocomCommand = New OracleClient.OracleCommand(strRequete, oconBase)
        ocomCommand.Connection.Open()
        Try
            rs = ocomCommand.ExecuteReader
        Catch ex As OracleClient.OracleException
            Console.WriteLine(ex.Message)
            MsgBox("Une erreur est survenue lors du chargement de la liste")
        End Try
 
        If rs.Read() = True Then
            frm_principale.zs_comm.Text = rs.GetValue(0)
            frm_principale.cb_nom.Text = rs.GetValue(1)
        End If
            ocomCommand.Connection.Close()
    End Sub