Resizer özelliğini tek yöne dönüştürmek

[EKREM1661]

Değerli Arkadaşlar..! Ekte yer alan örnek dosyada, userform'a resizer özelliğini veren çalışır kod mevcut.. aşağı-yukarı ve sağa-sola boyutlandırılabilen bu özelliği; sadece sağa-sola boyutlandırılabilen şekle dönüştürebilir miyiz.? Yani, aşağı-yukarı boyutlanabilme özelliği kaldırılacak.. konuya el atabilirseniz memnun olurum..

 

[Huseyinkis]

Değerli Arkadaşlar..! Ekte yer alan örnek dosyada, userform'a resizer özelliğini veren çalışır kod mevcut.. aşağı-yukarı ve sağa-sola boyutlandırılabilen bu özelliği; sadece sağa-sola boyutlandırılabilen şekle dönüştürebilir miyiz.? Yani, aşağı-yukarı boyutlanabilme özelliği kaldırılacak.. konuya el atabilirseniz memnun olurum..

kod Bu Şekilde Değiştirip Denermisiniz.

Private Sub m_objResizer_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Button = 1 Then
        With m_objResizer
            .Move .Left + X - m_sngLeftResizePos, .Top + Y - m_sngTopResizePos
            Me.Width = Me.Width + X - m_sngLeftResizePos
            .Left = Me.InsideWidth - .Width
            .Top = Me.InsideHeight - .Height
        End With
    End If
End Sub

 

[EKREM1661]

Sn. Huseyinkis çok teşekkür ediyorum, güzel olmuş, eline sağlık..
iyi çalışmalar diliyorum.