Userform üzerine simge durumuna küçült nasıl yerleştir

[dgdizayn]

11 nolu mesajımdaki ilk bağlantıda 64 bit sistemde çalışacak şekilde düzenlenmiş kodlar mevcut. İnceleyiniz.

Korhan Bey merhaba,

Forumda bir çok araştırma yaptım. Userform simge durumu küçültme simgesi nasıl eklenir diye. Bir çok sayfada hangi linke tıklasam bütün linkler silinmiş. Sanırım konu eski olunca geçmiş sayfalar siliniyor. Elinizde güncel kodlar var mı acaba. 3. mesajdaki kodları denedim malesef kırmızı hata verdi.

 

[Haluk]

@dgdizayn ;

3. mesajdaki kodlarda gerekli düzenleme yapıldı, tekrar deneyebilirsiniz....


.

 

[dgdizayn]

@dgdizayn ;

3. mesajdaki kodlarda gerekli düzenleme yapıldı, tekrar deneyebilirsiniz....


.

Haluk Bey merhaba,

Tam 18 yıl sonra mesajınıza yanıt verdiğiniz için çok ama çok teşekkür ederim. İnanın bu forumlarda çok nadir görebileceğimiz olaylardan.

Sizi yormamak adına ufak birşey isteyebilir miyim. Kodu denedim gayet güzel sağlıklı çalışıyor. Simge durumu küçült dediğimde geri getiremedim. Bu kodun içerisine şöyle birşey eklesek olabilir mi. Bu kodu auto_open içerisine ekleyeceğim. Sadece bu excel dosyası gizlensin, userform açılsın. Elinizde böyle bir kod var mıdır, teşekkürler.

 

[Haluk]

UserForm simge durumuna küçüldükten sonra görev çubuğunun hemen üzerinde yer alır. Orada da büyütmesine düğmesine tıklayıp orjinal durumuna getirebilmelisiniz.

.

 

[Korhan Ayhan]

Korhan Bey merhaba,

Forumda bir çok araştırma yaptım. Userform simge durumu küçültme simgesi nasıl eklenir diye. Bir çok sayfada hangi linke tıklasam bütün linkler silinmiş. Sanırım konu eski olunca geçmiş sayfalar siliniyor. Elinizde güncel kodlar var mı acaba. 3. mesajdaki kodları denedim malesef kırmızı hata verdi.

Merhaba,

Forumda yenileme yapıldığında bu tarz link paylaşımları bozuldu. Sizin gibi konuya ilgi duyanlar mesaj yazdığında fırsat buldukça revize ediyoruz.

#11 nolu mesajımdaki linkleri revize ettim. Şimdi ulaşılabilir durumdadır.

 

[mekist]

Rica ederiz.

Bu arada, UserForm'a simge durumuna küçültecek düğmenin eklenmesini aşağıdaki kodlarla yapabilirsiniz.

Private Declare PtrSafe Function FindWindowA Lib "user32" _
        (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare PtrSafe Function GetWindowLongA Lib "user32" _
        (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare PtrSafe Function SetWindowLongA Lib "user32" _
        (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
'
Private Sub UserForm_Activate()
    Dim hWnd As Long, exLong As Long
    hWnd = FindWindowA(vbNullString, Me.Caption)
    exLong = GetWindowLongA(hWnd, -16)
    If (exLong And &H20000) = 0 Then
        SetWindowLongA hWnd, -16, exLong Or &H20000
        Me.Hide
        Me.Show
    End If
End Sub

@Haluk Bey Merhaba

Userform devamına vbModeless bu kodu ekleyince Excellerde çalışmana izin veriyor
Simge durumuna küçültme kodlarını eklediğimizde bu kod devre dışı kalıyor, sadece userform üzerinde çalışma yapabiliyoruz, Simge durumuna küçültüp işlere devam edeyim yapmak mümkün mü

 

[Haluk]

Editörde "Properties" penceresinde "ShowModal" özelliğini "False" yapın. Bununla ilgili kod yazdıysanız, silin...

.

 

[mekist]

Teşekkür ederim, oldu