08-11-17, 12:53 AM
PHP كود :
Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
Dim frm As New Form With {.Text = "PIC", .Size = New Size(150, 400), .FormBorderStyle = Windows.Forms.FormBorderStyle.FixedToolWindow, .MaximizeBox = False, .MinimizeBox = False}
Dim DGV As New DataGridView With {.Parent = frm, .ColumnHeadersVisible = False, .RowHeadersVisible = False, .Dock = DockStyle.Fill, .AutoGenerateColumns = False, .AllowUserToAddRows = False, .AllowUserToDeleteRows = False}
DGV.RowTemplate.Height = 64
DGV.Columns.Add(New DataGridViewImageColumn With {.DataPropertyName = "PIC", .ImageLayout = DataGridViewImageCellLayout.Zoom, .AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill})
DGV.DataSource = BindingSource1
frm.Show(Me)
End Sub
