UserForm Tam ekran olsun?

[Orion1]

Mrb.
Ekran çözünürlüğüm 800*600
UserForm'un tam ekran olmasını istiyorum.
Propertiesten Hight değerini 600, Wight değerini 800 yaptım.
Tam ekrandan büyük oldu.
Teşekkür ederim.
İyi çalışmalar.

 

[Tarkan VURAL]

Userform tam ekran olsun?

Selam;

Private Sub UserForm_Initialize()
UserForm1.Width = 770
UserForm1.Height = 560
End Sub

şeklinde dener misiniz?[/code]

 

[Orion1]

Re: Userform tam ekran olsun?

Selam;

Private Sub UserForm_Initialize()
UserForm1.Width = 770
UserForm1.Height = 560
End Sub

şeklinde dener misiniz?[/code]

Mrb.
Teşekkür ederim.
İyi çalışmalar.

 

[Haluk]

http://www.excel.web.tr/viewtopic.php?p=10645#10645

 

[Orion1]

Sn:Raider verdiğiniz linki inceledim.ve aşağıdaki yazmış olduğunuz kodu userform'a yapıştırdım.Her çözünürlükte userform kendinisini O anki çözünürlüğe göre ayarlıyor.Fakat Ekranın En altındaki görev çubuğu görünüyor.
O ,görev çubuğunuda kapsıycak şekilde Tam Ekran Yapabilirmiyiz?Yani Tam ekran olduktan sonra görev çubuğu kaybolsun.
Teşekkür ederim.
İyi çalışmalar.
-------------------------------------------

Private Sub UserForm_Initialize()
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
End Sub

 

[...::: KaCaK :::...]

Tam ekran kodları işe yaradı teşekkürler.