• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

Canh Form giữa màn hình

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Forms
  • Canh Form giữa màn hình
• Canh Form giữa màn hình

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

  Noname > 23-08-10, 03:57 PM

  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

• RE: Canh Form giữa màn hình

  trikhoi > 22-03-11, 11:52 AM

  Đoạn code này bạn đã thử chưa, mình thủ nó không chạy được

• RE: Canh Form giữa màn hình

  MieuNu > 20-08-13, 04:25 PM

  (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

• RE: Canh Form giữa màn hình

  MieuNu > 20-08-13, 04:46 PM

  (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

• RE: Canh Form giữa màn hình

  minhhang02081992 > 28-03-15, 06:12 PM

  (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

• RE: Canh Form giữa màn hình

  maidinhdan > 29-03-15, 01:24 AM

  (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!
• Bài trước Bài tiếp