Dobrej pokec   Lišanská šlapka   MSDN   VB na Microsoft.cz   NCHAT Nový design
   Portál  O firmě  Profil  Reference  Produkty  Odkazy  Diskuse  Tisková verze 



  Novinky e-mailem
Pokud chcete být informováni o změnách ,přihlašte se k odběru novinek!
  
  
  Nejčtenější články
 Seznam všech českých hubů abecedně. (32118)
 Seznam hubů nad 100 uživatelů (20830)
 Konfigurovatelné rozbalovací menu (17445)
 Jak na makra (14330)
 Rozbalovací menu v JavaScriptu (2.) (12653)
  Nejstahovanější soubory
 Action Meter (1846)
 Slovní Fotbal (777)
 IE Boss Guard (484)
 zdroják slovní fotbal (383)
 Folder Watcher (370)
  Anketa

  Nabídka portálu

 Adobe Premiere
    Jak se dá udělat
 Alternativní prohlížeče
    FireFox
 ASP
    Tipy a triky
 Direct Connect
    Huby
    Scripty pro HUB
    Tipy a triky CZDC++
 Game Maker
    Tipy a triky
 Hry
    Akční
    Logické
 HTML
    Scripting (VBS,JS)
    Tipy a triky
 Internet
    Užitečné triky
 Microsoft Office
    Tipy, triky, návody
    Užitečná makra
    VBA Tipy a triky
 MS SQL Server
    Nastavení
    Seriály
    Tipy a triky
 Multimedia
    Návody
 Oracle
    PL/SQL
 PHP
    Jak na to
    Tipy a triky
 Užitečné odkazy
    Grafické programy
    Programátorské
 Visual Basic
    DirectX
    Formuláře
    Jak se dá udělat ...
    Užitečné funkce
    Win32Api
    Zdroje
 Visual Basic .NET
    Užitečné funkce
 Vtípky
    Vtipy a anekdnoty
 Vypalování
    DVD Shrink
    Tipy a triky
 Windows
    Jak se dá ...
    Tipy a triky pro XP
    Triky pro IE


Nabídka portálu se při zobrazení článku přesouvá na konec pravého sloupce nabídek.

 Zrcadlová myš ve Visual Basicu.

Autor: Kočí Marek
Zdroj: 
Vytvořeno: 24.9.2003
Publikováno: 10.10.2003
Čtenářů: 3074
Unikátních: 3041


Myš, která jezdí zrcadlově je vtípek nejen pro Vaší manželku :o)).Tentokrát včetně zdrojových kódů pro Visual Basic.

Na internetu se dá sehnat velké množství "vtipných" programů, málokterý Vám však nabídne současně zdrojový kód pro prozkoumání jak se to vlastně dělá.V případě myši je to jednoduché.Stačí si ukládat poslední pozice X a Y zjistit směr a rozdíl od nových souřadnic a provést změnu přesně opačným směrem.

Zdrojový kód tohoto vtipu je uveden níže.

Tento kód je ještě nedokonalý.Pokud budete chtít tento vtípek vypnout, nezbyde Vám nic jiného, než to udělat přes správce úloh.

A tady je slíbený kód k našemu prvnímu žertíku:
  • Vytvořte Standard EXE projekt.
  • Smazejte formulář.
  • Přidejte modul (mMain).
  • Zkopírujte do něho následující kód.
  • V Project Properties nastavte StartUp Object na SubMain.
Hotovo můžete kompilovat.
Option Explicit
DefLng A-Z

Private Declare Function GetCursorPos _
        Lib "user32" _
        (lpPoint As POINTAPI) As Long
Private Declare Function SetCursorPos _
        Lib "user32" _
        (ByVal x As Long, _
         ByVal y As Long) As Long

Private Type POINTAPI
        x As Long
        y As Long
End Type

Sub Main()
    Dim oPozXY As POINTAPI, ox, oy, MaxX, MaxY
    
    With Screen
     MaxX = (.Width \ .TwipsPerPixelX) - 1
     MaxY = (.Height \ .TwipsPerPixelY) - 1
    End With
    GetCursorPos oPozXY
    ox = oPozXY.x: oy = oPozXY.y
    While 1
        DoEvents
        GetCursorPos oPozXY
        If (ox <> oPozXY.x) Or _
           (oy <> oPozXY.y) Then
            ox = ox - (oPozXY.x - ox)
            oy = oy - (oPozXY.y - oy)
            If ox < 1 Then
              ox = 1
            Else
              If ox >= MaxX Then ox = MaxX - 1
            End If
            If oy < 1 Then
              oy = 1
            Else
              If oy >= MaxY Then oy = MaxY - 1
            End If
            SetCursorPos ox, oy
        End If
    Wend
End Sub



Příspěvky ke článku:



© Swit.cz, Marek Kočí 2003