关于窗体透明，只显示控件 。。。 。。。

[chenxyon]

请问以下的代码总是出在何处，为什么可见的位置不在控件上
Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
Private Declare Function CreatePolygonRgn Lib "gdi32" (lpPoint As POINTAPI, ByVal nCount As Long, ByVal nPolyFillMode As Long) As Long
Private Type POINTAPI
x As Long
y As Long
End Type
Private Const WINDING = 2

Private Sub Form_Load()
Dim point(0 To 3) As POINTAPI
Dim a As Long, b As Long
Me.ScaleMode = 3
point(0).x = Command1.Left + 3
point(1).x = Command1.Left + Command1.Width + 3
point(2).x = Command1.Left + Command1.Width + 3
point(3).x = Command1.Left + 3
point(0).y = Command1.Top + Command1.Height
point(1).y = Command1.Top + Command1.Height
point(2).y = Command1.Top + 2 * Command1.Height
point(3).y = Command1.Top + 2 * Command1.Height
a = CreatePolygonRgn(point(0), 4, 2)
b = SetWindowRgn(Me.hWnd, a, True)
End Sub

[chenxyon]

up

[jhnhu]

在msdn library online中文 上有文章讲怎么做的！
刚才搜索了一下 没找到 ：（

[cnming]

这是不是VB 6.0 做不规则窗体的代码？

有什么问题？

[CForce]

兄弟,你跑错位置了吧？这里是C#，不是vb啊？

你窗体的尺寸包括了窗体的“标题栏”的！！所以.....
最简单的解决办法就是把窗体的BorderStyle设为0-none