• Vui lòng đọc nội qui diễn đàn để tránh bị xóa bài viết
  • Tìm kiếm trước khi đặt câu hỏi

Làm form rung giống yahoo messenger lúc BUZZ!

Các thủ thuật liên quan đến việc xử lý ứng dụng, biểu mẫu và control
User avatar
FVS
Thành viên tích cực
Thành viên tích cực
Posts: 178
Joined: Tue 13/05/2008 10:38 am

Làm form rung giống yahoo messenger lúc BUZZ!

Postby FVS » Sun 17/08/2008 6:54 am

Thủ thuật: Làm form rung giống yahoo messenger lúc BUZZ!
Tác giả: FVS
Mô tả: Giống tên thôi, Làm form rung giống yahoo messenger lúc BUZZ!


Kéo timer1, command1 vô form1 :D rồi paste code sau, F5-->click command-->OK:

Code: Select all

  1. Dim cxc(4) As Integer
  2. Dim cyc(4) As Integer
  3. Dim c As Byte
  4. Private Sub Command1_Click()
  5. c = 0
  6. Timer1.Enabled = True
  7. End Sub
  8. Private Sub Form_Load()
  9. Timer1.Enabled = False
  10. Timer1.Interval = 3
  11. c = 0
  12. cxc(1) = 100
  13. cyc(1) = 100
  14. '---------------
  15. cxc(2) = -100
  16. cyc(2) = -100
  17. '-------------
  18. cxc(3) = 100
  19. cyc(3) = 100
  20. '-------------
  21. cxc(4) = -100
  22. cyc(4) = -100
  23. '-------------
  24. End Sub
  25. Private Sub Timer1_Timer()
  26. c = c + 1
  27. Me.Left = Me.Left + cxc(c Mod 4 + 1)
  28. Me.Top = Me.Top + cyc(c Mod 4 + 1)
  29. If c = 8 Then Timer1.Enabled = False
  30. End Sub
  31.  

Bây giừ tìm các form trên desktop, cho rung một loạt chắc đẹp lắm (chưa thử) >:)


Nhật kí giải thuật - FVS:

Http://GiaiThuat.WordPress.Com

User avatar
clarkkent
Mạnh Thường Quân
Mạnh Thường Quân
Posts: 1641
Joined: Wed 16/04/2008 11:25 am
Location: Chợ Lách - Bến Tre
Been thanked: 31 times
Contact:

Re: Làm form rung giống yahoo messenger lúc BUZZ!

Postby clarkkent » Sun 17/08/2008 1:22 pm

trong thủ thuật cũng có 1 cái nhưng hơi dài, cái này gọn :D
• Hôm bây: www.tinsoftware.com ^ ^
Cố gắng lên...

neverland87
Guru
Guru
Posts: 490
Joined: Sat 26/05/2007 4:31 pm
Been thanked: 8 times

Re: Làm form rung giống yahoo messenger lúc BUZZ!

Postby neverland87 » Sun 17/08/2008 1:26 pm

Trong .NET, cũng có thủ thuật này:
viewtopic.php?f=51&t=2156

Cái này dùng timer, còn bên .NET dùng vòng lặp, có lẽ cũng rứa nhỉ :D
SIMPLY THE BEST - ĐƠN GIẢN LÀ TỐT NHẤT

User avatar
FVS
Thành viên tích cực
Thành viên tích cực
Posts: 178
Joined: Tue 13/05/2008 10:38 am

Re: Làm form rung giống yahoo messenger lúc BUZZ!

Postby FVS » Sun 17/08/2008 2:28 pm

chỗ này If c = 8 Then Timer1.Enabled = False
thay 8 bàng số khác chia hết cho 4 để thấy sự khác biệt
Nhật kí giải thuật - FVS:

Http://GiaiThuat.WordPress.Com

SilverCHick
Posts: 1
Joined: Thu 09/10/2008 9:41 pm

Re: Làm form rung giống yahoo messenger lúc BUZZ!

Postby SilverCHick » Wed 24/12/2008 10:09 am

các anh cho em hỏi, muốn dùng thủ thuật này cho MsgBox thì làm thế nào, mong các bro chỉ giáo

User avatar
FVS
Thành viên tích cực
Thành viên tích cực
Posts: 178
Joined: Tue 13/05/2008 10:38 am

Re: Làm form rung giống yahoo messenger lúc BUZZ!

Postby FVS » Wed 31/12/2008 5:38 pm

Chưa biết, nhưng mà ít nhất có một cách là tự làm hàm msgbox khác có thêm tùy chọn rung bằng form chuẩn của VB6 (chắc bạn làm dc :) )
>>Vào đây thấy anh CLắc lên Cựu chiến binh, chúc mừng nhé :cheer
Nhật kí giải thuật - FVS:

Http://GiaiThuat.WordPress.Com


Return to “[VB] Ứng dụng - Form và Control”

Who is online

Users browsing this forum: No registered users and 0 guests