''////////////////////////////////////////////////////////////////////////////////
'//
'//        Author:   zrs
'//          Date:     24-05-2019 09:07 AM
'//     File Name:   a1.VBS
'//
'//   Description:   Mastercam VB Script
'//
'//      Comments:   <insert comments here> 
'//
'////////////////////////////////////////////////////////////////////////////////


'///////////////// My Constants /////////////////



'///////////////// My Global Variables //////////



' -- Start Script
Call Main()


' ////////////////////
' Sub Declaration
' ////////////////////
Sub Main()

    Dim mcColor_Current			'定义变量mcColor_Current（Dim 是关键字,定义变量）
    mcColor_Current=GetBackGroundColor	'获取当前MC背景颜色

    ShowString("现在我想把屏幕背景弄成白色.")  	'显示对话框
    
   Call SetBackGroundColor(mcCOLOR_WHITE)	'变更背景颜色为白色
   Call RepaintScreen(False)			'刷新屏幕: 一般更改屏幕内容后需要刷新屏幕
   Call RunMastercamCommand("clipbrd")	'调用内置命令:截图
   	
   If askYesNo("是否恢复原有背景色?")=1 Then	'询问是否恢复原有MC背景颜色: =1(点击Yes)恢复
      Call SetBackGroundColor(mcColor_Current)	
      Call RepaintScreen(False)
   End If
	

End Sub