怎样得到图片边界?请高手点拨一下,最好用VB2005

[123工艺品]

我用的是VB2005,我想做个图片样式的窗体.

如果用窗体透明色来做,窗体只是局部变透明了,大小没变,感觉不是很好.

请高手点拨一下,怎样得到一个*.gif图片的非透明色区域的边界(或集合).

来个详细的VB2005代码(我是新手).谢谢!!!

[123工艺品]

自已顶起来！！！！！！！！！！！

恳求高手的指点

[wsk200209]

这个嘛...

[水猿兵团五哥]

建议你搜索下自定义窗体

看过一些高人写过的自定义窗体形状，是采用GDI画图一样的画出来的
但是我也觉得那种方法不太好，控件多了就很麻烦

目前我也没发现多少好的 简单的解决方法，有的话也告诉我，谢谢

[123工艺品]

没人坐沙发吗？
跪求各位高手给个代码啊。。。。。
自已顶起来

[123工艺品]

1楼的抢了我的沙发。。。。
另外不要什么好的简单方法也行啊
最好给出VB2005的详细代码
谢谢

[123工艺品]

添加一个模块：

 
Option   Explicit 
Public   Declare   Function   SetWindowPos   Lib   "user32 "   (ByVal   hwnd   As   Long,   ByVal   hWndInsertAfter   As   Long,   ByVal   X   As   Long,   ByVal   Y   As   Long,   ByVal   cx   As   Long,   ByVal   cy   As   Long,   ByVal   wFlags   As   Long)   As   Long 
Public   Const   HWND_TOPMOST   =   -1 
Public   Const   HWND_NOTOPMOST   =   -2 
Public   Const   SWP_NOMOVE   =   &H2 
Public   Const   SWP_NOSIZE   =   &H1 
Public   Const   SWP_SHOWWINDOW   =   &H40 
Public   Declare   Function   SetWindowRgn   Lib   "user32 "   (ByVal   hwnd   As   Long,   ByVal   hRgn   As   Long,   ByVal   bRedraw   As   Boolean)   As   Long 
Public   Declare   Function   CombineRgn   Lib   "gdi32 "   (ByVal   hDestRgn   As   Long,   ByVal   hSrcRgn1   As   Long,   ByVal   hSrcRgn2   As   Long,   ByVal   nCombineMode   As   Long)   As   Long 
Public   Declare   Function   CreateRectRgn   Lib   "gdi32 "   (ByVal   X1   As   Long,   ByVal   Y1   As   Long,   ByVal   X2   As   Long,   ByVal   Y2   As   Long)   As   Long 
Public   Const   RGN_AND   =   1 
Public   Const   RGN_COPY   =   5 
Public   Const   RGN_DIFF   =   4 
Public   Const   RGN_OR   =   2 
Public   Const   RGN_XOR   =   3 
Public   Declare   Function   GetPixel   Lib   "gdi32 "   (ByVal   HDC   As   Long,   ByVal   X   As   Long,   ByVal   Y   As   Long)   As   Long 
Public   Declare   Function   BitBlt   Lib   "gdi32 "   (ByVal   hDestDC   As   Long,   ByVal   X   As   Long,   ByVal   Y   As   Long,   ByVal   nWidth   As   Long,   ByVal   nHeight   As   Long,   ByVal   hSrcDC   As   Long,   ByVal   xSrc   As   Long,   ByVal   ySrc   As   Long,   ByVal   dwRop   As   Long)   As   Long 
Public   Declare   Function   SelectObject   Lib   "gdi32 "   (ByVal   HDC   As   Long,   ByVal   hObject   As   Long)   As   Long 
Public   Declare   Function   CreateCompatibleBitmap   Lib   "gdi32 "   (ByVal   HDC   As   Long,   ByVal   nWidth   As   Long,   ByVal   nHeight   As   Long)   As   Long 
Public   Declare   Function   CreateCompatibleDC   Lib   "gdi32 "   (ByVal   HDC   As   Long)   As   Long 
Public   Declare   Function   DeleteObject   Lib   "gdi32 "   (ByVal   hObject   As   Long)   As   Long 
Public   Declare   Function   DeleteDC   Lib   "gdi32 "   (ByVal   HDC   As   Long)   As   Long 
Public   Const   SRCAND   =   &H8800C6 
Public   Const   SRCCOPY   =   &HCC0020 
Public   Const   MERGEPAINT   =   &HBB0226 
Public   Const   WM_NCLBUTTONDOWN   =   &HA1 
Public   Const   HTCAPTION   =   2 
Public   Declare   Sub   ReleaseCapture   Lib   "user32 "   () 
Public   Declare   Function   SendMessage   Lib   "user32 "   Alias   "SendMessageA "   (ByVal   hwnd   As   Long,   ByVal   wMsg   As   Long,   ByVal   wParam   As   Long,   lParam   As   Any)   As   Long 
Public   Declare   Sub   Sleep   Lib   "kernel32 "   (ByVal   dwMilliseconds   As   Long) 
Private   FW   As   Long 
Private   FH   As   Long 
Private   Const   BGColor   =   vbBlack 

Public   Function   CreateRegionFromFile(ByVal   strFile   As   String,   ByVal   Obj   As   Form)   As   Long 
        Dim   T   As   Integer 
        Dim   R   As   Integer 
        Obj.ScaleMode   =   3 
        FW   =   Obj.ScaleWidth 
        FH   =   Obj.ScaleHeight 
        Dim   DC   As   Long 
        Dim   BMP   As   Long 
        Dim   Pix   As   Long 
        Dim   rgnInv   As   Long 
        Dim   rgn   As   Long 
        Dim   rgnTotal   As   Long 
        
        DC   =   CreateCompatibleDC(Obj.HDC) 
        BMP   =   SelectObject(DC,   LoadPicture(strFile)) 
        
        rgnTotal   =   CreateRectRgn(0,   0,   FW,   FH) 
        rgnInv   =   CreateRectRgn(0,   0,   FW,   FH) 
        
        CombineRgn   rgnTotal,   rgnTotal,   rgnTotal,   RGN_XOR 
        
        For   T   =   0   To   FW 
                For   R   =   0   To   FH 
                        Pix   =   GetPixel(DC,   T,   R) 
                        If   Pix   =   BGColor   Then 
                                rgn   =   CreateRectRgn(T,   R,   T   +   1,   R   +   1) 
                                CombineRgn   rgnTotal,   rgnTotal,   rgn,   RGN_OR 
                                DeleteObject   rgn 
                        End   If 
                Next   R 
                DoEvents 
        Next   T 
        CombineRgn   rgnTotal,   rgnTotal,   rgnInv,   RGN_XOR 
        CreateRegionFromFile   =   rgnTotal 
End   Function 

form1的代码： 

Option   Explicit 

Private   Sub   Form_Load() 
        Dim   face   As   Long 
        face   =   CreateRegionFromFile( "F:\资料\vb实验\LED播放软件\MainDesk.bmp ",   Form1) 
        SetWindowRgn   Me.hwnd,   face,   True 
        SetWindowPos   Me.hwnd,   HWND_NOTOPMOST,   0,   0,   0,   0,   SWP_NOMOVE   +   SWP_NOSIZE   +   SWP_SHOWWINDOW 
End   Sub 

Private   Sub   Form_MouseDown(Button   As   Integer,   Shift   As   Integer,   X   As   Single,   Y   As   Single) 
        If   Button   =   1   Then 
                ReleaseCapture 
                SendMessage   hwnd,   WM_NCLBUTTONDOWN,   HTCAPTION,   ByVal   0&       可以移动图片窗体 
        End   If 
        
End   Sub 

注意：form1的部分属性要设成以下值：
autoredraw=true
borderstyle=0
backcolor=vbblack
picture=F:\资料\vb实验\LED播放软件\MainDesk.bmp(也就是你要显示的画面）
窗体大小要刚好和图片大小适当


这是我在网上找到的，用VB6实现自定义窗体代码，麻烦那位给转换成VB2005的