UserForm başlığını en sağa yazmak

[Ergün Güler]

Selam,

Arkadaşlar, userform'um otomatik boyutlanıyor. captionu'nu otomatik en sağa yazmak istiyorum.
Nasıl yapabilirim?

Yardımcı olabilirseniz çok sevinirim.

 

[hamitcan]

Properties>Caption içinde iken başlığın başına gelip Space tuşuna basarak sağa doğru ittirin.

 

[Ergün Güler]

Properties>Caption içinde iken başlığın başına gelip Space tuşuna basarak sağa doğru ittirin.

Selam,
Sayın Hocam, PC'den PC'ye otomatik boyutlanan, yani tam ekran olan bir userformum var. Sizin dediğiniz bu olayda pek geçerli olmuyor. Başka nasıl yöntemler kullanabiliriz?

 

[Husgvarna]

Selam,
Başka nasıl yöntemler kullanabiliriz?

Şöyle denedinizmi ?

 Me.RightToLeft = True

 

[hamitcan]

Başka nasıl olur bilmiyorum, forumda belki bilen arkadaşlar çıkabilir.

 

[Ergün Güler]

Şöyle denedinizmi ?

 Me.RightToLeft = True

Selam,
Sayın Husgvarna, çok teşekkür ederim. İstediğim tam olarak buydu. Peki bu kod sadece başlığı mı etkiliyor?

Peki şöyle birşey yapmak istesem mümkün müdür? ;

Caption Ergün Güler olsun. Ergün sola dayalı, güler sağa dayalı. Aradaki boşluk ise, userform PC'den PC'ye otomatik boyutlanırken otomatik ayarlansın.

İyi çalışmalar.

 

[Husgvarna]

Peki şöyle birşey yapmak istesem mümkün müdür? ;

Caption Ergün Güler olsun. Ergün sola dayalı, güler sağa dayalı. Aradaki boşluk ise, userform PC'den PC'ye otomatik boyutlanırken otomatik ayarlansın.

İyi çalışmalar.

Boşluğu aşağıdaki gibi ayarlamak mümkün olabilir.

   Private Sub UserForm_Initialize()


Me.RightToLeft = True
T = Len("ERGÜN")
S = Len("GÜLER")
Me.Caption = "GÜLER"
For a = 1 To Me.Width / 3 - ((20 + S) + T)
M = " " & M
Next
Me.Caption = M & Me.Caption
Me.Caption = "ERGÜN" & Me.Caption
End Sub