Windows Mobile

Απ: edit new control

bender — Mon, 04 Feb 2008 08:37:40 GMT

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

κάπως έτσι:

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

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

Απ: edit new control

KelMan — Mon, 04 Feb 2008 04:36:20 GMT

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

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

Απ: edit new control

bender — Sun, 03 Feb 2008 18:58:49 GMT

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

Το άλλαξα όπως μου είπες. αλλά μου βγάζει το εξής λάθος για το 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.

Απ: edit new control

SotirisPap — Sun, 03 Feb 2008 11:53:41 GMT

Κάντο Ετσι   :

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

Απ: edit new control

KelMan — Sun, 03 Feb 2008 08:43:14 GMT

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

edit new control

bender — Sun, 03 Feb 2008 08:08:39 GMT

Καλησπέρα!
Πεοσπαθώ να χρησιμοποιήσω κάποια 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