• 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

Điều hành viên: tungcan5diop, QUANITGROBEST

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

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

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

Mã: Chọn hết

  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

Mã: Chọn hết

  1. Call CenterScreen(Me)


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

neverland87
Guru
Guru
Bài viết: 490
Ngày tham gia: T.Bảy 26/05/2007 4:31 pm
Been thanked: 8 time

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

Gửi bàigửi bởi neverland87 » T.Bảy 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

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

Gửi bàigửi bởi clarkkent » CN 29/06/2008 9:02 am

neverland87 đã viết:Đâ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ự
Bài viết: 261
Ngày tham gia: T.Hai 12/03/2007 10:55 pm
Đến từ: Hà Giang
Has thanked: 2 time
Been thanked: 1 time
Liên hệ:

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

Gửi bàigửi bởi ngaydautiendihoc » CN 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

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

Gửi bàigửi bởi vo_minhdat2007 » T.Bảy 12/07/2008 11:38 am

clarkkent đã viết: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

Mã: Chọn hết

  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

Mã: Chọn hết

  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 :

Mã: Chọn hết

  1. Form.CenterToScreen()

2. Ra giữa form cha :

Mã: Chọn hết

  1. Form.CenterToParent()


Thân,
Advance Members Group.

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

Gửi bàigửi bởi clarkkent » T.Bảy 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
Bài viết: 2
Ngày tham gia: T.Năm 16/04/2009 12:00 am

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

Gửi bàigửi bởi holir » T.Năm 16/04/2009 12:34 am

hay wá


Quay về “[.NET] Ứ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