由图片得到异形窗体

原创 2006年05月24日 10:33:00

 

Public Class Form1

    Dim bmpBackground As Bitmap = Nothing

 

    Sub New()

        ' 此调用是Windows 窗体设计器所必需的。

        InitializeComponent()

 

        ' 在InitializeComponent() 调用之后添加任何初始化。

        FormBorderStyle = Windows.Forms.FormBorderStyle.None

    End Sub

 

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        SetBackgroundBitmap(Color.FromArgb(255, 0, 255))

    End Sub

 

    Protected Sub SetBackgroundBitmap(ByVal transparencyColor As Color)

        Me.bmpBackground = New Bitmap(MyClass.GetType(), "skin.bmp")

        Width = Me.bmpBackground.Width

        Height = Me.bmpBackground.Height

        Region = BitmapToRegion(Me.bmpBackground, transparencyColor)

    End Sub

 

    Protected Function BitmapToRegion(ByVal bitmap As Bitmap, ByVal transparencyColor As Color) As Region

        Dim height As Integer = bitmap.Height

        Dim width As Integer = bitmap.Width

        Dim path As New Drawing2D.GraphicsPath()

        Dim i As Integer

        Dim j As Integer

 

        For j = 0 To (height - 1)

            For i = 0 To (width - 1)

                If Not bitmap.GetPixel(i, j).Equals(transparencyColor) Then

                    Dim x0 As Integer = i

                    Do While ((i < width) AndAlso (Not bitmap.GetPixel(i, j).Equals(transparencyColor)))

                        i += 1

                    Loop

                    path.AddRectangle(New Rectangle(x0, j, i - x0, 1))

                End If

            Next

        Next

 

        Dim region As New Region(path)

        path.Dispose()

        Return region

    End Function

 

    Protected Overrides Sub OnPaintBackground(ByVal e As PaintEventArgs)

        Dim grfx As Graphics = e.Graphics

        grfx.PageUnit = GraphicsUnit.Pixel

        Dim offScreenGraphics As Graphics

        Dim offScreenBitmap As Bitmap

        offScreenBitmap = New Bitmap(Me.bmpBackground.Width, Me.bmpBackground.Height)

        offScreenGraphics = Graphics.FromImage(offScreenBitmap)

        If Not Me.bmpBackground Is Nothing Then

            offScreenGraphics.DrawImage(Me.bmpBackground, 0, 0, _

                                        Me.bmpBackground.Width, _

                                        Me.bmpBackground.Height)

        End If

        grfx.DrawImage(offScreenBitmap, 0, 0)

    End Sub

 

End Class

用到的 skin.bmp 你也可以自己找(应该看过的吧)

 

环境:Visual Studio2005

用PNG透明图片和GDI+做不规则透明窗体"异形窗口"

一、准备工作(PNG图片透空窗体) 1、图片资源准备工作。首先在Photoshop中编辑所用图片,将这些图片保存成为带透明通道的.png格式(GDI+调用显示时能够透明调背景)。这样程序中图片资源就...

Windows界面编程第四篇 异形窗体 高富帅版

上一篇《Windows界面编程第三篇 异形窗体 普通版》介绍了异形窗口(异形窗体)的创建,其主要步骤为——先通过创建位图画刷来做窗口的背景画刷,再通过SetWindowLong为窗体加上WS_EX_L...

Windows界面编程第三篇 异形窗体 普通版

上一篇《Windows界面编程第二篇 半透明窗体》介绍了先使用SetWindowLong为窗体加上WS_EX_LAYERED属性,再使用SetLayeredWindowAttributes调整窗体...

win32下创建异形窗体

  • 2014年04月15日 18:31
  • 234KB
  • 下载

VB制作GIF异形窗体

  • 2011年10月17日 10:21
  • 537KB
  • 下载

delphi 异形窗体可半透明

unit xDrawForm; interface uses Windows, Messages, SysUtils, Classes, Controls, Forms, Menus, Gr...
  • wc1000
  • wc1000
  • 2015年07月18日 16:05
  • 921

.NET构造异形窗体(C#)

  • 2009年06月18日 17:23
  • 305KB
  • 下载

java 异形窗体 学习01

【转】 Java根据图片建立不规则窗体详解 2010-01-24 15:46:29 标签:java 图片 窗体 不规则窗体 异形 原创作品,允许转载,转载时请务必以超链接形式标明文章...

jdk7透明异形窗体

在jdk6中设置透明异形窗体的方法与jdk7方法的比较 Method in Java SE 6 Update 10 JDK 7 Equivalent AWTUtili...

异形窗体VC源代码下载

  • 2009年11月24日 11:01
  • 43KB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:由图片得到异形窗体
举报原因:
原因补充:

(最多只允许输入30个字)