1. 程式人生 > >修改(自定義)視窗的標題欄和圖示

修改(自定義)視窗的標題欄和圖示

Imports ZwSoft.ZwCAD.Runtime
Imports System.Drawing
Imports ZwApp = ZwSoft.ZwCAD.ApplicationServices


Public Class ZwcadApp
    <CommandMethod("ChangeWindow")> _
    Public Sub ChangeWindow()
        Dim MWindow As ZwSoft.ZwCAD.Windows.Window = ZwApp.Application.MainWindow
        MWindow.Text = "Just a test!"
        MWindow.Icon = New Icon("F:\ficon.ico")
        ZwApp.Application.ShowAlertDialog("Done!")
    End Sub
End Class