wWw.Kythuatdaukhi.com
Chào Mừng Các Bạn Đến Với Diễn Đàn Kỹ Sư Dầu Khí Việt Nam. Hãy đăng nhập nếu bạn đã là thành viên và đừng ngại chia sẽ những kiến thức của bạn. Hãy đăng ký nếu bạn chưa phải là thành viên và cùng thảo luận cùng chúng tôi.


Diễn Đàn Kỹ Sư Dầu Khí - Trung Tâm Kỹ Thuật Dầu Khí Việt Nam - Nơi Hội Tụ Nhân Tài Ngành Dầu Khí.
 
IndexMailCalendarTrợ giúpTìm kiếmThành viênNhómĐăng kýĐăng Nhập

Share | 
 

 phần mền Tỏ tình

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down 
Tác giảThông điệp
abcd
Kỹ Sư Chủ Chốt
Kỹ Sư Chủ Chốt


Tổng số bài gửi : 63
Join date : 08/08/2010

Bài gửiTiêu đề: phần mền Tỏ tình   Mon Sep 13, 2010 12:47 am

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
Về Đầu Trang Go down
Xem lý lịch thành viên
 
phần mền Tỏ tình
Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang 
Trang 1 trong tổng số 1 trang

Permissions in this forum:Bạn không có quyền trả lời bài viết
wWw.Kythuatdaukhi.com :: "(¯`·.º-:¦:-..:. Tổng Hợp .:..-:¦:-º.·´¯)" :: Kiến Thức IT-
Chuyển đến