Καλησπέρα!
Πεοσπαθώ να χρησιμοποιήσω κάποια textbox controls που έχω σημιουργήσει σε runtime, αλλά δεν μπορώ να βρώ με ποιόν τροπο...
Μπορεί μήπως κάποιος να με βοηθήσει?Έχω βρει ότι χρησιμοποιώντας addhandler μπορείσ να τα χειριστείς μετά,αλλά δε ξέρω με ποιό τρόπο μπορώ να πάρω τα δεδομένα από το
textbox αφού δε μου εμφανίζει τίποτα.

Αυτός είναι ο κώδικα που έχω χρησιμοποιήσει.
Ευχαριστώ


        For i = 1 To met
            Dim tx As New TextBox
            tx = New TextBox()
            tx.Visible = True
            tx.Location = New Point(20, i * 25)
            tx.Height = 100
            tx.Width = 50
            Panel1.Controls.Add(tx)
            AddHandler tx.TextChanged, AddressOf textBox_TextChanged


        Next

    End Sub

    Private Sub textBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
        MsgBox(tx.Text)
    End Sub

Θα σε παρακαλούσα να κάνεις edit το post σου και να αλλάξεις τα greeklish σε Ελληνικά (Βλ. Κανονισμοί Λειτουργίας)

---

Vir prudens non contra ventum mingit

Κάντο  Ετσι   :
 
  Friend WithEvents tx As TextBox
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load         ' H ότι άλλο
        For i As Integer = 1 To met
            tx = New TextBox()
            tx.Visible = True
            tx.Location = New Point(20, i * 25)
            tx.Height = 100
            tx.Width = 50
            Panel1.Controls.Add(tx)
            AddHandler tx.TextChanged, AddressOf textBox_TextChanged
        Next
    End Sub
    Private Sub textBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
        MsgBox(sender.Text)
    End Sub

Ευχαριστώ για τη γρήγορη απάντηση!

Το άλλαξα όπως μου είπες. αλλά μου βγάζει το εξής λάθος για το   MsgBox(sender.Text):

Error    1    The targeted version of the .NET Compact Framework does not support latebinding. 


την εφαρμογή την φτιάχνω με vb .net  2008 και δουλεύω με compact framework 3.5 και για WM5.

Δοκίμασε αυτό:

Private Sub textBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
   MsgBox(CType(sender, Button).Text)
End Sub

Και κατόπιν ρίξε μια ματιά σε αυτό: http://www.dotnetzone.gr/cs/blogs/mkelaiditis/archive/2008/02/03/late-binding-option-strict.aspx

 

 

---

Vir prudens non contra ventum mingit

Δούλεψε με μια μικρή διόρθωση μια και είναι textbox και όχι button!

κάπως έτσι:

Private Sub textBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
   MsgBox(CType(sender, textbox).Text)
End Sub

Σε ευχαριστώ πολύ!