.NET (Core and Framework)

<br />
<br />
<% @Import Namespace="System.Data" %><br />
<script language="vb" runat="server"><br />
  Dim searchword as String<br />
  Dim pls as New DataTable()<br />
<br />
  Sub Page_Load(sender as Object, e as EventArgs)<br />
    BuildDataStore()<br />
<br />
  	completeData.DataSource = pls<br />
	completeData.DataBind()<br />
  End Sub<br />
<br />
<br />
  Sub BuildDataStore()<br />
	Dim dr as DataRow<br />
	<br />
	pls.Columns.Add(new DataColumn("Results", GetType(String)))<br />
<br />
    dr = pls.NewRow()<br />
    dr(0) = "If only God would give me some clear sign! Like making a large deposit in my name at a Swiss bank."<br />
	pls.Rows.Add(dr)<br />
	<br />
    dr = pls.NewRow()<br />
    dr(0) = "Is sex dirty? Only when it's being done right."<br />
<br />
	pls.Rows.Add(dr)<br />
<br />
    dr = pls.NewRow()<br />
    dr(0) = "On the plus side, death is one of the few things that can be done just as easily as lying down."<br />
	pls.Rows.Add(dr)<br />
<br />
    dr = pls.NewRow()<br />
    dr(0) = "I took a speed reading course and read 'War and Peace' in twenty minutes. It involves Russia."<br />
	pls.Rows.Add(dr)<br />
<br />
    dr = pls.NewRow()<br />
    dr(0) = "To *you* I'm an atheist; to God, I'm the Loyal Opposition."<br />
	pls.Rows.Add(dr)<br />
<br />
    dr = pls.NewRow()<br />
    dr(0) = "Sex without love is an empty experience, but as empty experiences go, it's a pretty good empty experience."<br />
	pls.Rows.Add(dr)<br />
<br />
    dr = pls.NewRow()<br />
    dr(0) = "It's not that I'm afraid to die. I just don't want to be there when it happens."<br />
	pls.Rows.Add(dr)<br />
<br />
    dr = pls.NewRow()<br />
    dr(0) = "What if everything is an illusion and nothing exists? In that case, I definitely overpaid for my carpet."<br />
	pls.Rows.Add(dr)<br />
<br />
    dr = pls.NewRow()<br />
    dr(0) = "Interestingly, according to modern astronomers, space is finite. This is a very comforting thought-- particularly for people who can never remember where they have left things."<br />
	pls.Rows.Add(dr)<br />
<br />
    dr = pls.NewRow()<br />
    dr(0) = "Eighty percent of success is showing up."<br />
	pls.Rows.Add(dr)<br />
  End Sub<br />
  <br />
  <br />
  Sub BindData(strQuery as String)<br />
	searchword = strQuery<br />
	<br />
	Dim dv as DataView<br />
	dv = New DataView(pls)<br />
	dv.RowFilter = "Results LIKE '%" & Regex.Replace(searchword,"'","''") & "%'"<br />
	<br />
	SearchResults.DataSource = dv<br />
	SearchResults.DataBind()<br />
  End Sub<br />
<br />
<br />
	Function Highlight(Search_Str as String, _<br />
	                   InputTxt as String, _<br />
	                   StartTag as String, _<br />
	                   EndTag as String) As String<br />
<br />
	  Dim ResultStr As String <br />
	  Return Regex.Replace(InputTxt, "\b(" & Regex.Escape(Search_Str) & ")\b", _<br />
	           StartTag & "$1" & EndTag, RegExOptions.IgnoreCase)<br />
	End Function<br />
	<br />
	<br />
	Sub searchQuotes(sender as Object, e as EventArgs)<br />
	  BindData(SearchTerm.Text)<br />
	  SearchResults.Visible = True<br />
	End Sub<br />
</script><br />
<br />
  <style type="text/css"><br />
   .highlight {text-decoration: none;color:black;background:yellow;}<br />
  </style><br />
<br />
<form runat="server"><br />
	Text to Search: <asp:TextBox id="SearchTerm" runat="server" /><br />
	<asp:button runat="server" Text="Search Woody Allen Quotes"<br />
	      OnClick="searchQuotes" /><br />
	<p><br />
	<asp:DataGrid runat="server" id="SearchResults" AutoGenerateColumns="False"<br />
	    Visible="False" ShowHeader="False"><br />
	  <Columns><br />
	    <asp:TemplateColumn><br />
	      <ItemTemplate><br />
	        <%# Highlight(searchword, DataBinder.Eval(Container.DataItem, "results"), "", "") %><br />
	      </ItemTemplate><br />
	    </asp:TemplateColumn><br />
	  </Columns><br />
	</asp:DataGrid><br />
	<p><br />
	The Data Being Search<br />
	<asp:datagrid runat="server" id="completeData" ShowHeader="False" /><br />

Private Sub ATU_RetrieveDone(ByVal e As AsyncUpdater.AsyncUpdaterEventArgs) Handles ATU.RetrieveDone
    Me.UpdateTimer.Enabled = False
    If e.Forums Is Nothing Then
        UpdateTopicListView(e.Results) ' Updates a list view and
                                       ' displays the popup.
    Else
        UpdateForumListView(e.Forums)
    End If
    Me.UpdateTimer.Enabled = True
End Sub

Private Sub UpdateTopicListView(ByVal Topics As ResultsCollection)
    For index As Integer = 0 To Topics.Count - 1
        ...
    Next
    Dim Message As String
    Message = "{0} new topic updates have been retrieved from {1}"
    Me.ShowPopup(String.Format(Message, Topics.Count, ClientSettings.WebURL))
End Sub


Private Sub ShowPopup(ByVal Message As String, Optional ByVal TimeOut As Integer = 0)
    Dim displaytime As Integer
    If TimeOut < 1000 Then
        displaytime = ClientSettings.PopupTime * 1000
    Else
        displaytime = TimeOut
    End If
    Dim PW As New PopupWindow
    PW.SetProperties(NewMessagePopup.Blend, Message, displaytime)
    PW.ShowPopup()
End Sub

Public Sub ShowPopup()
    Dim tbl As TaskBarLocation
    Dim workingArea As Rectangle
    Dim pt As Point

    pt = New Point
    pt.X = 0 : pt.Y = 0

    workingArea = SystemInformation.WorkingArea
    tbl = GetTaskBarLocation() ' Gets an enumerator
                               ' indicating the windows task bar
                               ' location.

    Select Case tbl
        Case TaskBarLocation.Bottom
            pt.X = workingArea.Right - Me.Width
            pt.Y = workingArea.Bottom - Me.Height
        Case TaskBarLocation.Left
            pt.X = workingArea.Left
            pt.Y = workingArea.Bottom - Me.Height
        Case TaskBarLocation.Right
            pt.X = workingArea.Right - Me.Width
            pt.Y = workingArea.Bottom - Me.Height
        Case TaskBarLocation.Top
            pt.X = workingArea.Right - Me.Width
            pt.Y = workingArea.Top
    End Select

    Me.Visible = False
    Me.Show()
    Me.Top = pt.Y
    Me.Left = pt.X
    Me.Visible = True
    tmrStartFade.Enabled = True ' Wait until elapsed to begin form fadeout
End Sub