我想在窗体体上显示一张圆形图片，我用了picture和image控件。。但是它们都是矩形。。。等我把图形的图片装进去后，很难看，也会把四个角底下的东西给遮了。。。如下图
请问我该如何设置或者用什么控件可以解决此问题？把那四个角给去掉。。。

[此贴子已经被作者于2007-1-2 22:40:41编辑过]

谁来帮帮忙

[此贴子已经被作者于2007-1-2 23:23:22编辑过]

可以借助于ImageList控件..里面有个MaskColor的属性..

可以用Image控件 顯示的GIF圖片可以不代揹景色的````

'窗体代码如下。窗体中添加两个PictureBox控件一个command控件
Private Declare Function CreateRoundRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long) As Long
Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Long) As Long
Private Declare Function CreateRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long

Private Sub Command1_Click()
Dim RgnLong As Long
If Command1.Caption = "取消马的边框" Then
SetRGN Picture1.hWnd
Command1.Caption = "显示马的边框"
Else
RgnLong = CreateRectRgn(1, 1, 94, 94) '这里的94分别是Picture1.ScaleWidth +4 和 Picture1.ScaleHeight+4
If RgnLong Then SetWindowRgn Picture1.hWnd, RgnLong, True
Command1.Caption = "取消马的边框"
End If
End Sub

Private Sub Form_Load()
Command1.Caption = "取消马的边框"
SetRGN (Picture2.hWnd)
End Sub

Private Function SetRGN(ByVal hWnd As Long)
Dim RgnLong As Long

RgnLong = CreateRoundRectRgn(1, 1, 94, 94, 94, 94) '这里的94分别是Picture1.ScaleWidth +4 和 Picture1.ScaleHeight+4
If RgnLong Then SetRGN = SetWindowRgn(hWnd, RgnLong, True)

End Function

'附上工程源码

[此贴子已经被作者于2007-1-3 10:44:46编辑过]

你是不是想自己做个相棋游戏程序啊？
如果可以的话能不能做好后给我寄份源码？

把圖片給我```給伱PS一下````

首先谢谢各位的帮助。。。昨天晚上后来这个问题我解决了。。采用的是4楼的办法。。。我一开始把棋子PS出来的时候，保存成了JPG格式，在PS里面背景是透明的。但是JPG不支持透明，GIF才行（后来一哥们跟我讲的，这才恍然大悟，换成GIF格式就行了）。。于是把那些图又改了一下。。。这下好了。。图传上来大家看看。。那个大的是一开始我PS出来的，后来的那个小的是后来改的

回6楼，我是准备做一个中国象棋的游戏。。。不过我写的是两个人对玩的。。不能和电脑玩。。。人工智能还不太了解。。写不出来那算法。。。做好了我会把源码发给你的。。。留下你的邮箱先

[此贴子已经被作者于2007-1-3 14:09:10编辑过]