Tôi nghĩ thế này:
Điều chỉnh kích cở form bằng tay (Kéo ra rồi kéo vào) tương ứng vị trí và kích cở các control sẽ thay theo đến 1 mức nhất định nào đó được không anh?
Tôi nghĩ cái này có liên quan đến độ phân giải màn hình
With Me
.Width = Application.Width
.Height = Application.Height
End WithMrate1 = Application.Width / 1024
Msize = Me.Width
Mrate2 = Msize / 600Me.Width = 600 * Mrate1
Me.Height = 450 * Mrate1With Me.Cmbb1
.Top = 54 * mrate2
.Left = 18 * mrate2
.Height = 18 * mrate2
.Width = 140 * mrate2
.Font.Size = 8 * mrate2
End WithPrivate Declare Function GetDesktopWindow Lib "User32" () As Long
Private Declare Function GetWindowRect Lib "User32" (ByVal hWnd As Long, rectangle As RECT) As Long
Private Declare Function ChangeDisplaySettings Lib "User32" Alias _
"ChangeDisplaySettingsA" (lpDevMode As Any, ByVal dwFlags As Long) As Long
Private Declare Function EnumDisplaySettings Lib "User32" Alias _
"EnumDisplaySettingsA" (ByVal lpszDeviceName As Long, ByVal iModeNum As Long, lpDevMode As Any) As BooleanConst DM_PELSWIDTH = &H80000
Const DM_PELSHEIGHT = &H100000
Const CCFORMNAME = 32
Const CCDEVICENAME = 32Private Type DEVMODE
dmDeviceName As String * CCDEVICENAME
dmSpecVersion As Integer
dmDriverVersion As Integer
dmSize As Integer
dmDriverExtra As Integer
dmFields As Long
dmOrientation As Integer
dmPaperSize As Integer
dmPaperLength As Integer
dmPaperWidth As Integer
dmScale As Integer
dmCopies As Integer
dmDefaultSource As Integer
dmPrintQuality As Integer
dmColor As Integer
dmDuplex As Integer
dmYResolution As Integer
dmTTOption As Integer
dmCollate As Integer
dmFormName As String * CCFORMNAME
dmUnusedPadding As Integer
dmBitsPerPel As Integer
dmPelsWidth As Long
dmPelsHeight As Long
dmDisplayFlags As Long
dmDisplayFrequency As Long
End TypeType RECT
x1 As Long
y1 As Long
x2 As Long
y2 As Long
End TypeFunction Change_SR(iWidth As Single, iHeight As Single)
Dim DevM As DEVMODE, EDS As Boolean, i As Long
Do
EDS = EnumDisplaySettings(0&, i&, DevM)
i = i + 1
Loop Until EDS = False
DevM.dmFields = DM_PELSWIDTH Or DM_PELSHEIGHT
DevM.dmPelsWidth = iWidth
DevM.dmPelsHeight = iHeight
ChangeDisplaySettings DevM, 0
End FunctionFunction Get_SR() As String
Dim R As RECT
Application.Volatile
GetWindowRect GetDesktopWindow(), R
Get_SR = (R.x2 - R.x1) & "x" & (R.y2 - R.y1)
End FunctionSub ChangeScreenResolution()
Dim NewSR
On Error GoTo ExitSub
NewSR = LCase(Application.InputBox("Go do phan giai vao day" & vbLf & _
"Vi du: 1025X768", Type:=2))
Change_SR CLng(Split(NewSR, "x")(0)), CLng(Split(NewSR, "x")(1))
ExitSub:
End SubNhư em đã nói, code em đưa ở trên vẫn có khả năng trả mọi thứ về như cũ ---> Vậy thì cho dù sư phụ có chạy đồng thời nhiều ứng dụng, trong đó có 1 vài ứng dụng bắt buộc phải có độ phân giải khác thì... cũng chẳng hề gì (Wb Deactive ta sẽ trả về nguyên gốc)
Ah... còn 1 rắc rối nữa sư phụ à: Lúc Zoom form có 1 vài control bị che khuất, đúng ra là nó trôi tuốt xuống dưới cùng nên chẳng tải nào dùng được (cụ thể trong file sư phụ là cái CommnadButton)
Em cũng dùng code trên để chỉnh độ phân giải màn hình cho ứng dụng của em cả ở VB và Access nhưng vấn đề đang gặp của em mà chưa tìm ra cách đó là trước khi chạy phải kiểm tra độ phân giải màn hình, lưu độ phân giải màn hình đó vào 1 biến, khi thoát khỏi chương trình thì Reset nó lại....
Private Sub UserForm_Activate()
CtrlResize
End SubCode tôi đưa ở trên có hàm kiểm tra độ phân giải hiện hành mà bạn (hàm Get_SR)---> Trước khi chạy code, dùng nó mà kiểm tra rồi lưu giá trị vào đâu đóEm cũng dùng code trên để chỉnh độ phân giải màn hình cho ứng dụng của em cả ở VB và Access nhưng vấn đề đang gặp của em mà chưa tìm ra cách đó là trước khi chạy phải kiểm tra độ phân giải màn hình, lưu độ phân giải màn hình đó vào 1 biến, khi thoát khỏi chương trình thì Reset nó lại....
Bởi vậy mới nói là nó còn tùy thuộc vào màn hình người dùng đang chạy nữa ---> Màn hình sư phụ không bị nhưng màn hình em đang dùng thì lại có vấn đề (màn hình em đang dùng thuộc dạng màn hình rộng, độ phân giải hiện hành = 1280 x 800)
ScreenWidth = GetSystemMetrics32(XScreen)
Mrate1 = ScreenWidth / 1024
ScreenHeight = GetSystemMetrics32(YScreen)
Mrate4 = ScreenHeight / 768
Fm1.Width = 600 * Mrate1
Fm1.Height = 450 * Mrate4
