http://cafe.naver.com/gogoomas VB "±âÃÊ" ÇÔ¼ö Á¤¸® -------------------------------------------- (1) º¯¼ö¸¦ ¼³¸íÇØÁÖ·Á°íÇØ¿ä . º¯¼ö´Â Dim À̸§ as Çü½Ä ÀÌ¿¡¿ä . as Çü½ÄÀº ¾²Áö¾Ê¾ÆµµµÇ¿ä . ÇÏÁö¸¸ ÀÚµ¿ÀûÀ¸·Î ´Ù¸¥°É·Î ÁöÁ¤µÇ¾î¿ä . -------------------------------------------- (2) Msgbox ½Ã½ºÅÛ ¸Þ½ÃÁö ¸¦ º¸³»´Âµ¥ ¾²¿©¿ä . ¿¹Á¦·Î´Â Msgbox "ÇÒ¸»" , ¿É¼Ç , "Á¦¸ñ" ¿É¼Ç¿¡´Â ¿©·¯°¡Áö°¡ Àִµ¥ Àü ÁÖ·Î vbinforamtion À¸·Î ¾Ë¸² ¿ëÀ¸·Î ¾²ÁÒ! Áï, Msgbox "¸Þ½ÃÁö¹Ú½º",vbinformation,"¾Ë¸²" -------------------------------------------- (3) Shell ÆÄÀÏÀ̳ª Æú´õ¸¦ ¿­¶§ ½á¿ä . ¿¹Á¦·Î´Â Shell "°æ·Î" Àü ÁÖ·Î ÀÎÅͳÝÀ» ÄѴµ¥ ½á¿ä . Áï , Shell "explorer ÁÖ¼Ò" ÀÌ·¸°Ô¿ä! ÇÏÁö¸¸ IE¸¦ ¾²Áö¾Ê´Â »ç¶÷µé¿¡°Ô´Â È¿·ÂÀÌ ¹ß»ýÇÏÁö¾Ê¾Æ¿ä! ÇìÇì.. -------------------------------------------- (4) Rnd ·£´ýÀ¸·Î Ãâ·ÂÇÒ ¶§ ¾²¿©¿ä . ¿¹Á¦·Î´Â Int(Rnd * 1) 0~1 ±îÁöÀÇ ·£´ýÀÇ ¼ö¸¦ Ãâ·ÂÇØ¿ä Int(Rnd * 100) 0~100±îÁöÀÇ ·£´ýÀÇ ¼ö¸¦ Ãâ·ÂÇØ¿ä ¿©·¯ ÅؽºÆ® ¹Ú½º¿¡ Ãâ·ÂÇÏ°í½ÍÀ»¶© Form_Load ¿¡ Randomize ¸¦ ½áÁÖ¸é Áߺ¹µÇÁö ¾Ê¾Æ¿ä . -------------------------------------------- (5) Do Loop ÀÌ°Ç ¹Ýº¹¹®ÀÌ¿¡¿ä . ¹«½¼ ³»¿ëÀÌµç ¹Ýº¹ÇØ¿ä. ex) Do Msgbox "¹«ÇѸ޽ÃÁö¹Ú½º" loop ¹«ÇÑÀûÀ¸·Î ¸Þ½ÃÁö¹Ú½º¸¦ Ãâ·ÂÇØ¿ä . -------------------------------------------- (6) Instr ¹®ÀÚ¿­¿¡ ¹®ÀÚ°¡ ÀÖ´ÂÁö üũÇÏ´ÂÇÔ¼ö ÀÖÀ¸¸é 1À» ¹Ýȯ ¾øÀ¸¸é 0À» ¹ÝȯÇØ¿ä . Dim a as string a = "¸®¼Â´Ô¯" msgbox instr(1,a,"¯") <¯ À̶ó´Â ±ÛÀÚ°¡ ÀÖ´ÂÁö È®ÀÎÇÏ´Â °ÅÁÒ . msgbox instr(1,a,"¹Ýȯ") <¹Ýȯ À̶ó´Â ±ÛÀÚ°¡ ÀÖ´ÂÁö È®ÀÎÇش°ÅÁÒ . ±×·¯´Ï±î °á·ÐÀº ¸Þ½ÃÁö¹Ú½º°¡ 4 , 0 ¼ø¼­·Î ³ª¿Ã²¨¿¡¿ä . ¿Ö³ÄÇϸé 4°¡ ³ª¿À´ÂÀÌÀ¯´Â "¯"ÀÌ 4¹ø° ÀÚ¸®¿¡ Àֱ⠶§¹®ÀÌÁö¿ä . ±×¸®°í 0ÀÌ ³ª¿À´ÂÀÌÀ¯´Â "¹Ýȯ" À̶ó´Â ±ÛÀÚ´Â º¯¼ö a ¿¡ ¾ø±â¶§¹®ÀÌ¿¡¿ä . -------------------------------------------- (7) App.Path ÀÌ°Ç ±×³É , °£´ÜÇÏ°Ô EXE °¡ ½ÇÇàµÈ Àå¼Ò¸¦ ³ªÅ¸³»¿ä . Msgbox app.path Çϸé Msgbox·Î EXEÀÇ Àå¼Ò¸¦ ³ªÅ¸³»¾îÁÖÁÒ . -------------------------------------------- (8) Left ¿ÞÂʺÎÅÍ ¹®ÀÚ¿­À» ¼±ÅÃÇØ Ãâ·ÂÇØÁִ°Í. »ç¿ë¹ýÀº Left("¹®ÀÚ¿­" , Ãâ·ÂÇÒ±æÀÌ) Ãâ·ÂÇÒ±æÀÌ´Â ¼ýÀÚ·Î ½á¾ßÇØ¿ä . -------------------------------------------- (9) Right ¿À¸¥ÂʺÎÅÍ ¹®ÀÚ¿­À» ¼±ÅÃÇØ Ãâ·ÂÇØÁִ°Í. »ç¿ë¹ýÀº Right("¹®ÀÚ¿­" , Ãâ·ÂÇÒ±æÀÌ) Ãâ·ÂÇÒ ±æÀÌ´Â ¼ýÀÚ·Î ½á¾ßÇØ¿ä . -------------------------------------------- (10) Mid ´Â ½ÃÀÛÇÒ À§Ä¡ºÎÅÍ Ãâ·ÂÇÒ ±æÀ̸¦ ¼±ÅÃÇØ Ãâ·ÂÇØ ÁÖ¾î¿ä ! »ç¿ë¹ýÀº Mid ("¹®ÀÚ¿­", ½ÃÀÛÇÒÀ§Ä¡,Ãâ·ÂÇÒ±æÀÌ) ½ÃÀÛÇÒÀ§Ä¡ , Ãâ·ÂÇÒ±æÀÌ´Â ¼ýÀÚ·Î ¾²´Â°Å ¾ËÁÒ!? ÇìÇì -------------------------------------------- (11) If Á¶°Ç¹®ÀÌ¿¡¿ä Á¶°ÇÀÌ ¼º¸³ÇÒ‹š À̺¥Æ®¸¦ ¹ß»ýÇÒ‹š ¾²ÁÒ , If Text1.Text = "¸®¼Â" then ' ÅؽºÆ® 1ÀÇ ³»¿ëÀÌ ¸®¼ÂÀ϶§ Msgbox "Good!" 'Good!À» Ãâ·ÂÇÑ´Ù . Elseif Text1.Text = "°¨ÀÚS" Then ÅؽºÆ® 1ÀÇ ³»¿ëÀÌ °¨ÀÚ SÀ϶§ Msgbox "Good!" 'Good!À» Ãâ·ÂÇÑ´Ù. Else ' ¸®¼Âµµ °¨ÀÚSµµ ¾Æ´Ò°æ¿ì Msgbox "No!" 'No!¸¦ Ãâ·ÂÇÑ´Ù. End if 'If ¹®À» ¸¶Ä£´Ù . -------------------------------------------- (12) ÀÏ´Ü º¯¼öÁöÁ¤! Dim º¯¼öÀ̸§ Select Case º¯¼öÀ̸§ Case º¯¼öÀÇ°ª ±×¿¡µû¸¥ °á°ú, Case º¯¼öÀÇ°ª ±×¿¡µû¸¥ °á°ú, Case Else ¸ðµÎ ¸¸Á·ÇÏÁö¾ÊÀ»°æ¿ìÀÇ °á°ú If¹®ÀÇ Else ó·³ »ç¿ë. End Select ' Select Case ¹®À» ¸¶Ä£´Ù . -------------------------------------------- (13) »ç¿ëÀÚ°¡ Text¹Ú½º¿¡ ±Û ¸ø¾²°ÔÇϱâ . ÇÔ¼ö´Â ¾Æ´ÏÁö¸¸ . ½É½ÉÇؼ­ Àû¾îº¸¾Æ¿ä . Text1.Locked = True ÀÌ·¯¸é ÅؽºÆ® 1¿¡ ±ÛÀ» ¸ø½á¿ä . *À¯Àú¸¸* Text1.Locked = False ÀÌ·¸°Ô Çϸé Ç®¸®ÁÒ . Áï ±ÛÀ» ¾µ ¼ö ÀÖÀ½. -------------------------------------------- (14) Dir °æ·Î¿¡ ƯÁ¤ÇÑ ÇÁ·Î±×·¥ÀÌ Á¸Àç¿©ºÎ¸¦ ¾Ë¶§ ½á¿ä. »ç¿ë¹ýÀº If Not Dir("°æ·Î") = "0" Then Msgbox "ÆÄÀÏÀÌ ÀÖ½À´Ï´Ù." Else Msgbox "ÆÄÀÏÀÌ ¾ø½À´Ï´Ù." End if -------------------------------------------- (15) Input Box ÀÌ°Ç Msgboxºñ½ÁÇÏÁö¸¸ À¯Àú°¡ÀÔ·ÂÇÑ°É º¯¼ö·Î ÁöÁ¤ÇØ »ç¿ëÇÒ¼öµµ ÀÖ¾î¿ä . Dim a private sub form load() a = inputbox("Áú¹®","Á¦¸ñ") if a = "¸®¼Â" Then Msgbox "Good!" Else Msgbox "No, No!" End if End sub -------------------------------------------- (16) ¸®½ºÆ® ¹Ú½º¿¡ ¸®½ºÆ® Ãß°¡Çϱâ(ÇÔ¼öX) List1.Additem "Ãß°¡ÇÒ°Í" -------------------------------------------- (17) SendKeys Å°¸¦ ÀÔ·ÂÇÏ´Â ÇÔ¼ö . ¿¹Á¦ SendKeys"{enter}" ÀÌ·¯¸é ¿£ÅÍ°¡ Çѹø ÀԷµǾî¿ä . ¿£ÅÍ°¡ ¾Æ´Ï¶ó ÅؽºÆ® 1ÀÇ ³»¿ëÀ» ÇÏ¸é ´õ¿í À¯¿ëÇØ¿ä SendKeys Text1.Text ÀÌ°É Å¸À̸Ӹ¦ ÀÌ¿ëÇÏ¸é µµ¹è±â·Î Á¦ÀÛÇÒ¼öÀÖ´Ù´Â »ç½Ç ÇÏÁö¸¸ ¿µ¾î , ÇÑ±Û ±¸ºÐ¸øÇÏ´Â ¹Ùº¸ ÇÁ·Î±×·¥ÀÌ µÇ¾î¹ö¸°´Ù´Â »ç½Ç! -------------------------------------------- (18) For Next ÀÌ°Ç Á¶°ÇÀÌ µÉ¶§±îÁö ¹«½ÄÇÏ°Ô °è¼Ó ¿¬¼ÓÀûÀ¸·Î ÀÏÀ» ó¸®ÇÏ´Â ÇÔ¼ö . ÇÏÁö¸¸ ÁÁÀºÀÏ¿¡ ¾²Àϼö ÀÖ´Â À¯¿ëÇÑ ÇÔ¼ö . ¿¹Á¦ For º¯¼ö = óÀ½°ª To ÃÖÁ¾°ª Step Áõ°¡°ª Msgbox i Next º¯¼ö Áï For i = 0 To 1 'StepÀ» ÀÔ·ÂÇÏÁö ¾ÊÀ»°æ¿ì 'Step(Áõ°¡°ª)Àº ÀÚµ¿À¸·Î 1·Î ÁöÁ¤ Msgbox i + "¹ø°Àε¥ ¾ðÁ¦±îÁö°¡³ª º¸ÀÚ" Next i 'i »èÁ¦°¡´É ±×·¯´Ï±î °á·ÐÀº 2°³ÀÇ ¸Þ½ÃÁö¹Ú½º°¡ µµÂøÇØ¿ä . -------------------------------------------- (19) MkDir À¯¿ëÇϸ鼭µµ °£´ÜÇÑ Æú´õ¸¸µå´Â ÇÔ¼ö! Private Sub Command1_click MkDir App.Path + "Reset" 'ÇÔ¼ö(O) End Sub -------------------------------------------- (20) Show ÆûÀ» º¸¿©ÁÖ´ÂÇÔ¼ö Form1.Show 'Æû1ÀÌ º¸¿©Áü -------------------------------------------- (21) Hide ÆûÀ» °¨Ãß´ÂÇÔ¼ö Form1.Hide 'Æû1ÀÌ °¨ÃçÁü ( ²ô´Â°Ô¾Æ´Ô ) -------------------------------------------- (22) Unload ÆûÀ» ²ô´Â ÇÔ¼ö Unload Form1 'Æû 1ÀÌ ²¨Áü -------------------------------------------- (23) End ÇÁ·ÎÁ§Æ®¸¦ ²û »ç¿ë¹ý End '²û -------------------------------------------- (24) Caption ¼Ó¼ºÁßÀÇÇϳªÀε¥ ³»¿ë ¹Ù²Ü¶§ ¾¸ Form1.Caption = "ÈÄÈý," Command1.Caption = "ÈÄÈÄ," Text1.Text = "ÇìÇì!" ÅؽºÆ®¹Ú½º´Â ÅؽºÆ®¸¦ ¾¹´Ï´Ù. Label1.Cpation = "È÷È÷" -------------------------------------------- (25) Kill ÆÄÀÏ»èÁ¦ (Æú´õ´Â¾ÈµÊ) Kill "°æ·Î" -------------------------------------------- (26) With °£°áÇÏ°Ô ¿¬°áÇÒ¶§ (¿¹Á¦ Âü°í) ±×·¯´Ï±î ÀÌ°É ¾²´Â¶§´Â ¿©·¯°¡Áö ÅøÀ» ¿©·¯¹ø À̸§À» »ç¿ëÇؾßÇÒ¶§ ±ÍÂúÀ¸¹Ç·Î ¾²´Â ÇÔ¼ö. With Form1 '¾Æ·§ÁÙ .¾Õ¿¡ Form1À» ¾´°É·Î ÁöÁ¤ .Hide '°¨Ãß°í .Show 'º¸ÀÌ°í .Hide '°¨Ãß°í ¾¤! .Show 'º¸À̱⠾¤! ±×³É È¥ÀÚ ¼îÇϴ°ÅÀÓ.. -------------------------------------------- (27) X¹öÆ° ´­·¯µµ Á¾·á ¾ÈµÇ°ÔÇϱâ(ÇÔ¼öX) Private Sub Form_Unload(Cancel As Interger) Cancel = True End Sub -------------------------------------------- (28) ÀÛ¾÷°ü¸®ÀÚ¿¡¼­ ¾ÆÀÌÄÜ, À̸§ ¼û±â±â . App.Title = "":App.TaskVisible = False 'ŸÀÌƲÀ» Áö¿ì°í ¾ÆÀÌÄÜÀ» ¼û±è -------------------------------------------- (29) vbcrlf À¯¿ëÇÑ°Å¿¡¿ä . ¸Þ½ÃÁö¹Ú½º¿¡¼­ ÇÑÁÙ¶ç±â Msgbox "³»¿ë" + vbcrlf + "³»¿ë" ±×·³ °á°ú´Â . . ÈÄÈý, ±Ã±ÝÇÏÁö!? ±×·³ ¹è¿üÀ¸´Ï! ÇغÁ¿ä! -------------------------------------------- (30) Now ½Ã½ºÅÛ ½Ã°£À» º¸´Â ÇÔ¼ö . Msgbox Now --------------------------------------------