Orantılı Ekranı Kaplamak, Orantılı Tam Ekran Yapmak.

[Galus]

Ekteki Userformda Simge Durmunda (minimize) ve Ekranı Kapla butonları mevcut. Ekranı kapla butonuna basınca texbox vs. nesneler kendi boyutunda sola yaslı olarak userform tam ekran oluyor. Ekranı kapla butonuna basınca tüm nesneleri ortalı ve de orantılı olarak büyütmek münkün mü?

Teşekkürler..

 

[halit3]

Ekteki Userformda Simge Durmunda (minimize) ve Ekranı Kapla butonları mevcut. Ekranı kapla butonuna basınca texbox vs. nesneler kendi boyutunda sola yaslı olarak userform tam ekran oluyor. Ekranı kapla butonuna basınca tüm nesneleri ortalı ve de orantılı olarak büyütmek münkün mü?

Teşekkürler..

dosyana ToggleButton koydum tıklayınca ekran büyüyecek bir daha tıkladımmıydı küçülecek ayrıca resimin üstüne tıklayıncada resim büyüyecek ve küçülecektir

 

[Galus]

Üstadım,

Emeğin için çok teşekkürler. Çok güzel olmuş. Olayı sağ üst köşedeki Simge Durumunda ve Kapat düğmelerinin ortasındaki "Ekranı Kapla" düğmesiyle yapabilir miyiz?

Saygılar..

 

[Galus]

Forumda arattım. Aşağıdaki kodları buldum. Yalnız kodları ekleyince program sürekli tam ekran geliyor. Program açılışta normal ekran ; "Ekranı Kapla" düğmesine tıklayınca tam ekran olmasını istiyorum.

Saygılarımla..

----------------------------
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
---------------

 

[Galus]

Bir el atan çıksa ne iyi olurdu.

 

[mtbi00]

sayın halit3

eklemiş olduğunuz dosyayı açtığımızda direkt olarak form çıkıyor. Buradaki kodları görebilme şansımız varmı? varsa nasıl görebiliriz? ilgilenirseniz sevinirim. Teşekkürler.

 

[Galus]

sayın halit3

eklemiş olduğunuz dosyayı açtığımızda direkt olarak form çıkıyor. Buradaki kodları görebilme şansımız varmı? varsa nasıl görebiliriz? ilgilenirseniz sevinirim. Teşekkürler.

Programı kapatırken veritabanını açayım mı diye sorar. Excel sayfası açılnca Alt +F11 bas. VBA kod sayfası gelir.

Selamlar...

 

[mtbi00]

çok teşekkür ederim.

 

[Galus]

Birgün bu problem aşılacak elbet. Ama o gün bugün mü?