以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助][求助]系统模板设计辅助工具能自己做吗？？？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=52245)
--  作者：aalons
--  发布时间：2014/6/11 21:32:00
--  [求助][求助]系统模板设计辅助工具能自己做吗？？？
[求助]系统模板设计辅助工具能自己做吗？？？   
Syscmd.Project.NewWordTemplate()    


图贴不上来，上传附件，上传成功了，找不到地址。论坛该换换了
--  作者：有点甜
--  发布时间：2014/6/11 21:35:00
--  

 直接运行命令，不是就打开了设计器了么？
--  作者：aalons
--  发布时间：2014/6/11 21:42:00
--  

图片点击可在新窗口打开查看此主题相关图片如下：捕获.png
图片点击可在新窗口打开查看  想自己设计里面的内容
--  作者：有点甜
--  发布时间：2014/6/11 21:51:00
--  

 没有办法，你做一个 计划任务 吧，写入代码

 

Dim frm As object = system.windows.Forms.Form.activeform
If frm IsNot Nothing AndAlso frm.text Like "*设计器*" Then
    frm.text = "我的设计器"
End If

 

 http://www.foxtable.com/help/topics/0657.htm

 
--  作者：aalons
--  发布时间：2014/6/11 22:22:00
--  
 
图片点击可在新窗口打开查看此主题相关图片如下：捕获.png
图片点击可在新窗口打开查看


那这里面的内容能改成自己想要的吗？就是重新设计整个内容
--  作者：有点甜
--  发布时间：2014/6/11 22:26:00
--  

 可以，参考来改

 

Dim frm As object = system.windows.Forms.Form.activeform
If frm IsNot Nothing AndAlso frm.text Like "*设计器*" Then
    frm.text = "我的设计器"
    For Each o As object In frm.controls
        output.show(o.name)
    Next
    frm.controls("btnPreview").Text = "我的预览"
End If
--  作者：lsy
--  发布时间：2014/6/12 6:16:00
--  
以下是引用有点甜在2014-6-11 22:26:00的发言：

 可以，参考来改

 

Dim frm As object = system.windows.Forms.Form.activeform
If frm IsNot Nothing AndAlso frm.text Like "*设计器*" Then
    frm.text = "我的设计器"
    For Each o As object In frm.controls
        output.show(o.name)
    Next
    frm.controls("btnPreview").Text = "我的预览"
End If

有参考价值。