Code Library

'Create a new ScheduleHourRange object to specify the format style settings and the

'time and days when the format style will be applied

Dim hourRange As New ScheduleHourRange()



'Specify the start and end time that you want to format     

hourRange.EndTime = New TimeSpan(10, 0, 0)

hourRange.StartTime = New TimeSpan(8, 0, 0)



'Specify the days of the week that you want to format

hourRange.DayOfWeek = ScheduleDayOfWeek.Monday Or ScheduleDayOfWeek.Tuesday Or _

  ScheduleDayOfWeek.Wednesday Or ScheduleDayOfWeek.Thursday Or ScheduleDayOfWeek.Friday



'Set the format style that you want to apply

hourRange.FormatStyle.BackColor = Color.Red



'Add the ScheduleHourRange to the WorkingHoursRange collection of the WorkingHourSchema

Me.Schedule1.WorkingHourSchema.WorkingHoursRange.Add(hourRange)

//Create a new ScheduleHourRange object to specify the format style settings and the

//time and days when the format style will be applied

ScheduleHourRange hourRange = new ScheduleHourRange();



//Specify the start and end time that you want to format     

hourRange.EndTime = new TimeSpan(10, 0, 0);

hourRange.StartTime = new TimeSpan(8, 0, 0);



//Specify the days of the week that you want to format

hourRange.DayOfWeek = ScheduleDayOfWeek.Monday | ScheduleDayOfWeek.Thursday | ScheduleDayOfWeek.Wednesday | ScheduleDayOfWeek.Thursday | ScheduleDayOfWeek.Friday;



//Set the format style that you want to apply

hourRange.FormatStyle.BackColor = Color.Red;



//Add the ScheduleHourRange to the WorkingHoursRange collection of the WorkingHourSchema

this.Schedule1.WorkingHourSchema.WorkingHoursRange.Add(hourRange);

'Create a new WorkingHourException

Dim exception As New WorkingHourException()



'Specify the date range where you want to give the format

'Note: The date range must be of at least one day, and use the StartTime and EndTime 'properties of the HourRange to set the time of the day where the format will be applied

exception.DateRange = New DateRange(New DateTime(2006, 1, 15), New DateTime(2006, 1, 16))



'Specify the start and end time that you want to format        exception.HourRange.EndTime = New TimeSpan(14, 0, 0)

exception.HourRange.StartTime = New TimeSpan(10, 0, 0)

'Set the format style that you want to apply

exception.HourRange.FormatStyle.BackColor = Color.Red



'Add the WorkingHourException to the Exceptions collection of the WorkingHourSchema

Me.Schedule1.WorkingHourSchema.Exceptions.Add(exception)

//Create a new WorkingHourException

WorkingHourException exception = new WorkingHourException();



//Specify the date range where you want to give the format

//Note: The date range must be of at least one day, and use the StartTime and EndTime //properties of the HourRange to set the time of the day where the format will be applied

exception.DateRange = new DateRange(new DateTime(2006, 1, 16), new DateTime(2006, 1, 17));



//Specify the start and end time that you want to format     

exception.HourRange.EndTime = new TimeSpan(14, 0, 0);

exception.HourRange.StartTime = new TimeSpan(10, 0, 0);

//Set the format style that you want to apply

exception.HourRange.FormatStyle.BackColor = Color.Green;



//Add the WorkingHourException to the Exceptions collection of the WorkingHourSchema

this.Schedule1.WorkingHourSchema.Exceptions.Add(exception);

Dim recurrencePattern As New WorkingHourRecurrencePattern()

'Call the BeginEdit before changing the properties of the RecurrencePattern

recurrencePattern.BeginEdit()





'Specify the recurrence pattern. In this case the 10th of every month is the date that 'will be formatted

recurrencePattern.SetDefaultValuesForDate(DateTime.Today)

recurrencePattern.PatternStartDate = DateTime.Today

recurrencePattern.RecurrenceEndMode = RecurrenceEndMode.NoEndDate

recurrencePattern.RecurrenceType = RecurrenceType.Monthly

recurrencePattern.StartTime = New TimeSpan(8, 0, 0)

recurrencePattern.EndTime = New TimeSpan(10, 0, 0)

recurrencePattern.DayOfMonth = 10



recurrencePattern.EndEdit()



'Create the new ScheduleHourRange that will be added to the WorkingHourSchema

Dim hourRange As New ScheduleHourRange()



'Set the RecurrencePattern that will be used

hourRange.RecurrencePattern = recurrencePattern



'Set the format style that you want to apply

hourRange.FormatStyle.BackColor = Color.Red



'Add the ScheduleHourRange to the WorkingHourSchema of the Schedule

Me.Schedule1.WorkingHourSchema.WorkingHoursRange.Add(hourRange)

WorkingHourRecurrencePattern recurrencePattern = new WorkingHourRecurrencePattern();

//Call the BeginEdit before changing the properties of the RecurrencePattern

recurrencePattern.BeginEdit();



//Specify the recurrence pattern. In this case the 10th of every month is the date that //will be formatted

recurrencePattern.SetDefaultValuesForDate(DateTime.Today);

recurrencePattern.PatternStartDate = DateTime.Today;

recurrencePattern.RecurrenceEndMode = RecurrenceEndMode.NoEndDate;

recurrencePattern.RecurrenceType = RecurrenceType.Monthly;

recurrencePattern.StartTime = new TimeSpan(8, 0, 0);

recurrencePattern.EndTime = new TimeSpan(10, 0, 0);

recurrencePattern.DayOfMonth = 10;



recurrencePattern.EndEdit();



//Create the new ScheduleHourRange that will be added to the WorkingHourSchema

ScheduleHourRange hourRange = new ScheduleHourRange();



//Set the RecurrencePattern that will be used

hourRange.RecurrencePattern = recurrencePattern;



//Set the format style that you want to apply

hourRange.FormatStyle.BackColor = Color.Red;



//Add the ScheduleHourRange to the WorkingHourSchema of the Schedule

this.Schedule1.WorkingHourSchema.WorkingHoursRange.Add(hourRange);

Dim owner As ScheduleAppointmentOwner = Me.Schedule1.Owners(0)

owner.WorkingHourSchema.WorkingHoursRange.Add(hourRange)

ScheduleAppointmentOwner owner = this.Schedule1.Owners[0];

owner.WorkingHourSchema.WorkingHoursRange.Add(hourRange);

   Private Sub LoadLayout()

       Dim layoutDir As String = "C:\ScheduleLayout.xml"

       Dim layoutStream As FileStream = New FileStream(layoutDir, FileMode.Open)

       Schedule1.LoadLayoutFile(layoutStream)

       layoutStream.Close()

   End Sub

   private void LoadLayout()

   {

      string layoutDir = @"C:\ScheduleLayout.xml";

      FileStream layoutStream;

      FileInfo fInfo = new FileInfo(layoutDir);

      if (fInfo.Exists)

      {

          layoutStream = new FileStream(layoutDir, FileMode.Open);

          schedule1.LoadLayoutFile(layoutStream);

          layoutStream.Close();

      }

   }

   Private Sub Schedule1_CurrentLayoutChanging(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles Schedule1.CurrentLayoutChanging

       'To persist user changes in the current layout,

       'call the Update method explicitly before changing the layout

       If Not Schedule1.CurrentLayout Is Nothing Then

           Schedule1.CurrentLayout.Update()

       End If

   End Sub

   private void schedule1_CurrentLayoutChanging(object sender, System.ComponentModel.CancelEventArgs e)

   {

       //To persist user changes in the current layout,

       //call the Update method explicitly before changing the layout

       if (schedule1.CurrentLayout != null)

       {

           schedule1.CurrentLayout.Update();

       }

    }

Private Sub Form1_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing

   Dim Result As DialogResult

   Dim LayoutDir As String

   Dim LayoutStream As FileStream



   Result = MessageBox.Show("Do you want to preserve the changes in the Schedule control layout?", "Preserve changes", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question)

   If Result = Windows.Forms.DialogResult.Cancel Then

       e.Cancel = True

   ElseIf Result = Windows.Forms.DialogResult.Yes Then

       LayoutDir = "C:\ScheduleLayout.xml"

       LayoutStream = New FileStream(LayoutDir, FileMode.Open)

       Schedule1.SaveLayoutFile(LayoutStream)

       LayoutStream.Close()

   End If

End Sub

private void Form1_FormClosing(object sender, FormClosingEventArgs e)

{   



    DialogResult result;

    string layoutDir;

    FileStream layoutStream;



    result = MessageBox.Show("Do you want to preserve the changes in the Schedule control layout?", "Preserve changes", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question);



     if (result == DialogResult.Cancel)

     {

         e.Cancel = true;

     }

     else if (result == DialogResult.Yes)

     {

         layoutDir = + @"C:\ScheduleLayout.xml";

         layoutStream = new FileStream(layoutDir, FileMode.Open);

         schedule1.SaveLayoutFile(layoutStream);

         layoutStream.Close();

      }

  }

If Schedule1.CurrentLayout Is Nothing OrElse Schedule1.CurrentLayout.Key <> "MonthView" Then

    Schedule1.CurrentLayout = Schedule1.Layouts("MonthView")

End If

if (schedule1.CurrentLayout==null || schedule1.CurrentLayout.Key!="MonthView")

{

  schedule1.CurrentLayout = schedule1.Layouts["MonthView"];

}

     this.Cursor = Cursors.WaitCursor;

     string appointmentsDir = @"C:\Appointments.xml";

     System.IO.FileStream appointmentsStream;

     appointmentsStream = new System.IO.FileStream(appointmentsDir, System.IO.FileMode.Create);

     schedule1.SaveAppointments(appointmentsStream);

     appointmentsStream.Close();

     this.Cursor = Cursors.Default;

     Me.Cursor = Cursors.WaitCursor

     Dim appointmentsDir As String = "C:\Appointments.xml"

     Dim appointmentsStream As System.IO.FileStream

     appointmentsStream = New System.IO.FileStream(appointmentsDir, System.IO.FileMode.Create)

     Schedule1.SaveAppointments(appointmentsStream)

     appointmentsStream.Close()

     Me.Cursor = Cursors.Default           

       Me.Cursor = Cursors.WaitCursor

       Dim AppointmentsDir As String = "C:\Appointments.xml"

       Dim AppointmentsStream As System.IO.FileStream

       AppointmentsStream = New System.IO.FileStream(AppointmentsDir, System.IO.FileMode.Open)

       Schedule1.LoadAppointments(AppointmentsStream)

       AppointmentsStream.Close()

       Me.Cursor = Cursors.Default

           this.Cursor = Cursors.WaitCursor;

           string appointmentsDir = @"C:\Appointments.xml";

           System.IO.FileStream appointmentsStream;

           appointmentsStream = new System.IO.FileStream(appointmentsDir, System.IO.FileMode.Open);

           schedule1.LoadAppointments(appointmentsStream);

           appointmentsStream.Close();

           this.Cursor = Cursors.Default;

DateTime startDate = this.schedule1.Date.AddHours(8);



ScheduleAppointment app1 = new ScheduleAppointment(startDate, startDate.AddMinutes(30), "Phone Call");

ScheduleAppointment app2 = new ScheduleAppointment(startDate, startDate.AddMinutes(30), "Go to the dentist");



//The Owner property of the Appointment must be equal to the Value property of //one of the AppointmentOwners in the Schedule control.

app1.Owner = "Doe";

app2.Owner = "Barker";



this .schedule1.Appointments.Add(app1);

this .schedule1.Appointments.Add(app2);

Dim startDate As DateTime = Me.Schedule1.Date.AddHours(8)



Dim app1 As ScheduleAppointment = New ScheduleAppointment(startDate, startDate.AddMinutes(30), "Phone Call")

Dim app2 As ScheduleAppointment = New ScheduleAppointment(startDate, startDate.AddMinutes(30), "Go to the dentist")



'The Owner property of the Appointment must be equal to the Value property of

'one of the AppointmentOwners in the Schedule control.

app1.Owner = "Doe"

app2.Owner = "Barker"



Me.Schedule1.Appointments.Add(app1)

Me.Schedule1.Appointments.Add(app2)

      Schedule = schedule1

      SelectionStyle = Schedule

          DataSource = scheduleDataSet1

          DataMember = Appointments

          StartTimeMember = StartDate

          EndTimeMember = EndDate

          TextMember = Subject

                              Me.AppointmentsTableAdapter1.Fill(Me.ScheduleDataSet1.Appointments)

                              this.appointmentsTableAdapter1.Fill(this.scheduleDataSet1.Appointments)

   Private Sub LoadLayout()
       Dim LayoutDir As String = GetLayoutDirectory() + "\ExplorerBarLayout.ebl"
       Dim LayoutStream As FileStream
       LayoutStream = New FileStream(LayoutDir, FileMode.Open)
       ExplorerBar1.LoadLayoutFile(LayoutStream)
       LayoutStream.Close()
   End Sub

   private void LoadLayout()
   {
       string layoutDir = GetLayoutDirectory() + @"\ExplorerBarLayout.ebl";
       FileStream layoutStream;
       layoutStream = new FileStream(layoutDir, FileMode.Open);
       explorerBar1.LoadLayoutFile(layoutStream);
       layoutStream.Close();
   }

   Private Sub SaveLayout()
       Dim LayoutDir As String = GetLayoutDirectory() + "\ExplorerBarLayout.ebl"
       Dim LayoutStream As FileStream
       LayoutStream = New FileStream(LayoutDir, FileMode.Create)
       ExplorernBar1.SaveLayoutFile(LayoutStream)
       LayoutStream.Close()
   End Sub

   private void SaveLayout()
   {
       string layoutDir = GetLayoutDirectory() + @"\ExplorerBarLayout.bbl";
       FileStream layoutStream;
       layoutStream = new FileStream(layoutDir, FileMode.Create);
       explorerBar1.SaveLayoutFile(layoutStream);
       layoutStream.Close();
   }

       If Not ExplorerBar1.CurrentLayout Is Nothing Then
           ExplorerBar1.CurrentLayout.Update()
       End If

       if(explorerBar1.CurrentLayout!=null)
       {
           explorerBar1.CurrentLayout.Update();
       }

private void Form1_Load(object sender, System.EventArgs e)
{   
       this.explorerBar1.Groups[0].ContainerControl.Controls.Add(this.treeView1);
this.treeView1.Dock = DockStyle.Fill;
}

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles _
MyBase.Load
       Me.ExplorerBar1.Groups(0).ContainerControl.Controls.Add(Me.TreeView1)
       Me.TreeView1.Dock = DockStyle.Fill
End Sub

           DataSource = GridEXTutorialsDataDataSet1

           DataMember = Messages

                       MessagesTableAdapter1.Fill(GridEXTutorialsDataDataSet1.Messages)

                       messagesTableAdapter1.Fill(gridEXTutorialsDataDataSet1.Messages);

   private void CreateMessage(object parentId,string subject)

   {

       MessageDialog message = new MessageDialog();

       message.Subject = subject;

       if (message.ShowDialog() == DialogResult.OK)

       {

          //Add a new message row to the dataset

          GridEXTutorialsDataDataSet.MessagesRow newMessage;



          newMessage = gridEXTutorialsDataDataSet1.Messages.NewMessagesRow();

          newMessage.Subject = message.Subject;

          if (message.From.Length == 0)

          {

             newMessage.From = "ANONIMOUS";

          }

          else

          {

             newMessage.From = message.From;

          }

          newMessage.Message = message.Message;

          newMessage.Date = DateTime.Now;

          if (parentId != null)

          {

              newMessage.ParentMessageID = (int)parentId;

          }

          //Add the row to the dataset and it will be displayed

          //automatically in the grid.

          gridEXTutorialsDataDataSet1.Messages.Rows.Add(newMessage);

          //Select the new row in grid

          gridEX1.MoveTo(gridEX1.GetRow(newMessage));

          gridEX1.Focus();
        }

 }

btnNewMessage    (Text = "New Message...")



    In the Click event, a new message with no parent is created as follows:

  

     CreateMessage(null, "New Message");



btnReplyMessage  (Text = "Reply Message...")



    In the Click event, a message with the selected row id as parent is created as follows:





     if (gridEX1.CurrentRow != null &&

         gridEX1.CurrentRow.RowType == RowType.Record)

     {

        CreateMessage(gridEX1.GetValue("MessageID"), "RE: " + gridEX1.GetValue("Subject"));

     }

     else

     {

         MessageBox.Show("Select the message to reply." , "",MessageBoxButtons.OK,MessageBoxIcon.Exclamation);

 }

  

btnDelete              (Text = "Delete Message")



  In the Click event, the selected message is deleted as follows:



    if (gridEX1.CurrentRow != null &&

        gridEX1.CurrentRow.RowType == RowType.Record)

    {

        gridEX1.Delete();

    }

    else

    {

        MessageBox.Show("Select the message you want to delete", "", MessageBoxButtons.OK, MessageBoxIcon.Exclamation);

}

AllowEdit = False

AllowDelete = True             To be able to use GridEX.Delete method

HideSelection = Highlight     To see the selected row even when grid is not focused.

  DataTypeCode = DateTime

  FormatString = d

  DefaultGroupInterval = Date

    //Add a new row at the end of the list specifying its cell values.

    GridEXRow newRow = this.gridEX1.AddItem();

    //To edit values in cells of a row, call BeginEdit/EndEdit methods

    newRow.BeginEdit();

    newRow.Cells["Name"].Value = "InsertItem";

    newRow.Cells["Date"].Value = DateTime.Now;

    newRow.EndEdit();

    //Move to the new item

   this.gridEX1.MoveTo(newRow);

    //Insert the item at the beginning of the list.

    GridEXRow newRow = this.gridEX1.AddItem(0);

    //To edit values in cells of a row, call BeginEdit/EndEdit methods

    newRow.BeginEdit();

    newRow.Cells["Name"].Value = "InsertItem";

    newRow.Cells["Date"].Value = DateTime.Now;

    newRow.EndEdit();

    //Move to the new item

    gridEX1.MoveTo(newRow);

     //Get current row

     GridEXRow item = gridEX1.CurrentRow;

     If (item != null && item.RowType == RowType.Record)

     {
         //Delete the row.

         item.Delete();
     }

     else

     {
         MessageBox.Show("Select an item to delete.");
     }

     //Clear all items in GridEX

     this.gridEX1.ClearItems();

     this.gridEX1.AddItem("Item 1", DateTime.Now);

     this.gridEX1.AddItem("Item 2", DateTime.Now);

     this.gridEX1.AddItem("Item 3", DateTime.Now);

     this.gridEX1.AddItem("Item 4", DateTime.Now);

     this.gridEX1.AddItem("Item 5", DateTime.Now);

     this.gridEX1.Row = 0;

           Step 1:

                       "Selector Column"

                       UseHeaderSelector = True

           Add Column Wizard:



  Step 1:

   "Unbound Column"

   BoundMode: UnboundFetch

   Key = "Icon"



  Step 2:

   Caption  = ""

   ColumnType = Image

   EditType = NoEdit



  After finishing the wizard, set these properties:



   AllowSize = False

   ImageIndex = 0

   Selectable = False

   Width = 20

  Add Column Wizard:



             Step 1:

    "Bound Column"

    DataMember = "From"

                     

                       Step 2:

    Caption  = "From"

    ColumnType = Text

    EditType = NoEdit

                                 

                       After finishing the wizard, set these properties:
                  
                        Selectable = False

  Add Column Wizard:



             Step 1:

    "Bound Column"

    DataMember = "Subject"

                     

                       Step 2:

    Caption  = "Subject"

    ColumnType = Text

    EditType = NoEdit

                                 

                       After finishing the wizard, set these properties:

                        Selectable = False

  Add Column Wizard:



             Step 1:

    "Bound Column"

    DataMember = "Date"

                     

                       Step 2:

    Caption  = "Date"

    ColumnType = Text

    EditType = NoEdit

                                 

                       After finishing the wizard, set these properties:

          Selectable = False

   Private Sub BindGridEXControl()

       Dim ds As New DataSet()

       Dim table As New DataTable("Messages")

       table.Columns.Add(New DataColumn("From", Type.GetType("System.String")))

       table.Columns.Add(New DataColumn("Subject", Type.GetType("System.String")))

       table.Columns.Add(New DataColumn("Date", Type.GetType("System.DateTime")))

       ds.Tables.Add(table)

       table.Rows.Add(New Object() {"john@mail.com", "Greetings", New DateTime(2002, 2, 5)})

       table.Rows.Add(New Object() {"jenny@mail.com", "Invitation", New DateTime(2002, 2, 7)})

       table.Rows.Add(New Object() {"chris@mail.com", "A question", New DateTime(2002, 2, 10)})

       table.Rows.Add(New Object() {"ana@mail.com",  "How are you?", New DateTime(2002, 2, 12)})

       table.Rows.Add(New Object() {"katherine@mail.com", "Greetings", New DateTime(2002, 2, 14)})

       table.Rows.Add(New Object() {"bill@mail.com", "Hi", New DateTime(2002, 2, 18)})

       table.Rows.Add(New Object() {"ronald@mail.com", "No Subject", New DateTime(2002, 2, 20)})

       Me.GridEX1.SetDataBinding(ds, "Messages")

End Sub

private void BindGridEXControl()
{
 DataSet ds = new DataSet();

 DataTable table = new DataTable("Messages");

 table.Columns.Add(new DataColumn("From", typeof(string)));

 table.Columns.Add(new DataColumn("Subject", typeof(string)));

 table.Columns.Add(new DataColumn("Date", typeof(DateTime)));

 ds.Tables.Add(table);

 table.Rows.Add(new Object[] {"john@mail.com", Greetings", new DateTime(2002, 2, 5)});

 table.Rows.Add(new Object[] {"jenny@mail.com", "Invitation", new DateTime(2002, 2, 7)});

 table.Rows.Add(new Object[] {"chris@mail.com", "A question", new DateTime(2002, 2, 10)});

 table.Rows.Add(new Object[] {"ana@mail.com", "How are you?", new DateTime(2002, 2, 12)});

 table.Rows.Add(new Object[] {"katherine@mail.com", "Greetings", new DateTime(2002, 2, 14)});

 table.Rows.Add(new Object[] {"bill@mail.com", "Hi", new DateTime(2002, 2, 18)});

 table.Rows.Add(new Object[] {"ronald@mail.com", "No Subject", new DateTime(2002, 2, 20)});

     this.GridEX1.SetDataBinding(ds, "Messages");                

}

   Dim checkedRows() As Janus.Windows.GridEX.GridEXRow

   'get an array with all the rows that the user checked.

   checkedRows = Me.GridEX1.GetCheckedRows()

   'if the user didn't check any row, you will get an empty array      

   If checkedRows.Length = 0 Then

       MessageBox.Show("Select at least 1 message to be deleted.")

   Else

       Dim message As String

       message = String.Format("You are about to delete {0} message(s)." _

                   & vbCrLf & "Do you want to continue?", checkedRows.Length)

       If MessageBox.Show(message, "Janus Tutorial", MessageBoxButtons.YesNo) = DialogResult.Yes Then

           Dim row As Janus.Windows.GridEX.GridEXRow

           For Each row In checkedRows
               CType(row.DataRow, DataRowView).Delete()
           Next

       End If

   End If

     Janus.Windows.GridEX.GridEXRow[] checkedRows;

           //get an array with all the rows that the user checked.

           checkedRows = this.GridEX1.GetCheckedRows();

           //if the user didn't check any row, you will get an empty array

           if(checkedRows.Length==0)

           {
  MessageBox.Show("Select at least 1 message to be deleted.");
           }

           else

           {
  string message;

  message = String.Format("You are about to delete {0} message(s)." +

     "\n\rDo you want to continue?", checkedRows.Length);

  if(MessageBox.Show(message, "Janus Tutorial", MessageBoxButtons.YesNo) == DialogResult.Yes)

  {

      foreach(Janus.Windows.GridEX.GridEXRow row in checkedRows)

      {

   ((DataRowView)row.DataRow).Delete();

      }

  }

           }

                       If e.Row.RowType = RowType.Record Then

                                   e.Row.Cells("Total").Value = totalValue

                       End If

                       if(e.Row.RowType==RowType.Record)

                       {

                                   e.Row.Cells["Total"].Value = totalValue;

                       }

  Private Sub GridEX1_FormattingRow(ByVal sender As System.Object, _

       ByVal e As RowLoadEventArgs) Handles GridEX1.FormattingRow

       If e.Row.RowType = RowType.Record Then

           If CType(e.Row.Cells("Discontinued").Value, Boolean) Then

               e.Row.Cells("StatusIcon").ImageKey = "discontinued"

           ElseIf CType(e.Row.Cells("OnSale").Value, Boolean) Then

               e.Row.Cells("StatusIcon").ImageKey = "onsale"

           End If

       End If

   End Sub

   private void GridEX1_FormattingRow(object sender, RowLoadEventArgs e)

   {

       if (e.Row.RowType == RowType.Record)

       {

           if ((bool)e.Row.Cells["Discontinued"].Value)

           {

               e.Row.Cells["StatusIcon"].ImageKey = "discontinued";

           }

           else if ((bool)e.Row.Cells["OnSale"].Value)

           {

               e.Row.Cells["StatusIcon"].ImageKey = "onsale";

           }

       }

   }

 Dim categories As GridEXColumn

       categories = GridEX1.RootTable.Columns("CategoryID")

       categories.HasValueList = True

       categories.ColumnType = ColumnType.ImageAndText

       categories.EditType = EditType.DropDownList

       Dim ValueList As GridEXValueListItemCollection

       ValueList = categories.ValueList

       Dim row As JSNorthWindDataSet.CategoriesRow

       For Each row In JSNorthWindDataSet.Categories.Rows

           Dim item As GridEXValueListItem

           item = New GridEXValueListItem(row.CategoryID, _

                                       row.CategoryName)

           'set image Key for items

           item.ImageKey = "Cat(" & row.CategoryID & ")"

           ValueList.Add(item)

       Next

   GridEXColumn categories = this.gridEX1.RootTable.Columns["CategoryID"];

   //To be able to get the ValueList from a column, its

   //HasValueList property must be true

   categories.HasValueList = true;

   categories.ColumnType = ColumnType.ImageAndText;

   categories.EditType = EditType.DropDownList;

   GridEXValueListItemCollection ValueList = categories.ValueList;



   //Categories table in the dataset was added as

   //the products table was added before

   foreach(NorthWind.CategoriesRow row in this.northWind1.Categories.Rows)

   {

       GridEXValueListItem item;

       item=new GridEXValueListItem(row.CategoryID,row.CategoryName);

       if(row.CategoryID<=8)              {                 //set image index for items 1 - 8                 //images start from 0 in the image list                 item.ImageIndex = row.CategoryID - 1;              }              ValueList.Add(item);      } 

       'Creating the collection

       people = New PersonCollection()

       people.Add(New Person("Mr.", "John", "Smith", "Sr."))

       people.Add(New Person("Mrs.", "Mary", "Jones", ""))

       people.Add(New Person("Miss", "Sally", "Porter", ""))

       people.Add(New Person("Mr.", "Joseph", "Gold", "Jr."))

       people.Add(New Person("Dr.", "Ian", "Goldsmith", ""))



       'Binding GridEX to the people collection

       gridEX1.SetDataBinding(people, "")

       'Forcing GridEX control to generate the columns needed

       'to display all the properties in the Person class.

       gridEX1.RetrieveStructure()

           //Creating the collection

           people = new PersonCollection();

           people.Add(new Person("Mr.","John","Smith","Sr."));

           people.Add(new Person("Mrs.","Mary","Jones",""));

           people.Add(new Person("Miss","Sally","Porter",""));

           people.Add(new Person("Mr.","Joseph","Gold","Jr."));

           people.Add(new Person("Dr.","Ian","Goldsmith",""));



           //Binding GridEX to the people collection

           gridEX1.SetDataBinding(people,"");

           //Forcing GridEX control to generate the columns needed

           //to display all the properties in the Person class.

         gridEX1.RetrieveStructure();

           AllowAddNew = Janus.Windows.GridEX.TriState.True

           AllowDelete = Janus.Windows.GridEX.TriState.True

Private Sub gridEX1_GetNewRow(ByVal sender As Object,ByVal e As GetNewRowEventArgs) Handles gridEX1.GetNewRow

 e.NewRow = New Person()

End Sub

private void gridEX1_GetNewRow(object sender, GetNewRowEventArgs e)

{

 e.NewRow = new Person();

}

       'For the sample, we will use BackColor Yellow in the TextBox

       'if the cell is in a new row

       If e.Row.RowType = RowType.NewRecord Then

           txtCustom.BackColor = Color.Yellow

       Else

           txtCustom.BackColor = e.FormatStyle.BackColor

       End If



       'When the user start edition by pressing a key,

       'the EditChar property holds the char that

       'started the edition. If edition was started

       'because the user clicked in the cell the

       'EditChar returns (char)0

       If Char.IsLetterOrDigit(e.EditChar) Then

           txtCustom.Text = e.EditChar.ToString()

           txtCustom.SelectionStart = txtCustom.Text.Length

       Else

           If e.Value Is Nothing Then

               txtCustom.Text = ""

           Else

               txtCustom.Text = e.Value.ToString()

           End If

           txtCustom.SelectionLength = txtCustom.Text.Length

       End If

       'Set the EditControl property to let the GridEX control

       'know which control to position in the cell.

       e.EditControl = txtCustom

           //For the sample, we will allow to edit

    //the CustomerID field only in new rows.

        //So, we set the ReadOnly property to false

           //if rows with RowType set to Record.

           if(e.Row.RowType==RowType.NewRecord)

           {

                       txtCustom.ReadOnly=false;

           }

           else

           {

                       txtCustom.ReadOnly = true;

           }

            //When the user start edition by pressing a key,

     //the EditChar property holds the char that started

     //the edition. If edition was started because the

     //user clicked in the cell the EditChar

           //returns (char)0

           if(e.EditChar!=(char)0 && !txtCustom.ReadOnly)

           {

                       txtCustom.Text = e.EditChar.ToString();

                       txtCustom.SelectionStart = txtCustom.Text.Length;

           }

           else

           {

                       if(e.Value==null)

                       {

                                   txtCustom.Text = "";

                       }

                       else

                       {

                                   txtCustom.Text = e.Value.ToString();

                       }

                       txtCustom.SelectionLength = txtCustom.Text.Length;

           }

           //Set the EditControl property to let the GridEX control

           //know which control to position in the cell.

           e.EditControl = txtCustom;

       If Not e.CancelUpdate Then

           If e.Value <> txtCustom.Text Then

               e.Value = txtCustom.Text

           End If

       End If

 //Compare the original value with

 //the value in the control.

 if(txtCustom.Text.CompareTo(e.Value)!=0)

 {
     //If the value is different,

     //set the DataChanged property to true

     //to indicate the control that it has

     //to update the cell value.

     e.DataChanged = true;

     e.Value = txtCustom.Text;
 }

   Private Sub LoadLayout()

       Dim LayoutDir As String = GetLayoutDirectory() + "\GridEXLayout.gxl"

       Dim LayoutStream As FileStream

       LayoutStream = New FileStream(LayoutDir, FileMode.Open)

       GridEX1.LoadLayoutFile(LayoutStream)

       LayoutStream.Close()

   End Sub

    private void LoadLayout()

    {

        string layoutDir = GetLayoutDirectory() + @"\GridEXLayout.gxl";

        if (FileExists(layoutDir))

        {

             FileStream layoutStream;

             layoutStream = new FileStream(layoutDir, FileMode.Open);

             GridEX1.LoadLayoutFile(layoutStream);

             layoutStream.Close();

        }

    }

   Private Sub GridEX1_CurrentLayoutChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles GridEX1.CurrentLayoutChanged

       'clear the DataTable used by the previous layout

       JsNorthWindDataSet1.Clear()

       'when layouts are persisted into a file,

       'the DataSource and DataMember properties are

       'not persisted so you must reset them at run time

       'instead of resetting the DataSource and DataMember

       'properties when the layout is made, this could be done

       'in all the layouts at once in the LayoutLoad event

       If Not GridEX1.CurrentLayout Is Nothing Then

           Select Case GridEX1.CurrentLayout.Key

               Case "Customers"

                   CustomersTableAdapter1.Fill(JsNorthWindDataSet1.Customers)

                   GridEX1.SetDataBinding(JsNorthWindDataSet1, "Customers")

               Case "Products"

                   ProductsTableAdapter1.Fill(JsNorthWindDataSet1.Products)

                   GridEX1.SetDataBinding(JsNorthWindDataSet1, "Products")

               Case "Suppliers"

                   SuppliersTableAdapter1.Fill(JsNorthWindDataSet1.Suppliers)

                   GridEX1.SetDataBinding(JsNorthWindDataSet1, "Suppliers")

           End Select

       End If



   End Sub

   private void GridEX1_CurrentLayoutChanged(object sender, EventArgs e)

   {

       //clear the DataTable used by the previous layout

       jsNorthWindDataSet1.Clear();



       //When layouts are persisted into a file,

       //the DataSource and DataMember properties are

       //not persisted so you must reset them at run time

       //instead of resetting the DataSource and DataMember

       //properties when the layout is made, this could be done

       //in all the layouts at once in the LayoutLoad event

       if (GridEX1.CurrentLayout != null)

       {

           switch (GridEX1.CurrentLayout.Key)

           {

               case "Customers":

                  customersTableAdapter1.Fill(jsNorthWindDataSet1.Customers);

                  GridEX1.SetDataBinding(jsNorthWindDataSet1, "Customers");

                  break;

               case "Products":

                  productsTableAdapter1.Fill(jsNorthWindDataSet1.Products);

                  GridEX1.SetDataBinding(jsNorthWindDataSet1, "Products");

                  break;

               case "Suppliers":

                  suppliersTableAdapter1.Fill(jsNorthWindDataSet1.Suppliers);

                  GridEX1.SetDataBinding(jsNorthWindDataSet1, "Suppliers");

                  break;

           }

       }

   }

   Private Sub GridEX1_CurrentLayoutChanging(ByVal sender As Object, _

       ByVal e As System.ComponentModel.CancelEventArgs) Handles _

       GridEX1.CurrentLayoutChanging

       'to persist user changes in the current layout,

       'call the Update method explicitly before changing the layout

       If Not GridEX1.CurrentLayout Is Nothing Then

           GridEX1.CurrentLayout.Update()

       End If

   End Sub

   private void gridEX1_CurrentLayoutChanging(object sender, System.ComponentModel.CancelEventArgs e)

   {

       //to persist user changes in the current layout,

       //call the Update method explicitly before changing the layout

       if(gridEX1.CurrentLayout!=null)

       {

           gridEX1.CurrentLayout.Update();

       }

   }

   Protected Overrides Sub OnClosing(ByVal e As System.ComponentModel.CancelEventArgs)

        Dim Result As DialogResult

        Dim LayoutDir As String

        Dim LayoutStream As FileStream





        Result = MessageBox.Show("Do you want to preserve the changes in the _

                                 GridEX control layout?", "Preserve changes", _

                                 MessageBoxButtons.YesNoCancel, _

                                 MessageBoxIcon.Question)

       If Result = DialogResult.Cancel Then

           e.Cancel = True

       ElseIf Result = DialogResult.Yes Then

           LayoutDir = GetLayoutDirectory() + "\GridEXLayout.gxl"

           LayoutStream = New FileStream(LayoutDir, FileMode.Create)

           GridEX1.SaveLayoutFile(LayoutStream)

           LayoutStream.Close()

       End If

   End Sub

   protected override void OnClosing(CancelEventArgs e)

   {

       base.OnClosing(e);

       DialogResult result;

       string layoutDir;

       FileStream layoutStream;



       result = MessageBox.Show("Do you want to preserve the changes in " +

               "the GridEX control layout?", "Preserve changes",

               MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question);

       if (result == System.Windows.Forms.DialogResult.Cancel)

       {

           e.Cancel = true;

       }

       else if (result == System.Windows.Forms.DialogResult.Yes)

       {

           DirectoryInfo dInfo;

           dInfo = new DirectoryInfo(Application.ExecutablePath).Parent;

           dInfo = new DirectoryInfo(dInfo.FullName + @"\LayoutData");

           if (!dInfo.Exists) dInfo.Create();

           layoutDir = dInfo.FullName + @"\GridEXLayout.gxl";

           layoutStream = new FileStream(layoutDir, FileMode.Create);

           GridEX1.SaveLayoutFile(layoutStream);

           layoutStream.Close();

       }

   }