您的位置：程序门 -> .net技术 -> vb.net



如何在timer控件中的tick（)事件中绘图!


[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]


如何在timer控件中的tick（)事件中绘图!
发表于：2007-03-14 13:31:59 楼主
利用tick（)事件间隔地在usercontrol中绘制矩形?
请大侠们指教!
发表于：2007-03-14 13:46:201楼 得分:0
给你个例子参考下吧:
        private   sub   button1_click（byval   sender   as   system.object,   byval   e   as   system.eventargs)   handles   button1.click
                dim   timer   as   timer   =   new   timer（)
                timer.interval   =   100
                addhandler   timer.tick,   addressof   timereventprocessor
                timer.start（)
        end   sub

        private   sub   timereventprocessor（byval   myobject   as   object,   _
        byval   myeventargs   as   eventargs)
                dim   g   as   graphics   =   graphics.fromhwnd（me.handle)
                dim   rect   as   rectangle   =   me.clientrectangle

                dim   r   as   random   =   new   random（datetime.now.millisecond)
                dim   i   =   r.next（100)
                rect.inflate（-i,   -i)
                g.drawrectangle（systempens.controltext,   rect)
                g.dispose（)
        end   sub
发表于：2007-03-15 12:58:262楼 得分:0
谢谢!

相关文章
其他资讯

快速检索
分类导航标签a

最新资讯
热门点击