• 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
Bài viết: 146
Ngày tham gia: T.Tư 26/03/2008 5:52 pm
Đến từ: Phú Yên
Been thanked: 15 time
Liên hệ:

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

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

Mã: Chọn hết

  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

Hình đại diện của người dùng
hoangluyen
Thành viên năng nổ
Thành viên năng nổ
Bài viết: 61
Ngày tham gia: T.Năm 03/04/2008 3:26 pm
Đến từ: Hải Hậu - Nam Định
Liên hệ:

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

Gửi bàigửi bởi hoangluyen » T.Sáu 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ĩ ::..
-------------------------------------------------------------------

Hình đại diện của người dùng
VBNewbie
Thành viên tích cực
Thành viên tích cực
Bài viết: 113
Ngày tham gia: T.Bảy 29/03/2008 7:13 pm
Đến từ: Computer
Been thanked: 3 time
Liên hệ:

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

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

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

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


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