Skip to main content

Delegates in VB.NET

Delegates in .NET Framework are equivalent to Function pointers in C and C++ language. Delegates helps in multithreaded application where one thread is accessing a UI element created by another thread.

For e.g. the follwoing code will always return an error of type "Cross-thread operation not valid: Control 'TextBox1' accessed from a thread other than the thread it was created on."

Imports System.Threading
Imports System.Reflection

Public Class Form1
    Private trd As Thread
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        trd = New Thread(AddressOf DoTask)
        trd.IsBackground = True
        trd.Start()

    End Sub

    Private Sub DoTask()
        Dim i As Integer
        i = 1
        While i <= 1000
            System.Console.WriteLine("the value of i is:" + i.ToString())
            i = i + 1
            Thread.Sleep(1000)
            TextBox1.Text = i.ToString()
        End While
    End Sub

In the above example the thread is invoking the textbox1 which is running under MainForm Thread. That's why we receive this error. This can be removed with the help of Delegates. The following code shows how to remove the above error and run the code:

Imports System.Threading
Imports System.Reflection

Public Class Form1
    Private trd As Thread

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        trd = New Thread(AddressOf DoTask)
        trd.IsBackground = True
        trd.Start()
    End Sub

    Private Sub DoTask()
        Dim i As Integer
        i = 1
        While i <= 1000
            System.Console.WriteLine("the value of i is:" + i.ToString())
            i = i + 1
            Thread.Sleep(1000)
            SetControlPropertyValue(TextBox1, "Text", i)
       End While
    End Sub

    Private Delegate Sub SetControlValueCallback(ByVal oControl As Control, ByVal propName As String, ByVal propValue As Object)

    Private Sub SetControlPropertyValue(ByVal oControl As Control, ByVal propName As String, ByVal propValue As Object)
        If oControl.InvokeRequired Then
            Dim d As New SetControlValueCallback(AddressOf SetControlPropertyValue)
            oControl.Invoke(d, New Object() {oControl, propName, propValue})
        Else
            Dim t As Type = oControl.[GetType]()
            Dim props As PropertyInfo() = t.GetProperties()
            For Each p As PropertyInfo In props
                If p.Name.ToUpper() = propName.ToUpper() Then
                    p.SetValue(oControl, propValue.ToString(), Nothing)
                End If
            Next
        End If
    End Sub

End Class

Comments

Post a Comment

Popular posts from this blog

How to use QueryExtenderControl in ASP.NET with LINQ

Queryextender control is a control that helps in doing actions like filtration, searching, sorting etc. on the LINQ Data source with few steps. In fact we don’t have to write any code with this. Screenshot given below is just an example that can easily be achieved through this control. In the above screenshot, we can see that there is a GridView Control that has been binded to a LINQData Source Control. And we have a DropDownlistBox that is also binded to another LINQData Source Control and displaying only grouped jobs. The GridView display all the employees who are matching the Job Parameter. This is done through QueryExtender Control. Also we can search for any name in the employee name's through Query Extender control. The code in the HTML goes like: < form id ="form1" runat ="server">     < div >         Select Job: < asp : DropDownList ID ="Job" runat ="server" DataSourceID ="LinqDataSource2...
Post a Comment
Read more

Using GUID or UniqueIdentifiers in SQL Server

In order to differentiate between two rows, we normally use primary keys or identity values which may be same across two tables. In order to overcome this problem we can use a special type named "GUID" . Its a hexadecimal number (Base 16) and the advantage is  that they are unique across all databases and tables.  In SQL Server the same concept is implemented through UNIQUEIDENTIFIER  data type. In order to generate a new value, we use the NEWID() function. For e.g.  a. Creating a table that uses the UNIQUEIDENTIFIER datatype Create table Test ( Empno uniqueidentifier, Ename varchar(20) ) b. Inserting rows in the tables with the use of NEWID() function insert into Test values (newId(),'ABC') insert into Test values (newid(),'XYZ') insert into test values (newid(),'MNO') c. Selecting the rows from the table. Select * from test  Empno                             ...
Post a Comment
Read more

How to Delete Record through Knex.

This post is all about of deleting records through KNEX ORM in Nodejs. The following code shows how to achieve this: knex("depts").where("deptno","50").del() .then(function (count) {     console.log(count); }) .finally(function () {     knex.destroy(); }); The above code deletes a record from a table "Depts" where Deptno = 50. It has a "then" Promise attached that will show how many records were deleted with this command. Also "finally" is the method that will always execute and will close the KNEX connection. Happy Coding !!!
Post a Comment
Read more