函數(shù)代碼：?（ALT+F11快速進(jìn)入宏編輯）

Public Sub Demo1() Rem|"視圖-此處為第一種注釋方法" ' Load UserForm1 加載窗口UserForm1-此處為第二種注釋方法Load UserForm1If ActiveWindow.ActiveView.Type = cdrEnhancedView ThenUserForm1.Text = "Enhanced"ElseIf ActiveWindow.ActiveView.Type = cdrNormalView ThenUserForm1.Text = "Normal"ElseIf ActiveWindow.ActiveView.Type = cdrWireframeView ThenUserForm1.Text = "Wireframe"ElseIf ActiveWindow.ActiveView.Type = cdrSimpleWireframeView ThenUserForm1.Text = "Simple Wireframe"ElseIf ActiveWindow.ActiveView.Type = cdrEnhancedViewWithOverprints ThenUserForm1.Text = "Enhanced WithOverprints"ElseUserForm1.Text = "Draft" '此處結(jié)束If語(yǔ)句判斷End If '顯示(名稱)為UserForm1的窗口UserForm1.Show '函數(shù)結(jié)束語(yǔ) End Sub

窗口效果圖：?

查看窗口代碼：?

Private Sub Bt1_Click() '賦值視圖類型 ActiveWindow.ActiveView.Type = cdrSimpleWireframeView MsgBox "簡(jiǎn)單線框" '給文本框賦值 Text.Text = "Simple Wireframe" '刷新顯示 UserForm1.Repaint End SubPrivate Sub Bt2_Click() ActiveWindow.ActiveView.Type = cdrWireframeView MsgBox "線框" Text.Text = "Wireframe" '刷新顯示 UserForm1.Repaint End SubPrivate Sub Bt3_Click() ActiveWindow.ActiveView.Type = cdrDraftView MsgBox "草稿" Text.Text = "Draft" '刷新顯示 UserForm1.Repaint End SubPrivate Sub Bt4_Click() ActiveWindow.ActiveView.Type = cdrNormalView MsgBox "正常" Text.Text = "Normal" '刷新顯示 UserForm1.Repaint End SubPrivate Sub Bt5_Click() ActiveWindow.ActiveView.Type = cdrEnhancedView MsgBox "增強(qiáng)" Text.Text = "Enhanced" '刷新顯示 UserForm1.Repaint End SubPrivate Sub Bt6_Click() ActiveWindow.ActiveView.Type = cdrEnhancedViewWithOverprints MsgBox "使用疊印增強(qiáng)" Text.Text = "Enhanced WithOverprints" '刷新顯示 UserForm1.Repaint End Sub

?到繪圖界面運(yùn)行宏名稱為Demo1的宏

效果圖：

…………………………………………………………4:46繼續(xù)更新

總結(jié)

以上是生活随笔為你收集整理的CorelDRAW——VBA实例篇一个简单的VBA插件的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問(wèn)題。

如果覺(jué)得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。