Visual Basic NET ( 3)



- 2


  • 1 ( ) .
  • , :

    • 0 .
    • _, .
    • . . , , . cls , .

      : .

      :

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

      = Me

      KeyPreview = True '

      _.ReadOnly = True '

      = New cls ' cls

      _()

      End Sub

      Private Sub _()

      _.Text = 0 '

      _.Focus() '

      ._() '

      End Sub

      Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

      .()

      _.Text = _.Text + 1 ' 1

      End Sub

      Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As KeyEventArgs) Handles MyBase.KeyDown

      .__(e)

      End Sub

      Private Sub __Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _

      Handles _.Click

      _()

      End Sub

      cls ( ):

      Public Class cls