Visual Basic NET ( 3)



1.

Private Sub _Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles .Click

.Text = Val(1.Text) * Val(1.Text)

End Sub

 

2.

Private Sub _Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles .Click

1.Text = "" : 2.Text = "" : .Text = ""

End Sub

 

3.

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

Handles _.Click

.Text = Val(1.Text) - Val(2.Text)

_.Top = 30

_.Left = 100

_.Width = 300

_.Text = " "

End Sub

 

Private Sub _Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles .Click

1.Text = "" : 2.Text = "" : .Text = ""

_.Top = 80

_.Left = 240

_.Width = 32

_.Text = "-"

End Sub

 

4.

Private Sub _Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles .Click

.FileName = "D:\WINNT\Media\canyon.mid"

Label3.Text = ", ."

End Sub

 

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

TextBox2.Text = .CurrentPosition() '

TextBox3.Text = .Duration - .CurrentPosition() '

End Sub

 

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

.CurrentPosition = TextBox4.Text '

End Sub

 

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click




- -  - -  - -