DataGridView控件,放一個(gè)DataGridView1和Button1到窗體,下面是按鈕下代碼
蘭州網(wǎng)站制作公司哪家好,找成都創(chuàng)新互聯(lián)公司!從網(wǎng)頁(yè)設(shè)計(jì)、網(wǎng)站建設(shè)、微信開發(fā)、APP開發(fā)、成都響應(yīng)式網(wǎng)站建設(shè)公司等網(wǎng)站項(xiàng)目制作,到程序開發(fā),運(yùn)營(yíng)維護(hù)。成都創(chuàng)新互聯(lián)公司成立與2013年到現(xiàn)在10年的時(shí)間,我們擁有了豐富的建站經(jīng)驗(yàn)和運(yùn)維經(jīng)驗(yàn),來保證我們的工作的順利進(jìn)行。專注于網(wǎng)站建設(shè)就選成都創(chuàng)新互聯(lián)公司。
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Me.DataGridView1.AllowUserToAddRows = False
DataGridView1.RowTemplate.Height = 200
DataGridView1.AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.None
For i = 1 To 3
Me.DataGridView1.Columns.Add("列" i.ToString, "列" i.ToString)
Me.DataGridView1.Rows.Add()
Next
Me.DataGridView1.Columns(0).Width = 100
Me.DataGridView1.Columns(1).Width = 500
Me.DataGridView1.Columns(0).Width = 300
End Sub
'自己設(shè)置相關(guān)需要的屬性即可
這不就是MDI嗎?把主窗口的IsMdiContainer屬性設(shè)置為True,然后在加載子窗口的時(shí)候加上一句:
子窗口.MdiParent = 主窗口
然后再Show就行了.
示例:
Private Sub b1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles b1.Click
Dim frm As New Form2
frm.MdiParent = Me
frm.Show()
End Sub
'窗體有個(gè)屬性ClientSize?是除去邊框及標(biāo)題欄部分的為工作區(qū)
'你要的應(yīng)該就是這個(gè)了。
'設(shè)置窗體工作區(qū)的大小?例為400*300
Me.ClientSize?=?New?Size(400,300)
從來只有高分辨率下為低分辨率環(huán)境開發(fā)程序的。既然開發(fā)環(huán)境是低分辨率,那就只能利用代碼初始化各個(gè)控件的位置和大小了。隨測(cè)隨改。
1拖放控件
2代碼添加
如
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Me.ResizeRedraw = True
Dim ff As New DataGridView
ff.ReadOnly = False‘在這里設(shè)置是否可編輯單元格
ff.Parent = Me
ff.AllowUserToAddRows = True'這里設(shè)置是否顯示添加新行
ff.Columns.Add("aa", "啊啊")
ff.Columns.Add("a1", "啊")
End Sub
如圖所示,工具箱的“所有Windows窗體”中有,如果沒有,可選擇“選擇項(xiàng)”添加