Đánh giá chủ đề:
  • 7 Votes - 2.57 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Canh Form giữa màn hình
#1
Như các bạn biết. Mặc định Access đã cho ta thuộc tính auto Center và auto resize.
Nhưng có vẻ như nó không đáp ứng được nhu cầu của chúng ta.
Sau đây mình xin giới thiệu code canh giữa form.
Trong Sự kiện Load Form, bạn cho code sau vào:

Mã:
Private Sub Form_Load()
    Const t = 567
    Dim R As Integer, D As Integer, W As Integer, H As Integer
    ' với 10 là chieu rong cua form, tinh bang cm
    W = 10 * t
    ' 7 la chieu cao cua form tinh bang cm
    H = 7 * t
    R = (Me.InsideWidth + W)
    D = (Me.InsideHeight + H)
    DoCmd.MoveSize R, D, W, H
    End Sub
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn lacbuidoi
#2
Đoạn code này bạn đã thử chưa, mình thủ nó không chạy được
Chữ ký của trikhoi Một chữ Tâm bằng ba chữ TÀI
Reply
Những người đã cảm ơn
#3
(23-08-10, 03:57 PM)Noname Đã viết: Như các bạn biết. Mặc định Access đã cho ta thuộc tính auto Center và auto resize.
Nhưng có vẻ như nó không đáp ứng được nhu cầu của chúng ta.
Sau đây mình xin giới thiệu code canh giữa form.
Trong Sự kiện Load Form, bạn cho code sau vào:

Mã:
Private Sub Form_Load()
    Const t = 567
    Dim R As Integer, D As Integer, W As Integer, H As Integer
    ' với 10 là chieu rong cua form, tinh bang cm
    W = 10 * t
    ' 7 la chieu cao cua form tinh bang cm
    H = 7 * t
    R = (Me.InsideWidth + W)
    D = (Me.InsideHeight + H)
    DoCmd.MoveSize R, D, W, H
    End Sub

Mình làm theo đúng mà cũng không canh giữa màn hình
Chữ ký của MieuNu Xin chào, mình là MieuNu, Tham gia http://thuthuataccess.com/forum từ ngày 03-06 -13.
Reply
Những người đã cảm ơn
#4
(23-08-10, 03:57 PM)Noname Đã viết: Như các bạn biết. Mặc định Access đã cho ta thuộc tính auto Center và auto resize.
Nhưng có vẻ như nó không đáp ứng được nhu cầu của chúng ta.
Sau đây mình xin giới thiệu code canh giữa form.
Trong Sự kiện Load Form, bạn cho code sau vào:

Mã:
Private Sub Form_Load()
    Const t = 567
    Dim R As Integer, D As Integer, W As Integer, H As Integer
    ' với 10 là chieu rong cua form, tinh bang cm
    W = 10 * t
    ' 7 la chieu cao cua form tinh bang cm
    H = 7 * t
    R = (Me.InsideWidth + W)
    D = (Me.InsideHeight + H)
    DoCmd.MoveSize R, D, W, H
    End Sub

R = (Me.InsideWidth + W)/2
D = (Me.InsideHeight + H)/2
Chữ ký của MieuNu Xin chào, mình là MieuNu, Tham gia http://thuthuataccess.com/forum từ ngày 03-06 -13.
Reply
Những người đã cảm ơn
#5
(23-08-10, 03:57 PM)Noname Đã viết: Như các bạn biết. Mặc định Access đã cho ta thuộc tính auto Center và auto resize.
Nhưng có vẻ như nó không đáp ứng được nhu cầu của chúng ta.
Sau đây mình xin giới thiệu code canh giữa form.
Trong Sự kiện Load Form, bạn cho code sau vào:

Mã:
Private Sub Form_Load()
    Const t = 567
    Dim R As Integer, D As Integer, W As Integer, H As Integer
    ' với 10 là chieu rong cua form, tinh bang cm
    W = 10 * t
    ' 7 la chieu cao cua form tinh bang cm
    H = 7 * t
    R = (Me.InsideWidth + W)
    D = (Me.InsideHeight + H)
    DoCmd.MoveSize R, D, W, H
    End Sub

Của em toàn bị Debug đoạn DoCmd.MoveSize thôi ah.
Em đang dùng Access2007
Chữ ký của minhhang02081992 Xin chào, mình là minhhang02081992, Tham gia http://thuthuataccess.com/forum từ ngày 16-03 -15.
Reply
Những người đã cảm ơn
#6
(28-03-15, 06:12 PM)minhhang02081992 Đã viết: Của em toàn bị Debug đoạn DoCmd.MoveSize thôi ah.
Em đang dùng Access2007

Đây là code áp dụng trên Ac2003 đã test thành công, Riêng ít dùng đến Ac 2007 nên chưa Test. Bởi máy không có Access 2007.

Thân ái!
Chữ ký của maidinhdan * Để được hỗ trợ tốt nhất, nhấn vào link dưới đây để xem.
1. [Hướng dẫn] Kiểu file gửi lên để được giúp đỡ
2. [Hướng dẫn] Nội quy diễn đàn
3. [Hướng dẫn] Cách Đưa file và hình vào diễn đàn
4.[Hướng dẫn] Để xây dựng một ứng dụng hoàn hảo và lời cảm tạ
5. Cần tìm Demo hay ứng dụng sử dụng thanh tìm kiếm phía trên cùng, bên phải của diễn đàn.
* Nếu muốn cảm ơn, hãy nhấn nút thank, không cần viết thêm bài nào nửa.



ღღღღღTài sản của maidinhdan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Hỏi] Refresh Form và tiếp tục hoạt động Godspear 2 84 08-12-16, 12:48 PM
Bài mới nhất: Godspear
  [Hỏi] Cách thêm dữ liệu vào form Main_Sub NganNguyen 1 39 06-12-16, 02:23 AM
Bài mới nhất: maidinhdan
  Tự động hiện Form khi loading hết thời gian ChiMai 1 49 02-12-16, 08:59 PM
Bài mới nhất: ongke0711
Photo [Hỏi] Mở Form trên access 2007 báo lỗi jason 5 195 22-11-16, 09:23 AM
Bài mới nhất: jason
  Query hiện lên trên form? feeling 4 167 09-11-16, 09:49 PM
Bài mới nhất: toancvp

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ