![]() | Programming Guide | WideStudio Index Table of contents |
¸¶¿ì½ºÀÇ ´ÜÃ߸¦ ÆÇÁ¤Çϱ⿡´Â
À̺¥Æ® ÇÁ·Î½ÃÀúµî¿¡¼ ´¸° ¸¶¿ì½ºÀÇ ´ÜÃ߸¦ ÆÇÁ¤ÇÒ °æ¿ì°¡ ÀÖ½À´Ï´Ù. ´ÙÀ½ ¿¹Ã³·³ Àü¿ª ¸¶¿ì½º ÀνºÅϽº¿¡¼ÀÇ Á¤º¸ Ãëµæ¿¡ÀÇÇØ¼ ÇöÀç ´¸®¿ì´Â ¸¶¿ì½ºÀÇ ´ÜÃß°¡ ÆÇÁ¤ÇÒ¼öÀÖ½À´Ï´Ù.#---------------------------------------------------------- # Function for the event procedure #---------------------------------------------------------- use mpfc; sub btn_ep { my ($object) = @_: $status = mpfc::WSDmouse_getStatus(mpfc::WSGIappMouse()); # A if ($status & $mpfc::WS_MOUSE_BTN1){ # B # ¿ÞÂÊ ¸¶¿ì½º ´ÜÃß°¡ ´¸° °æ¿ìÀÇ Ã³¸® #.... } if ($status & $mpfc::WS_MOUSE_BTN2){ # C # °¡¿îµ¥ ¸¶¿ì½º ´ÜÃß°¡ ´¸° °æ¿ìÀÇ Ã³¸® #.... } if ($status & $mpfc::WS_MOUSE_BTN3){ # D # ¿À¸¥ÂÊ ¸¶¿ì½º ´ÜÃß°¡ ´¸° °æ¿ìÀÇ Ã³¸® #.... } } 1;A ¿¡¼ ¸¶¿ì½ºÀÇ ´¸° »óŸ¦ ÃëµæÇÕ´Ï´Ù. B,C,D ¿¡¼ °¢°¢ ¾Ë·Á´Â ´ÜÃßÀÇ ÆÇÁ¤À» ÇÕ´Ï´Ù. == (ºñ±³)°¡ ¾Æ´Ï¶ó & (¾Øµå)·Î ÆÇÁ¤Çϴ°ÍÀº º¹¼öÀÇ ´ÜÃß°¡ µ¿½Ã¿¡ ´¸®¿ì´Â °æ¿ì°¡ Àֱ⶧¹®ÀÔ´Ï´Ù.
Copyright(C) T. Hirabayashi, 2000-2004 | Last modified: Feb 25, 2004 |