minhhang02081992 > 28-03-15, 08:23 AM
maidinhdan > 28-03-15, 10:08 AM
(28-03-15, 08:23 AM)minhhang02081992 Đã viết: Gửi anh, chị.
Việc căn form giữa màn hình qua việc cho Auto Center = Yes thì em đã rõ.
Giờ mong được anh, chị chỉ bảo việc căn form thông qua VBA.
Em xin cảm ơn!
' Code by NoName'
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