Userformda X kapatma butonu gözükmesin ancak

[Tankut SAZLI]

Arkadaşlar
Ben userformdaki X kapatma butonunu işlevsiz hale getiriyorum ve birde küçültme büyütme butonu koydum.Ancak benim istediğim küçültme büyütme butonu kalsın X kapatma butonu gözükmesin.Bunu nasıl yaparım.
Birde userformu bir türlü görev çubuğu üzerine küçültmeyi beceremedim.

 

[Tankut SAZLI]

Görev çubuğuna küçültme sorununu çözdüm.Ancak hala X kapatma butonunu kaldırmayı başaramadım.X butonu kaldırmak için gerekli olan kodları
http://www.excel.web.tr/viewtopic.php?t=19658
burda buldum fakat bu kodlar çakışıyor,bu kezde küçültme büyütme düğmelerinide ortadan kaldırıyor.

 

[Ali]

X butonu için eklediğiniz tüm kodları kaldırıp aşağıdaki kodları ekleyin.

Private Declare Function FindWindow Lib "user32" _
        Alias "FindWindowA" ( _
        ByVal lpClassName As String, _
        ByVal lpWindowName As String) As Long

Private Declare Function GetWindowLong Lib "user32" _
        Alias "GetWindowLongA" ( _
        ByVal hWnd As Long, _
        ByVal nIndex As Long) As Long

Private Declare Function SetWindowLong Lib "user32" _
        Alias "SetWindowLongA" ( _
        ByVal hWnd As Long, _
        ByVal nIndex As Long, _
        ByVal dwNewLong As Long) As Long

Const GWL_STYLE = -16
Const WS_SYSMENU = &H80000

Private Sub UserForm_Initialize()

    Dim hWnd As Long, lStyle As Long

    If Val(Application.Version) >= 9 Then
        hWnd = FindWindow("ThunderDFrame", Me.Caption)
    Else
        hWnd = FindWindow("ThunderXFrame", Me.Caption)
    End If

    lStyle = GetWindowLong(hWnd, GWL_STYLE)
    lStyle = (lStyle And Not WS_SYSMENU)
    SetWindowLong hWnd, GWL_STYLE, lStyle
    
End Sub

 

[Tankut SAZLI]

Sn fructose
söylediğinizi yaptım ancak bu kez de başlığın hepsi kayboluyor.

 

[Tankut SAZLI]

Arkadaşlar her ne kadar
http://www.excel.web.tr/viewtopic.php?t=20182
linkinde iconlu userform uygulaması vermiş olsam da bir türlü forma icon eklemeyi beceremdim.İcon ekleyince istediğim minimize görünümü alt üst oluyor.Bu arada hala X düğmesini yok edemedim.

 

[Haluk]

Ekteki dosyayı inceleyiniz...

- UserForm'un başlık çubuğunda ikon var,

- UserForm'un başlık çubuğunda minimize düğmesi var,

- Minimize düğmesine tıklandığında, form görev çubuğuna küçültülür,

- UserForm'un başlık çubuğundaki (X) düğmesi herzaman pasif durumdadır.

 

[Tankut SAZLI]

Sayın Haluk
Gönderdiğiniz dosya için teşekkür ederim.benzer bir çalışmayı yabancı sitelerin birinden indirmiştim.ancak orada sheet1 de bir kelebek logosunu(korumalı) icon olarak kullanıyordu.ben bunu kendi istediğim iconla bir türlü değiştiremedim.burda nasıl bir işlem uygulamam gerekir.Ayrıca ben X düğmesini pasifleştirmiştim zaten.Ancak öğrenmek istediğim şey sadece X düğmesi kaldırılabiliyor mu,mümkün mü?

 

[Haluk]

UserForm' larda (x) düğmesinin tek başına kaldırılması diye bir şey olamaz.

Ya hepsi kalkar, ya da hiç biri....

Logo için; "Sheet1" sayfasında bir Image nesnesi var. Onun "picture" özelliğine kendi icon dosyanızı gömeceksiniz.

 

[maviayna]

x kapatma butanu ile ilgili

Selamlar..

Umarım doğru başlığı seçmişimdir.
Üzerinde çalıştığım programda x kapatma butonuna basılınca bazı sorunlar doğuyor. Butonu yok etmek için sitemizden alıp uyguladığım kodlar da çakışmaya neden oldu. Aşağı yukarı bütün değikenlerde hata verdi.
Sorum şöyle ki, Kapatma butonunu iptal etmek yerine onu bir makroya bağlayabilir miyiz? Böyle olursa sorun çözülecek.

Görüşlerinizi bekliyorum. İyi çalışmalar.

 

[maviayna]

sorun çözüldü.

Private sub Userform_Terminate
.......
.......
End sub

Kendin sor kendin cevapla gibi oldu galiba.

 

[Tankut SAZLI]

sayın mavi ayna yukarıdaki dosyalardan herhangirinide aradığınız sorunun çözümü mutlaka vardır,inceleyin.çözüm bulacağınıza inanıyorum.

 

[Tankut SAZLI]

Sayın Levent bey bu gece yine çok hızlısınız.Bu konuda bir fikir verebilirmisiniz.yoksa Haluk beyi dinleyip sadece X düğmesinin görevini engellemekle mi yetinim?

 

[Levent Menteşoğlu]

Üstadımız Haluk beyin önerisi her zaman olduğu gibi en iyi öneridir.

 

[Tankut SAZLI]

O halde iki üstada çok teşekkür ederim.