| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]找到一段代码，请高手增加内容！ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=41141) |
| -- 作者：jnletao -- 发布时间：2013/10/12 10:01:00 -- [求助]找到一段代码，请高手增加内容！ 本人基础差，结合帮助及其它参考资料找到一段代码，其它的实在找不到了！ 这段代码是放在BeforeOpenProject里的 Dim form1 As New System.Windows.Forms.Form Dim button1 As New Windows.Forms.Button Dim button2 As New Windows.Forms.Button Dim ComboBox1 As New Windows.Forms.ComboBox button1.Text = "OK" button1.Location = New Point(10, 10) ComboBox1.Location = New Point(100, 10) button2.Text = "Cancel" button2.Location = _ New Point(button1.Left, button1.Height + button1.Top + 10) form1.Text = "窗体标题" form1.HelpButton = True form1.MaximizeBox = False form1.MinimizeBox = False form1.AcceptButton = button1 form1.CancelButton = button2 form1.Controls.Add(button1) form1.Controls.Add(button2) form1.Controls.Add(ComboBox1) form1.ShowDialog() 请高手 帮忙给续写一下 1，给ComboBox1 赋值 （两个选项，数据源1，数据源2） 2，单击‘确定’后，判断是选项一还是选项二， 然后可以做验证 3，在这个窗口做出选择前，暂停foxtable的加载，直到用户做出选择并验证正确（验证过程我另写代码），然后继续加载。 4，如用户单击取消按钮，则foxtable退出。 5，让这个窗口打开时自动居中
[此贴子已经被作者于2013-10-12 10:06:07编辑过]
|
| -- 作者：Bin -- 发布时间：2013/10/12 10:06:00 -- 1.http://www.foxtable.com/help/topics/0925.htm 2.这个要使用全局代码写事件了,但是BeforeOpenProject 还没生成全局代码,所以是不可行的. 2不成立,下面全部都不可行.
|
| -- 作者：jnletao -- 发布时间：2013/10/12 10:12:00 -- 以下是引用Bin在2013-10-12 10:06:00的发言： 1.http://www.foxtable.com/help/topics/0925.htm 2.这个要使用全局代码写事件了,但是BeforeOpenProject 还没生成全局代码,所以是不可行的. 2不成立,下面全部都不可行.
1，我的上述代码现在是可以在BeforeOpenProject里执行的 2，想要个直接给ComboBox1 赋值的写法，不要在全司代码定义的。 3，至于数据源验证，结合以下代码不可以吗 Dim con As New System.Data.OleDb.OleDbConnection("连接字符串") |
| -- 作者：Bin -- 发布时间：2013/10/12 10:20:00 -- 请再看一下我2楼说得好吗? ComboBox1 赋值的写法并不需要在全局代码的. 请你查看帮助连接 2.事件的触发执行的代码,是需要在全局代码定义事件的. 所以导致不可行.
|
| -- 作者：有点甜 -- 发布时间：2013/10/12 21:29:00 -- 呵呵，楼主，你下载一个vs2008或者vs2010来设计吧，拖拉操作的，双击写代码。 自己写多麻烦啊，拷贝拷贝改呗。
|
| -- 作者：有点甜 -- 发布时间：2013/10/12 21:31:00 -- 或者，你做个窗口的设计，截图，让大家帮你弄代码出来。 |