DirectionsForm

DirectionsForm.cs

using ESRI.ArcGIS.DataSourcesFile;

namespace RoutingSample
{
	public partial class DirectionsForm : System.Windows.Forms.Form
	{

	#region  Windows Form Designer generated code 

		public DirectionsForm() : base()
		{

			//This call is required by the Windows Form Designer.
			InitializeComponent();

		}

	#endregion

	#region Public methods

		// Clears Directions text
		public void Init()
		{
			m_txtDirections.Text = "";
		}

		// Fills text box
		public void Init(ISMDirections objDirections)
		{
			int nCount = objDirections.Count;

			string strText = null;

			// Totals
			strText = objDirections.TotalsText + System.Environment.NewLine + System.Environment.NewLine;

			// Add text for each Direction
			for (int i = 0; i < nCount; i++)
			{
				SMDirItem objItem = null;
				objItem = objDirections.get_Item(i);

				// Direction text
				strText = strText + objItem.Text + System.Environment.NewLine;

				// Drive text (length, time)
				if (objItem.DriveText.Length > 0)
						strText = strText + "    " + objItem.DriveText + System.Environment.NewLine;

				strText = strText + System.Environment.NewLine;
			}

			// Set control text
			m_txtDirections.Text = strText;

			// deselect if was be selected
			m_txtDirections.Select(0, 0);
		}

	#endregion

	}


} //end of root namespace

DirectionsForm.vb

Imports ESRI.ArcGIS.DataSourcesFile

Public Class DirectionsForm
	Inherits System.Windows.Forms.Form

#Region " Windows Form Designer generated code "

	Public Sub New()
		MyBase.New()

		'This call is required by the Windows Form Designer.
		InitializeComponent()

	End Sub

#End Region

#Region "Public methods"

	' Clears Directions text
	Public Sub Init()
		m_txtDirections.Text = ""
	End Sub

	' Fills text box
	Public Sub Init(ByVal objDirections As ISMDirections)
		Dim nCount As Integer = objDirections.Count

		Dim strText As String

		' Totals
		strText = objDirections.TotalsText + vbCrLf + vbCrLf

		' Add text for each Direction
		For i As Integer = 0 To nCount - 1
			Dim objItem As SMDirItem
			objItem = objDirections.Item(i)

			' Direction text
			strText = strText + objItem.Text + vbCrLf

			' Drive text (length, time)
			If objItem.DriveText.Length > 0 Then _
				strText = strText + "	" + objItem.DriveText + vbCrLf

			strText = strText + vbCrLf
		Next

		' Set control text
		m_txtDirections.Text = strText

		' deselect if was be selected
		m_txtDirections.Select(0, 0)
	End Sub

#End Region

End Class