Donate

Predicate Wrapper Custom Class in VB.NET

-
Here's a custom predicate wrapper class I got from visual basic forums. I'll be converting and posting the C# equivalent for this. 
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
Public Delegate Function PredicateWrapperDelegate(Of T, A) _  
  (ByVal item As T, ByVal argument As A) As Boolean  
 
 Public Class PredicateWrapper(Of T, A)  
   Private _argument As A  
   Private _wrapperDelegate As PredicateWrapperDelegate(Of T, A)  
   Public Sub New(ByVal argument As A, _  
    ByVal wrapperDelegate As PredicateWrapperDelegate(Of T, A))  
     _argument = argument  
     _wrapperDelegate = wrapperDelegate  
   End Sub  
 
   Private Function InnerPredicate(ByVal item As T) As Boolean  
     Return _wrapperDelegate(item, _argument)  
   End Function  
 
   Public Shared Widening Operator CType( _  
    ByVal wrapper As PredicateWrapper(Of T, A)) _  
    As Predicate(Of T)  
     Return New Predicate(Of T)(AddressOf wrapper.InnerPredicate)  
   End Operator

Here's the findtrack function: 
1
2
3
4
Public Shared Function FindIndexTrackNumber(ByVal SysTrack As SystemTrack, ByVal searchArg As Integer) As Boolean  
     'Searches for the SystemTrack with TrackNumber searchArg  
     Return SysTrack.ID.Equals(searchArg)  
   End Function

Here's its sample use:
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
Dim SearchNumber As Integer = 456  
     Dim Index As Integer  
     Dim SystemTracks As New List(Of SystemTrack)  
     SystemTracks.Add(New SystemTrack With {.ID = 111, .Title = "Help Me", .Author = "Greg Phil"})  
     SystemTracks.Add(New SystemTrack With {.ID = 222, .Title = "Help Me1", .Author = "James Nelson"})  
     SystemTracks.Add(New SystemTrack With {.ID = 456, .Title = "Help Me2", .Author = "Tom Enigma"})  
     SystemTracks.Add(New SystemTrack With {.ID = 12, .Title = "Help Me3", .Author = "Lord Brown"})  
     Index = SystemTracks.FindIndex(New PredicateWrapper(Of SystemTrack, Integer)(SearchNumber, AddressOf SystemTrack.FindIndexTrackNumber))  
     If Index <> -1 Then  
       Console.WriteLine("Sytem Track has been found at: " & Index)  
     Else  
       Console.WriteLine("System Track not found! ")  
     End If  
     Console.ReadLine()
:)

Comments

Post a Comment

Donate

Popular Posts From This Blog

WPF CRUD Application Using DataGrid, MVVM Pattern, Entity Framework, And C#.NET

-
Image
Good day to all! Here's an example of a WPF CRUD (Create,Update and Delete) project using the DataGrid control, ADO.NET Entity Framework 6.x, C#.NET and Model–View–Viewmodel(MVVM) architectural pattern. This post was based from this tutorial WPF CRUD With DataGrid, Entity Framework And C#.NET except that we are now using the MVVM framework. The steps below are pretty straightforward and easy to follow. I. Project Setup 1. Add a table called Students in you database. The complete script is found in this post WPF CRUD With DataGrid, Entity Framework And C#.NET 2. Create a WPF Project and add four folders called DataAccess, Model, View and ViewModel. 3. Your project structure may look similar with the screenshot provided below. II. Coding The Model and Repository Class 1. Inside the Model folder, add an ADO.NET Entity Data Model that connects to the Students table in your database. On my part, I named it StudentModel . 2. For the connectionstring name in App.config file, I
Read more

How To Insert Or Add Emojis In Microsoft Teams Status Message

-
Image
Good day Gents! I was trying to update my Microsoft Teams status and was wondering if I can add or insert emoji. For editing or adding new teams status, only text fields are available and there's no emoji icon similar to writing a teams message. After googling for a few minutes, I found this link Emoji's in status which is a feature request in Microsoft Teams User's Voice Forum. So far this upgrade request only has thirty votes which is relatively small and may be considered a low priority for the product team to implement. Given the limitations at hand, I tried several approach including copying an emoji in a chat message which didn't work and later found a solution using Microsoft Outlook 365. First is to create a new email message in Microsoft Outlook and press (Window Key + .). The emoji dropdown control will appear. Next is to select the emoji that you wanted to add to Teams. Copy the emoji from the newly created email message template and paste that to Micr
Read more

Pass GUID As Parameter To Action Using ASP.NET MVC ContribGrid

-
Hi, In a scenario where in you want to pass a GUID object to an Action Parameter, the parameter might contain a null value. Since Guid is not nullable, you can't simply just pass it to an action parameter because Action parameters require nullable and reference types. You might encounter an error like this: An optional parameter must be a reference type, a nullable type, or be declared as an optional parameter Assuming you have an aspx view below: <div> <% Html.Grid(Model).Columns (c => { c.For(m => m.Price); c.For(m => m.ProductName); c.For(m => m.ProductID); c.For( "View Person" ).Named( "" ).Action(m => { %> <td> <%= Html.ActionLink( "View Person" , "ProductDetail" , "Home" , new { @id = m.ProductID.ToString() }) %> </td> <% }); %> <% }).Render(); %> </div> and an action
Read more