重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
调用控件的事件呢:WebBrowser1.Document.All.commendStatus.Click
目前创新互联已为上千的企业提供了网站建设、域名、网页空间、网站托管维护、企业网站设计、麻章网站维护等服务,公司将坚持客户导向、应用为本的策略,正道将秉承"和谐、参与、激情"的文化,与客户和合作伙伴齐心协力一起成长,共同发展。
先填写,再调用事件
Form1.vb 是指类代码。
Form1.Designer.vb 是指界面设计代码
在 VB 2003 和之前的.net版本中这两部分是在一起的,从 VB 2005 以后才分开了。
简单的来说 .Designer.vb 保存的是用户界面设计自动生成的代码,里面写着的是比如 Form1 的高度宽度啊、窗体上有个 TextBox 的 Text 啊之类这些东西,这些东西用户在 IDE 中只需要用鼠标去画并修改相应的控件属性就可以了,VS 会自动生成相应的代码保存到 Designer.vb 中。
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.新建一个用户控件[注意,用户控件(UserControl)不是自定义控件(CustomControl)]
2.给用户控件起个名字(我在此处起名叫 RadioList)
3.在用户控件上画一个 GroupBox,命名为 RadioGroup,
并将其 Dock 属性设置为 Fill
然后,你需要做的是动态增减控件。
如果你以前用过 VB 6,你可能会想到控件数组,
但在此处,你可以直接增删控件。
具体实现如下:
4.在 GroupBox 里画一个 FlowLayoutPanel,命名为 RadioPanel,
将其 AutoScroll 属性设置为 True,即自动显示滚动条,
并设置其 FlowDirection 属性(例如设置为 TopDown)
这样就省去了手动调整 RadioButton 位置的麻烦
5.实现选项的动态增减(以下只是我的思路,你可以发挥一下)
(十分简洁,注释除外):
''' summary
''' 创建一个新的 RadioButton。
''' /summary
Private Function CreateRadio() As RadioButton
Dim NewRadio As New RadioButton
components.Add(NewRadio)
'components 字段由控件设计器自动创建,
'此代码目的是使控件在销毁(Dispose)时能自动销毁 RadioButton
'详情参见 RadioList.Designer.vb
NewRadio.Parent = RadioPanel
'设置容器
AddHandler NewRadio.CheckedChanged, AddressOf RadioButtons_CheckedChanged
'设置事件处理程序
Return NewRadio
End Function
''' summary
''' 移除已存在的 RadioButton。
''' /summary
Private Sub RemoveRadio(ByVal dest As RadioButton)
components.Remove(dest)
dest.Dispose()
End Sub
'无中生有的 RadioButton 的事件处理程序
Private Sub RadioButtons_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
'在此处设置选中项的属性,通过 sender 来确定不同的 OptionButton
'你可以通过将 OptionButton 放在一个列表,
'如 List(Of OptionButton) 中来像数组一样维护选项的次序
'注意,此处需要判断 sender 的 Checked 属性是否为 True
'因为 Changed 是“改变”,而不是“选中”
'例如:
If DirectCast(sender, RadioButton).Checked Then
SelectedIndex = ...
End If
End Sub