VB.net - एक फॉर्म पर नियंत्रण के सूचकांक को बदलना

पहचान

उन लोगों के लिए जो पहले से ही VB6 से परिचित हैं, एक ही नाम के साथ लेकिन एक अलग सूचकांक के साथ नियंत्रण बनाना आसान है।

वी.बी.नेट बीजी के तहत, चीजें सख्त हो जाती हैं; नियंत्रणों का संग्रह अब मौजूद नहीं है।

इसलिए इस कमी को दूर करने के लिए ट्रिक विकसित करना आवश्यक है, लेकिन चिंता न करें, VB.Net के साथ सब कुछ संभव है।
हम विचार कर सकते हैं कि एक फॉर्म पर सभी नियंत्रण पहले से ही एक संग्रह का हिस्सा हैं। वहाँ से हम उन्हें पहचानने की कोशिश कर सकते हैं!
हम फॉर्म के डिज़ाइन को बनाते हुए सभी "नियंत्रण" की समीक्षा कर सकते हैं, लेकिन मुख्य कठिनाई यह है कि प्रत्येक नियंत्रण का अपना गुण है।
यह पहला दृष्टिकोण हम एक ही उप में कोड की कुछ पंक्तियों के साथ विभिन्न प्रकार के कई नियंत्रणों के गुणों का इलाज करेंगे।

प्रारंभिक

एक नया विंडोज फॉर्म प्रोजेक्ट खोलें

4 टेक्स्टबॉक्स को पेस्ट करें और उनके टैग गुण 1, 2, 3 और 4 सेट करें
6 चित्र बॉक्स चिपकाएँ और उनके टैग गुण 1, 2, 3, 4 ... 6 सेट करें
2 बटन चिपकाएं

कोड

बेहतर पठनीयता के लिए कोड को दो उप में विभाजित किया गया है, लेकिन इसे एक उप उप द्वारा प्राप्त किया जा सकता है।

यदि आप चाहें तो आप दोनों लाइनों को साफ कर सकते हैं: Img.image = ...

चित्र जिप में हैं।

'================================================= =============

'फॉर्म पर,

'4 टेक्स्टबॉक्स प्रोपेर्ट टैग डी 1 ए 4

'6 पिक्चरबॉक्स प्रोपे ट टैग डी 1 आ 6

'================================================= =============

 सार्वजनिक कक्षा Form1 निजी उप Form1_Load (ByVal प्रेषक के रूप में System.Object, ByVal e As System.EventArgs) हैंडल MyBase.Load InitPic () InitText () एंड सब उप InitText () मंद Ctl नियंत्रण के रूप में मंद Txt के रूप में TextBox स्टेटिक NbAlea जैसे Intl Nxt। + = 1: यदि NbAlea> 4 तो NbAlea = 1 प्रत्येक Ctl के लिए Me.Controls के बफ़र सुर टाउट लेस कॉन्ट्रोल्स डे ला फॉर्मे में यदि टाइपऑफ़ सीटीएल टेक्स्टबॉक्स है तो 'व्रिफ़्री क्वीन c'est un टेक्स्टबॉक्स Txt = Ctl if Txt.Tag =। NbAlea फिर 'S'il n'y a que des TextBox sur la form il n'est pas nécessaire' de passer par une variable बफर Txt.Text = "c'est le TextBox:" & Txt .Name Txt.BackColor = Color .Fuchsia Else Txt.Text = "" Txt.BackColor = Color.Empty अंत यदि समाप्त हो जाता है, तो उप सब InPPic () डिम पिक अस कंट्रोल डिम Img As PictureBox स्टैटिक NbAlea इंटर्जर NbAlea + = 1: यदि NbAlea> 6 तब NbAlea = 1 'S'il n'y a que des pictureBox sur la form il n'est pas nécessaire' de passer par une variable बफर प्रत्येक Pic के लिए Me.Controls के गुलदस्ते sur tout les contrlesles la la forme में टाइप करें O c क्या पिक्चरबॉक्स है तो Img = Pic If Pic.Tag = NbAlea फिर Img.BackColor = Color.Aquamarine Img.BorderStyle = BorderStyle.Fixed3D 'Img.Image - System.Drawing.Bitmap.FromFile (My.Application.Info.DirectoryPath & \ bt "& NbAlea &" .bmp ") 'Img.SizeMode = PictureBoxSizeMode.StretchImage Else Img.BackColor = Color.Chhimg Img.BackStyle = BorderStyle.FixedSingle End यदि अंतिम समाप्ति उप निजी उप बटन #Click_Click है। Object, ByVal e as System.EventArgs) हैंडल Button1.Click InitText () End Sub Private Sub Button2_Click (ByVal प्रेषक System.bject के रूप में, ByVal e As System.EventArgs) हैंडल Button2.Click InitPic () एंड सब एंड क्लास को समाप्त करता है।

डाउनलोड: