Visual Basic

C#Coudou wrote:

note: sometimes it goes successfully but sometimes got an error.

Bastard Programmer from Hell

Eddy Vluggen wrote:

Next time, include the message of the error. It can be quite helpful.

MicroVirus wrote:

Are you sure that the textbox control is actually *in* the groupbox? When debugging, check _ctrl.Parent to see if it refers to the groupbox.

MicroVirus wrote:

Also, PutRedRectangle can only be called once

Sub PutRedRectangle(ByVal _ctrl As Control)
    Dim canvas As New Microsoft.VisualBasic.PowerPacks.ShapeContainer
    Dim rect1 As New Microsoft.VisualBasic.PowerPacks.RectangleShape
    ' Set the form as the parent of the ShapeContainer.

    Dim _parent As Control = _ctrl.Parent
    rect1.Parent    = canvas
    canvas.Parent   = _parent
    canvas.Name     = "canvas_" + _ctrl.name
    ' Set the ShapeContainer as the parent of the RectangleShape.

    rect1.Width = _ctrl.Width + 2
    rect1.Height = _ctrl.Height + 2
    rect1.BorderWidth = 2
    ' Set the location and size of the rectangle.
    If TypeOf(_parent) is GroupBox 
        rect1.Left   = _ctrl.Left - 1  - _parent.Padding.Left 
        'rect1.Top   = _ctrl.Top  - 29 + (_parent.Margin.Top - _parent.Padding.Top) 'when using ms san seirf size 14
        rect1.Top    = _ctrl.Top  - 17 + (_parent.Margin.Top - _parent.Padding.Top) ' when using ms san seirf size 8
        rect1.BorderColor = Color.Red
    Else
        rect1.BorderColor = Color.Blue
        rect1.Left  = _ctrl.Left - 1 - _parent.Padding.Left
        rect1.Top   = _ctrl.Top  - 1 - _parent.Padding.Top
    End If
    canvas.SendToBack

End Sub
Sub RemoveRedRectangle(ByVal _ctrl As Control)
    Dim q = From c As Control In _ctrl.Parent.Controls Where c.Name.StartsWith("canvas_" + _ctrl.Name) Select c
    q.First.Dispose
    Me.Refresh
End Sub

This is how your app.config should look like:

<?xml version="1.0"?>
<configuration>
   <connectionStrings>
    <add name="ConnectWithWinAuth" connectionString="Data Source=pshukla4;Initial Catalog=AdventureWorks;Persist Security Info=False;Trusted_Connection=Yes;" providerName="System.Data.SqlClient"/>
   </connectionStrings>
  <appSettings>
  </appSettings>
</configuration>


The code in the calling method \ function should be something like this, I am using AdventureWorks DB that comes with SQL Server :

            List<Dept> departments = new List<Dept>();
            ConnectionStringSettings conString = ConfigurationManager.ConnectionStrings["ConnectWithWinAuth"];

            using (SqlConnection con = new SqlConnection(conString.ConnectionString))
            {
                con.Open();

                using (SqlCommand command = new SqlCommand("SELECT Name, GroupName FROM HumanResources.Department", con))
                {
                    SqlDataReader reader = command.ExecuteReader();
                    while (reader.Read())
                    {
                        string name = reader.GetString(1);
                        string grpName = reader.GetString(2);
                        departments.Add(new Dept() { DeptId = deptId, Name = name, GroupName = grpName });
                    }
                }
            }