• 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

Canh Form nằm giữa màn hình

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

Moderators: tungcan5diop, QUANITGROBEST

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:

Canh Form nằm giữa màn hình

Postby clarkkent » Sat 28/06/2008 8:13 pm

Thủ thuật: Canh Form nằm giữa màn hình bằng Code
Tác giả: Nguyễn Trung Tin
Mô tả: Canh Form nằm giữa màn hình. Trong VB6 có thủ thuật này, nhưng bê nguyên xi code qua thì ko được


Code trong Module

Code: Select all

  1.    Public Sub CenterScreen(ByVal FRM As Form)
  2.         FRM.Top = (Screen.PrimaryScreen.Bounds.Height - FRM.Height) / 2
  3.         FRM.Left = (Screen.PrimaryScreen.Bounds.Width - FRM.Width) / 2
  4.     End Sub

Cách dùng

Code: Select all

  1. Call CenterScreen(Me)


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

neverland87
Guru
Guru
Posts: 490
Joined: Sat 26/05/2007 4:31 pm
Been thanked: 8 times

Re: Canh Form nằm giữa màn hình

Postby neverland87 » Sat 28/06/2008 8:27 pm

Đâu cần phải dài dòng thế, lúc design, set thuộc tính StartPosion = CenterScreen là được liền hà ;;)
SIMPLY THE BEST - ĐƠN GIẢN LÀ TỐT NHẤT

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: Canh Form nằm giữa màn hình

Postby clarkkent » Sun 29/06/2008 9:02 am

neverland87 wrote:Đâu cần phải dài dòng thế, lúc design, set thuộc tính StartPosion = CenterScreen là được liền hà ;;)

Ừ ! biết vậy nhưng trong VBlib cũng có thủ thuật này :D
Sẽ có ích khi ta Resize form, mà trong code không cho set StartPosion = CenterScreen được :(
• Hôm bây: www.tinsoftware.com ^ ^
Cố gắng lên...

ngaydautiendihoc
Thành viên danh dự
Thành viên danh dự
Posts: 261
Joined: Mon 12/03/2007 10:55 pm
Location: Hà Giang
Has thanked: 2 times
Been thanked: 1 time
Contact:

Re: Canh Form nằm giữa màn hình

Postby ngaydautiendihoc » Sun 29/06/2008 9:36 am

Bàn thử xem:
Me.Top = (My.Computer.Screen.WorkingArea.Height - Me.Height) / 2
Me.Left = (My.Computer.Screen.WorkingArea.Width - Me.Width) / 2

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: Canh Form nằm giữa màn hình

Postby vo_minhdat2007 » Sat 12/07/2008 11:38 am

clarkkent wrote:Thủ thuật: Canh Form nằm giữa màn hình bằng Code
Tác giả: Nguyễn Trung Tin
Mô tả: Canh Form nằm giữa màn hình. Trong VB6 có thủ thuật này, nhưng bê nguyên xi code qua thì ko được


Code trong Module

Code: Select all

  1.    Public Sub CenterScreen(ByVal FRM As Form)
  2.         FRM.Top = (Screen.PrimaryScreen.Bounds.Height - FRM.Height) / 2
  3.         FRM.Left = (Screen.PrimaryScreen.Bounds.Width - FRM.Width) / 2
  4.     End Sub

Cách dùng

Code: Select all

  1. Call CenterScreen(Me)

Ý kiến :
Quá tệ hại và dài dòng!
Giải pháp - Code :
1. Ra giữa màn hình :

Code: Select all

  1. Form.CenterToScreen()

2. Ra giữa form cha :

Code: Select all

  1. Form.CenterToParent()


Thân,
Advance Members Group.

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: Canh Form nằm giữa màn hình

Postby clarkkent » Sat 12/07/2008 12:57 pm

:"> Hi! Tại mình tìm không thấy cái đó :D
Thôi Del đi... :D
• Hôm bây: www.tinsoftware.com ^ ^
Cố gắng lên...

holir
Posts: 2
Joined: Thu 16/04/2009 12:00 am

Re: Canh Form nằm giữa màn hình

Postby holir » Thu 16/04/2009 12:34 am

hay wá


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

Who is online

Users browsing this forum: No registered users and 0 guests