Simge durumunda küçültme sorunu

1 2 3
11/10/2016, 19:35

mehmet8x

Merhaba,

Buton üzerine aşağıdaki kodu tanımlayarak formu simge durumunda küçültebiliyordum.
şimdi denediğimde aşağıdaki hatayı alıyorum yardımcı olabilir misiniz?

KOD


Private Sub Command117_Click()
Form.Visible = False
Call sHookTrayIcon2(Application.hWndAccessApp)
End Sub



HATA

Sub sHookTrayIcon2(hwnd As Long, Optional strTipText As String, Optional strIconPath As String)
    Dim lngStyle As Long

    If fInitTrayIcon(hwnd, strTipText, strIconPath) Then
        lngStyle = GetWindowLong(hwnd, GWL_STYLE)
        If lngStyle And WS_MAXIMIZE Then
            lngWindowState = SW_SHOWMAXIMIZED
        ElseIf lngStyle And WS_MINIMIZE Then
            lngWindowState = SW_SHOWMINIMIZED
        Else
            lngWindowState = SW_SHOWNORMAL
        End If
 lngWindowState = SW_SHOWMINIMIZED
        apiShowWindow hwnd, SW_MINIMIZE
        apiShowWindow hwnd, SW_HIDE
        ToggleTaskbarButton hwnd

        lpPrevWndProc = apiSetWindowLong(hwnd, GWL_WNDPROC, AddressOf fWndProcTray2)
    End If
End Sub



Saygılarımla,
11/10/2016, 19:53

atoz112

sayın mehmet8x,

siz de takdir edersiniz ki,
sadece ifadeler ya da bilgisel bazda çözüme yetersiz kalacak sorunlarda içeriğini görmeden,sadece yazılı bilgilere veya eklenen resimlere bakarak örnek eklenmesi yerinde olacaktır.

bu nedenle,lütfen,
Site Kuralları gereği;
içeriğinde farazi gerçek dışı uydurma veriler ve işlemlerin neticelerini görebilecek şekilde 4-5 kayıt olacak halde örnek uygulamanızı eklemeye özen gösteriniz.teşekkürler.

bilginize...iyi çalışmalar,saygılar.


Sayın mehmet8x,

Bahsettiğiniz talebinize yönelik olarak;
Kendi adıma olmak üzere,eklediğiniz örnek uygulamayı inceleme imkanım ve zamanım olmadığı gerekçesi ile uygulamanıza dair bir yorumda bulunmayıp herhangi bir çalışma da yapamadığımı belirtmek isterim.

Fakat,bununla birlikte,
EK’te;
uygulamayı simge durumuna dönüştürme işlemini sağlayan bir örnek mevcut. Fikir verebilir düşüncesi ile inceleyebilirsiniz.

NOT
Uygulamayı çalıştırmadan öncesinde,SHIFT tuşu ile açınız ve modDA_SysTray adlı modülün içerisindeki ve ilk satırlarda yer alan

Private Const conDefaultIconPath = "...BURAYA ICON YOLUNU VE ADINI YAZINIZ..."

Kod satırında da yazıldığı üzere,çift tırnak arasına,icon dosyasının yolunu ve adını dahil ediniz.

ÖRNEK
Private Const conDefaultIconPath = “D:\icon_resim\resim.ico”

Bilginize…iyi çalışmalar,saygılar.
12/10/2016, 14:02

mehmet8x

Merhaba,

kodları uyguladım fakat sorunum çözülmedi yardımcı olabilir misiniz?

Saygılarımla
12/10/2016, 14:06

atoz112

sayın mehmet8x,

Alıntı:kodları uyguladım

ifadenize yönelik olarak;

düzenlemede bulunduğunuz halini içeren örnek uygulamanızı konunuza dahil ediniz.

bilginize...iyi çalışmalar,saygılar.
12/10/2016, 14:37

mehmet8x

Merhaba,

kodları uyguladığım çalışma ekteki gibidir.

Saygılarımla
12/10/2016, 16:00

ozanakkaya

Merhaba, belirttiğiniz hatadaki kod 


lpPrevWndProc = apiSetWindowLong(hwnd, GWL_WNDPROC, AddressOf fWndProcTray2)


şeklinde, ancak  fWndProcTray2 adında herhangi bir fonksiyon modülde yok. fWndProcTray adında fonksiyon var. Hata veren kodun sonundaki 2 karakterini silerseniz düzelir. Ayrıca aynı hata formdaki denetimin tıklandığında olayına da yazılmış.

Call sHookTrayIcon2(Application.hWndAccessApp)


bu koddaki 2 karakterinin de silinmesi gerekli.

Konuya eklenen fazla eklentiler silinmiştir.
1 2 3