asp.net - how can we access form2 listbox (lb1) in form3 -
आयात सिस्टम.विंडो.फॉर्म.लिस्ट बॉक्स
पब्लिक क्लास फॉर्म 2
< कोड> निजी उप फॉर्म 2-लॉड (सिस्टम के रूप में उप-प्रेषक, सिस्टम के रूप में। ऑब्जेक्ट, बाय वैसे सिस्टम। एवेन्टअर्ज) मैबबेस। लोड अंत उप प्राइवेट सब बटन 1_Click (सिस्टम के रूप में वही प्रेषक, सिस्टम के रूप में। ऑब्जेक्ट, सिस्टम के रूप में ई-मेल) बटन बटन हैंडल 1। नई फॉर्म 3 () फॉर्म 3 के रूप में। विजुअल = ट्रू मी। हायइड () एंड उपआयात सिस्टम.डेटा.ऑलडीबी
पब्लिक क्लास फॉर्म 3
निजी कक्षा डेटाएक्साइड सार्वजनिक साझा फ़ंक्शन मिलना () OleDbConnection के रूप में 'string constr = @ "प्रदाता = Microsoft.ACE.OLEDB.12.0; डेटा स्रोत = C: \ database \ Database2007.accdb"; मंद कॉन्स्ट्रेट 1 के रूप में स्ट्रिंग = "प्रदाता = माइक्रोसॉफ्ट। एएसीई। ओएलईडीबी .12.0; डेटा स्रोत = सी: \ उपयोगकर्ता \ सुमन \ डेस्कटॉप \ बनाम वीएस \ vb \ project_sample1 \ Database1.accdb" नई ओलेडीबी कनेक्शन वापस करें (सीएनएसआर 1) एंड फ़ंक्शन एण्ड क्लास प्राइवेट उप बटन 1_Click (System.Object, ByVal e। के रूप में सिस्टम। एवेन्टएरग्स) के रूप में उप बटन 1_Click (हां हैंडल 1) क्लिक करें। OleDbConnection = Dataaccess.getconnection () के रूप में मंद क्वेरी स्ट्रिंग = "का चयन करें * बर्गर से चुनें" Dim cmd नई OleDbCommand के रूप में (क्वेरी, कम) के रूप में नई OleDbDataAdapter (सीएमडी) मंद डी एस नई डाटासेट के रूप में () 'मंद एक्स के रूप में पूर्णांक दा.फिल (डी एस) ** एलबी 1 **। आइटम। जोड़ें (डीएसटीबल्स (0) .ROW (0)। मदअरेरे (0) .ओस्ट्रिंग ()) समापन उपमैं फॉर्म 3 डेटा को एलबी 1 लिस्ट बॉक्स में संग्रहीत करना चाहता हूं जिसे फ़ॉर्म 2 में घोषित किया गया है
आप उस विशिष्ट सूचीबॉक्सेज़ या पूरे फॉर्म 2 को form3 में संदर्भ दे सकते हैं। आसान तरीके से इसे फ़ॉर्म के निर्माता में लिखना है
फॉर्म 3 में:
ListBox सार्वजनिक उप न्यूज़ के रूप में निजी _TargetListBox (ListBox के रूप में ByRef TargetListBox) _TargetListBox = TargetListBox अंत उप निजी उप बटन 1_Click (ByVal प्रेषक के रूप में System.Object, ByVal ई के रूप में सिस्टम.इवेंटआर्ग्स) बटन 1 हैंडल करें। ओलेडबैकनएक्शन = डेटाएक्साईट.एफ़एक्सएक्स (सीएमडी) के रूप में डीम क्वेरी के रूप में मंद क्वेरी के रूप में स्ट्रिंग = "सेलेक्ट * बर्गर से" चुनें सीएमडी के रूप में नई ओलेडीबी कॉमांड (क्वेरी, कॉम) डीएस के रूप में नई डाटासेट () 'डीएम एक्स के रूप में पूर्णांक दा.फिल (डीएस) _TargetListBox.Items.Add (डीएसटीबल (0) .रोव (0) .ओएमअरेरे (0) .ओस्ट्रिंग ()) समाप्ति उपफॉर्म 2 में:
निजी उप बटन 1_Click (System.Object, ByVal ई के रूप में सिस्टम.एवेंटअर्ज) के रूप में उप-प्रेषक। बटन को संभालता है 1। नई फॉर्म 3 के रूप में मंद mf1 क्लिक करें (मेरे। Lb1) mf1.Visible = True Me.Hide ()समापन उप
Comments
Post a Comment