Visual Basic

Dim arr() As String = New String() {"ID Name", "1 paint", "1 cross", "1 less", "2 to", "2 gain", "3 increase"}
Dim newstring As String = "", endstr As String = ""
Dim c As Integer = 1, num As Integer
Dim newnum As Boolean = True
For i = 0 To arr.Count - 1
    If i > 0 Then
        If Integer.TryParse(arr(i).Substring(0, i.ToString.Length), num) And num = c Then
            If newnum = True Then newstring += num.ToString & " "
            newstring += arr(i).Substring(i.ToString.Length + 1, arr(i).ToString.Length - i.ToString.Length - 1)
        End If

        If (i + 1) <= (arr.Count - 1) Then
            If Integer.TryParse(arr(i + 1).Substring(0, (i + 1).ToString.Length), num) And num = c Then
                newstring += ", "
                newnum = False
            Else
                endstr = newstring
                newstring = ""
                newnum = True
            End If
        Else
            endstr = newstring
            newnum = True
        End If
        c = num
    Else
        endstr = arr(i).ToString
        newnum = True
    End If
    If newnum = True Then Debug.Print("##### :  " & endstr)
Next i

satc wrote:

Is there any technique or tool , in order to design form's independent from
screen resolution ?

Bastard Programmer from Hell
If you can't read my code, try converting it here[^]

satc wrote:

I'm not creating an application that I will use only on my Pc. Different
users with different screen resolution are going to use it.

satc wrote:

Users doesn't want to change the screen resolution only for my application.

Bastard Programmer from Hell
If you can't read my code, try converting it here[^]

satc wrote:

My application on a big screen with high resolution , looks very small and almost unusable.

satc wrote:

But Office applications like Word , Excel... are ok.

Bastard Programmer from Hell
If you can't read my code, try converting it here[^]

Imports System
Imports System.Collections.Generic
Imports System.Text
Imports System.Windows.Forms
Imports System.Drawing
Imports System.ComponentModel

Public Class FormResizer

    'Considerations:
    'Change the Form AutoSize Mode to None.
    Private f_HeightRatio As New Single()
    Private f_WidthRatio As New Single()

    Public Sub ResizeForm(ByVal ObjForm As Form, ByVal DesignerWidth As Integer, ByVal DesignerHeight As Integer)
        '#Region "Code for Resizing and Font Change According to Resolution"
        'Specify Here the Resolution Y component in which this form is designed
        'For Example if the Form is Designed at 800 * 600 Resolution then DesignerHeight=600
        Dim i_StandardHeight As Integer = DesignerHeight

        'Specify Here the Resolution X component in which this form is designed
        'For Example if the Form is Designed at 800 * 600 Resolution then DesignerWidth=800
        Dim i_StandardWidth As Integer = DesignerWidth
        Dim i_PresentHeight As Integer = Screen.PrimaryScreen.Bounds.Height

        'Present Resolution Height
        Dim i_PresentWidth As Integer = Screen.PrimaryScreen.Bounds.Width

        'Presnet Resolution Width
        f_HeightRatio = CSng(CSng(i_PresentHeight) / CSng(i_StandardHeight))
        f_WidthRatio = CSng(CSng(i_PresentWidth) / CSng(i_StandardWidth))
        ObjForm.AutoScaleMode = AutoScaleMode.None

        'Make the Autoscale Mode=None
        ObjForm.Scale(New SizeF(f_WidthRatio, f_HeightRatio))
        For Each c As Control In ObjForm.Controls
            If c.HasChildren Then
                ResizeControlStore(c)
            Else
                c.Font = New Font(c.Font.FontFamily, c.Font.Size * f_HeightRatio, c.Font.Style, c.Font.Unit, CByte(0))
            End If
        Next
        ObjForm.Font = New Font(ObjForm.Font.FontFamily, ObjForm.Font.Size * f_HeightRatio, ObjForm.Font.Style, ObjForm.Font.Unit, CByte(0))
    End Sub

    ''' <summary>
    ''' This Function is Used to Change the Font of Controls that are Nested in Other Controls.
    ''' </summary>
    ''' <param name="objCtl"></param>
    Public Sub ResizeControlStore(ByVal objCtl As Control)
        If objCtl.HasChildren Then
            For Each cChildren As Control In objCtl.Controls
                If cChildren.HasChildren Then
                    ResizeControlStore(cChildren)
                Else
                    cChildren.Font = New Font(cChildren.Font.FontFamily, cChildren.Font.Size * f_HeightRatio, cChildren.Font.Style, cChildren.Font.Unit, CByte(0))
                End If
            Next
            objCtl.Font = New Font(objCtl.Font.FontFamily, objCtl.Font.Size * f_HeightRatio, objCtl.Font.Style, objCtl.Font.Unit, CByte(0))
        Else
            objCtl.Font = New Font(objCtl.Font.FontFamily, objCtl.Font.Size * f_HeightRatio, objCtl.Font.Style, objCtl.Font.Unit, CByte(0))
        End If
   End Sub
End Class

Dim dsTemp As New DataSet()
dsTemp.ReadXml(myXMLTime)

Dim dsTime As DataSet = dsTemp.Clone()
Dim table As DataTable = dsTime.Tables(0)

Dim startTimeColumn As DataColumn = table.Columns("Start_Time")
Dim stopTimeColumn As DataColumn = table.Columns("Stop_Time")

startTimeColumn.DataType = GetType(DateTime)
stopTimeColumn.DataType = GetType(DateTime)

Dim formatProvider As IFormatProvider = System.Globalization.CultureInfo.InvariantCulture

For Each row As DataRow in dsTemp.Tables(0).Rows
    Dim values As Object() = row.ItemArray
    
    Dim time As String = DirectCast(values(startTimeColumn.Ordinal), String)
    values(startTimeColumn.Ordinal) = DateTime.Parse(time, formatProvider)
    
    time = DirectCast(values(stopTimeColumn.Ordinal), String)
    values(stopTimeColumn.Ordinal) = DateTime.Parse(time, formatProvider)
    
    table.Rows.Add(values)
Next

DataGridView2.DataSource = dsTime
DataGridView2.DataMember = "Ticket"

DataGridView2.Sort(DataGridView2.Columns(startTimeColumn.Ordinal), System.ComponentModel.ListSortDirection.Descending)

myTextBox.ReadOnly = True