phần mền Tỏ tình

Tên chương trình: Tỏ tìnhNgôn ngữ lập trình: VB.Net
Tác giả: la minh
Chức năng: Tỏ tình
Cách làm của mình là xác định tọa độ của form rùi cho control chạy ngẫu nhiên theo giới hạn tọa độ mình chọn trước.

Public Class frm_totinh


Private Sub btn_khong_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_khong.Click
Dim r As New Random
Randomize()
For i As Integer = 1 To r.Next(401)
For j As Integer = 1 To r.Next(340)
btn_khong.Location = New Point(i, j)
Next
Next
End Sub

Private Sub btn_khong_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles btn_khong.MouseMove
Dim r As New Random
Dim i As Integer
Dim j As Integer

Randomize()
For i = 1 To r.Next(311)
For j = 1 To r.Next(273)
i = i
j = j
Next j
Next i

btn_khong.Location = New Point(i, j)
End Sub

Private Sub btn_co_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_co.Click
MsgBox("> Mình biết bạn sẽ chọn như vậy mà !! He he " & vbCrLf & "> Mình cũng yêu bạn lắm đó !!!" & vbCrLf & "> Mong bạn hãy tin vào tình yêu của mình dành cho bạn " & vbCrLf & "> Mãi mãi yêu bạn, Honey à <img src="./images/smilies/053.gif" alt="@};-" title="rose" /> ", MsgBoxStyle.OkOnly, "I Love You")
End Sub
End Class

[You must be registered and logged in to see this image.]

link download tai day