Private Sub SetDesignMode(ByVal design As Boolean)        
    ' 显示/隐藏预览/设计面板
    _c1rd.Visible  = design        
    _c1ppv.Visible = Not design
   
    '在预览模式不显示属性
    If Not design Then        
        _lblPropGrid.Text = "Properties"        
        _ppg.SelectedObject = Nothing        
    End If
  
    ' 将报表的一个副本关联到预览控件
    ' （因此脚本所引发的变更不会保存）        
    If Not design Then        
        _c1ppv.Document = Nothing        
        _c1r.CopyFrom(_c1rd.Report)        
        Cursor = Cursors.WaitCursor        
        _c1r.Render()        
        If _c1r.PageImages.Count > 0 Then        
            _c1ppv.Document = _c1r        
        End If        
        Cursor = Cursors.Default        
    End If
 
    ' 完成，更新UI      
    UpdateUI()        
End Sub