[求助]找到一段代码，请高手增加内容！ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

本人基础差，结合帮助及其它参考资料找到一段代码，其它的实在找不到了！

这段代码是放在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编辑过]

1.http://www.foxtable.com/help/topics/0925.htm

2.这个要使用全局代码写事件了,但是BeforeOpenProject 还没生成全局代码,所以是不可行的.

2不成立,下面全部都不可行.

以下是引用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("连接字符串")
        Dim cmd As New System.Data.OleDb.OleDbCommand("sql语句", con)
        con.Open()
        cmd.ExecuteNonQuery()
        con.Close()

请再看一下我2楼说得好吗? ComboBox1 赋值的写法并不需要在全局代码的. 请你查看帮助连接

2.事件的触发执行的代码,是需要在全局代码定义事件的. 所以导致不可行.

呵呵，楼主，你下载一个vs2008或者vs2010来设计吧，拖拉操作的，双击写代码。

自己写多麻烦啊，拷贝拷贝改呗。

或者，你做个窗口的设计，截图，让大家帮你弄代码出来。

主题：[求助]找到一段代码，请高手增加内容！