Tam Ekran Modu Bir türlü olmuyor... YARDIM... ACİL...

[vimpir]

Tam Ekran Modu Bir türlü olmuyor...

çalışmamda açılan userformu tam ekran moduna geçmesini istiyorum çalışma minibook ta açıldığında minibooka göre tam ekran açılmasını 19 inc te ve 17 inc te acıldığına tam ekran açılmasını istiyorum otomatik olarak ve userformda mevcut olan buton ve textbox ve labellerinde ve yazıların o ekran moduna göre göre büyüyüp ufalmasını istiyorum formu aradım bu kriterlere göre bi macro yok yardımcı olursanız sevinirim.... örnektede göreceksiniz efsu userformunu bu tam ekran modu olmasını istiyorum ve bu örnekle ilgili 2 ayrı sorunum da var... poliçe takip tarihi vba da hazır kod bu başka pclerde çalışmıyor bunun nedeni nedir... bir de bu tarihleri poliçe başlangıç tarihini değiştirdiğimde otomatik bitiş tarihini bir sene sonrasına atmasınız istiyorum ama gerekli oladugunda bitiş tarihinide değiştirebileyim... arkadaşlar bu sorunlarıma yardımcı olursanız sevinirim... çalışmam ektedir...

 

[halit3]

Sorunuzun birisi bilgisayarlarda çaşışmaması ile ilgili aşağıdaki linkdeki dosyayı inceleyiniz.

DTPicker takvim nesnesi olmadığından (MSCOMCT2.OCX)
http://www.excel.web.tr/f60/dtpicker-takvim-nesnesinin-kurulumu-t76456.html


ekli dosyaya bir adet takvim aç kapat düğmesi koydum.
diğer taraftan DTPicker nesnesinde tarihi belirlerken hemen altındakide 1 yıl sonraki tarih geliyor. tam ekran işide tamamdır.

Not : Bu tür sorularınızda sayfaların renklerini karartmayınız açılıştaki dosya gizlemeyi kaldırınız. ve userformun açılmasını iptal ediniz.zira proğramın kodlarını görmek için dosyayı pasif ve aktif etmek sorunda kalıyoruz.konu başlığınızdaki (yardım ve acil) i kaldırırsanız iyi olur.

 

[vimpir]

Sorunuzun birisi bilgisayarlarda çaşışmaması ile ilgili aşağıdaki linkdeki dosyayı inceleyiniz.

DTPicker takvim nesnesi olmadığından (MSCOMCT2.OCX)
http://www.excel.web.tr/f60/dtpicker-takvim-nesnesinin-kurulumu-t76456.html


ekli dosyaya bir adet takvim aç kapat düğmesi koydum.
diğer taraftan DTPicker nesnesinde tarihi belirlerken hemen altındakide 1 yıl sonraki tarih geliyor. tam ekran işide tamamdır.

Not : Bu tür sorularınızda sayfaların renklerini karartmayınız açılıştaki dosya gizlemeyi kaldırınız. ve userformun açılmasını iptal ediniz.zira proğramın kodlarını görmek için dosyayı pasif ve aktif etmek sorunda kalıyoruz.konu başlığınızdaki (yardım ve acil) i kaldırırsanız iyi olur.

hocam elinize sağlık çok gü<zel oldu ama tam ekran modunda hala sıkıntılarım var mesela suan kullandığım pc mini book labeller iç içe girmiş 19 inc ve 17 incte bir sıkıntı yoktur büyük ihtimal... yardımcı olursanız sevinirim...

 

[halit3]

hocam elinize sağlık çok gü<zel oldu ama tam ekran modunda hala sıkıntılarım var mesela suan kullandığım pc mini book labeller iç içe girmiş 19 inc ve 17 incte bir sıkıntı yoktur büyük ihtimal... yardımcı olursanız sevinirim...

Userformunuzu ve nesneleri birazcık küçültüp deneyiniz.

 

[Husgvarna]

Merhaba.

Form unuzun Initialize

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

Şeklinde denerseniz ekran en ve boyu ölçülecek,form ekrana uyacaktır.