动态生成按钮的代码怎么设置的? - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 动态生成按钮的代码怎么设置的?

共有17522人关注过本帖树形打印复制链接主题：动态生成按钮的代码怎么设置的?

yangming

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：4109 积分：23338 威望：0 精华：21 注册：2008/9/1 20:07:00

Post By：2009/8/28 13:45:00 [显示全部帖子]

代码放到窗口的

AfterLoad 事件中,也可以放到其它窗口的按钮中,如放到其它窗口,那还要首先打开此窗口代码

生成窗口后执行，通常在此对窗口和控件进行初始化设置。

yangming

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：4109 积分：23338 威望：0 精华：21 注册：2008/9/1 20:07:00

Post By：2009/8/28 13:47:00 [显示全部帖子]

这两个按钮是并排放的
Dim T As WinForm.button
T = e.Form.CreateControl("button2", ControlTypeEnum.button)
T.Text = "增加一行"
T.Left = 175
T.Top = 75
T.WIDTH = 90
T.HEIGHT = 60
e.Form.AddControl(T)
Dim T1 As WinForm.button
T1 = e.Form.CreateControl("button3", ControlTypeEnum.button)
T1.Text = "下一行"
T1.Left = 175+90+5
T1.Top = 75
T1.WIDTH = 90
T1.HEIGHT = 60
e.Form.AddControl(T1)

yangming

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：4109 积分：23338 威望：0 精华：21 注册：2008/9/1 20:07:00

Post By：2009/8/28 13:49:00 [显示全部帖子]

这是竖着排列的,你自己比较一下吧
Dim T As WinForm.button
T = e.Form.CreateControl("button2", ControlTypeEnum.button)
T.Text = "增加一行"
T.Left = 175
T.Top = 75
T.WIDTH = 90
T.HEIGHT = 60
e.Form.AddControl(T)
Dim T1 As WinForm.button
T1 = e.Form.CreateControl("button3", ControlTypeEnum.button)
T1.Text = "下一行"
T1.Left = 175
T1.Top = 75*2+5
T1.WIDTH = 90
T1.HEIGHT = 60
e.Form.AddControl(T1)

yangming

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：4109 积分：23338 威望：0 精华：21 注册：2008/9/1 20:07:00

Post By：2009/8/28 13:54:00 [显示全部帖子]

窗口的通用事件Click中设置如下代码：

Select Case e.Sender.Name
    Case "First"
        CurrentTable.Position = 0
    Case "Last"
        CurrentTable.Position = CurrentTable.Rows.Count - 1
    Case "Prev"
        CurrentTable.Position = CurrentTable.Position - 1
    Case "Next"
        CurrentTable.Position = CurrentTable.Position + 1
End Select

不过要先判断一下是否有控件存在,不然会出错的

[此贴子已经被作者于2009-8-28 13:54:35编辑过]

yangming

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：4109 积分：23338 威望：0 精华：21 注册：2008/9/1 20:07:00

Post By：2009/8/28 14:04:00 [显示全部帖子]

我发现不用判断也不会报错

Select Case e.Sender.Name
    Case "button2"
        CurrentTable.AddNew()
     Case "button3"
        CurrentTable.Position = CurrentTable.Position + 1
End Select

[此贴子已经被作者于2009-8-28 14:05:19编辑过]

yangming

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：4109 积分：23338 威望：0 精华：21 注册：2008/9/1 20:07:00

Post By：2009/8/28 14:06:00 [显示全部帖子]

放到窗口的通用事件Click中设置

下一主题 >> << 上一主题

主题：动态生成按钮的代码怎么设置的?