Foxtable(狐表)用户栏目专家坐堂 → [求助]找到一段代码,请高手增加内容!


  共有4228人关注过本帖平板打印复制链接

主题:[求助]找到一段代码,请高手增加内容!

帅哥哟,离线,有人找我吗?
jnletao
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:937 积分:7742 威望:0 精华:0 注册:2013/7/7 13:37:00
[求助]找到一段代码,请高手增加内容!  发帖心情 Post By: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编辑过]

 回到顶部