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

Các điều hành viên: tungcan5diop, QUANITGROBEST

Đăng trả lời
Hình đại diện của thành viên
clarkkent
Mạnh Thường Quân
Mạnh Thường Quân
Bài viết: 1641
Ngày tham gia: Thứ 4 16/04/2008 11:25 am
Đến từ: Chợ Lách - Bến Tre
Been thanked: 32 times
Tiếp xúc:

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

Gửi bài by clarkkent »

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 tất cả

    Public Sub CenterScreen(ByVal FRM As Form)        FRM.Top = (Screen.PrimaryScreen.Bounds.Height - FRM.Height) / 2        FRM.Left = (Screen.PrimaryScreen.Bounds.Width - FRM.Width) / 2    End Sub
Cách dùng

Mã: Chọn tất cả

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: Thứ 7 26/05/2007 4:31 pm
Been thanked: 8 times

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

Gửi bài by neverland87 »

Đâ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 thành viên
clarkkent
Mạnh Thường Quân
Mạnh Thường Quân
Bài viết: 1641
Ngày tham gia: Thứ 4 16/04/2008 11:25 am
Đến từ: Chợ Lách - Bến Tre
Been thanked: 32 times
Tiếp xúc:

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

Gửi bài by clarkkent »

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: 262
Ngày tham gia: Thứ 2 12/03/2007 10:55 pm
Đến từ: Hà Giang
Has thanked: 2 times
Been thanked: 1 time
Tiếp xúc:

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

Gửi bài by ngaydautiendihoc »

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 thành viên
vo_minhdat2007
Quản trị
Quản trị
Bài viết: 2227
Ngày tham gia: Chủ nhật 17/07/2005 1:40 am
Has thanked: 13 times
Been thanked: 87 times
Tiếp xúc:

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

Gửi bài by vo_minhdat2007 »

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 tất cả

    Public Sub CenterScreen(ByVal FRM As Form)        FRM.Top = (Screen.PrimaryScreen.Bounds.Height - FRM.Height) / 2        FRM.Left = (Screen.PrimaryScreen.Bounds.Width - FRM.Width) / 2    End Sub
Cách dùng

Mã: Chọn tất cả

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 tất cả

Form.CenterToScreen()
2. Ra giữa form cha :

Mã: Chọn tất cả

Form.CenterToParent()
Thân,
Advance Members Group.
Hình đại diện của thành viên
clarkkent
Mạnh Thường Quân
Mạnh Thường Quân
Bài viết: 1641
Ngày tham gia: Thứ 4 16/04/2008 11:25 am
Đến từ: Chợ Lách - Bến Tre
Been thanked: 32 times
Tiếp xúc:

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

Gửi bài by clarkkent »

:"> 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: Thứ 5 16/04/2009 12:00 am

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

Gửi bài by holir »

hay wá
Đăng trả lời

Quay về