主题：窗口设计器个性定制修改求助

如题，窗口设计器中的预览按钮预览时还要点来点去（最烦的就是还弹保存提示框），

mark 预览按钮

 

全局代码

 

Public Sub yl_CommandClick(sender As object, e As C1.Win.C1Command.ClickEventArgs)
vars("保存").performclick
vars("预览").performclick
End Sub

 

计划管理

 

Dim frm = windows.forms.form.activeform
If frm IsNot Nothing Then
    If frm.name = "frmMdi" Then
        Dim menu = frm.controls("C1MainMenu1")
        Dim hs As Boolean = False
        For Each cm As object In menu.CommandLinks
            If cm.text.contains("文件") Then
                For Each ccm As object In cm.Command.CommandLinks
                    If ccm.text = "保存" Then
                        vars("保存") = ccm.command
                    End If
                    If ccm.text.contains("预览") Then
                        vars("预览") = ccm.command
                    End If
                Next
            End If
            If cm.text = "预览" Then
                hs = True
            End If
        Next
       
        if hs = false then
            Dim yl As new C1.Win.C1Command.C1CommandMenu
            yl.text = "预览"
            addhandler yl.click, addressof yl_commandclick
            menu.CommandLinks.add(new C1.Win.C1Command.C1CommandLink(yl))
        end if
    End If
End If

弄好了，谢谢甜老师！

按你上面的代码操作，没反应？

这种用法仅供玩玩。官方不保证可用，因为不保证底层窗口名称，控件名称不会变

那现在改了啥，能帮助一下吗，不然操作体验感有点不是很爽