- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 为第三方控件定义事件过程 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=120402)
-- 发布时间：2018/6/14 13:27:00
-- 为第三方控件定义事件过程
在窗口中增加一个控件combobox，同时在控件combobox中增加一个事件“textchanged"。下拉菜单为”中国|美国|德国“，如果选择”中国“，就执行一个代码，如果选择”美国“，就执行另外一个代码。
是用代码完成上述功能。
[此贴子已经被作者于2018/6/14 13:29:09编辑过]
-- 发布时间：2018/6/14 13:36:00
--
此主题相关图片如下：无标题.png
-- 发布时间：2018/6/14 14:33:00
--
ct.items.add("中国")
ct.items.add("美国")
https://msdn.microsoft.com/zh-cn/library/system.windows.forms.combobox(v=vs.110).aspx
-- 发布时间：2018/6/14 14:43:00
--
如果选择中国，就弹出“我是中国人，我骄傲”，如果选择美国，就弹出“当心美国”，如何写代码？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目11.foxdb |
-- 发布时间：2018/6/14 15:18:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目11.foxdb |
-- 发布时间：2018/6/14 16:16:00
--
选择中国后，提示有错误。
不能上传附件，就上传这个函数的代码。
Dim sender = args(0)
Dim e = args(1)
\'Return e.sender.text
If sender.text = "中国" Then
Return e.sender.text
ElseIf sender.text = "美国" Then
Return "a123"
End If
[此贴子已经被作者于2018/6/14 16:18:42编辑过]
-- 发布时间：2018/6/14 16:20:00
--
Dim ct As New Windows.Forms.Button
ct.Text = "我的按钮"
e.Form.Panel.Controls.Add(ct)
AddHandler ct.Click, AddressOf Button1_Click
这是把控件增加到窗口，如何把控件增加到某个容器中，如groupbox中？
[此贴子已经被作者于2018/6/15 8:00:54编辑过]
-- 发布时间：2018/6/15 8:14:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目11.foxdb |
-- 发布时间：2018/6/15 9:06:00
--
Dim ct As New Windows.Forms.combobox
ct.name="combobox1"
ct.items.add("中国")
ct.items.add("美国")
ct.Top=10
e.Form.Controls("g1").basecontrol.controls.Add(ct)
AddHandler ct.TextChanged,AddressOf combobox1_OnTextChanged