UserForm'un açılıştaki konumunu belirlemek

[EKREM1661]

Saygıdeğer Arkadaşlar..!

Aşağıdaki kod, userformu ekranın orta sağında açılmasına vesile oluyor,

Private Sub UserForm_Activate()
UserForm1.StartUpPosition = 3
UserForm1.Top = 90
UserForm1.Left = 350
End Sub

Ancak ekran farklı olunca formun açıldığı konumda farklı oluyor... mesela, yukarıdaki kod 17 inç ekrana göre tanımlanmış; fakat daha küçük ekranda çok sağa (gözükmüyor) kaymış veya daha büyük ekranda ortaya yakın konumlanıyor.
soru:
şöyle olamaz mı: userform, açılışta yer alacağı konum olarak, sayfanın belli bir noktasını baz alamaz mı örneğin, "J" sütunu başlığından itibaren...

 

[Levent Menteşoğlu]

Bu durumda top ve left değerlerini örneğin application.width ve application.height değerlerini referans alarak belirleyebilirsiniz.

 

[EKREM1661]

hocam, örnek vermek gerekirse kod nasıl olur..
örnek verirseniz çok sevinirim..

 

[Levent Menteşoğlu]

Örneğin,

UserForm1.Left = application.width-600

 

[EKREM1661]

sayın levenm hocam.. bu konuyu da öğrenmiş olduk, çok teşekkür ediyorum..
hoşça kalın..ve başarılar diliyorum..

 

[hsayar]

Esenlikler,
Bilindiği üzere windowsun ekran görüntü çözünürlükleri 800x600, 1024x768, 1152x864 vs. şeklinde gidiyor.
Userformumun sağüst köşede açılması için ne yapamlıyım.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Private Sub UserForm_Initialize()
    UserForm1.StartUpPosition = 3
    UserForm1.Left = Application.Width - UserForm1.Width
End Sub

 

[hsayar]

hacam öncelikle teşekkür ederim, aşağıdaki gibi yapınca sağ alt köşede açılıyor, sol üstte açmak için ne yapmalıyım.

Me.StartUpPosition = 0
Me.Left = Application.Width - Me.Width
Me.Top = Application.Height - Me.Height

doğrusu aşağıdaki gibidir.

Me.StartUpPosition = 3
Me.Left = Application.Width - Me.Width
Me.Top = 0

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki şekilde denermisiniz.

Private Sub UserForm_Initialize()
    Me.StartUpPosition = 0
    Me.Left = Application.Width - Me.Width
    Me.Top = 0
End Sub

 

[hsayar]

teşekkürler hocam, bende sonradan hatamı farketmitim ve doğrusunu yazdım.
zahmet ettiniz tekrar teşekkür ederim.