szlanpa 发表于 2014-12-29 09:45:13

【已解决】如何通过判断语句将Button状态设置为不可用

本帖最后由 szlanpa 于 2014-12-29 10:23 编辑

请教各位大大~
正在制作一个Office兼容模式切换的工具

现在已经实现判断Office版本并弹出提示告知用户安装的Office
能否做到再加个判断，如果检测安装的为Office2010版本，提示弹出来后将Office2007的几个按钮设置为Disable。反之将Office2010的按钮设置为Disable#Region ;**** 参数创建于 ACNWrapper_GUI ****
#PRE_icon=..\..\..\..\Program Files\Microsoft Office\Office14\protocolhandler.exe|-1
#PRE_Outfile=ODF.exe
#PRE_Res_requestedExecutionLevel=None
#EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
#include <GUIConstantsEx.au3>
ODF()
Func ODF()
        Local $Button1,$Button2,$Button3,$Button4,$msg
        $owordver = ObjCreate("Word.Application.8")
        $OfficeVer = $owordver.Version
        If $OfficeVer ="12.0" Then
                MsgBox(0,"温馨提示","您的Office版本为Office 2007,请运行Office 2007脚本")
        ElseIf $OfficeVer ="14.0" Then
                MsgBox(0,"温馨提示","您的Office版本为Office 2010,请运行Office 2010脚本")
        EndIf
        GUICreate("Office兼容模式切换助手",280,230)
        GUISetState(@SW_SHOW)
        GUICtrlCreateLabel("Office 2010",5,10)
        GUICtrlCreateLabel("Office 2007",5,70)
        GUICtrlCreateLabel("使用说明：",5,130)
        GUICtrlCreateLabel("工具适用范围（Word，Excel，PowerPoint）",5,150)
        GUICtrlCreateLabel("保存兼容模式:新建文档默认保存为Office2003格式",5,170)
        GUICtrlCreateLabel("还原默认模式:将文档默认保存恢复为原有格式",5,190)
        $Button1=GUICtrlCreateButton("保存兼容模式",25,30)
        $Button2=GUICtrlCreateButton("还原默认模式",135,30)
        $Button3=GUICtrlCreateButton("保存兼容模式",25,90)
        $Button4=GUICtrlCreateButton("还原默认模式",135,90)
        While 1
                $msg = GUIGetMsg()
                Select
                        Case $msg = $GUI_EVENT_CLOSE        ;点击关闭按钮，窗口关闭
                                ExitLoop
                        Case $msg = $Button1
                                Run('Office2010.bat')    ; 点击按钮 1 运行office 2007兼容脚本
                        Case $msg = $Button2
                                Run('Office2010_bak.bat')    ; 点击按钮 2 运行office 2007还原默认脚本
                        Case $msg = $Button3
                                Run('Office2007.bat')    ; 点击按钮 3 运行office 2010兼容脚本
                        Case $msg = $Button4
                                Run('Office2007_bak.bat')    ; 点击按钮 4 运行office 2010还原默认脚本                       
                EndSelect
        WEnd
EndFunc

austere 发表于 2014-12-29 10:19:21

回复 1# szlanpa #Region ;**** 参数创建于 ACNWrapper_GUI ****
#PRE_icon=..\..\..\..\Program Files\Microsoft Office\Office14\protocolhandler.exe|-1
#PRE_Outfile=ODF.exe
#PRE_Res_requestedExecutionLevel=None
#EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
#include <GUIConstantsEx.au3>
ODF()
Func ODF()
      Local $Button1,$Button2,$Button3,$Button4,$msg
      $owordver = ObjCreate("Word.Application.8")
      $OfficeVer = $owordver.Version
      If $OfficeVer ="12.0" Then
                MsgBox(0,"温馨提示","您的Office版本为Office 2007,请运行Office 2007脚本")
         ElseIf $OfficeVer ="14.0" Then
                MsgBox(0,"温馨提示","您的Office版本为Office 2010,请运行Office 2010脚本")
      EndIf
      GUICreate("Office兼容模式切换助手",280,230)
      GUISetState(@SW_SHOW)
      GUICtrlCreateLabel("Office 2010",5,10)
      GUICtrlCreateLabel("Office 2007",5,70)
      GUICtrlCreateLabel("使用说明：",5,130)
      GUICtrlCreateLabel("工具适用范围（Word，Excel，PowerPoint）",5,150)
      GUICtrlCreateLabel("保存兼容模式:新建文档默认保存为Office2003格式",5,170)
      GUICtrlCreateLabel("还原默认模式:将文档默认保存恢复为原有格式",5,190)
      $Button1=GUICtrlCreateButton("保存兼容模式",25,30)
      $Button2=GUICtrlCreateButton("还原默认模式",135,30)
      $Button3=GUICtrlCreateButton("保存兼容模式",25,90)
      $Button4=GUICtrlCreateButton("还原默认模式",135,90)
                If $OfficeVer ="12.0" Then
                        GUICtrlSetState($Button1, $GUI_DISABLE)
                        GUICtrlSetState($Button2, $GUI_DISABLE)
                EndIf
                If $OfficeVer ="14.0" Then
                        GUICtrlSetState($Button4, $GUI_DISABLE)
                        GUICtrlSetState($Button3, $GUI_DISABLE)
                EndIf
      While 1
                $msg = GUIGetMsg()
                Select
                        Case $msg = $GUI_EVENT_CLOSE      ;点击关闭按钮，窗口关闭
                              ExitLoop
                        Case $msg = $Button1
                              Run('Office2010.bat')    ; 点击按钮 1 运行office 2007兼容脚本
                        Case $msg = $Button2
                              Run('Office2010_bak.bat')    ; 点击按钮 2 运行office 2007还原默认脚本
                        Case $msg = $Button3
                              Run('Office2007.bat')    ; 点击按钮 3 运行office 2010兼容脚本
                        Case $msg = $Button4
                              Run('Office2007_bak.bat')    ; 点击按钮 4 运行office 2010还原默认脚本                        
                EndSelect
      WEnd
EndFunc

szlanpa 发表于 2014-12-29 10:23:26

回复 2# austere

非常感谢，功能已实现。

weeks5 发表于 2014-12-30 08:15:29

謝謝樓主分享。
页: [1]
查看完整版本: 【已解决】如何通过判断语句将Button状态设置为不可用