哪位大神给个System.Windows.Forms.Form的窗体代码 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

小弟想在BeforeOpenProject里实现如图效果

此主题相关图片如下：360软件小助手截图20131225154630.jpg

求大神给个Dim form1 As New System.Windows.Forms.Form 类的代码，

我现在用的inputValue,太难看了。

我现在实现了部分界面，还不知怎么获取他的内容

此主题相关图片如下：360软件小助手截图20131225155636.jpg

下载信息 [文件大小：下载次数： ]
点击浏览该文件:启动窗体练习.table

项目事件

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()

谢谢逛逛大师

说实话自7月份接触狐表至今，我一直在纠结这个问题，期间发过N回帖子，都无结而终，我一直没有放弃收集相关学习资料，可总是做不出最终效果。

今天逛逛大师总于圆了我这个愿望！

激动，泪奔，我真是太兴奋了。

恰好今天是圣诞夜，我在这里祝愿逛逛大师及论坛里的所有热心人士及官方客服人员合家欢乐，节日愉快！

祝狐表公司生意兴隆，财源广进。

以下是引用有点甜在2013-12-25 19:22:00的发言：
5楼的不错。楼主最好是下一个vs工具，在里面编辑好拷贝代码过来，这样方便。

正在下VS2005,不过总觉的文件太大了，有点甜老师给推荐一个VS工具吧。发个链接吧。

项目事件

BeforeOpenProject

Dim frm As New Form1

frm.ShowDialog() '模式打开

If bl_取消 Then

e.Cancel = True

End If

If bl_确定 Then

'你的策略

msgbox(str_机器码)

msgbox(str_注册码)

End If

全局代码

Public Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

MsgBox("数量不能小于1!",64,"提示")

End Sub

Public str_机器码 As String = ""

Public str_注册码 As String = ""

Public bl_取消 As Boolean = False

Public bl_确定 As Boolean = False

Public Class Form1

Inherits System.Windows.Forms.Form

Public Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

'取消

bl_取消 = True

Me.Close()

End Sub

中间内容省略

'Form1

Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)

Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font

Me.ClientSize = New System.Drawing.Size(390, 139)

Me.Controls.Add(Me.Label2)

Me.Controls.Add(Me.Label1)

Me.Controls.Add(Me.Button4)

Me.Controls.Add(Me.Button3)

Me.Controls.Add(Me.机器码)

Me.Controls.Add(Me.注册码)

Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog

Me.MaximizeBox = False

Me.MinimizeBox = False

Me.Name = "Form1"

Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen

Me.Text = "Form1"

Me.ResumeLayout(False)

Me.PerformLayout()

End Sub

Friend WithEvents 注册码 As System.Windows.Forms.TextBox

Friend WithEvents 机器码 As System.Windows.Forms.TextBox

Friend WithEvents Button3 As System.Windows.Forms.Button

Friend WithEvents Button4 As System.Windows.Forms.Button

Friend WithEvents Label1 As System.Windows.Forms.Label

Friend WithEvents Label2 As System.Windows.Forms.Label

End Class

没有居中，Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent 也不行

大家有方法没

主题：哪位大神给个System.Windows.Forms.Form的窗体代码