Большая форма

[remix]

В программе получается большая форма.

вернее для 1280x1024 нормальная, а для 800x600 огромная

можно ли изменить масштаб формы и соответственно всех элементов
управления, чтобы на 800x600 было все видно.

И нельзя ли масштабировать форму в зависимости от разрешения.

[Max!]

Проверяй какое на данный момент разрешение а уж патом масштабируй

Код: Выделить всё

В модуль

Declare Function EnumDisplaySettings Lib "user32" Alias _
                "EnumDisplaySettingsA" (ByVal lpszDeviceName As Long, _
                                        ByVal iModeNum As Long, _
                                        lptypDevMode As Any) As Boolean

Declare Function ChangeDisplaySettings Lib "user32" Alias _
                "ChangeDisplaySettingsA" (lptypDevMode As Any, _
                                          ByVal dwFlags 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
Public Const DM_DISPLAYFREQUENCY = &H400000
Public Const ENUM_CURRENT_SETTINGS = -1

Public Type typDevMODE
    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 Type

В форму

Dim X, Y As Long
    Dim typDevM As typDevMODE
    EnumDisplaySettings 0, ENUM_CURRENT_SETTINGS, typDevM
    X = typDevM.dmPelsWidth
    Y = typDevM.dmPelsHeight
Text1.Text = X & "x" & Y


А патом по текстбоксу проверяй и масштабируй !

[Faust]

Юзай объект Screen для определения текущего разрешения экрана, а дальше - соответсвенно изменяй .Width .Height .Left и .Top. Можешь это темное дело проворачивать в Form_Load или (в особенности, если у тебя форма максимизирована) Form_Resize.

[remix]

так а масштабировать конкретно как, форму я допустим изменяю
а рисунок то надо масштабировать, а то он весь не виден получается.

[Faust]

так а масштабировать конкретно как, форму я допустим изменяю
а рисунок то надо масштабировать, а то он весь не виден получается.

Масштабирование рисунков - это отдельная тема, неоднократно упоминавшаяся на форуме. Поиск по ключевым словам PaintPicture и StretchBlt Вам поможет.

[Max!]

Размер картинки можно ещё так

Код: Выделить всё

Dim Pictr As StdPicture
Set Pictr = LoadPicture("C:\Picture.bmp")
Call Form1.PaintPicture(Pictr, 100, 200)