火山PC GDI+ GDIPLUS简易绘图示例

<火山程序类型= "通常"版本= 1 />方法我的主窗口_创建完毕<接收事件类型=整数注释= "当本组件及其中所有子组件均被创建完毕后发送此事件.">参数来源对象<类型=我的主窗口注释= "提供事件产生的具体来源对象">参数标记值<类型=整数注释= "用户调用\"挂接事件\"命令时所提供的\"标记值\"参数值,非此方式挂接事件则本参数值固定为0."> { GP令牌= GP初始类.初始化GDI ()图形.创建自窗口句柄(画板1.取窗口句柄(), )图形.置平滑模式(GP平滑模式.抗锯齿)图形.清除(GP颜色.到ARGB (颜色类.白色, ))画笔.创建自颜色(GP颜色.到ARGB (颜色选择器1.颜色, ),文本到整数(编辑框1.内容))画笔.置线帽(GP线帽.圆线帽, GP虚线帽.圆线帽)返回(0) }