Mình chỉ có cách là khi viết chương trình dựa vào 1 chế độ phân giải màn hình nào đó sau khi phát hành thì các máy sử dụng phải chỉnh lại cấu hình cho tương thích, code như sau:
Declare Function EnumDisplaySettings Lib "user32" _
Alias "EnumDisplaySettingsA" _
(ByVal lpszDeviceName As Long, _
ByVal iModeNum As Long, _
lpDevMode As Any) As Boolean
Declare Function ChangeDisplaySettings Lib "user32" _
Alias "ChangeDisplaySettingsA" _
(lpDevMode As Any, ByVal dwFlags As Long) As Long
Declare Function ExitWindowsEx Lib "user32" _
(ByVal uFlags As Long, ByVal dwReserved As Long) As Long
Public Const EWX_LOGOFF = 0
Public Const EWX_SHUTDOWN = 1
Public Const EWX_REBOOT = 2
Public Const EWX_FORCE = 4
Public Const CCDEVICENAME = 32
Public Const CCFORMNAME = 32
Public Const DM_BITSPERPEL = &H40000
Public Const DM_PELSWIDTH = &H80000
Public Const DM_PELSHEIGHT = &H100000
Public Const CDS_UPDATEREGISTRY = &H1
Public Const CDS_TEST = &H4
Public Const DISP_CHANGE_SUCCESSFUL = 0
Public Const DISP_CHANGE_RESTART = 1
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 TypePrivate Sub UserForm_Initialize()
Dim DevM As DEVMODE
erg& = EnumDisplaySettings(0&, 0&, DevM)
DevM.dmFields = DM_PELSWIDTH Or DM_PELSHEIGHT
DevM.dmPelsWidth = [COLOR=red]1280[/COLOR]
DevM.dmPelsHeight = [COLOR=red]800
[/COLOR]
erg& = ChangeDisplaySettings(DevM, CDS_TEST)
Select Case erg&
Case DISP_CHANGE_RESTART
an = MsgBox("Ban phai khoi dong lai may vi dang thiet lap do phan giai man hinh", vbYesNo + vbQuestion, "Chu y")
If an = vbYes Then
erg& = ExitWindowsEx(EWX_REBOOT, 0&)
End If
Case DISP_CHANGE_SUCCESSFUL
erg& = ChangeDisplaySettings(DevM, CDS_UPDATEREGISTRY)
MsgBox "Do phan giai mang hinh duoc thiet lap xong", vbOKOnly + vbSystemModal, "Thong bao!"
Case Else
MsgBox "Do phan giai man hinh [COLOR=red]'1280 x 800'[/COLOR] may cua ban khong duoc ho tro", vbOKOnly + vbInformation, "Thong bao"
End Select
End SubThủ tục khi mở form sẽ bung form bằng màn hình
Private Sub UserForm_Initialize()
Me.Width = Application.Width
Me.Height = Application.Height
Me.Top = 0
Me.Left = 0
End Sub
Thầy ơi! còn các Object trên Form thì sao? Theo em biết thì cách này chỉ làm cho Form "to" ra thôi ---> Các Object không "to lên" tương ứng
Nhưng nó không tự động điều chỉnh kích cở của các control trong form anh à.
Cái này mới là vấn đề đáng bàn. Form to lên thì các Object như TextBox, ListBox, ComboBox (các Object hiển thị, nhập dữ liệu) có thể tăng kích cở, nhưng các Object khác đâu có cần tăng kích cở ? Mình điều chỉnh kích thước các cửa sổ, thì cở font, kích thước các điều kiển, nút lệnh đâu có phình lên đâu ?
Private Sub UserForm_Initialize()
Dim w As Long, h As Long
w = Application.Width
w = Application.Height
Me.Width = w
Me.Height = h
Me.Top = 0
Me.Left = 0
If w = 800 Then
TextBox1.Left = 50
TextBox1.Width = 200
.......
ElseIf w = 1600 Then
TextBox1.Left = 100
TextBox1.Width = 400
.....
ElseIf ...... Then
.......
End If
If h = 600 Then
TextBox1.Top = 100
.......
ElseIf h = 1200 Then
TextBox1.Top = 200
......
ElseIf ..... Then
........
End If
End Sub
With Me.Control1
.Height = 25 * MyRate
.Width = 100 * MyRate
.Left = 200 * MyRate
.Top = 150 * MyRate
End With
