• 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

Button hình tròn đây !

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
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ệ:

Button hình tròn đây !

Gửi bàigửi bởi clarkkent » CN 20/07/2008 8:11 pm

Thủ thuật: Button hình tròn đây !
Tác giả: Nguyễn Trung Tín
Mô tả: Button hình tròn đây !


HinhTron.PNG
HinhTron.PNG (8.31 KiB) Đã xem 4896 lần

Mã: Chọn hết

  1. Private Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
  2.  
  3. Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Long) As Long
  4.  
  5. Private Sub ChangeShape(po_Control As Object)
  6.  
  7.     Dim ll_Width As Long
  8.     Dim ll_Height As Long
  9.     Dim ll_Left As Long
  10.     Dim ll_Top As Long
  11.     Dim ll_Region As Long
  12.  
  13.         With po_Control
  14.  
  15.         ll_Width = .Width / Screen.TwipsPerPixelX
  16.         ll_Height = .Height / Screen.TwipsPerPixelY
  17.     End With        
  18.  
  19.     ll_Region = CreateEllipticRgn(0, 0, ll_Width, ll_Height)
  20.     Call SetWindowRgn(po_Control.hWnd, ll_Region, True)
  21.  
  22. End Sub
  23.  
  24.  
  25. Private Sub Form_Load()
  26.     ChangeShape Command1
  27. End Sub
  28.  


• Hôm bây: www.tinsoftware.com ^ ^
Cố gắng lên...

giongto35
Thành viên danh dự
Thành viên danh dự
Bài viết: 194
Ngày tham gia: T.Năm 19/04/2007 10:17 am
Đến từ: Đà Nẵng City
Been thanked: 1 time
Liên hệ:

Re: Button hình tròn đây !

Gửi bàigửi bởi giongto35 » T.Hai 21/07/2008 7:57 am

BẮT TRƯỚC KO >:)
đục luôn cái command button luôn đi cho tiện , mắc mớ gì xài SHAPE :))
________________________________________________________________________________________________
. . . . . . . . . . . . .. .

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: Button hình tròn đây !

Gửi bàigửi bởi clarkkent » T.Hai 21/07/2008 3:39 pm

giongto35 đã viết:BẮT TRƯỚC KO >:)
đục luôn cái command button luôn đi cho tiện , mắc mớ gì xài SHAPE :))

He ! ko biết đục... :D cái này thấy cũng gọn, có thể sử dụng cho các control khác :D
• Hôm bây: www.tinsoftware.com ^ ^
Cố gắng lên...

QuangHoa
Guru
Guru
Bài viết: 542
Ngày tham gia: T.Năm 27/03/2008 9:02 am
Đến từ: Quê hương Đại tướng Võ Nguyên Giáp
Been thanked: 5 time
Liên hệ:

Re: Button hình tròn đây !

Gửi bàigửi bởi QuangHoa » T.Năm 18/09/2008 9:38 am

Ai có mã nguồn hoặc làm được cái Button như trong Window media Player 11 không, chia sẻ nào. Mình cần lắm :-*
朋友
这些年一个人风也过雨也走,有过泪有过错还记得坚持什么。
真爱过才会懂会记没会回手,终有梦中有你在心中。
朋友一生一起走那些日子不再有,一句话一辈子一生情一杯九。
朋友不曾孤单过一声朋友你会懂,还有伤还有痛还要走还有我。

Hình đại diện của người dùng
vo_minhdat2007
Quản trị
Quản trị
Bài viết: 2227
Ngày tham gia: CN 17/07/2005 1:40 am
Has thanked: 13 time
Been thanked: 87 time
Liên hệ:

Re: Button hình tròn đây !

Gửi bàigửi bởi vo_minhdat2007 » T.Năm 18/09/2008 4:43 pm


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: Button hình tròn đây !

Gửi bàigửi bởi clarkkent » T.Sáu 19/09/2008 12:23 pm

vo_minhdat2007 đã viết:http://www.crazyleafdesign.com/blog/windows-media-player-button-how-did-they-do-it/
Cố làm theo nhé ;))

Cũng ko khó lắm >:)
• Hôm bây: www.tinsoftware.com ^ ^
Cố gắng lên...

giongto35
Thành viên danh dự
Thành viên danh dự
Bài viết: 194
Ngày tham gia: T.Năm 19/04/2007 10:17 am
Đến từ: Đà Nẵng City
Been thanked: 1 time
Liên hệ:

Re: Button hình tròn đây !

Gửi bàigửi bởi giongto35 » T.Sáu 19/09/2008 11:02 pm

________________________________________________________________________________________________
. . . . . . . . . . . . .. .


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.0 khách