ekran çözünürlügü

[sinemomec]

Private Declare Function GetSystemMetrics32 Lib "User32" Alias "GetSystemMetrics" _
(ByVal nIndex As Long) As Long
bu kısmı eklemedim yalnız acaba yanlış olur mu bide tüm userformlara ekliyorum

 

[ragnorak]

https://www.andypope.info/vba/Anchor.htm

 

[sinemomec]

bu kodu mu kullanıyım

Private Sub UserForm_Initialize()

    Set m_clsAnchors = New CAnchors
    
    Set m_clsAnchors.Parent = Me
    
    ' restrict minimum size of userform
    m_clsAnchors.MinimumWidth = 45
    m_clsAnchors.MinimumHeight = 250
    
    With m_clsAnchors
        .Anchor("Textbox1").AnchorStyle = enumAnchorStyleLeft Or enumAnchorStyleRight
        .Anchor("cmdBrowse").AnchorStyle = enumAnchorStyleTop Or enumAnchorStyleRight
        .Anchor("labDiv1").AnchorStyle = enumAnchorStyleLeft Or enumAnchorStyleRight
        With .Anchor("frame1")
            .AnchorStyle = enumAnchorStyleLeft Or enumAnchorStyleRight Or _
                           enumAnchorStyleBottom Or enumAnchorStyleTop
            .MinimumHeight = 120
        End With
        .Anchor("listbox1").AnchorStyle = enumAnchorStyleLeft Or _
                                          enumAnchorStyleRight Or _
                                          enumAnchorStyleBottom Or _
                                          enumAnchorStyleTop
        With .Anchor("cmdClear")
            .AnchorStyle = enumAnchorStyleBottom Or enumAnchorStyleRight
            .MinimumTop = 90
        End With
        
        .Anchor("labDiv2").AnchorStyle = enumAnchorStyleLeft Or _
                                         enumAnchorStyleRight Or _
                                         enumAnchorStyleBottom
        .Anchor("cmdAbout").AnchorStyle = enumAnchorStyleLeft Or enumAnchorStyleBottom
        .Anchor("checkbox1").AnchorStyle = enumAnchorStyleBottom
        .Anchor("cmdOk").AnchorStyle = enumAnchorStyleBottom Or enumAnchorStyleRight
    End With
    
    ' live updates whilst resizing
    CheckBox1.Value = True
    ListBox1.RowSource = "B12:B19"
    
End Sub

 

[ragnorak]

EVET