folder Tahribat.com Forumları
linefolder Visual Basic - Basic - PicBasic ve Türevleri
linefolder Bütün Pencereleri Simge Durumuna Küçültün



Bütün Pencereleri Simge Durumuna Küçültün

  1. KısayolKısayol reportŞikayet pmÖzel Mesaj
    holocaust
    holocaust's avatar
    Kayıt Tarihi: 11/Eylül/2005
    Erkek
    Form Üzerine 2 Adet Command Buton Yerleştirin
    Kodu Yapıştırın

    Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
    Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
    Private Const WM_COMMAND As Long = &H111
    Private Const MIN_ALL As Long = 419
    Private Const MIN_ALL_UNDO As Long = 416
    Public Sub simgeyap()
    Dim lngHwnd As Long
    lngHwnd = FindWindow("Shell_TrayWnd", vbNullString)
    Call PostMessage(lngHwnd, WM_COMMAND, MIN_ALL, 0&)
    End Sub
    Public Sub simgeyap()
    Dim lngHwnd As Long
    lngHwnd = FindWindow("Shell_TrayWnd", vbNullString)
    Call PostMessage(lngHwnd, WM_COMMAND, MIN_ALL_UNDO, 0&)
    End Sub
    Private Sub Command1_Click()
    simgeyap
    End Sub
    Private Sub Command2_Click()
    simgeyap
    End Sub
    'Sorularınız İçin Holocaust@w.cn adresine mail atabilirsiniz...
    Holocaust The Late Night Hacker
    Reply With Quote Alıntı yap
  2. KısayolKısayol reportŞikayet pmÖzel Mesaj
    rbtx
    rbtx's avatar
    Kayıt Tarihi: 25/Haziran/2002
    Erkek
    winkey + m varken bu kadar kasmak niye?
    Reply With Quote Alıntı yap
Toplam Hit: 1495 Toplam Mesaj: 2