做一個(gè)窗體模板,假設(shè)是Form2
創(chuàng)新互聯(lián)主要從事成都網(wǎng)站設(shè)計(jì)、成都網(wǎng)站建設(shè)、網(wǎng)頁設(shè)計(jì)、企業(yè)做網(wǎng)站、公司建網(wǎng)站等業(yè)務(wù)。立足成都服務(wù)朝天,10年網(wǎng)站建設(shè)經(jīng)驗(yàn),價(jià)格優(yōu)惠、服務(wù)專業(yè),歡迎來電咨詢建站服務(wù):028-86922220
Dim x as New Form2
x.Show()
如果彈出窗口較多,x可以用動(dòng)態(tài)數(shù)組替代
1個(gè)偷懶的寫法,
使用父窗口使用BindSource做為中間數(shù)據(jù)源綁定
子窗口添加一個(gè)帶參構(gòu)造函數(shù) xxform(Bindingsource bs1);
并使用DataBindins.add函數(shù)添加數(shù)據(jù)綁定
TextBox1.DataBindings.Add("Text", bs1, "Company_customer.email", true);
父窗口雙擊時(shí)
private void dataGridView1_DoubleClick(object sender, EventArgs e)
{
if (this.dataGridView1.CurrentRow!=null)
{
customer_add _customer = new customer_add(this.bindingSource1);
_customer.ShowDialog();
}
}
方法如下:
1、打開例1.1創(chuàng)建的工程。
2、選擇窗體Form1并雙擊該窗體,出現(xiàn)窗體的調(diào)事件的過程代碼體。
3、在窗體調(diào)用的過程代碼體中編制如下過程代碼:
Private Sub Form_Load()
Form1.Width = 4860
Form1.Height = 2520
End Sub
4、設(shè)置窗體Form1的SartUpPosition屬性為2-屏幕中心,這樣運(yùn)行窗體可以發(fā)現(xiàn),屏幕的大小與例1.6中通過屬性設(shè)置的大小是一致的。
并無快捷方式,記住控件名稱,
然后在From1[設(shè)計(jì)]的屬性面板最上方的下拉框中尋找該控件,
查看Location.X, Location.Y的值,就知道它在哪個(gè)位置了。
至于代碼是屬于哪個(gè)控件的事件處理的,在窗體設(shè)計(jì)器中頂部可見。
當(dāng)編輯Label1的代碼時(shí),頂部會(huì)顯示控件名稱和事件名稱。
1、新建一個(gè)標(biāo)準(zhǔn)的VB EXE工程,只有一個(gè)Form,F(xiàn)orm上有兩個(gè)按鈕:Command1和Command2。
2、雙擊Command1添加如下代碼
Private Sub Command1_Click()
Dim strFile? ? ?As String
Dim intFile? ? ?As Integer
Dim strData? ? ?As String
strFile = "c:\學(xué)生成績(jī).txt"
intFile = FreeFile
Open strFile For Input As intFile
strData = StrConv(InputB(FileLen(strFile), intFile), vbUnicode)
Debug.Print strData
Close intFile
End Sub
3、按F8開始單步調(diào)試代碼,點(diǎn)擊Command1,進(jìn)入單步調(diào)試功能,
4、多次按下F8或直接按下F5運(yùn)行完成,就完成了讀取文本文件內(nèi)容并輸出到立即窗口。