注册 登录
编程论坛 VB6论坛

谢谢各位大侠们。帮忙看看这是什么问题?我是准备写一个表盘的椭圆

君少 发布于 2015-10-08 22:59, 316 次点击
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
请详细的解释下,本人新手请多多指教
0 回复
1