[ad_1]
नमस्ते,
मदद की ज़रूरत है, पहले अंग्रेजी अच्छी नहीं थी,
मेरे पास निर्दिष्ट निर्देशिका (फ़ोल्डर) से टेक्स्ट फ़ाइल से आइटम प्रदर्शित करने वाला सूचीदृश्य है, मैं तीसरे कॉलम या आईडी नंबर में खोजे गए सभी आइटमों को खोजने और प्रदर्शित करने के लिए खोज बॉक्स और (टेक्स्टबॉक्स 1) और सीएमडीबटन (बटन 1) चाहता हूं।
पूर्व:
कॉलम 1: दिनांक और समय:
कॉलम 2: नाम:
कॉलम 3: आईडी नंबर:
08-08-2017 06:06:00, जॉन लुकास, 1010000
08-08-2017 07:00:00, अप्रैल दून, 1010023
08-08-2017 08:45:00, केविन एल्मो, 1010014
08-08-2017 09:06:00, जॉन लुकास, 1010000
08-08-2017 10:24:00, एड ओलिविया, 1010012
08-08-2017 11:47:00, जॉन लुकास, 1010000
08-08-2017 12:56:00, लिज़ा बेन, 1010001
मैं आईडी नंबर खोजकर जॉन लुकास का डेटा (आइटम) प्रदर्शित करना चाहता हूं और इसे सूचीदृश्य (एक अन्य सूचीदृश्य) में प्रदर्शित करना चाहता हूं।
मैंने क्या प्रयास किया है:
‘यह मेरे आइटम को केवल टेक्स्ट फ़ाइल से प्रदर्शित करने के लिए कोड है, मुझे कोई जानकारी नहीं है और मैं आपसे कुछ मदद माँग रहा हूँ, टीआईए।’
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load, MyBase.DockChanged lvDETAILS.View = View.Details lvDETAILS.Columns.Add("Date/Time:", 220, HorizontalAlignment.Left) lvDETAILS.Columns.Add("Employee Name:", 280, HorizontalAlignment.Left) lvDETAILS.Columns.Add("ID Number:", 120, HorizontalAlignment.Left) lvDETAILS.Columns.Add("Department:", 250, HorizontalAlignment.Left) lvDETAILS.Columns.Add("User Type:", 200, HorizontalAlignment.Left) lvDETAILS.Columns.Add("ESD Check Result:", 200, HorizontalAlignment.Left) Dim File_Name As String = "D:\esdcheck\DET.dll" Dim objReader As New IO.StreamReader(File_Name) Dim newarray(6) As String Dim DateTime As String Dim Name As String Dim IDNum As String Dim Department As String Dim UserType As String Dim ESDResult As String Do While objReader.Peek <> -1 newarray = objReader.ReadLine().Split(",") DateTime = newarray(0) Name = newarray(1) IDNum = newarray(2) Department = newarray(3) UserType = newarray(4) ESDResult = newarray(5) Dim x As Integer = lvDETAILS.Items.Add(New ListViewItem(New String() {DateTime})).Index 'Para sa Listview unang Column depende sa base sa index lvDETAILS.Items.Item(x).SubItems.Add(Name) 'yung 'x' po na yun ay number of index na nakaset per column., ilalagay sa second column depende sa index lvDETAILS.Items.Item(x).SubItems.Add(IDNum) 'sunod sunod lang po ang pag lagay depende sa dami ng column lvDETAILS.Items.Item(x).SubItems.Add(Department) 'yeah lvDETAILS.Items.Item(x).SubItems.Add(UserType) 'yeah lvDETAILS.Items.Item(x).SubItems.Add(ESDResult) 'yeah !!! eto na yung last! End Sub
समाधान 1
आपका सबसे अच्छा समाधान ऐसे नियंत्रण का उपयोग करना है जो डेटा बाइंडिंग और फ़िल्टरिंग का समर्थन करता है। हालाँकि यह संभव है और अत्यधिक शामिल है, ListView वास्तव में इस उद्देश्य के लिए उपयुक्त नहीं है।
हालाँकि DataGridView उस कार्य के लिए डिज़ाइन किया गया है जिसे आप प्राप्त करना चाहते हैं। यह कोडप्रोजेक्ट आलेख आपको दिखाता है कि आप जो चाहते हैं उसे कैसे प्राप्त करें: एक विस्तृत डेटा बाइंडिंग ट्यूटोरियल[^]
समाधान 3
Imports System.Collections.Generic Public Class Form1 ' Dictionary to store unique items Dim itemsDictionary As New Dictionary(Of String, ListViewItem) Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load ' Initialize ListView columns ListView1.View = View.Details ListView1.Columns.Add("Date and Time", 200) ListView1.Columns.Add("Name", 150) ListView1.Columns.Add("ID Number", 100) ' Add sample data AddItem("08-08-2017 06:06:00", "John Lucas", "1010000") AddItem("08-08-2017 07:00:00", "April Dun", "1010023") AddItem("08-08-2017 08:45:00", "Kevin Elmo", "1010014") AddItem("08-08-2017 09:06:00", "John Lucas", "1010000") AddItem("08-08-2017 10:24:00", "Ed Olivia", "1010012") AddItem("08-08-2017 11:47:00", "John Lucas", "1010000") AddItem("08-08-2017 12:56:00", "Liza Ben", "1010001") End Sub Private Sub AddItem(dateTime As String, name As String, idNumber As String) ' Create ListViewItem Dim item As New ListViewItem({dateTime, name, idNumber}) ' Check for duplicates Dim key As String = $"{dateTime}-{name}-{idNumber}" If Not itemsDictionary.ContainsKey(key) Then ' Add item to ListView and dictionary ListView1.Items.Add(item) itemsDictionary.Add(key, item) Else ' Handle duplicate (e.g., change color or other action) item.BackColor = Color.LightPink End If End Sub End Class
[ad_2]
コメント