' dgvcurrent.vb Imports System Imports System.Drawing Imports System.Drawing.Imaging Imports System.Windows.Forms Public Class MyForm Inherits Form Dim dgv As DataGridView ' フォームのShownイベント・ハンドラ Sub MyForm_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown ' 選択されているセルをなくす dgv.CurrentCell = Nothing End Sub ' フォームのLoadイベント・ハンドラ Sub MyForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load ' データソースとして画像デコーダ一覧を使用 dgv.DataSource = ImageCodecInfo.GetImageDecoders() ' dgv.CurrentCell = Nothing ' ここでは効果なし End Sub ' フォームのコンストラクタ Public Sub New() dgv = New DataGridView() dgv.Dock = DockStyle.Fill Me.Controls.Add(dgv) Me.Size = new Size(480, 240) End Sub End Class ' コンパイル方法:vbc /main:MyForm dgvcurrent.vb