Formun Taskbar'da yer alması

[Zeki Gürsoy]

Merhaba,
Ekteki dosyada formun minimize ve ekranı kaplama özelliğini verebildim. Son olarak ta, form küçüldüğünde taskbarda görünmesini istiyorum. Kullanmak istediğim ikonu form üzerine yerleştirdim.
API ler hakkında bilgim olmadığı için yardımınızı bekliyorum.

 

[excellium]

Form açıldığında Ekranı Kaplasa çok iyi olacak; yapılabilir mi?

 

[Zeki Gürsoy]

..........

 

[Zeki Gürsoy]

Form açıldığında Ekranı Kaplasa çok iyi olacak; yapılabilir mi?

Private Sub UserForm_Activate()
With Application
Me.Top = .Top
Me.Left = .Left
Me.Height = .Height
Me.Width = .Width
End With
End Sub

 

[excellium]

bu güzel oldu,teşekkürler.
senin soruna hala cevap gelmedi, ben biraz aradım ama pek bişi bulamadım. kolay gelsin.

 

[Korhan Ayhan]

Selamlar,

Ekte daha önce forumda yayınlanan bir dosya vardı arşivime almıştım. Umarım faydası olur.

 

[Zeki Gürsoy]

İlgin için sağol COST_CONTROL. Bu dosya arşivimde mevcut ve "Ekranı kapla" özelliği pasif. Sözkonusu özelliği, eklediğim dosyaya uyarlayamadım.

 

[Korhan Ayhan]

Selamlar,

Ekte sunduğum örnekte kullanılan Userform da aşağıdaki özellikler mevcuttur. Umarım istediğiniz gibidir.

Resize (boyutlandırılabilirlik) özelliği
Tam ekran özelliği
Minimize özelliği (Taskbar)

 

[Zeki Gürsoy]

İstediğim gibi olmuş, çok teşekkür ediyorum. ost:

 

[orrhankaya]

Form Tam ekran oluyor ama üzerindeki kontroller eskisi gibi küçük kalıyor. UserForm'un Zoom özelliğindeki gibi Formun büyüdüğü oranda kontroller de büyümeli.
Formun Tam Ekran yapılması ile birlikte Form üzerinde bulunan Kontrollerin de orantılı olarak büyümesi için ne yapabiliriz.

 

[orrhankaya]

Form Tam ekran oluyor ama üzerindeki kontroller eskisi gibi küçük kalıyor. UserForm'un Zoom özelliğindeki gibi Formun büyüdüğü oranda kontroller de büyümeli....

Aşağıdaki kodu buldum ve denedim.

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

 

[ilhanfire]

Selamlar,

Ekte sunduğum örnekte kullanılan Userform da aşağıdaki özellikler mevcuttur. Umarım istediğiniz gibidir.

Resize (boyutlandırılabilirlik) özelliği
Tam ekran özelliği
Minimize özelliği (Taskbar)

hocam merhaba addicon kısmını yapamadım hata veriyor.
sanırım resimi kodda gösteremedim. logo adlı resmimi kurlar sayfama ekledim add icondaki kodu buna göre düzelttim ama resmi görmüyor sanırım. yardımcı olurmusunuz

 

[CILEKESH]

Teşekkür Ederim kendi programımda kodları uygulayabildim, Ancak,

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
   ' Application.Visible = True
If MsgBox("Yapılan Değişiklikler Kaydededilerek Kapansın mı?", vbCritical + vbYesNo, "*© 2013*Irmak Yazılım") = vbYes Then
    ThisWorkbook.Save
    Application.Quit
    Else
    MsgBox "Kayıt Edilmedi.", vbInformation, "*© 2013*Irmak Yazılım"
Exit Sub

    
    End If
End Sub

kodunda Else koşulu gerçekleştiğinde (Yani Kayıt etmek istemediğimde) Program Excel e dönüyor.
Ben böyle olmasını istemiyorum. Zaten açık olan form çalışmaya devam etsin.

End sub dan önce

Unload Me
UserForm1.Show

yaptım yine olmadı hep excel'e dönüyor. Ne yapmak lazım?

Teşekkürler.

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki gibi deneyin.

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If MsgBox("Yapılan Değişiklikler Kaydededilerek Kapansın mı?", vbCritical + vbYesNo, "*© 2013*Irmak Yazılım") = vbYes Then
        ThisWorkbook.Save
        Application.Quit
    Else
        MsgBox "Kayıt Edilmedi.", vbInformation, "*© 2013*Irmak Yazılım"
        Cancel = True
    End If
End Sub

 

[CILEKESH]

Hocam oldu teşekkür ederim ancak, bu kodu UserForm_QueryClose olayına yazınca, programın muhtelif yerlerinde formu yenilemek amacıyla "unload me" yapıyorum ve bukez o butonlarda programı kapatmaya çalışıyor. Bu durumu aşmak için ne yapmalıyım?

 

[Korhan Ayhan]

Örnek dosya 64 Bit sistemde çalışacak şekilde revize edilmiştir.