做一个窗体模板,假设是Form2
创新互联主要从事成都网站设计、成都网站建设、网页设计、企业做网站、公司建网站等业务。立足成都服务朝天,10年网站建设经验,价格优惠、服务专业,欢迎来电咨询建站服务:028-86922220
Dim x as New Form2
x.Show()
如果弹出窗口较多,x可以用动态数组替代
1个偷懒的写法,
使用父窗口使用BindSource做为中间数据源绑定
子窗口添加一个带参构造函数 xxform(Bindingsource bs1);
并使用DataBindins.add函数添加数据绑定
TextBox1.DataBindings.Add("Text", bs1, "Company_customer.email", true);
父窗口双击时
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创建的工程。
2、选择窗体Form1并双击该窗体,出现窗体的调事件的过程代码体。
3、在窗体调用的过程代码体中编制如下过程代码:
Private Sub Form_Load()
Form1.Width = 4860
Form1.Height = 2520
End Sub
4、设置窗体Form1的SartUpPosition属性为2-屏幕中心,这样运行窗体可以发现,屏幕的大小与例1.6中通过属性设置的大小是一致的。
并无快捷方式,记住控件名称,
然后在From1[设计]的属性面板最上方的下拉框中寻找该控件,
查看Location.X, Location.Y的值,就知道它在哪个位置了。
至于代码是属于哪个控件的事件处理的,在窗体设计器中顶部可见。
当编辑Label1的代码时,顶部会显示控件名称和事件名称。
1、新建一个标准的VB EXE工程,只有一个Form,Form上有两个按钮:Command1和Command2。
2、双击Command1添加如下代码
Private Sub Command1_Click()
Dim strFile As String
Dim intFile As Integer
Dim strData As String
strFile = "c:\学生成绩.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开始单步调试代码,点击Command1,进入单步调试功能,
4、多次按下F8或直接按下F5运行完成,就完成了读取文本文件内容并输出到立即窗口。