vb.net - Drawing complex shapes onto a form. (.net) -


मेरे पास नियंत्रण है जो निम्न के समान दिखता है:  नियंत्रण

मुझे थोड़ा दौर समाप्त होने की आवश्यकता है जहां सभी अतिरिक्त अंत स्थान है मुझे यकीन नहीं है कि ये कैसे जोड़ें।

< पी> कुछ साल देर हो चुकी है ... लेकिन यह आपके प्रश्न का उत्तर हो सकता है।
  सार्वजनिक उप रेखाचित्रबद्धता (ग्राफिक के रूप में वाल्व ओजग्राफ़िक्स, _ बायवॉल एम_आईटीक्सएक्सिस पूर्णांक के रूप में, पूर्णांक के रूप में _व्वेल एम_इनटाएक्सिस, _ बाय वैल एम_ंट चौड़ाई पूर्णांक के रूप में, पूर्णांक के रूप में, पूर्णांक के रूप में _ पूर्णांक के रूप में __अगली) 'ग्राम के रूप में मंद ग्राम डिम बेस के रूप में नए रीक्टेन्गेल एफ (एम_आईटीक्सएक्सिस, एम_इन्टीएक्सिस, एम_आईटीएक्साइड, एम_आईएनटीएचईईईइट) डिम ऐक्रक्रेक्ट न्यू रेक्टेन्गेल एफ (बेसरेक्ट। स्थान, नया आकार एफ M_diameter, m_diameter)) 'शीर्ष बायां आर्क objGraphics.DrawArc (Pens.Black, ArcRect, 180, 90) objGraphics.DrawLine (Pens.Black, m_intxAxis + CInt (m_diameter / 2), m_intyAxis, m_intxx + m_intWidth - सीआईएनटी (m_diameter / 2), एम_इनटाएक्सिस) 'शीर्ष दायां चाप ArcRect.X = बेसरेक्ट। राइट - एम_दिआइंडर ओजग्राफिक्स। ड्रॉएआरक (पेन। ब्लैक, आर्कआरक्ट, 270, 90) ओजजीफिक्स। ड्रेनलाइन (पेन। ब्लैक, एम_आईटीक्स एक्सिस + एम_आईटविड्थ, एम_इनटाएक्सिस + सीआईएनटी (M_diameter / 2), m_intxAxis + m_intWidth, m_intyAxis + m_intHeight - CInt (m_diameter / 2)) 'नीचे दायां चाप ArcRect.Y = बेसरेक्ट। नीचे- m_diameter objGraphics.DrawArc (पेन। ब्लैक, आर्चरक्ट, 0, 90) objGraphics। ड्रॉलाइन (पेन। ब्लैक, एम_आईटक्सएक्सिस + सीआईएनटी (एम_डिमीटर / 2), एम_इनटाएक्सिस + एम_आईएनटी हाइट, एम_आईटीक्स एक्सिस + एम_आईटविड्थ - सीआईएनटी (एम_डिमीटर / 2), एम_इनटाएक्सिस + एम_आईएनटी हेइट) 'निचला बायें चाप ArcRect.X = बेसरेक्ट। लेफ्ट ओब्जेग्राफिक्स। ड्रॉएआरसी (पेन) (ब्लैक, आर्क रेक्ट, 90, 90) objGraphics.DrawLine (Pens.Black, m_intxAxis, m_intyAxis + CInt (m_diameter / 2), m_intx एक्सिस, एम_इनटाएक्सिस + एम_आईएनटी हाइट - सीआईएनटी (एम_ डीआईएआईएटर / 2)) एंड सब   

आयतों को आकर्षित करने के लिए अपने कोड से पैरामीटर प्रदान करें और आप दूर हैं!

Comments