Farklı bilgisayarda&çözünürlükte userform

[ali8686]

Öncelikle herkese iyi günler,

Yaptığım program bi şirkette birçok farklı kullanıcı tarafından kullanılacak. Sayın Haluk Bey'in ve diğer arkadaşların verdiği kodlar ile userformu ve üzerindeki nesneleri bilgisayarın çözünürlüğüne göre ayarlayabiliyorum.

Ancak bir sorun var. Userformun picture özelliği ile bir arkaplan kullanıyorum ve bu arkaplan userform ve üzerindeki nesnelerle beraber büyüyüp küçülmediğinden farklı çözünürlüklerde ekran çorba gibi görünüyor. "Picture tiling" özelliği nedense bi işe yaramıyor.

Bu problemi aşmada yardımcı olabilirmisiniz?

Şimdiden teşekkürler.

 

[ReBiwAr]

Eğer yanlış anlamadıysam Userformun özelliklerindeki "PictureSizeMode" özelliğini "1-frmPictureSizeModeStretch" yaparsanız sorununuz çözülecektir.

İyi Çalışmalar.

 

[ali8686]

Sayın Rebiwar,

Dediğiniz olayı denedim ancak kaymalar hala oluyor. Nesneler Strech olmuş arkaplana orjinal çözünürlükteki gibi oturmuyor. Userform'u ekran çözünürlüğüne uyarlayan aşağıdaki gibi bir kod picture nesnesi için de uygulanamaz mı acaba?

Dim X1 As Long, Y1 As Long, Y2 As Long, X2 As Long
Dim CX As Double, CY As Double
Dim MyCtrl As Control
X1 = Application.Width
Y1 = Application.Height
X2 = Me.Width
Y2 = Me.Height
CX = X1 / X2
CY = Y1 / Y2
Me.Width = X1
Me.Height = Y1
For Each MyCtrl In Me.Controls
MyCtrl.Top = MyCtrl.Top * CY
MyCtrl.Left = MyCtrl.Left * CX
MyCtrl.Width = MyCtrl.Width * CX
MyCtrl.Height = MyCtrl.Height * CY
On Error Resume Next
MyCtrl.Font.Size = MyCtrl.Font.Size * CY
On Error GoTo 0
Next