• 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
Hình đại diện của người dùng
FVS
Thành viên tích cực
Thành viên tích cực
Bài viết: 178
Ngày tham gia: T.Ba 13/05/2008 10:38 am

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

Gửi bàigửi bởi FVS » CN 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:

Mã: Chọn hết

  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

Hình đại diện của người dùng
clarkkent
Mạnh Thường Quân
Mạnh Thường Quân
Bài viết: 1641
Ngày tham gia: T.Tư 16/04/2008 11:25 am
Đến từ: Chợ Lách - Bến Tre
Been thanked: 31 time
Liên hệ:

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

Gửi bàigửi bởi clarkkent » CN 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
Bài viết: 490
Ngày tham gia: T.Bảy 26/05/2007 4:31 pm
Been thanked: 8 time

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

Gửi bàigửi bởi neverland87 » CN 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

Hình đại diện của người dùng
FVS
Thành viên tích cực
Thành viên tích cực
Bài viết: 178
Ngày tham gia: T.Ba 13/05/2008 10:38 am

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

Gửi bàigửi bởi FVS » CN 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
Bài viết: 1
Ngày tham gia: T.Năm 09/10/2008 9:41 pm

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

Gửi bàigửi bởi SilverCHick » T.Tư 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

Hình đại diện của người dùng
FVS
Thành viên tích cực
Thành viên tích cực
Bài viết: 178
Ngày tham gia: T.Ba 13/05/2008 10:38 am

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

Gửi bàigửi bởi FVS » T.Tư 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


Quay về “[VB] Ứng dụng - Form và Control”

Đang trực tuyến

Đang xem chuyên mục này: Không có thành viên nào trực tuyến.1 khách