Đá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] cách Khóa form không cho click ra ngoài toidjtjmtoi 3 106 08-09-17, 12:30 PM
Bài mới nhất: toidjtjmtoi
  Giúp đỡ in form toaneurowindow 2 87 28-08-17, 08:06 PM
Bài mới nhất: tranthanhan1962
  [Lỗi] Lỗi không mở được form cawboy 5 128 28-08-17, 06:42 PM
Bài mới nhất: ongke0711
  Thiết lập mở file pdf từ form feeling 1 115 10-08-17, 04:57 AM
Bài mới nhất: cpucloi
  Hiện nội dung record của subform lên main form hueqlhc 9 2,790 02-08-17, 04:36 PM
Bài mới nhất: tvn_hut

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ơ