• 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

Đóng ứng dụng rất phong cách

Các thủ thuật liên quan đến việc xử lý ứng dụng, biểu mẫu và control
vinhphuoc91
Thành viên tích cực
Thành viên tích cực
Posts: 146
Joined: Wed 26/03/2008 5:52 pm
Location: Phú Yên
Been thanked: 15 times
Contact:

Đóng ứng dụng rất phong cách

Postby vinhphuoc91 » Wed 09/04/2008 8:54 pm

Thủ thuật: Đóng ứng dụng
Tác giả: Sưu tầm
Mô tả: Đóng ứng dụng của bạn theo 1 phong cách riêng


Thêm vào Form đoạn code sau :

Code: Select all

  1. Private Sub Form_Load()
  2.     Form1.Height = 6400
  3.     Form1.Width = 10000
  4. End Sub
  5. Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  6.     If Button = vbRightButton Then
  7.         coolCloseForm Me, 20
  8.     Else
  9.         Dim a As New Form1
  10.         a.Height = a.Height / 2
  11.         a.Width = a.Width / 2
  12.         a.Show
  13.     End If
  14. End Sub
  15.  
  16. Public Function coolCloseForm(closeForm As Form, speed As Integer)
  17.  
  18.     If speed = 0 Then
  19.         MsgBox "Speed cannot zero"
  20.         Exit Function
  21.     End If
  22.  
  23.     On Error Resume Next
  24.         closeForm.ScaleMode = 1
  25.         closeForm.WindowState = 0
  26.         Do Until closeForm.Height <= 405
  27.             DoEvents
  28.                 closeForm.Height = closeForm.Height - speed * 10
  29.                 closeForm.Top = closeForm.Top + speed * 5
  30.             Loop
  31.             Do Until closeForm.Width <= 1680
  32.                 DoEvents
  33.                     closeForm.Width = closeForm.Width - speed * 10
  34.                     closeForm.Left = closeForm.Left + speed * 5
  35.                 Loop
  36.                 Unload closeForm
  37. End Function


Sử dụng : Chạy ứng dụng sau đó Click chuột Trái, click chuột phải để thấy kết quả ;;)


My website : http://tinthoitrang.net

User avatar
hoangluyen
Thành viên năng nổ
Thành viên năng nổ
Posts: 61
Joined: Thu 03/04/2008 3:26 pm
Location: Hải Hậu - Nam Định
Contact:

Re: Đóng ứng dụng rất phong cách

Postby hoangluyen » Fri 11/04/2008 2:01 pm

Cái này cũng thường có gì đâu!
Mình tưởng bạn có hiệu ứng gì đẹpc chứ hóa ra chỉ là cách show form new có gì đâu!
..::Chỉ có tình yêu (*) và lao động sẽ làm cho con người trở nên đẹp hoàn mĩ ::..
-------------------------------------------------------------------

User avatar
VBNewbie
Thành viên tích cực
Thành viên tích cực
Posts: 113
Joined: Sat 29/03/2008 7:13 pm
Location: Computer
Been thanked: 3 times
Contact:

Re: Đóng ứng dụng rất phong cách

Postby VBNewbie » Tue 29/04/2008 7:00 pm

Làm hiệu ứng mờ dần cũng đẹp, sử dụng Tranperency đó. Cũng đẹp không kém. :D
-------[[[[[[[ VMind - PM trắc nghiệm đa năng ]]]]]]]]------
http://vmind.co.cc/vmind
-------[[[[ Diễn đàn trí tuệ Việt Nam ! ]]]]]]]]-----
http://vmind.co.cc

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: Đóng ứng dụng rất phong cách

Postby clarkkent » Mon 12/05/2008 12:31 pm

Cũng được, nhưng nhấp chuột phải thôi là được rồi... Cái này là đóng chứ đâu phải mở cái mới... :D
• Hôm bây: www.tinsoftware.com ^ ^
Cố gắng lên...


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

Who is online

Users browsing this forum: No registered users and 2 guests