databinding simple dans un textbox

Version imprimable

1 pièce(s) jointe(s)

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:

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:

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:

Pièce jointe 177153

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

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:

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:

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...

13/05/2015, 10h54
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:

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...