Đá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ướng Dẫn Tìm kiếm theo nhiều tiêu chí trên Form mrtoanbin 10 444 11-02-18, 04:19 PM
Bài mới nhất: haidc
  [Help] Sub Form tự động điền các record haidc 9 551 05-02-18, 04:36 PM
Bài mới nhất: haidc
  [S.O.S] Điều khiển hiển thị record trên form qua mạng LAN tranthanhan1962 16 747 21-01-18, 05:31 PM
Bài mới nhất: tranthanhan1962
Photo [Hỏi] Xin giúp đỡ tạo form đăng nhập có liên kết với form Giao diện chính Thiên Hùng 15 646 19-01-18, 10:12 AM
Bài mới nhất: Thiên Hùng
  [Help] Form không lưu định dạng sau khi chỉnh sửa toidjtjmtoi 2 169 09-01-18, 09:06 AM
Bài mới nhất: toidjtjmtoi

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ơ