• 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

Form trong suốt, Form Hình dạng bất kỳ, TitleBar giả

Các thủ thuật liên quan đến ứng dụng, biểu mẫu và control

Moderators: tungcan5diop, QUANITGROBEST

kingstar99
Posts: 6
Joined: Wed 02/11/2011 10:09 pm
Has thanked: 1 time
Been thanked: 6 times

Form trong suốt, Form Hình dạng bất kỳ, TitleBar giả

Postby kingstar99 » Thu 22/12/2011 12:08 am

Thủ thuật: Form trong suốt, Form Hình dạng bất kỳ, TitleBar giả
Tác giả: kingstar99
Mô tả: Form trong suốt, Form Hình dạng bất kỳ, TitleBar giả


Mình làm quen với VB.Net được 3 tháng rồi, hôm nay mạo muội viết bài đầu tiên mong được học hỏi thêm nhiều ý kiến hay !

Những đề tài mình đưa ra không mới mẻ gì, nhưng những cách trên các diển đàn hơi phức tạp và khó hiểu !

I-Form trong suốt
Trong sự kiện LoadForm chèn code sau:
  1. Private Sub Frm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  2.         TransparencyKey = BackColor
  3.  End Sub
  4.  


II-Form hình dạng bất kỳ

Từ Form trong suốt đó cho vào 1 PictureBox với các thuộc tình sau:
Dock=Fill
Image "Cho vào một ảnh *.png hìnhdạng bất kỳ
BackColor=Transparency

III-TitleBar giả (di chuyển được Form)
Thuộc tính BoderStyle=None
Cho vào một PictureBox đặt vị trí trên cùng giống như TitleBar

[vbnet]
Dim IsMouseDown = False
Dim startPoint
Private Sub TitleBar_MouseUp_1(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TitleBar.MouseUp
IsMouseDown = False
End Sub
Private Sub TitleBar_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TitleBar.MouseDown
startPoint = e.Location
IsMouseDown = True
End Sub
Private Sub TitleBar_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TitleBar.MouseMove
If IsMouseDown Then
Dim p1 = New Point(e.X, e.Y)
Dim p2 = PointToScreen(p1)
Dim p3 = New Point(p2.X - startPoint.X, p2.Y - startPoint.Y)
Location = p3
End If
End Sub
[/vbnet]

Hy vọng hữu ích !



thanghungkhi
Posts: 6
Joined: Thu 08/12/2011 6:11 pm
Has thanked: 4 times

Re: Form trong suốt, Form Hình dạng bất kỳ, TitleBar giả

Postby thanghungkhi » Sat 24/12/2011 1:52 pm

Em có đọc chủ đề này của CLB VB, nhưng chỉ có code nên không hiểu lắm, chỉ ctrl+c rồi ctrl+v, giờ thì hiểu rồi ^^

Songuku95
Posts: 8
Joined: Sun 29/01/2012 9:46 pm
Has thanked: 2 times

Re: Form trong suốt, Form Hình dạng bất kỳ, TitleBar giả

Postby Songuku95 » Sun 05/02/2012 11:26 pm

Sao em cài cái thay đổi hình dạng Form nó lại ra thế này ạ? Ai giúp em với :)
Image

User avatar
nimgiaminh
Thành viên danh dự
Thành viên danh dự
Posts: 432
Joined: Sat 07/08/2010 9:24 am
Location: Ở dưới đó đó
Has thanked: 6 times
Been thanked: 18 times
Contact:

Re: Form trong suốt, Form Hình dạng bất kỳ, TitleBar giả

Postby nimgiaminh » Sun 05/02/2012 11:32 pm

Bạn cần đặt thuộc tính form border là none

Songuku95
Posts: 8
Joined: Sun 29/01/2012 9:46 pm
Has thanked: 2 times

Re: Form trong suốt, Form Hình dạng bất kỳ, TitleBar giả

Postby Songuku95 » Mon 06/02/2012 10:17 pm

Em làm được rồi
Nhưng như thế này thì không di chuyển được Form. Hơn nữa lại ko có 3 cái thanh Close, Restore, Minimize

User avatar
nhatlinh0207
Thành viên tâm huyết
Thành viên tâm huyết
Posts: 428
Joined: Wed 15/08/2012 7:54 pm
Has thanked: 58 times
Been thanked: 51 times

Re: Form trong suốt, Form Hình dạng bất kỳ, TitleBar giả

Postby nhatlinh0207 » Tue 16/10/2012 1:25 pm

hay đấy. mình làm được rồi. nhưng chỉ thắc mắc là khi chèn button thì vẫn có chỗ trên button nhìn xuyên qua được thế lại hơi xấu ;;)

User avatar
nimgiaminh
Thành viên danh dự
Thành viên danh dự
Posts: 432
Joined: Sat 07/08/2010 9:24 am
Location: Ở dưới đó đó
Has thanked: 6 times
Been thanked: 18 times
Contact:

Re: Form trong suốt, Form Hình dạng bất kỳ, TitleBar giả

Postby nimgiaminh » Wed 17/10/2012 6:24 pm

Vậy bạn đặt lại background của button.

tranbadat
Thành viên chính thức
Thành viên chính thức
Posts: 44
Joined: Thu 21/02/2013 9:50 pm
Has thanked: 22 times
Been thanked: 4 times

Re: Form trong suốt, Form Hình dạng bất kỳ, TitleBar giả

Postby tranbadat » Fri 22/02/2013 12:44 pm

cái này hay nè!!!


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

Who is online

Users browsing this forum: No registered users and 1 guest