Thanks to visit codestin.com
Credit goes to www.scribd.com

Scribd
Upload
48 views2 pages

Chqret Code

The document defines variables for form controls like buttons, grids, tables, and sets properties like docking, event handlers, data binding between controls and tables. It initializes a form with controls, sets form properties, and adds event handlers for button clicks and form close.

Uploaded by

Bzasri Rao
Copyright
© Attribution Non-Commercial (BY-NC)
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as RTF, PDF, TXT or read online on Scribd
48 views2 pages

Chqret Code

The document defines variables for form controls like buttons, grids, tables, and sets properties like docking, event handlers, data binding between controls and tables. It initializes a form with controls, sets form properties, and adds event handlers for button clicks and form close.

Uploaded by

Bzasri Rao
Copyright
© Attribution Non-Commercial (BY-NC)
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as RTF, PDF, TXT or read online on Scribd
You are on page 1/ 2

f1 = New Form1

f1.Show()
f1.WindowState = FormWindowState.Normal
gr = New DataGrid
b1 = New Button
b2 = New Button
fon = New FontDialog
tbl1 = New DataTable
grvi = New DataGridView
grcol = New DataGridViewColumn
Dim grcel As DataGridViewCell
grcel = New DataGridViewTextBoxCell
grcel.Style.BackColor = Color.Wheat
grcol.CellTemplate = grcel
grcol.Name = "MICR CODE"
b1.Text = "UPDATE"
b2.Text = "Font"
b1.Location = New Point(f1.Width * 2 / 3, 10)
b2.Location = New Point(f1.Width * 2 / 3, 34)
col1 = New DataColumn
col2 = New DataColumn
tbl1.TableName = "BANKS"
col1.ColumnName = "MICR CODE"
col2.ColumnName = "BANK NAME"
col1.MaxLength = 3
col1.Unique = True
col1.DefaultValue = ""
col2.DefaultValue = ""
f1.MenuStrip1.Dispose()
f1.IsMdiContainer = False
f1.MdiParent = Me
f1.Text = "ADD BANKS"
f1.Controls.Add(b1)
f1.Controls.Add(b2)
f1.Controls.Add(gr)
f1.Controls.Add(grvi)
gr.Dock = DockStyle.Bottom
BANKBASEDataSet.Tables.Add(tbl1)
tbl1.Columns.Add(col1)
tbl1.Columns.Add(col2)
gr.SetDataBinding(BANKBASEDataSet, "BANKS")
gr.Height = (f1.ClientSize.Height) * 4 / 5
f1.CenterToParent()
f1.FormBorderStyle =
Windows.Forms.FormBorderStyle.FixedSingle
f1.MaximizeBox = False
AddHandler b1.Click, AddressOf b1click
AddHandler b2.Click, AddressOf b1click
AddHandler f1.Disposed, AddressOf b1click
Me.UpdateBanksListToolStripMenuItem.Enabled = False
grvi.Columns.Add(grcol)

You might also like