Код

Private frmForm As Form Private ctrlHeight As Integer Private ctrlWidth As Integer Private frmScaleHeight As Integer Private frmScaleWidth As Integer Private ctrlControls As New Collection Private ctrlTopCollection As New Collection Private ctrlLeftCollection As New Collection Public Sub SendForm(frm As Object, ScaleHeight As Integer, ScaleWidth As Integer)    Set frmForm = frm    frmScaleHeight = ScaleHeight    frmScaleWidth = ScaleWidth End Sub Public Sub SendControl(Ctrl As Control, Optional Top As Variant, Optional left As Variant)    'Adding the control in the Controls Collection    ctrlControls.Add Ctrl        If IsMissing(Top) Then        ctrlTopCollection.Add -1    Else        ctrlTopCollection.Add Top    End If        If IsMissing(left) Then        ctrlLeftCollection.Add -1    Else        ctrlLeftCollection.Add left    End If     End Sub Public Sub ResizeControls() Dim cnt As Integer    For cnt = 1 To ctrlControls.Count        If ctrlTopCollection.Item(cnt) >= 0 Then            Call ChangeHeight(ctrlControls.Item(cnt), ctrlTopCollection.Item(cnt))        End If        If ctrlLeftCollection.Item(cnt) >= 0 Then            Call ChangeWidth(ctrlControls.Item(cnt), ctrlLeftCollection.Item(cnt))        End If    Next cnt End Sub Private Sub ChangeHeight(ctrlControl As Control, ctrlTop As Integer) Dim Ctrl As Control    ctrlHeight = frmScaleHeight - ctrlTop - 100    For Each Ctrl In frmForm.Controls        If Ctrl Is ctrlControl Then            Ctrl.Height = ctrlHeight        End If    Next End Sub Private Sub ChangeWidth(ctrlControl As Control, ctrlLeft As Integer) Dim Ctrl As Control    ctrlWidth = frmScaleWidth - ctrlLeft - 100    For Each Ctrl In frmForm.Controls        If Ctrl Is ctrlControl Then            Ctrl.Width = ctrlWidth        End If    Next End Sub

Цитата(cardinal @ 3.1.2005, 23:01)

Rostik Ultra, ну сделай ты форму неизменяемой в размере и подгони расположения кнопок под разные разрешения экрана. При Form_Load будешь смотреть какое разрешение установлено и раскидывать элементы по форме как хочешь... http://forum.vingrad.ru/index.php?showtopic=888

Это cardinal не правильно

Причины :
- нужно создать много форм под разные разрешения экрана => увеличение размера проги
- этот метод не позволяет обработать экзотические разрешения , о которых даже и не знал , но которые обязательно есть на всяких там сверхсовременных мониторах

Использование контролов тоже не подойдёт ( если у кого-то его не окажется , то прога не пойдёт)

Вот как я енто решил :

Код

Dim ew as Integer , eh as Integer     ew = (Screen.Width \ Screen.TwipsPerPixelX) / 1024 ' определяем "коэффициент горизонтальноего разрешения" исходя из разрешения в котором создавалясь прога     eh = (Screen.Height \ Screen.TwipsPerPixelY) / 768 ' определяем "коэффициент вертикального разрешения"          Text1.Left = 4080 * ew          Text1.Top = 4920 * eh          Text1.Width = 7200 * ew               Label18.Left = 6745 * ew               Label18.Top = 4560 * eh ' и т.д. для других элементов

Я провеоил свою прогу у себя : всё круто помещается , даже при 800*600

А потом ещё у знакомого ( у него крутой такой , узкий монитор ) - ещё 12 разных разрешений
И в результате всё круто поместилось как было задумано

Кстати как программно отследить изменение разрешения экрана ( Boolean )

может быт вот так вот можно?

Код

Option Explicit Const WM_DISPLAYCHANGE = &H7E Const HWND_BROADCAST = &HFFFF& Const EWX_LOGOFF = 0 Const EWX_SHUTDOWN = 1 Const EWX_REBOOT = 2 Const EWX_FORCE = 4 Const CCDEVICENAME = 32 Const CCFORMNAME = 32 Const DM_BITSPERPEL = &H40000 Const DM_PELSWIDTH = &H80000 Const DM_PELSHEIGHT = &H100000 Const CDS_UPDATEREGISTRY = &H1 Const CDS_TEST = &H4 Const DISP_CHANGE_SUCCESSFUL = 0 Const DISP_CHANGE_RESTART = 1 Const BITSPIXEL = 12 Private 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 Type Private Declare Function EnumDisplaySettings Lib "user32" Alias "EnumDisplaySettingsA" (ByVal lpszDeviceName As Long, ByVal iModeNum As Long, lpDevMode As Any) As Boolean Private Declare Function ChangeDisplaySettings Lib "user32" Alias "ChangeDisplaySettingsA" (lpDevMode As Any, ByVal dwFlags As Long) As Long Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long Private Declare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, ByVal nIndex As Long) As Long Private Declare Function CreateDC Lib "gdi32" Alias "CreateDCA" (ByVal lpDriverName As String, ByVal lpDeviceName As String, ByVal lpOutput As String, ByVal lpInitData As Any) As Long Private Declare Function DeleteDC Lib "gdi32" (ByVal hdc As Long) As Long Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Dim OldX As Long, OldY As Long, nDC As Long Sub ChangeRes(X As Long, Y As Long, Bits As Long)    Dim DevM As DEVMODE, ScInfo As Long, erg As Long, an As VbMsgBoxResult    'Get the info into DevM    erg = EnumDisplaySettings(0&, 0&, DevM)    'This is what we're going to change    DevM.dmFields = DM_PELSWIDTH Or DM_PELSHEIGHT Or DM_BITSPERPEL    DevM.dmPelsWidth = X 'ScreenWidth    DevM.dmPelsHeight = Y 'ScreenHeight    DevM.dmBitsPerPel = Bits '(can be 8, 16, 24, 32 or even 4)    'Now change the display and check if possible    erg = ChangeDisplaySettings(DevM, CDS_TEST)    'Check if succesfull    Select Case erg&        Case DISP_CHANGE_RESTART            an = MsgBox("You've to reboot", vbYesNo + vbSystemModal, "Info")            If an = vbYes Then                erg& = ExitWindowsEx(EWX_REBOOT, 0&)            End If        Case DISP_CHANGE_SUCCESSFUL            erg = ChangeDisplaySettings(DevM, CDS_UPDATEREGISTRY)            ScInfo = Y * 2 ^ 16 + X            'Notify all the windows of the screen resolution change            SendMessage HWND_BROADCAST, WM_DISPLAYCHANGE, ByVal Bits, ByVal ScInfo            MsgBox "Everything's ok", vbOKOnly + vbSystemModal, "It worked!"        Case Else            MsgBox "Mode not supported", vbOKOnly + vbSystemModal, "Error"    End Select End Sub Private Sub Form_Load()    Dim nDC As Long    'retrieve the screen's resolution    OldX = Screen.Width / Screen.TwipsPerPixelX    OldY = Screen.Height / Screen.TwipsPerPixelY    'Create a device context, compatible with the screen    nDC = CreateDC("DISPLAY", vbNullString, vbNullString, ByVal 0&)    'Change the screen's resolution    ChangeRes 640, 480, GetDeviceCaps(nDC, BITSPIXEL) End Sub Private Sub Form_Unload(Cancel As Integer)    'restore the screen resolution    ChangeRes OldX, OldY, GetDeviceCaps(nDC, BITSPIXEL)    'delete our device context    DeleteDC nDC End Sub

Это сообщение отредактировал(а) M.E.G.U.S - 9.1.2005, 12:09

А зачем тебе? При загрузке узнаёшь, а так-то на что?
Это уже юзера проблемы - приспичит вдруг менять - перезапускает прогу пусть

Цитата(Run @ 9.1.2005, 12:15)

А зачем тебе? При загрузке узнаёшь, а так-то на что? Это уже юзера проблемы - приспичит вдруг менять - перезапускает прогу пусть

Надо
Добавлено @ 03:57
M.E.G.U.S Код который ты послал меняет разрешение экрана , нафиг он мне Я уже проблему решил , так что благодарствую

Rostik Ultra, а чем тебе написанное в сообщении
http://forum.vingrad.ru/index.php?showtopi...ndpost&p=294670
не понравилось?

Цитата(Rostik @ 9.1.2005, 02:33)

Я провеоил свою прогу у себя

Ну только что твоя прога не уникальна для всех контролов... В смысле, что все самому прописывать надо

Код

Text1.Left = 4080 * ew         Text1.Top = 4920 * eh         Text1.Width = 7200 * ew              Label18.Left = 6745 * ew              Label18.Top = 4560 * eh ' и т.д. для других элементов

Цитата(cardinal @ 10.1.2005, 04:08)

Rostik Ultra, а чем тебе написанное в сообщении http://forum.vingrad.ru/index.php?showtopi...ndpost&p=294670 не понравилось? Цитата(Rostik @ 9.1.2005, 02:33) Я провеоил свою прогу у себя Ну только что твоя прога не уникальна для всех контролов... В смысле, что все самому прописывать надо Код         Text1.Left = 4080 * ew         Text1.Top = 4920 * eh         Text1.Width = 7200 * ew              Label18.Left = 6745 * ew              Label18.Top = 4560 * eh ' и т.д. для других элементов

Зато работает во всех разрешениях и не надо таскать за собой дополнительные контролы или несколько форм, которые , как я сказал, всё равно не предусмотрят все, возможные разрешения экрана

А моим способом - прописать процедуру - пара минут , зато потом голова не болит (ИМХО)