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

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  哪位大神给个System.Windows.Forms.Form的窗体代码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=44214)

--  作者：jnletao
--  发布时间：2013/12/25 15:50:00
--  哪位大神给个System.Windows.Forms.Form的窗体代码
小弟想在BeforeOpenProject里实现如图效果

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

求大神给个Dim form1 As New System.Windows.Forms.Form 类的代码，
我现在用的inputValue,太难看了。

--  作者：jnletao
--  发布时间：2013/12/25 15:57:00
--
我现在实现了部分界面，还不知怎么获取他的内容

此主题相关图片如下：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()

--  作者：逛逛
--  发布时间：2013/12/25 19:07:00
--

今天刚知道可以用Class,拿来试试

二个输入框内，随便输5个以上字符

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

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

--  作者：jnletao
--  发布时间：2013/12/25 20:00:00
--

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

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

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

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

--  作者：jnletao
--  发布时间：2013/12/25 20:03:00
--

以下是引用有点甜在2013-12-25 19:22:00的发言：
5楼的不错。楼主最好是下一个vs工具，在里面编辑好拷贝代码过来，这样方便。
正在下VS2005,不过总觉的文件太大了，有点甜老师给推荐一个VS工具吧。发个链接吧。

--  作者：有点甜
--  发布时间：2013/12/25 20:38:00
--
vs2005，或者vs2008。网上一大把。

http://www.xiazaiba.com/html/4615.html

--  作者：jnletao
--  发布时间：2013/12/25 21:41:00
--

项目事件

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 也不行

大家有方法没

--  作者：有点甜
--  发布时间：2013/12/25 22:15:00
--
看了一下。你把Form1_Load方法的内容写到构造函数里去。但是这样弹出的窗口会被foxtable的启动图片遮住，你要隐藏一下它，或者置顶 topmost = true

public sub New()
\'拷贝内容
end sub

--  作者：blackzhu
--  发布时间：2016/11/8 8:40:00
--
累死你,你还不如用VS直接写在狐表调用. 这个窗口的写法跟狐表本身有很大差别的.