已关注
关注
重播 分享 赞





Sub PressChkbox(control As IRibbonControl, pressed As Boolean) '复选框Select Case control.IDCase "chk_DWG"OutPutFileTypes.chk_DWG = pressedCase "chk_DXF"OutPutFileTypes.chk_DXF = pressedCase "chk_PDF"OutPutFileTypes.chk_PDF = pressedCase "chk_STEP"OutPutFileTypes.chk_STEP = pressedCase "chk_X-T"OutPutFileTypes.chk_X_T = pressedCase "chk_IGS"OutPutFileTypes.chk_IGS = pressedEnd SelectEnd Sub
Public Type chkBoxschk_DWG As Booleanchk_DXF As Booleanchk_PDF As Booleanchk_STEP As Booleanchk_X_T As Booleanchk_IGS As BooleanEnd TypePublic OutPutFileTypes As chkBoxs

夜雨聆风