I-BEGO

maaf, newby nih, sekarang baru akan mulai belajar vb.net.

kalau ingin tahu nama kontrol yang saat ini sedang mendapat fokus gimana ya? misal kursor saat ini sedang berada di textbox1 maka ada sebuah label yg bertuliskan "textbox1", begitu pula jika kursor berpindah ke textbox2 maka label tersebut berubah menjadi "textbox2".

mohon bantuannya ya om/mbak, terima kasih.

Karena baru belajar, ane kasih yg mudah

Code: Select all

Public Class Form1
    Private Sub FokusOn(ByVal ctl As Control)
        Me.Label1.Text = ctl.Name
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub TextBox1_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) _
    Handles TextBox1.GotFocus
        FokusOn(TextBox1)
    End Sub

    Private Sub TextBox2_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) _
    Handles TextBox2.GotFocus
        FokusOn(TextBox2)
    End Sub
End Class


tq om/mbak

Dengan mohon ijin dari oom PB , saya tambahin yang agak susah

Code: Select all


    Public Class Form1
        Private Sub FokusOn(ByVal ctl As object, e as system.eventArgs)
            Me.Label1.Text = ctype(ctl, control).name
        End Sub

        Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
             addhandler Textbox1.gotfocus, addressof FokusOn
             addhandler Textbox2.gotfocus, addressof FokusOn
.............
             addhandler TextboxX.gotfocus, addressof FokusOn
        End Sub

    End Class



Post vberror13 telah mendapat kopi dari:

pujanggabageur

TQ para suhu.......semoga Allah SWT membalasnya