|
|||||
- File #1 : rect.JPG(), Download : 53 |
ÀÚÀÚ.. ´ÙÀ½ ½Ã°£ÀÔ´Ï´Ù. Äð·°.. È¸é »çÀÌÁî.. ±¸ÇÏ´Â ÇÁ·Î±×·¥À» ¿Ã¸®¼Ì´Âµ¥.. °ÈµÈ ±â´ÉÀ» ±¸ÇöÇÏ´Â ÇÁ·Î±×·¥ÀÔ´Ï´Ù..(À¢Áö °æÀïÇϴ°Š°°ÁÒ Äð·°.. ´Þ·Á¿ä ´Þ·Á!) ÇÁ·Î±×·¥Àº ¾ÆÁÖ °£´ÜÇÕ´Ï´Ù.. ÀÏ´Ü »õ ÇÁ·ÎÁ§Æ®¸¦ ¸¸µé¾î Áֽðí Æû¿¡´Ù°¡ 3°¡Áö ÄÁÆ®·ÑÀ» ¾òÁ®ÁÝ´Ï´Ù. Shape , Label, TextBox .. ¿©±â±îÁö´Â ½±°Ô °¡´ÉÇϽÃÁÒ ^^? (¾ÈµÇ¸é ´ë·« ³¶ÆÐ.. Äð·°..) Label ¿¡´Â ¿øÇϽô ³»¿ë ÀûÀ¸½Ã¸é µË´Ï´Ù.. Àú´Â Retangle Size is .. TextBox ÀÇ ÅؽºÆ®´Â ºñ¿öÁÖ½Ã¸é µË´Ï´Ù. Shape1 ÀÇ Visible Àº False ÇØÁֽñ¸¿ä. ÇÁ·Î±×·¥ ½ÇÇà½Ã ÷¿¡ ¾Èº¸ÀÌ°Ô ÇØÁִ°̴ϴÙ. ÇÁ·Î±×·¥ ±â´ÉÀ» °£´ÜÈ÷ »ý°¢Çغ¸¸é ȸéÀ» Âï°í À̵¿ÇÑµÚ ¶¼¸é »ç°¢ÇüÀÌ ±×·ÁÁö°í ±× »ç°¢Çü »çÀÌÁî°¡ TextBox ¿¡ ³Ñ¾î °¡´Â °Ì´Ï´Ù.. ÇÁ·Î±×·¥¿¡¼ À̺¥Æ®´Â µÎ°¡Áö°¡ ¾²ÀÔ´Ï´Ù. MouseDown, MouseUp ÀÌÁ¦ ºÎÅÍ Á»´õ ¾î·Á¿î ÄÚµùÀ¸·Î µé¾î°©´Ï´Ù.!! ÄÚµåÀÔ·Ââ¿¡¼ À§¿¡ º¸½Ã¸é ¼±ÅÃÇÏ´Â ÄÞº¸¹Ú½º°¡ ÀÖ½À´Ï´Ù. °Å±â º¸½Ã¸é General, Form, Label1, Text1 À̶ó°í ³ª¿É´Ï´Ù. ¸ÕÀú General Àº ÀüüÀûÀÎ º¯¼ö¸¦ ¼±¾ðÇØÁÖ´Â ºÎºÐÀÔ´Ï´Ù. ¿©±â´Ù°¡ º¯¼ö¸¦ ¼±¾ðÇØ ÁÝ´Ï´Ù. ±âº»ÀûÀ¸·Î ¿À¸¥ÂÊÀº Declarations ·Î µÇ¾î ÀÖ½À´Ï´Ù Option Explicit ¹Ø¿¡´Ù°¡ -> Dim Xp1, Yp1, Xp2, Yp2, MyStr Àû¾îÁÝ´Ï´Ù. º¯¼ö¸¦ 5°³ ¼±¾ðÇÏ¿´½À´Ï´Ù. ÀÛÀº ÇÁ·Î±×·¥À̶ó¼ Åëä·Î ±¼¸³´Ï´Ù.. Äð·°.. ±×·³ MouseDown À̺¥Æ® ÄÚµùÀ» Çغ¸°Ú½À´Ï´Ù. ÄÚµùâ¿¡¼ Form À» ¼±ÅÃÇÏ½Ã°í ¿À¸¥ÂÊ¿¡ MouseDown À» ¼±ÅÃÇϽøé ÀÚµ¿À¸·Î ±âº»ÄÚµùÀÌ »ý±â°í ÀÔ·ÂÇÏ´Â ºÎºÐÀÌ »ý±é´Ï´Ù. ¿©±â´Ù°¡ ȸéÀ» Âï¾úÀ»¶§ Shape ¼û±â±â¿Í ÁÂÇ¥¸¦ ¹Þ´Â ÄÚµùÀ» ³Ö½À´Ï´Ù. Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Shape1.Visible = False -> Shape ¼û±â±â Xp1 = X -> X ÁÂÇ¥ ¹Þ±â Yp1 = Y -> Y ÁÂÇ¥ ¹Þ±â End Sub ±×¸®°í MouseUp À̺¥Æ® ÄÚµùÀ» ÇÕ´Ï´Ù. ÀÌ°Ç Á» ¸¹½À´Ï´Ù.. (¸¹¾Æ ºÃÀÚ..) Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Xp2 = X -> ¿ª½Ã X, Y ÁÂÇ¥¸¦ ¹Þ°í Yp2 = Y -> Case ¹®Àº ȸéÀ» Âï°í ¶¼´Â Æ÷ÀÎÆ®°¡ óÀ½º¸´Ù °ªÀÌ ÁÙ¾îµé¸é ¿À·ù°¡ »ý±â´Â°ÍÀ» ¹æÁöÇÒ·Á´Â ¸ñÀûÀÔ´Ï´Ù. Select Case (Xp1 < Xp2) Case True: Shape1.Left = Xp1 Shape1.Width = Xp2 - Xp1 Case False: Shape1.Left = Xp2 Shape1.Width = Xp1 - Xp2 End Select ¹«½¼ ³»¿ëÀÎÁö ´ë° ¾Æ½Ã°ÚÁÒ? °ªÀÌ ÀÛÀº°É ±âÁØÀ¸·Î ¿ÞÂÊ À§Ä¡, ³ÐÀÌ°ªÀ¸·Î ³Ö½À´Ï´Ù. Select Case (Yp1 < Yp2) Case True: Shape1.Top = Yp1 Shape1.Height = Yp2 - Yp1 Case False: Shape1.Top = Yp2 Shape1.Height = Yp1 - Yp2 End Select À̰͵µ ¸¶Âù°¡Áö °ªÀÌ ÀÛÀº°É ±âÁØÀ¸·Î À§ÂÊ À§Ä¡, ³ôÀÌ °ªÀ» ¸¸µé¾î ³Ö½À´Ï´Ù. Shape1.Visible = True -> Shape ¸¦ ȸ鿡 Ç¥½ÃÇÏ°í. MyStr = Shape1.Width / 15 & Chr(44) & Shape1.Height / 15 -> ¸¶¿ì½º Æ÷ÀÎÅÍ °ª°ú Çȼ¿°ªÀÌ Æ²·Á¼ ¾à°£ÀÇ º¸Á¤ÀÛ¾÷À» ÇÑ°Ì´Ï´Ù. Text1.Text = MyStr -> ÅؽºÆ® ¹Ú½º¿¡ Ç¥½Ã End Sub ÀÌ·¸°Ô ¸¸µç ´ÙÀ½ ½ÇÇàÀ» ½ÃÅ°½Ã¸é ÇϾá ȸéÀÌ ¶ß°í ¸¶¿ì½º³ª ½ºÅ¸ÀÏ·¯½º·Î ȸéÀ» Âï¾î º¸½Ã¸é À§ÀÇ È¸éó·³ µË´Ï´Ù. °ü·Ã ½ºÅ³ »ó¼¼´Â 2-1 ¿¡¼ !! Äð·°.. ºñº£ º¸½Ã´Â ºÐµé ¿ì¸®ÀÇ ¸ðÅä´Â C++ ÀÌ ÇÏ´Â°Ç VB µµ ÇÑ´ÙÀÔ´Ï´Ù.. Äð·°.. |
|
|
|