Discussion :

[chtinis]

Bonjour,

J'ai un souci avec le databinding. Je débute en vb, et j'essaye de lier des variables à des contenus de textbox.

Mon code est tout simple, je défini une classe projet:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
 Public Class projet
        Public nom_projet As String
        Public numero_projet As String
        Public numero_ordre As String
        Public client As String
        Public programme_essai As String
        Public revision As String
        Public type_machine As String
    End Class

Ensuite à l'initialisation de ma form , j'essaye de lier le nom du projet au contenu d'une textbox:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
    Private Sub projet_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'Me.ComboBox_type_excit.SelectedIndex = 0
 
        Try
dim mon_projet as new projet
 
            Dim b As New Binding("Text", mon_projet, "nom_projet", True)
            Me.TextBox_projet.DataBindings.Add(b)
 
Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
 
    End Sub

Pas de souci à la compilation, mais lorsque j'exécute le code, j'ai l'erreur:



Quelqu'un aurait une piste pour me dépanner?

[MABROUKI]

bonjour
Ca ne marchera pas parce que ton class declare des variables publiques au lieu des proprieties publiques...
Ensuite la casse en VB.net c'est strict ...il faut se fatigue un peu les mains et les meninges...

code vb.net :

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
 
Public Class Projet
 
    Public Property Nom As String
    Public Property Client As String
    Public Sub New()
        Nom = "aucun"
        Client = "aucun"
    End Sub
    Public Sub New(ByVal ONom As String, ByVal OClient As String)
        Me.New()
        Nom = ONom
        Client = OClient
    End Sub
End Class

et celui du form user:

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
 
Public Class Form1
 
    Private projetSource As Projet
    Private b As Binding
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Me.ComboBox_type_excit.SelectedIndex = 0
 
        Try
            projetSource = New Projet("Alibaba", "Aladin")
 
            b = New Binding("Text", projetSource, "Nom", True, DataSourceUpdateMode.OnPropertyChanged)
 
            Me.txtBoxNomProjet.DataBindings.Add(b)
            b = New Binding("Text", projetSource, "Client", True, DataSourceUpdateMode.OnPropertyChanged)
 
            Me.txtBoxClientProjet.DataBindings.Add(b)
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
 
    End Sub
End Class

bon code...

[chtinis]

Merci pour ces précisions, en effet la déclaration de la classe est stricte.
Encore un souci, toujours dans les méandres du binding.
J'ai réussi à créer des bindings avec des propriété d'objet, mais pas avec la propriété d'un objet dans une liste.

J'ai une liste de sonde, qui ont toutes un nom.

Comment faire un binding avec un élément d'un tableau dans une liste?

Par exemple j'ai défini un objet sonde, avec les propriété nom, type

J'ai une liste liste_sonde de 10 sondes
Je voudrais créer un binding entre textbox1 et le nom de la première sonde de ma liste;

Code :

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

1
2
3
 
  Dim b As New Binding("Text", liste_sonde.item(1), "nom", True, DataSourceUpdateMode.OnValidation)
        Me.TextBox_1.databindings.add(b)

Ca ne fait pas d'erreur, mais pas de binding non plus...