folder Tahribat.com Forumları
linefolder Visual Basic - Basic - PicBasic ve Türevleri
linefolder Visual Basic Ustadlar Yardımm Goruntuyu (Kesme) Dondurma



Visual Basic Ustadlar Yardımm Goruntuyu (Kesme) Dondurma

  1. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Mx0TBT
    Mx0TBT's avatar
    Kayıt Tarihi: 13/Haziran/2007
    Erkek

    benim visual basic ile ekrana giden görüntüyü kesmem(dondurmam) gerekiyo yani sadece ekranda aynı göruntü kalıcak bundaki amaç ise goruntu takılı kalırken radmin ile ben goruntu gozukmeden yapmam gereken işlemleri yapıcam.

    bunu nasıl yaparım aklında kod olan google de fln aradım bulamadım  bi fikri olan

    Ölümlü dünya. Yasin 38. Ayet
    Reply With Quote Alıntı yap
  2. KısayolKısayol reportŞikayet pmÖzel Mesaj
    expert
    expert's avatar
    Kayıt Tarihi: 29/Ekim/2002
    Erkek
    o anlık bi prntscrn alıp ekrana komple ver bence walla ... aklıma gelen ilk o
    la bi git xD çoğu konuyu okurum. çok azına post atarım :D çok önemliyse pm at.. kaanabak kardeşimm, seni unutmayacağım.. :(
    Reply With Quote Alıntı yap
  3. KısayolKısayol reportŞikayet pmÖzel Mesaj
    sniperscope
    sniperscope's avatar
    Banlanmış Üye
    Kayıt Tarihi: 14/Mart/2009
    Erkek

    Ekrani kilitlemek icin

    Private Sub cmdLockWorkstation_Click()
    Dim prev_value As Long
    Dim wid As Long
    Dim hgt As Long

        cmdLockWorkstation.Enabled = False
        cmdUnlockWorkstation.Enabled = True
        cmdExit.Enabled = False

        ' Save the current size and position.
        m_LastLeft = Left
        m_LastTop = Top
        m_LastWidth = Width
        m_LastHeight = Height

        ' Put the form on top of everything including
        ' the task bar.
        wid = Screen.Width / Screen.TwipsPerPixelX
        hgt = Screen.Height / Screen.TwipsPerPixelY
        SetWindowPos hwnd, HWND_TOPMOST, 0, 0, wid, hgt, 0

        ' Tell the system a screen saver is running.
        SystemParametersInfo SPI_SCREENSAVERRUNNING, True, _
            prev_value, 0
    End Sub
     
    Kilidi acmak icin
    Private Sub cmdUnlockWorkstation_Click()
    Dim prev_value As Long

        cmdLockWorkstation.Enabled = True
        cmdUnlockWorkstation.Enabled = False
        cmdExit.Enabled = True

        ' Restore the size and position.
        Move m_LastLeft, m_LastTop, m_LastWidth, m_LastHeight

        ' Tell the system no screen saver is running.
        SystemParametersInfo SPI_SCREENSAVERRUNNING, False, _
            prev_value, 0
    End Sub

     Ama bu kod klavyeden basilacak tuslar ile calisiyor. Sende karsidaki adama, bir sekilde tus kombinasyonuna bsmayi ikna etmen gerekiyor.

    "Yer yuzunde hic bir pislik yoktur ki; altindan bir yahudi cikmasin" Adolf Hitler... "Turkiye de hicbir pislik yokturki altindan cemaat cikmasin" SniperScope "Nerede yavşak, hırsız varsa hepsi Allahçı" Fazil Say
    Reply With Quote Alıntı yap
  4. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Mx0TBT
    Mx0TBT's avatar
    Kayıt Tarihi: 13/Haziran/2007
    Erkek
    Peki ben bunu aktif ettirdim de radmin ile mausu fln oynata billecemi arka pilanda
    Ölümlü dünya. Yasin 38. Ayet
    Reply With Quote Alıntı yap
  5. KısayolKısayol reportŞikayet pmÖzel Mesaj
    sniperscope
    sniperscope's avatar
    Banlanmış Üye
    Kayıt Tarihi: 14/Mart/2009
    Erkek
    Herhalde oynatirsin haci, bunu senin icin arastirdim buldum ve usenmedne copy/paste ettim. Valla deneme sansim olmadi. Islerim basimdan askin. Kodlardan anlasilacagi uzere bu sadece ekrani donduruyor. Arka plana karismiyor.
    "Yer yuzunde hic bir pislik yoktur ki; altindan bir yahudi cikmasin" Adolf Hitler... "Turkiye de hicbir pislik yokturki altindan cemaat cikmasin" SniperScope "Nerede yavşak, hırsız varsa hepsi Allahçı" Fazil Say
    Reply With Quote Alıntı yap
Toplam Hit: 2101 Toplam Mesaj: 5