Автоматическая подстрояка к резолюции экрана.

У меня экрaн 800x600
Вoпрoс кaк сделaть чтoбы нa кoпмaх с другoй резoлюцией прoгрaммa aвтoмaтически пoдстрaивaлaсь пoд неё?

Не совсем понятен вопрос: Что имеется в виду под словом 'подстраивалась'? Местоположение на экране? Занимаемая площадь экрана? или что-то ещё?

Занимаемая площадь экрана

Для начала получаем текущее разрешение:

Dim intWidth As Integer
Dim intHeight As Integer
Dim Resolution As String
intWidth = Screen.Width Screen.TwipsPerPixelX
intHeight = Screen.Height Screen.TwipsPerPixelY
Resolution = Str$(intWidth) + ' x' + Str$(intHeight)

У любой формы, как и у всех элементов управления на ней есть свойства
'Height' и 'Width'

Далее - последовательно меняем разрешение на своём экране, руками подстраиваем размеры формы и всех элементов управления на ней, записываем значения свойств 'Height' и 'Width' для формы и элементов управления - так для каждого разрешения, 'поддержку' которого вы хотите включить.

Остаётся только напитать код, который меняет те самые свойства 'Height' и 'Width' у формы и контролов в зависимости от резолюции...

...что-то вроде:
if Resolution=' 800 X 600' then
form1.height=3600
form1.width=4800
... и т.д.

Удачи!

'''''''''''''
'значения передаём через процедуру:
'SetVideoMode(SVMwidth As Long, SVMheight As Long, SVMdepth As Long)
'''''''''''''

Option Explicit

Private Declare Function ChangeDisplaySettings Lib 'user32.dll' Alias 'ChangeDisplaySettingsA' (lpDevMode As DEVMODE, ByVal dwFalgs As Long) As Long
Const DM_BITSPERPEL = &H40000
Const DM_PELSWIDTH = &H80000
Const DM_PELSHEIGHT = &H100000
Const CCHDEVICENAME = 32
Const CCHFORMNAME = 32
Private Type DEVMODE
dmDeviceName As String * CCHDEVICENAME
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 * CCHFORMNAME
dmUnusedPadding As Integer
dmBitsPerPel As Integer
dmPelsWidth As Long
dmPelsHeight As Long
dmDisplayFlags As Long
dmDisplayFrequency As Long
End Type
Dim dm As DEVMODE

Public Sub SetVideoMode(SVMwidth As Long, SVMheight As Long, SVMdepth As Long)
dm.dmPelsWidth = SVMwidth
dm.dmPelsHeight = SVMheight
dm.dmBitsPerPel = SVMdepth
dm.dmSize = Len(dm)
dm.dmFields = DM_PELSWIDTH + DM_PELSHEIGHT + DM_BITSPERPEL
ChangeDisplaySettings dm, 0
End Sub

0

блин... кажись, неправильно я понял вопрос... надо не изменять разрешение экрана, а программа (я так понимаю - frmMain ?) чтобы вставала в ценре экрана? и если разрешение меньше, сжимала конролы?....
ЛУЧШЕ , пусть прога изменяет разрешение другого компа, только не забываем вернуть установленное после выгрузки....

0

Cмотря для каких целей програма. Вообще-то, на мой взгляд, когда проиложение меняет разрешение экрана 'без спроса' пользователя это выглядит не очень красиво!Да и монитор может банально не поддерживать ,например 1024 Х 768. Так, что по-моему, лучше слегка помучаться (совсем немного) и написать код для изменения размеров формы и контролов в зависимости от разрешения! хотя...

to yasha: А что делает програма-то? (если не секрет) :-))