Discussion :

[dubdub87]

bonjours

j'ai un form qui permet de rechercher sur d'autres forms (ex: frmacrylique, frmPastels, frmAquarelles...) dans ses form il y a un tableau datagridview
je souhaiterais que la form recherche puisse permettre de trouver dans tous les autres form.



combobox
textbox
btnRechercher
le resultat = listbox
btnFermer

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub btnRechercher_Click(ByVal sender As System.Object, ByVal e _
    As System.EventArgs) Handles btnRechercher.Click
        frmTableauxAc.Items.Add("")
        frmAcryliques.Items.Add("")
        frmAquarelles.Items.Add("")
 
        If Resultats.FindString("") <> -1 Then
        End If
    End Sub

merci de votre aide

cordialement

arnaud

[dubdub87]

bonjours,

g trouver un code pour charger sa marcherait mais pour enregistrer rien se passe et à la ligne "dim sw as new IO ......... (sw) et souligner pourquoi svp :

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Public Class frmPastels
 
    Private Sub btnAccueilh_Click(sender As Object, e As EventArgs) Handles btnAccueilh.Click
        frmAccueil.Show()
        Me.Close()
    End Sub
 
    Private Sub btnEnregistrer_Click(sender As Object, e As EventArgs) Handles btnEnregistrer.Click
        Try
 
            sfdPastel.ShowDialog()
            dgvPastel.Text = sfdPastel.FileName
 
 
            Dim sw As New IO.StreamWriter(dgvPastel.DataSource & "Gestion de Peinture 1.1\bin\Debug\")
            sw.Write(RichdgvPastel.Text)
            sw.Close()
            MsgBox("Enregistrer !", MsgBoxStyle.Information)
 
        Catch ex As Exception
 
            MsgBox("non enregistrer !", MsgBoxStyle.Critical)
        End Try
 
 
    End Sub
 
    Private Sub btnAjouter2_Click(sender As Object, e As EventArgs) Handles btnAjouter2.Click
        'créer la fenêtre d'ajout (P.S.: on ne l'enregistre pas en dehors de la méthode pour ne pas
        '                                devoir effacer tous les champs à chaque nouvelle saisie)
        Dim frm As frmAjouterMatiéres = New frmAjouterMatiéres(Me.dgvPastel)
 
        'affiche la fenêtre d'ajout et reste ici tant que l'utilisateur ne l'a pas fermée
        frm.ShowDialog()
    End Sub
 
    Private Sub btnCharger_Click(sender As Object, e As EventArgs) Handles btnCharger.Click
        opfPastel.ShowDialog()
        dgvPastel.Text = opfPastel.FileName
 
    End Sub
 
 
 
End Class

merci de votre aide svp