Foxtable(狐表)用户栏目专家坐堂 → 全局代码简化


  共有3241人关注过本帖树形打印复制链接

主题:全局代码简化

美女呀,离线,留言给我吧!
联友
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:300 积分:2565 威望:0 精华:0 注册:2013/5/23 9:49:00
全局代码简化  发帖心情 Post By:2015/4/16 8:30:00 [显示全部帖子]

这些代码怎么简化。请指点,谢谢!

Public Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    Functions.Execute("btnAdd1",sender.Name)
End Sub

Public Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    Functions.Execute("btnAdd2",sender.Name)
End Sub

Public Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    Functions.Execute("btnAdd3",sender.Name)
End Sub

Public Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    Functions.Execute("btnAdd4",sender.Name)
End Sub

Public Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    Functions.Execute("btnAdd5",sender.Name)
End Sub


 回到顶部
美女呀,离线,留言给我吧!
联友
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:300 积分:2565 威望:0 精华:0 注册:2013/5/23 9:49:00
  发帖心情 Post By:2015/4/16 10:03:00 [显示全部帖子]

这样吗?

Select Case args(0)
   Case "btnAdd1"
      Forms("窗口1").Open()
   Case "btnAdd2"
      Forms("窗口").Open()
   Case "btnAdd3"
      Forms("窗口4").Open()
 End Select


 回到顶部
美女呀,离线,留言给我吧!
联友
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:300 积分:2565 威望:0 精华:0 注册:2013/5/23 9:49:00
  发帖心情 Post By:2015/4/16 10:07:00 [显示全部帖子]

谢谢!

 回到顶部
美女呀,离线,留言给我吧!
联友
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:300 积分:2565 威望:0 精华:0 注册:2013/5/23 9:49:00
  发帖心情 Post By:2015/4/16 10:15:00 [显示全部帖子]

还想请教,这能简化吗?

Dim btnAdd1 As New C1Input.C1Button
With btnAdd1
    .Name = "btnAdd1"
    .Text = "窗口1"
    .TabIndex = 0
    .Font = New Font("微软雅黑",10)
    .Location = New System.Drawing.Point(20, 28)
    .Size = New System.Drawing.Size(68, 70)
    .VisualStyle = C1Input.VisualStyle.Office2010Blue
    .VisualStyleBaseStyle = C1Input.VisualStyle.Office2010Blue
    .TextAlign  = ContentAlignment.BottomCenter
    .Image = GetImage("Accept.png")
    .TextAlign  = ContentAlignment.BottomCenter
    .ImageAlign = ContentAlignment.TopCenter
End With
AddHandler btnAdd1.Click, AddressOf Button_Click
Forms("导航").Panel.Controls.Add(btnAdd1)

Dim btnAdd2 As New C1Input.C1Button
With btnAdd2
    .Name = "btnAdd2"
    .Text = "窗口2"
    .TabIndex = 0
    .Font = New Font("微软雅黑",10)
    .Location = New System.Drawing.Point(100, 28)
    .Size = New System.Drawing.Size(68, 70)
    .VisualStyle = C1Input.VisualStyle.Office2010Blue
    .VisualStyleBaseStyle = C1Input.VisualStyle.Office2010Blue
    .TextAlign  = ContentAlignment.BottomCenter
    .Image = GetImage("Accept.png")
    .TextAlign  = ContentAlignment.BottomCenter
    .ImageAlign = ContentAlignment.TopCenter
End With
AddHandler btnAdd2.Click, AddressOf Button_Click
Forms("导航").Panel.Controls.Add(btnAdd2)


 回到顶部
美女呀,离线,留言给我吧!
联友
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:300 积分:2565 威望:0 精华:0 注册:2013/5/23 9:49:00
  发帖心情 Post By:2015/4/16 14:17:00 [显示全部帖子]

谢谢

 回到顶部