| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 316 人关注过本帖
标题:谢谢各位大侠们。帮忙看看这是什么问题?我是准备写一个表盘的椭圆
只看楼主 加入收藏
君少
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2015-10-8
收藏
 问题点数:0 回复次数:0 
谢谢各位大侠们。帮忙看看这是什么问题?我是准备写一个表盘的椭圆
Module Module1
    Public Declare Function releasecapture Lib "user32" () As Integer
    Public Declare Function createellipticrgn Lib "gdi32" (ByVal x1 As Integer,
                                                            ByVal y1 As Integer, ByVal x2 As Integer, ByVal y2 As Integer) As Integer
    Public Declare Function setwindowrgn Lib "user32" (ByVal hwnd As Integer, ByVal hrgn As Integer, ByVal bredraw As Boolean) As Integer

End Module
    NotifyIcon1.Text = Date.Now.ToString
        Dim hnd As Long
        hnd = createellipticrgn(30, 0, 170, 140)
        setwindowrgn(Pbclock.Handle.toint32, hnd, True)
        pbclock.dock = DockStyle.Fill
        pbclock.backcolor = Color.Blue
说是声明与冲突  setwindowrgn和createellipticrgn
请详细的解释下,本人新手请多多指教
2015-10-08 22:59
快速回复:谢谢各位大侠们。帮忙看看这是什么问题?我是准备写一个表盘的椭圆
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.058105 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved