修改（自定义）窗口的标题栏和图标

发布时间：2020-12-17 08:11:05 所属栏目：百科来源：网络整理

导读：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.Applicat

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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!