Visual Basic

Dave Kreskowiak wrote:

Something like this is normally done by the application's installer, which is always run by an Admin.

non-bugging Errors wrote:

Run program in local user use operation "Run as" may be it wil work
Quote Selected Text

<br />
Private Sub SortButton_Click(ByVal sender As Object, _<br />
            ByVal e As System.Windows.Forms.MouseEventArgs) Handles DataGridView1.MouseClick<br />
<br />
        Dim hit As DataGridView.HitTestInfo = DataGridView1.HitTest(e.X, e.Y)<br />
        If hit.Type = DataGridViewHitTestType.ColumnHeader Then<br />
                If DataGridView1.Columns.Item(hit.ColumnIndex).Name = "Fruit" Then<br />
<br />
                Dim oldColumn As DataGridViewColumn = DataGridView1.SortedColumn<br />
                Dim newColumn As DataGridViewColumn = DataGridView1.Columns.Item("FruitCount")<br />
                Dim direction As ListSortDirection<br />
<br />
                ' If oldColumn is null, then the DataGridView is not currently sorted. <br />
                If oldColumn Is Nothing Then<br />
                    direction = ListSortDirection.Ascending<br />
                Else<br />
                    ' Sort FruitCount again, reversing the SortOrder.<br />
                    If Me.DataGridView1.SortOrder = SortOrder.Ascending Then<br />
                        direction = ListSortDirection.Descending<br />
                    Else<br />
                        direction = ListSortDirection.Ascending<br />
                    End If<br />
                End If<br />
<br />
                ' Sort the grid based on FruitCount<br />
                Me.DataGridView1.Sort(DataGridView1.Columns("FruitCount"), direction)<br />
                DataGridView1.Columns("Fruit").HeaderCell.SortGlyphDirection = direction + 1 <br />
            Else<br />
                DataGridView1.Columns("Fruit").HeaderCell.SortGlyphDirection = SortOrder.None<br />
            End If<br />
        End If<br />
<br />
    End Sub<br />