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

Button hình tròn đây !

Postby clarkkent » Sun 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) Viewed 5865 times

Code: Select all

  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ự
Posts: 194
Joined: Thu 19/04/2007 10:17 am
Location: Đà Nẵng City
Been thanked: 1 time
Contact:

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

Postby giongto35 » Mon 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 :))
________________________________________________________________________________________________
. . . . . . . . . . . . .. .

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

Postby clarkkent » Mon 21/07/2008 3:39 pm

giongto35 wrote: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
Posts: 542
Joined: Thu 27/03/2008 9:02 am
Location: Quê hương Đại tướng Võ Nguyên Giáp
Been thanked: 5 times
Contact:

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

Postby QuangHoa » Thu 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 :-*
朋友
这些年一个人风也过雨也走,有过泪有过错还记得坚持什么。
真爱过才会懂会记没会回手,终有梦中有你在心中。
朋友一生一起走那些日子不再有,一句话一辈子一生情一杯九。
朋友不曾孤单过一声朋友你会懂,还有伤还有痛还要走还有我。

User avatar
vo_minhdat2007
Quản trị
Quản trị
Posts: 2227
Joined: Sun 17/07/2005 1:40 am
Has thanked: 13 times
Been thanked: 87 times
Contact:

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

Postby vo_minhdat2007 » Thu 18/09/2008 4:43 pm


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

Postby clarkkent » Fri 19/09/2008 12:23 pm

vo_minhdat2007 wrote: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ự
Posts: 194
Joined: Thu 19/04/2007 10:17 am
Location: Đà Nẵng City
Been thanked: 1 time
Contact:

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

Postby giongto35 » Fri 19/09/2008 11:02 pm

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


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

Who is online

Users browsing this forum: No registered users and 0 guests