ListView Items Tutorial-03 . में छवियों को असाइन करना

The ImageList ActiveX Control.

ListView नियंत्रण में छवियाँ असाइन करने के लिए, हमें अन्य ActiveX नियंत्रण की सहायता चाहिए:ImageList नियंत्रण। हमने विंडोज एक्सप्लोरर व्यू में आइकॉन देखे हैं, फोल्डर-जैसे इमेज फोल्डर-क्लोज्ड स्टेट में, जब आप फोल्डर पर क्लिक करते हैं तो यह एक ओपन फोल्डर इमेज और फाइल टाइप के आधार पर विभिन्न प्रकार की इमेज प्रदर्शित करता है। हमारे यहां इतना लचीलापन नहीं है, लेकिन हम सूची दृश्य नियंत्रण के ColumnHeaders में चिह्न छवियों को प्रदर्शित कर सकते हैं , सूची आइटम , और ListSubItems ऑब्जेक्ट सदस्य अपनी सामग्री को पॉप्युलेट करते समय।

नमूना डेमो इमेज।

नॉर्थविंड ट्रेडिंग कर्मचारी सूची दृश्य नियंत्रण में उनकी तस्वीरों (छोटी छवियों) के साथ लिस्टिंग की नमूना छवि:

बड़े छवि आकार रिकॉर्ड की पंक्ति की ऊंचाई बढ़ाएंगे, लेकिन तस्वीरें इससे बड़ी हो सकती हैं।

ListView नियंत्रण की एक नमूना छवि नीचे (दाईं ओर के पैनल में) दी गई है जिसे हमने TreeView नियंत्रण के साथ प्रयोग किया है। ट्री व्यू एक्टिवएक्स कंट्रोल को आपको ट्री व्यू कंट्रोल पर ट्यूटोरियल की पिछली श्रृंखला में पेश किया गया था। आप इस पृष्ठ के नीचे TreeView नियंत्रण ट्यूटोरियल श्रृंखला लिंक की सूची पा सकते हैं।

उपरोक्त तस्वीर में, मैंने लिस्ट व्यू कंट्रोल पर इमेज डिस्प्ले की संभावना को प्रदर्शित करने के लिए सभी डेटा कॉलम और कॉलम हेडर लेबल्स में आइकन इमेज का इस्तेमाल किया है।

फोल्डर क्लोज और ओपन स्टेट्स ट्री व्यू कंट्रोल नोड्स पर बाएं पैनल में प्रदर्शित होते हैं और वे लिस्ट व्यू आइटम की तुलना में अलग तरह से काम करते हैं। फ़ोल्डर खुला जब ट्री व्यू नोड को एक क्लिक प्राप्त होता है तो छवि प्रदर्शित होती है। उसी नोड पर एक दूसरा क्लिक फ़ोल्डर-बंद . प्रदर्शित करता है छवि।

सूची दृश्य नियंत्रण प्रोग्रामिंग ट्यूटोरियल श्रृंखला।

आशा है कि आप ListView Control के पहले के ट्यूटोरियल सत्र -1 और 2 को पढ़ चुके हैं और ImageList के उपयोग पर इस नए एपिसोड को लेने के लिए तैयार हैं। ListView . के साथ नियंत्रण करें नियंत्रण। समीक्षा के लिए और इस सत्र को जारी रखने के लिए तैयार होने के लिए पहले के ट्यूटोरियल लिंक नीचे दिए गए हैं। ListView Control की कुछ मूल बातें पहले से ही VBA कोड के साथ वहां प्रस्तुत और व्याख्या की गई हैं और आप यहां जारी रखने और यहां क्या हो रहा है इसे समझने के लिए बेहतर स्थिति में होंगे।

1. लिस्ट व्यू कंट्रोल ट्यूटोरियल-01.

2. लिस्ट व्यू कंट्रोल ट्यूटोरियल-02.

स्रोत डेटा और डेमो फ़ॉर्म।

आइए हम अपने नए लिस्ट व्यू कंट्रोल डेमो प्रोजेक्ट के लिए एक नए फॉर्म और कर्मचारी तालिका के साथ शुरू करें। कर्मचारी तालिका को NorthWind.accdb नमूना डेटाबेस से आयात करें।

1. नीचे दिए गए SQL के साथ एक नई सेलेक्ट क्वेरी बनाएं और इसे कर्मचारीQ नाम से सेव करें ।

   चुनें , कर्मचारी। पोस्टल कोड, कर्मचारी। देश, कर्मचारी। होमफोन, कर्मचारी। एक्सटेंशन, कर्मचारी। कर्मचारियों से नोट्स;

2. यदि आपकी कर्मचारी तालिका संरचना अलग है तो कोई फर्क नहीं पड़ता। केवल पहले कॉलम मान के लिए मैंने [कर्मचारियों का नाम] बनाने के लिए तीन कॉलम मानों को एक साथ जोड़ दिया है पहले कॉलम के रूप में। अन्य कॉलम नाम मान जो आप ले सकते हैं जैसे आपके पास हैं और किसी भी क्रम में, वे सभी या कम आप कृपया।

3. एक नया फॉर्म बनाएं और इसे डिजाइन व्यू में खोलें।

4. एक Microsoft सूची दृश्य नियंत्रण सम्मिलित करें ActiveX नियंत्रण सूची से।

5. Microsoft छविसूची नियंत्रण सम्मिलित करें ActiveX नियंत्रण सूची से भी।

6. नीचे दिए गए फॉर्म पर नमूना छवि की तरह ListView नियंत्रण का आकार बदलें। इमेजलिस्ट कंट्रोल को मूव करें और इसे लिस्ट व्यू कंट्रोल के ऊपरी दाएं कोने में रखें जैसा कि इमेज में दिखाया गया है। आप इसे फॉर्म पर किसी सुविधाजनक स्थान पर कहीं भी रख सकते हैं। फ़ॉर्म के सामान्य दृश्य में होने पर यह फ़ॉर्म पर दिखाई नहीं देगा।

   

   • सूची दृश्य नियंत्रण चुनें और संपत्ति पत्रक प्रदर्शित करें।

   • नाम बदलें संपत्ति मूल्य ListView1 के लिए।

   • छविसूची नियंत्रणचुनें , इसकी संपत्ति पत्रक प्रदर्शित करें, और नाम . बदलें ImageList0 . के लिए संपत्ति का मूल्य ।

   • नोट: उपरोक्त दोनों नियंत्रणों के अपने स्वयं के समर्पित संपत्ति पत्रक हैं। उनकी संपत्ति के नाम और मूल्य एक्सेस प्रॉपर्टी शीट में भी दिखाई दे सकते हैं। अगर हम एक्सेस प्रॉपर्टी शीट में कुछ बदलाव करते हैं तो वे सभी लिस्ट व्यू और इमेजलिस्ट कंट्रोल पर अपडेट नहीं हो सकते हैं। हमें नियंत्रण के अपने संपत्ति पत्रक में परिवर्तन करने होंगे।

     सूची दृश्य नियंत्रण संपत्ति पत्रक।

7. लिस्ट व्यू कंट्रोल पर राइट-क्लिक करें, ListViewCtrl ऑब्जेक्ट को हाइलाइट करें विकल्प प्रदर्शित सूची में, और गुण चुनें। सामान्य लिस्ट व्यू कंट्रोल प्रॉपर्टी शीट का टैब नीचे दी गई इमेज की तरह दिखेगा।

   

8. सामान्य टैब . पर संपत्ति मान बदलें जैसा कि ऊपर चित्र में दिखाया गया है।

   सबसे पहले, हम कर्मचारियों के डेटा को ListView Control में लोड करेंगे।

   फॉर्म मॉड्यूल VBA कोड

9. निम्नलिखित वीबीए कोड को फॉर्म के क्लास मॉड्यूल में कॉपी और पेस्ट करें:

   विकल्प तुलना DatabaseOption ExplicitDim lvwList MSComctlLib के रूप में। ListViewDim lvwItem MSComctlLib के रूप में। LoadListView ("कर्मचारीQ") एंड सब-प्राइवेट सब लोडलिस्ट व्यू (स्ट्रिंग के रूप में ByVal tblName) डिम strFldName स्ट्रिंग डिम इंट काउंटर के रूप में इंटीजर डिम जे के रूप में इंटीजर डिम स्ट्रेलबेल स्ट्रिंग के रूप में lvwList ऑब्जेक्टसेट lvwList =Me.ListView1.ऑब्जेक्ट पर फॉर्म पर नियंत्रण असाइन करें।>'ObjImgList =Me.ImageList0.Object सेट करें 'फ़ॉर्म हेडर लेबल असाइन करें कैप्शन टेक्स्ट strLabel =UCase(tblName) &"" &"IN LISTVIEW CONTROL - TUTORIAL-03" Me.Label8.caption =strLabel Me.Label9.caption =strLabel with lvwList '.Icons =ObjImgList  '.SmallIcons =ObjImgList '.ColumnHeaderIcons =ObjImgList .Font ="Verdana" .Font.Size =10 .Font.Bold =True End with Set db =CurrentDb सेट rst =db.OpenRecordset(tblName, dbOpenSnapshot) 'LvwList के साथ ListView के लिए कॉलम हेडर बनाएं। ColumnHeaders.Clear 'हेडर को इनिशियलाइज़ करें क्षेत्र के लिए j =0 से rst.Fields.Count - 1 strFldName =rst.Fields(j).Name 'Syntax:'.ColumnHeaders.Add Index, Key, Text, Width, Alignment, Icon .ColumnHeaders.Add , , strFldName, iif(j=0,3200,2000) अगला अंत 'LvwList.ListItems.Count> 0 lvwList.ListItems.Remove (1) के साथ 'Initialize ListView Control' के साथ है। ListItems.Add(Index, Key, Text, Icon, SmallIcon) सेट lvwItem =.ListItems.Add(, , CStr(Nz(rst.Fields(0).Value, ""))) 'डेटा के अगले कॉलम को उप के रूप में जोड़ें lvwItem 'सिंटैक्स के साथ ListItem के आइटम। इंडेक्स, की, टेक्स्ट, रिपोर्ट आइकन, टूलटिप टेक्स्ट को j =1 के लिए rst.Fields.Count - 1 .ListSubItems.Add , CStr(Nz(rst.Fields(j).Value) के साथ जोड़ें। , "")) अगला अंत rst.MoveNextLooprst.Close 'रीसेट lvwItem ऑब्जेक्ट के साथ सेट करें lvwItem =कुछ भी नहीं सेट के साथ rst =कुछ भी नहीं सेट डीबी =कुछ भी नहीं सब

   नोट: इमेजलिस्ट नियंत्रण की लाल रंग की वीबीए लाइनों को फिलहाल के लिए क्रियान्वित करने से बाहर कर दिया गया है और हम उन्हें शीघ्र ही सक्षम कर देंगे।

10. frmकर्मचारियों के नाम से अपना फॉर्म सेव करें

11. फॉर्म को नॉर्मल व्यू में खोलें।

    कर्मचारी Q क्वेरी रिकॉर्ड्स सूची निम्न छवि की तरह दिखेगी:

VBA कोड की समीक्षा

इमेजलिस्ट कंट्रोल डिक्लेरेशन, इनिशियलाइज़ेशन और फॉन्ट-नेम, फॉन्ट-साइज़ और फॉन्ट- के लिए कुछ पंक्तियों को छोड़कर, हम पहले के लिस्ट व्यू कंट्रोल ट्यूटोरियल -01 और 02 सेशन में उपरोक्त वीबीए कोड से गुजर चुके हैं। शैली सेटिंग्स। एक और बदलाव जो हमने यहां पिछले वीबीए कोड में किया है वह है LoadListView() कार्यक्रम, इसे एक पैरामीटर के रूप में एक तालिका/क्वेरी नाम की आवश्यकता है। एक्शन क्वेरीज़, एक्सेस टेबल्स और लिंक्ड टेबल नेम को छोड़कर सभी क्वेरी प्रकार मान्य हैं। जब प्रोग्राम को Form_Load() . से कॉल किया जाता है तो टेबल या क्वेरी का नाम पास किया जाता है घटना प्रक्रिया।

सभी तालिका/क्वेरी फ़ील्ड नामों का उपयोग ColumnHeader लेबल पाठ . के रूप में किया जाता है (तीसरा पैरामीटर) ColumnHeaders.Add() . में तरीका। पहला पैरामीटर इंडेक्स और दूसरा पैरामीटर कुंजी मूल्यों का उपयोग नहीं किया जाता है। इंडेक्स अनुक्रम संख्या सिस्टम द्वारा स्वचालित रूप से डाली जाएगी।

चौथा पैरामीटर है कॉलम-चौड़ाई पिक्सेल में मान और हमने मनमाने ढंग से पहले कॉलम चौड़ाई मान 3200 पिक्सेल और अन्य सभी कॉलम 2000 पिक्सेल के लिए असाइन किया है। पहला कॉलम कर्मचारी का नाम प्रदर्शित करता है और इसे ठीक से प्रदर्शित करने के लिए इसे अधिक चौड़ाई की आवश्यकता होती है।

संरेखण और आइकन कॉलम हेडर के लिए पैरामीटर मान जिनका हमने यहां उपयोग नहीं किया है। डिफ़ॉल्ट रूप से, बायां संरेखण माना जाता है। उपलब्ध संरेखण विकल्प नीचे दिए गए हैं।

• 0 - lvwColumnLeft
• 1 - lvwColumnRight
• 2 - lvwColumnCenter

आप उपरोक्त विकल्पों को कॉलम हेडर . पर देख सकते हैं ListView नियंत्रण संपत्ति पत्रक पर टैब करें। उपरोक्त विकल्पों को देखने के लिए:

• कॉलम सम्मिलित करें पर क्लिक करें बटन, नीचे टेक्स्ट बॉक्स में कुछ अस्थायी कॉलम-नाम दर्ज करें।

• संरेखण पर क्लिक करें संपत्ति और उपरोक्त विकल्पों को देखें।

• कॉलम हटाएं पर क्लिक करें अस्थायी कॉलम नाम मिटाने के लिए बटन।

• नोट: यदि आप VBA कोड के माध्यम से फ़ील्ड नामों को लोड करने के बजाय मैन्युअल रूप से कॉलम हैडर लेबल जोड़ना चाहते हैं, तो आप उन्हें यहां एक-एक करके टाइप कर सकते हैं। जब आप डेटा प्रदर्शित करेंगे तो वे कॉलम हैडर लेबल के रूप में दिखाई देंगे।

आइकन . का नमूना दृश्य हेडर कॉलम नाम के बाईं ओर की छवि इस पृष्ठ के शीर्ष पर दूसरी डेमो छवि में दाईं ओर के पैनल में देखी जा सकती है।

कर्मचारी क्यू पहला कॉलम (कर्मचारी का नाम) को ListItems.Text . के रूप में लिया जाता है इसके जोड़ें . में तरीका। इस पद्धति में भी हमने सूचकांक . को छोड़ दिया है और कुंजी पैरामीटर मान। अनुक्रमणिका क्रमांक स्वचालित रूप से क्रमांक के रूप में सिस्टम द्वारा जोड़ दिए जाएंगे।

दूसरे फ़ील्ड के बाद से सभी कॉलम मान ListSubItems.Add() . के माध्यम से लोड किए जाते हैं ListView नियंत्रण की विधि।

नोट: सभी मान ListItems.Text . में जोड़े जाते हैं और ListSubItems.Text . में केवल टेक्स्ट डेटा प्रकार के रूप में पैरामीटर, स्रोत तालिका/क्वेरी में इसके मूल डेटा प्रकार पर ध्यान दिए बिना। संहिता में, हम फ़ील्ड मानों पर एक सत्यापन जांच कर रहे हैं, बस अगर उनमें से किसी में शून्य है मान, और इसे CStr() . के साथ टेक्स्ट मान में परिवर्तित करें अंतर्निहित फ़ंक्शन।

ImageList नियंत्रण।

छविसूची कंट्रोल इनिशियलाइज़िंग स्टेटमेंट्स, जिन पर हमने मुख्य कार्यक्रम में टिप्पणी की है, नीचे दिए गए कोड सेगमेंट में लाल रंग में दिखाए गए हैं। जब हम इमेजलिस्ट कंट्रोल में इमेज अपलोड करने की अपनी तैयारी के लिए तैयार होंगे, तब हम उन्हें समझाएंगे और सक्षम करेंगे।

'LvwList ObjectSet lvwList =Me.ListView1.Object'Set ObjImgList =Me.ImageList0.Object को फॉर्म पर लिस्ट व्यू कंट्रोल असाइन करें। 'फ़ॉर्म हेडर लेबल असाइन करें कैप्शन टेक्स्ट strLabel =UCase(tblName) &"" &"IN LISTVIEW CONTROL - TUTORIAL-03" Me.Label8.caption =strLabel Me.Label9.caption =strLabel with lvwList '.Icons =ObjImgList  '.SmallIcons =ObjImgList '.ColumnHeaderIcons =ObjImgList .Font ="Verdana" .Font.Size =10 .Font.Bold =True End with 

ऊपर लाल रंग वाला पहला स्टेटमेंट ObjImgList . को इनिशियलाइज़ करता है ImageList नियंत्रण वाली वस्तु ImageList0 प्रपत्र पर frmकर्मचारी . कोड में बदलाव करने से पहले आइए देखें कि इमेजलिस्ट कंट्रोल में कुछ इमेज अपलोड करने के लिए हमारे पास क्या विकल्प हैं।

छवियां अपलोड करने के बारे में।

अगला कदम कुछ नमूना छवियों को ImageList नियंत्रण में अपलोड करना है। यह दो तरीकों में से एक में किया जा सकता है।

इस चरण का प्रयास करने से पहले, कृपया कम से कम दो छोटी छवियां बनाएं या प्राप्त करें (कोई भी लोकप्रिय छवि प्रकार जैसे .jpg, jpeg, .bmp, .png , आदि), अधिमानतः .bmp प्रकार। ImageList Control पर सामान्य . पर उपलब्ध छवि आकार विकल्प संपत्ति पत्रक के टैब 16 x 16 . हैं , 32 x 32 , 48 x 48 पिक्सेल, या कस्टम आकार।

इमेजलिस्ट कंट्रोल पर राइट-क्लिक करें, विकल्प को हाइलाइट करें ImageListCtrl ऑब्जेक्ट, और गुण चुनें। अपलोड करने के लिए किसी भी छवि का चयन करने से पहले सामान्य . पर उपरोक्त छवि आकारों में से एक का चयन करें टैब.

• यदि आपके पास बड़ी छवियां हैं और मूल छवि-आकार को बनाए रखना चाहते हैं तो कस्टम चुनें विकल्प।
• किसी अन्य विकल्प का चयन करने से छवि चयनित आकार में कम हो जाएगी। यह छवि गुणवत्ता को कम कर सकता है। प्रदर्शित होने पर बहुत बड़ी छवियों का उपयोग ListView नियंत्रण पर अधिक स्थान घेर सकता है।
• आइकन-प्रकार की छवियां उपयोग करने के लिए अधिक आदर्श होंगी।
• अपनी आवश्यकताओं के लिए सही छवि/विकल्प चयन पर कुछ अनुभव प्राप्त करने के लिए बड़ी, छोटी और बहुत छोटी छवियों और विभिन्न विकल्पों के साथ प्रयोग करें।

इमेजलिस्ट कंट्रोल में इमेज अपलोड करने के लिए आप दो में से किसी एक तरीके का इस्तेमाल कर सकते हैं:

1. VBA प्रक्रिया के माध्यम से डिस्क से चित्र अपलोड करें।

नमूना वीबीए प्रक्रिया नीचे दिए गए कोड सेगमेंट की तरह दिखेगी, जिसे ट्री व्यू कंट्रोल ट्यूटोरियल से लिया गया है:

 सेट objImgList =Me.ImageList0.Object objImgList.ListImages.Clear strFolder ="D:\Access\TreeView\" साथ objImgList with .ListImages .Add Index:=1, Key:="FolderClose", Picture:=LoadPicture (strFolder और "folderclose2.bmp")। इंडेक्स जोड़ें:=2, कुंजी:="FolderOpen", चित्र:=लोड पिक्चर (strFolder और "folderopen2.bmp")। इंडेक्स जोड़ें:=3, कुंजी:="एरोहेड", Picture:=LoadPicture(strFolder &"arrowhead.bmp") अंत के साथ tvw 'TreeView Control .ImageList =objImgList' के साथ समाप्त करें। 

 पहला स्टेटमेंट objImgList . को इनिशियलाइज़ करता है ImageList0 . के साथ ऑब्जेक्ट प्रपत्र पर नियंत्रण।
 

 अगला कथन यह सुनिश्चित करता है कि छवि सूची नियंत्रण में मौजूदा छवियाँ, यदि कोई हों, डिस्क से अपलोड करने की तैयारी में साफ़ कर दी गई हैं। हर बार काम करने के लिए इस दृष्टिकोण के लिए, छवियों को हमेशा डिस्क पर उपलब्ध होना चाहिए।
 

 objImgList.ListImages.Add() नामित पैरामीटर का उपयोग करके डिस्क से छवियों को अपलोड करने के लिए विधि को कॉल किया जाता है। जब पैरामीटर नामों का उपयोग जोड़ें () . में किया जाता है विधि पैरामीटर मान किसी भी क्रम में दिए जा सकते हैं जैसे इंडेक्स:=1 पंक्ति के अंत में दिया जा सकता है या कुंजी:="FolderClose" पहली वस्तु के रूप में और इसी तरह। पैरामीटर नामों के बिना जोड़ें () विधि पैरामीटर क्रम इस प्रकार होगा:
 
 .1 जोड़ें, "FolderClose", LoadPicture(strFolder &"folderclose2.bmp")
 

 छवि को हमारी सूची दृश्य . पर प्रदर्शित करने के लिए नियंत्रण हम या तो इमेज इंडेक्स नंबर 1 . का उपयोग कर सकते हैं या कुंजी मान "FolderClose" आइकन . के रूप में टेक्स्ट करें या SmallIcon ListItems.Add() . में पैरामीटर मान विधि।
 

 हमने पहले ट्री व्यू कंट्रोल ट्यूटोरियल में उपरोक्त विधि का उपयोग किया है। आप उस पेज पर जा सकते हैं और डेमो डेटाबेस डाउनलोड कर सकते हैं।
 

 यह विधि छवियों को मेमोरी में इमेजलिस्ट ऑब्जेक्ट इंस्टेंस में लोड करती है और फॉर्म पर भौतिक वस्तु नहीं बदली जाती है। डिस्क पर स्रोत छवियां हर बार frmकर्मचारियों . के लिए हमेशा उपलब्ध होनी चाहिए खुला है।
 
2. डिस्क से छवियों को मैन्युअल रूप से अपलोड करना।
 यह एक बार का अभ्यास है, डिस्क पर छवियों को ढूंढना और उन्हें इमेजलिस्ट नियंत्रण में अपलोड करना। 

 मुख्य लाभ यह है कि एक बार छवियों को ImageList नियंत्रण में अपलोड करने के बाद वे बरकरार रहती हैं। छवियों के साथ इमेजलिस्ट नियंत्रण को अन्य प्रोजेक्ट्स के लिए कॉपी-पेस्ट किया जा सकता है यदि एक से अधिक प्रोजेक्ट के लिए समान छवियों की आवश्यकता होती है। डिस्क से छवियों को फिर से लोड करने की आवश्यकता नहीं है। इमेज के साथ इमेजलिस्ट कंट्रोल को दोस्तों के साथ भी शेयर किया जा सकता है।
 

 तो, आइए छवियों को मैन्युअल रूप से अपलोड करने की बेहतर विधि पर चलते हैं। दो .bmp  Create बनाएं 50 x 50 पिक्सेल रिज़ॉल्यूशन के चित्र (image1.bmp , image2.bmp ) और इसे अपने फ़ोल्डर में तैयार रखें, कहें D:\Access\ संदर्भ के लिए।
 
 
 

 खुले frmकर्मचारी डिजाइन दृश्य में।
 
 
 

 इमेजलिस्ट कंट्रोल पर राइट-क्लिक करें, हाइलाइट करें ImageListCtrl ऑब्जेक्ट विकल्प चुनें और गुणों . का चयन करें 
 
 
 

 सामान्य . पर टैब कस्टम चुनें मूल संकल्प के साथ चित्र अपलोड करने का विकल्प।
 

 सामान्य ImageList नियंत्रण का टैब दृश्य।
  

 छवियां ImageList नियंत्रण का टैब दृश्य
  

 नोट:  लिस्ट व्यू कंट्रोल पर अपलोड की गई छवियों को आज़माने के बाद यदि आप अन्य विकल्पों को आज़माना चाहते हैं 48 x 48, 32 x 32, 16 x 16 तो आपको पहले सभी अपलोड की गई छवियों को हटाना होगा, फिर सामान्य<पर जाएँ /बी> टैब पर, आवश्यक विकल्प का चयन करें और फिर छवियों को फिर से अपलोड करें। चयनित छवियों को चयनित छवि आकार में छोटा कर दिया जाएगा। 

 

 जैसा कि आप नमूना चित्र टैब में देख सकते हैं मैंने चित्र सम्मिलित करें  का चयन करके दो चित्र अपलोड किए हैं कमांड बटन और मेरी डिस्क से छवियों को चुनना। 
 

 पहली छवि चयनित स्थिति में है और थोड़ी उभरी हुई स्थिति में है। अनुक्रमणिका नियंत्रण मान 1 दिखाता है और कुंजी पाठ बॉक्स प्रथम पाठ दिखाता है . अनुक्रमणिका मान स्वचालित रूप से दिखाई देगा लेकिन कुंजी मान (कुछ सार्थक मान जिन्हें आप आसानी से याद कर सकते हैं और छवि को डेटा से जोड़ सकते हैं) मैन्युअल रूप से दर्ज हो सकते हैं।
 

 हम आइकन . में या तो इंडेक्स नंबर या की टेक्स्ट वैल्यू का उपयोग कर सकते हैं और SmallIcon . में ListItems.Add() . का पैरामीटर विधि।
 

 यहां तक ​​​​कि अगर आप इंडेक्स नंबर अनुक्रम का उपयोग करने की योजना बना रहे हैं, तो छवि अपलोडिंग अनुक्रम को उस डेटा के साथ सिंक करना चाहिए जिसे आप लिस्ट व्यू कंट्रोल में अपलोड करने की योजना बना रहे हैं, जैसे कर्मचारियों का नाम सही क्रम में उनकी तस्वीरों से मेल खाना चाहिए। 
 

 कर्मचारियों के मामले में एक बेहतर तरीका उनके प्रथम नाम को मुख्य पाठ के रूप में इस्तेमाल किया जा सकता है और रिकॉर्ड से संबंधित होना बहुत आसान है। सामान्यीकृत छवियों को इस तरह के संबंध जाँच से मेल खाने की आवश्यकता नहीं है, लेकिन उनके मुख्य नाम यह इंगित करने में मदद करेंगे कि वे क्या करते हैं, जैसे folder_closed या folder_opened ।
 

 
 

 छवियों पर क्लिक करें टैब।
 
 
 

 तस्वीर डालें . पर क्लिक करें और अपना D:\Access\Image1.bmp find ढूंढें छवि और उसका चयन करें, खोलें . क्लिक करें इमेजलिस्ट कंट्रोल में इमेज अपलोड करने के लिए बटन।
 
 
 

 कुंजी . में कुछ टेक्स्ट मान टाइप करें टेक्स्टबॉक्स (कुंजी मान अद्वितीय होना चाहिए)।
 
 
 

 दूसरी छवि के लिए चरण 5 और 6 दोहराएँ, कुंजी-मान टाइप करें।
 

 हम नमूना छवियों के साथ अपने इमेजलिस्ट कंट्रोल के साथ तैयार हैं और उन्हें लिस्ट व्यू कंट्रोल पर प्रदर्शित करने के लिए तैयार हैं।
 
 ImageList ऑब्जेक्ट को ListView ऑब्जेक्ट प्रॉपर्टी में असाइन करना।
 

 ListView नियंत्रण पर छवि संदर्भों का उपयोग करने के लिए निम्न ListView ऑब्जेक्ट गुणों को ImageList ऑब्जेक्ट के साथ असाइन किया जाना चाहिए:
 
 
सूची दृश्य।ColumnHeaderIcons  
 
सूची दृश्य।प्रतीक  
 
सूची दृश्य।छोटे चिह्न  
 
 

 अगला चरण ImageList ऑब्जेक्ट को असाइन करना है VBA कोड में आवश्यक ListView वस्तु के लिए वस्तु गुण के माध्यम से:lvwList .ColumnHeaderIcons , lvwList .आइकन , lvwList .छोटे चिह्न  इससे पहले कि हम ColumnHeaders.Add() में इमेज रेफरेंस (इंडेक्स या की वैल्यू) का उपयोग कर सकें। , ListItems.Add() , और ListSubItems.Add() तरीके। हमने पहले ही मुख्य कार्यक्रम में आवश्यक वीबीए कोड जोड़ दिया है और उन्हें निष्क्रिय रखा है। हमें बस इतना करना है कि कोड की उन पंक्तियों को उनमें से टिप्पणी चिह्न को हटाकर और उपरोक्त जोड़ें में आवश्यक छवि संदर्भ जोड़कर सक्षम करना है। विधि के पैरामीटर।
 
 
LoadListView() में लाल रंग के साथ ऊपर दिखाई गई सभी चार VBA कोड लाइनों से टिप्पणी चिह्न (') हटा दें। प्रक्रिया। 
 
मुख्य कार्यक्रम LoadListView() में लाल रंग से दिखाए गए निम्न कथनों को संशोधित करें जैसा कि आइकन . में आइकन इंडेक्स नंबर 1 और 2 के साथ दिखाया गया है और SmallIcon नीचे दिए गए बोल्ड ब्लैक लेटर्स के साथ कोड सेगमेंट में क्रमशः पैरामीटर पोजीशन:
 lvwList के साथ rst.EOF और Not rst.BOF 'Syntax .ListItems.Add(Index, Key, Text, Icon, SmallIcon) ' सेट करें lvwItem =.ListItems.Add(, , CStr(Nz(rst.Fields(0).Value,""))) 'सेट करें lvwItem =.ListItems.Add(, , CStr(Nz(rst.Fields(0).Value,"")), 1, 2) में बदलें। 'LvwItem' सिंटैक्स के साथ ListItem के उप-आइटम के रूप में डेटा के अगले कॉलम जोड़ें। इंडेक्स, की, टेक्स्ट, रिपोर्ट आइकन, टूलटिप टेक्स्ट को j =1 के लिए rst.Fields.Count - 1 ' में जोड़ें। ListSubItems.Add , , CStr(Nz(rst.Fields(j).Value, "")) ' में बदलें। ListSubItems.Add , , CStr(Nz(rst.Fields(j).Value, "")),,"Click" अगला अंत rst.MoveNextLooprst.Close
 . के साथ 
 
 

 चूंकि आपके पास केवल दो छवियां हैं इंडेक्स नंबर 1 . के साथ पहली छवि आइकन . के रूप में प्रयोग किया जाता है पैरामीटर और 2  SmallIcon . में है पैरामीटर स्थिति। आइकन छवि केवल तभी प्रदर्शित होती है जब आप ListView प्रदर्शन विकल्प को 0 - lvwIcon में बदलते हैं।  ListSubItems.Add() विधि में हमने एक छवि संदर्भ नहीं जोड़ा है और अगले पैरामीटर टूल-टिप टेक्स्ट के लिए "क्लिक करें " जोड़ा गया है। क्लिक टेक्स्ट तब प्रदर्शित होगा जब माउस पॉइंटर किसी भी कॉलम पर, दूसरे कॉलम पर आगे की ओर रहेगा।
 

 VBA कोड में उपरोक्त परिवर्तन करने के बाद, परिवर्तनों के साथ कर्मचारियों के फॉर्म को सहेजें।
 

 फॉर्म को नॉर्मल व्यू में खोलें। दृश्य इस पृष्ठ के शीर्ष पर नमूना छवि जैसा दिखना चाहिए।
 

 छोटा चिह्न अन्य सभी सूची दृश्य विकल्पों में दिखाई देगा। नीचे दिए गए कर्मचारी डेटा की नमूना सूची देखें छवियों की जाँच करें।
 
0 - lvwIcon View
  
2 - lvwList View
  

 इस पृष्ठ के शीर्ष पर पहली छवि है 03 - lvwReport देखना। केवल इस दृश्य में, सभी कॉलम मान डेटाशीट जैसे डिस्प्ले में प्रदर्शित होते हैं।
 

 प्रपत्र को डिज़ाइन दृश्य में बदलें। ListView नियंत्रण की संपत्ति पत्रक प्रदर्शित करें। दृश्य विकल्प बदलें और प्रत्येक दृश्य को आज़माएं और पता करें कि विभिन्न दृश्य कैसे दिखते हैं।
 
डेमो डेटाबेस डाउनलोड करें।
 

 
 
 
माइक्रोसॉफ्ट ट्री व्यू कंट्रोल ट्यूटोरियल
 
ट्री व्यू कंट्रोल के साथ एक्सेस मेनू बनाना
 
ट्री व्यू नोड्स में इमेज असाइन करना
 
ट्री व्यू नोड्स-2 में इमेज असाइन करना
 
ट्री व्यू कंट्रोल चेकमार्क हटाएं जोड़ें
 
ट्री व्यू इमेजकॉम्बो ड्रॉप-डाउन एक्सेस
 
ट्रीव्यू नोड्स को ड्रैग एंड ड्रॉप द्वारा पुनर्व्यवस्थित करें
 
एमएस-एक्सेस ट्री व्यू के साथ लिस्ट व्यू कंट्रोल
 
सूची दृश्य नियंत्रण ड्रैग ड्रॉप इवेंट
 
उप-प्रपत्रों के साथ ट्री व्यू नियंत्रण