メモ - @wiki(あっとうぃき) テストページ

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim sWidth As String = ""

       For Each col As Object In dgvEdit.Columns
           If TypeOf col Is DataGridViewTextBoxColumn Then
               Dim txt As DataGridViewTextBoxColumn = DirectCast(col, DataGridViewTextBoxColumn)
               sWidth += txt.Width.ToString + ","
           ElseIf TypeOf col Is DataGridViewCheckBoxColumn Then
               Dim chk As DataGridViewCheckBoxColumn = DirectCast(col, DataGridViewCheckBoxColumn)
               sWidth += chk.Width.ToString + ","
           End If
       Next

       MessageBox.Show(sWidth)
   End Sub