http://www.hackerschool.org/HS_Boards/zboard.php?id=Free_Lectures&no=390 [º¹»ç]
¾Ï½ÃÀû ¼±¾ðÀº º¯¼ö¸¦ ¼±¾ðÇÏÁö ¾Ê°í, ±×´ë·Î »ç¿ëÇÏ´Â °ÍÀÌ°í, ¸í½ÃÀû ¼±¾ðÀº º¯¼ö¸¦ »ç¿ëÇÏ°Ú´Ù°í ¼±¾ðÇÏ°í »ç¿ëÇÏ´Â °ÍÀ» ÀǹÌÇÕ´Ï´Ù.
¿¹)
private sub command_click()
temp = text1.text <- ¾Ï½ÃÀû ¼±¾ðÀÔ´Ï´Ù.(temp ¶ó´Â º¯¼ö¸¦ º°µµ·Î ¼±¾ðÇÏÁö ¾Ê¾Ò±â ¶§¹®¿¡ String Çü º¯¼ö·Î¼ ÀÚµ¿À¸·Î Çü(Type)ÀÌ ÁöÁ¤µÇ¸é¼ º¯¼ö·Î¼ÀÇ ¿ªÇÒÀ» ÇÑ´Ù.
msgbox = temp <- ¾Ï½ÃÀû º¯¼ö »ç¿ë
end sub
private sub command_click()
dim temp as string <- Dim À̶ó´Â ¼±¾ð¹®À» ½á¼ temp¶ó´Â º¯¼ö¸¦ ¼±¾ðÇß½À´Ï´Ù.
temp = text1.text <- ¸í½ÃÀû ¼±¾ðÀÔ´Ï´Ù.
msgbox = temp
end sub
À̺¥Æ® ÇÁ·Î½ÃÀú´Â ¾î¶² ÀÏ󸮸¦ ÇÏ°í ¹Ýȯ°ªÀÌ ¾ø´Â ÇÁ·Î½ÃÀú¸¦ ¸»ÇÏ°í, Æã¼Ç ÇÁ·Î½ÃÀú´Â ¾î¶² ÀÏ󸮸¦ ÇÑ ÈÄ Æ¯Á¤°ªÀ» ¹ÝȯÇÏ´Â ÇÁ·Î½ÃÀú¸¦ ¸»ÇÕ´Ï´Ù.
¿¹)
À̺¥Æ® ÇÁ·Î½ÃÀú
private sub À̺¥Æ®ÇÁ·Î½ÃÀú()
call command1_click() <= command1ÀÇ Click À̺¥Æ®¸¦ ÀÏÀ¸Å°°í ÇÁ·Î½ÃÀú Á¾·á
end sub
Æã¼Ç ÇÁ·Î½ÃÀú
private Function Æã¼ÇÇÁ·Î½ÃÀú()
call command1_click() <= command1ÀÇ Click À̺¥Æ®¸¦ ÀÏÀ¸Å°°í
Æã¼ÇÇÁ·Î½ÃÀú = "Æã¼Ç" <= "Æã¼Ç" À̶ó´Â °ªÀ» ¹ÝȯÇÑ ÈÄ ÇÁ·Î½ÃÀú Á¾·á("Æã¼Ç" À̶ó´Â °ªÀº º» ÇÁ·Î½ÃÀú¸¦ È£ÃâÇÑ ´Ù¸¥ ÇÁ·Î½ÃÀú¿¡ Àü´Þ)
end function
|
Hit : 10190 Date : 2005/12/15 06:10
|