打开表单Form1表单上有三个按钮，按钮单击事件中加入代码，单击任何一按钮，使其他两个按钮的标题互换

原问题：打开表单Form1表单上有三个按钮，按钮单击事件中加入代码，单击任何一按钮，使其他两个按钮的标题互换
分类：编程开发 > 最后更新时间：【2017-07-28 21:49:51】
问题补充：打开表单Form1，表单上有三个按钮，在按钮单击事件中加入代码，当单击任何一个按钮时，都使其他两个按钮的标题互换。怎么操作

最佳答案

方法1：每个按钮都需要独立设置代码，操作另外两个按钮的标题属性呗

方法2：设立一个综合的按钮代码响应事件，首先判断点击的按钮是哪一个，然后保持被点击按钮标题不变，其他两个按钮标题属性按需改变。所有按钮的代码都执行这个综合代码


追问：
代码怎么写？ 追答：
那要看你用的是哪种编程语言了，上边给你的是一种通用算法。
追问：
vf的 追答：
俺只会vs里面的VB语言，帮不到你。
  • 追答：
    Visual FoxPro - 微软出的数据库编程软件，近几年已经被微软淘汰，因为这个软件在世界上早已被 Sql-Server 和 Oracle 等数据库编程软件所取代。
    最佳答案由网友  1不告诉你1  提供
    • 公告： 为响应国家净网行动，部分内容已经删除，感谢网友理解。
    18

    分享到：

    其他回答

    其它网友回答：
    VB6:

    其它网友回答：
    在窗体上摆放一个CommandButton，然后复制粘帖成一共3个，也就是放一个控件数组，有3个元素，然后双点其中一个，插入如下代码即可：

    其它网友回答：
    下列代码举例为你插入的控件数组为Command1(0 to 2)

    其它网友回答：
    Private Sub Command1_Click(Index As Integer)

    其它网友回答：
        Dim E As CommandButton, E1 As CommandButton, T As String
        For Each E In Command1
            If Not E Is Command1(Index) Then
                If E1 Is Nothing Then
                    Set E1 = E
                Else
                    T = E1.Caption
                    E1.Caption = E.Caption
                    E.Caption = T
                End If
            End If
        Next

    其它网友回答：
    End Sub

    其它网友回答：
     


    追答：
    如果你用VF，请根据VF语法替换相应代码即可，不过我是不懂VF，我只懂VB。
      推荐