DataGridView da Dosya Boyutunun Gösterilmesi

Bu makalemizde DataGridView nesnesinde dosyanın konumu ve boyutunu göstereceğiz. İlk önce formumuza 1 adet OpenFile Dialog, 1 adet DataGridView ve Button ekliyelim. Formumuzu aşağıdaki şekildeki gibi oluşturalım...Bahadirsa

Şekil 1

Forma yazılacak kodlar:

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        DataGridView1.ColumnCount = 2
        With Me
            .Text = "Dosya Adı,Boyutu...Bahadirsa"
            .MaximizeBox = False
            .Location = New Point(300, 200)
        End With
        With Me.DataGridView1
            .Columns(0).Name = "Dosya Adı"
            .Columns(1).Name = "Dosya Boyutu"
        End With

        Dim columnHeaderStyle As New DataGridViewCellStyle
        columnHeaderStyle.BackColor = Color.Aqua
        columnHeaderStyle.Font = New Font("Verdana", 8, FontStyle.Bold)

        DataGridView1.ColumnHeadersDefaultCellStyle = columnHeaderStyle

        DataGridView1.BackgroundColor = Color.AliceBlue

        With Me.DataGridView1.RowTemplate
            .DefaultCellStyle.BackColor = Color.Yellow
            .DefaultCellStyle.ForeColor = Color.Navy
            .DefaultCellStyle.Font = New Font("Verdana", 10, FontStyle.Regular)

        End With

        DataGridView1.Columns(0).Width = 150
        DataGridView1.Columns(1).Width = 150
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAc.Click

        If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            Dim size As IO.FileInfo = New System.IO.FileInfo(OpenFileDialog1.FileName)
            Dim str As Single

            str = (size.Length / 1000).ToString
            str = CSng(Format(str, "#,##0.00"))

            With DataGridView1
                .Columns(0).DisplayIndex = 0
                .Columns(1).DisplayIndex = 1
            End With

            Dim rw1 As String() = {OpenFileDialog1.FileName, str.ToString + " KB."}
            DataGridView1.Rows.Add(rw1)
        End If
    End Sub
End Class

Bir sonraki makalede görüşmek üzere...Bahadirsa