博客园_Carlwave-陆飞(Fei.Lu)

阔别N年，仅仅记录一下，独自一人饮酒，这滋味。。。你懂的。。

2011-09-30T21:24:00Z

再次回到伦敦，有很多回忆，不过这次的经历真的不同。。。印象已经非常模糊对之前一次。。。仅仅记录。。。独在异乡为异客，不是TM闹着玩的。。。

本文链接

推荐一处买望远镜的网站：博士能望远镜上海官方销售 - 38度光 http://www.38optics.com

2010-08-05T02:07:00Z

在38度光买了一个，感觉东西不错。应店家要求，帮他稍许做做宣传。

38度光是国内最专业的进口光学产品经销商,博士能上海官方销售.主营进口博士能,tasco望远镜,夜视仪,天文望远镜,价格低,折扣大,

手机:13701818241,QQ:1308851610,旺旺:38度光

其取名38度光，源于光速是3X10的8次方。

网站比较专业，东西也不错，所以推荐下。http://www.38optics.com

本文链接

VS.net图片加水印的代码

2010-07-02T10:11:00Z

前文：实在是好久没有更新这个博客了。主要是本人现在不走技术路线，过了那个研究技术的年代了。现在做一些零散的很多事情。

今天突然收到猎头的邮件，看着心里激动啊。呵呵。当然，目前的状况也就看看，毕竟人生的目标和要求已经变了。此一时彼一时

但还是TMD激动啊。。。

翻了翻自己的文件夹，最近实在是没有什么原创的东西，把这个很久以前做的图片加水印的程序share出来，我做了些小封装。不算完全原创。

Imports Microsoft.VisualBasic
Imports System
Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Drawing.Imaging
Imports System.IO

'code ex:
'Dim wm As New ImageDrawing.ImageModify
' thefile.PostedFile.SaveAs(System.Web.HttpContext.Current.Server.MapPath("1.jpg")) //thisfile is a file upload html control
'Dim imgoutput As Image = System.Drawing.Bitmap.FromFile(System.Web.HttpContext.Current.Server.MapPath("1.jpg"))

'        With wm
'            .WaterMarkImagePath = System.Web.HttpContext.Current.Server.MapPath("a.gif")
'            .LucencyPercent = 10
'            .ModifyImagePath = System.Web.HttpContext.Current.Server.MapPath("1.jpg")
'            .WaterImagePosition = ImageDrawing.ImageModify.WaterImagePositionType.RightBottom
'            .OutPath = System.Web.HttpContext.Current.Server.MapPath("2.jpg")
'            .DrawImage()
'        End With

Namespace ImageDrawing
    '/// <summary>
    '/// 图片修改类,主要是用来保护图片版权的
    '/// </summary>

Public Class ImageModify

#Region "member fields"
        Private mModifyImagePath As String = ""
        Private mWaterMarkImagePath As String = ""
        Private mWaterImagePosition As WaterImagePositionType
        Private mRightSpace As Int32
        Private mBottoamSpace As Int32
        Private mLucencyPercent As Int32 = 50
        Private mOutPath As String = ""
#End Region

'///设置水印在原图像中的位置
        Public Enum WaterImagePositionType
            LeftTop
            RightTop
            Center
            LeftBottom
            RightBottom
            Value
        End Enum

#Region "propertys"
        '/// <summary>
        '/// 获取或设置要修改的图像路径
        '/// </summary>
        Public Property ModifyImagePath() As String
            Get
                Return mModifyImagePath
            End Get
            Set(ByVal Value As String)
                mModifyImagePath = Value
            End Set
        End Property

'/// <summary>
        '/// 获取或设置在画的图片路径(水印图片)
        '/// </summary>
        Public Property WaterMarkImagePath() As String
            Get
                Return mWaterMarkImagePath
            End Get
            Set(ByVal Value As String)
                mWaterMarkImagePath = Value
            End Set
        End Property

'///设置水印在原图像中的位置
        Public Property WaterImagePosition() As WaterImagePositionType
            Get
                Return mWaterImagePosition
            End Get
            Set(ByVal Value As WaterImagePositionType)
                mWaterImagePosition = Value
            End Set
        End Property

'/// <summary>
        '/// 获取或设置水印在修改图片中的右边距
        '/// </summary>
        Public Property RightSpace() As Int32
            Get
                Return mRightSpace
            End Get
            Set(ByVal Value As Int32)
                mRightSpace = Value
            End Set
        End Property

'//获取或设置水印在修改图片中距底部的高度
        Public Property BottoamSpace() As Int32
            Get
                Return mBottoamSpace
            End Get
            Set(ByVal Value As Int32)
                mBottoamSpace = Value
            End Set
        End Property

'/// <summary>
        '/// 获取或设置要绘制水印的透明度,注意是原来图片透明度的百分比
        '/// </summary>
        Public Property LucencyPercent() As Int32
            Get
                Return mLucencyPercent
            End Get
            Set(ByVal Value As Int32)
                If Value >= 0 And Value <= 100 Then
                    mLucencyPercent = Value
                Else
                    mLucencyPercent = 50
                End If

End Set
End Property

'/// <summary>
        '/// 获取或设置要输出图像的路径
        '/// </summary>
        Public Property OutPath() As String
            Get
                Return mOutPath
            End Get
            Set(ByVal Value As String)
                mOutPath = Value
            End Set
        End Property

#End Region

#Region "methods"
        '/// <summary>
        '/// 开始绘制水印/图片水印，可设置透明度等
        '/// </summary>
        Public Function DrawImage() As Boolean

Dim bolReturn As Boolean = True

Dim modifyImage As Image = Nothing
            Dim drawedImage As Image = Nothing
            Dim g As Graphics = Nothing
            Try
                '//建立图形对象
                modifyImage = Image.FromFile(Me.ModifyImagePath)
                drawedImage = Image.FromFile(Me.WaterMarkImagePath)
                g = Graphics.FromImage(modifyImage)
                '//获取要绘制图形坐标
                Dim x As Int32
                Dim y As Int32
                Select Case Me.WaterImagePosition
                    Case WaterImagePositionType.Center
                        x = (modifyImage.Width - drawedImage.Width) / 2
                        y = (modifyImage.Height - drawedImage.Height) / 2
                    Case WaterImagePositionType.LeftBottom
                        x = 0
                        y = modifyImage.Height - drawedImage.Height
                    Case WaterImagePositionType.LeftTop
                        x = 0
                        y = 0
                    Case WaterImagePositionType.RightBottom
                        x = modifyImage.Width - drawedImage.Width
                        y = modifyImage.Height - drawedImage.Height
                    Case WaterImagePositionType.RightTop
                        x = modifyImage.Width - drawedImage.Width
                        y = 0
                    Case WaterImagePositionType.Value
                        x = modifyImage.Width - Me.RightSpace
                        y = modifyImage.Height - Me.BottoamSpace
                    Case Else
                        x = 0
                        y = 0
                End Select
                If x < 0 Then
                    x = 0
                End If
                If y < 0 Then
                    y = 0
                End If
                '//设置颜色矩阵
                Dim colorMatrix As ColorMatrix = New ColorMatrix(New Single()() _
                   {New Single() {1, 0, 0, 0, 0}, _
                    New Single() {0, 1, 0, 0, 0}, _
                    New Single() {0, 0, 1, 0, 0}, _
                    New Single() {0, 0, 0, Convert.ToSingle(Me.LucencyPercent / 100.0F), 0}, _
                    New Single() {0, 0, 0, 0, 1}})

Dim imgAttr As ImageAttributes = New ImageAttributes
                imgAttr.SetColorMatrix(colorMatrix, ColorMatrixFlag.Default, ColorAdjustType.Bitmap)
                '//绘制阴影图像
                g.DrawImage(drawedImage, New Rectangle(x, y, drawedImage.Width, drawedImage.Height), 0, 0, drawedImage.Width, drawedImage.Height, GraphicsUnit.Pixel, imgAttr)
                '//保存文件
                Dim allowImageType As String() = {".jpg", ".gif", ".png", ".bmp", ".tiff", ".wmf", ".ico"}
                Dim file As FileInfo = New FileInfo(Me.ModifyImagePath)
                Dim imageType As ImageFormat = ImageFormat.Gif
                Select Case file.Extension.ToLower()
                    Case ".jpg"
                        imageType = ImageFormat.Jpeg
                    Case ".gif"
                        imageType = ImageFormat.Gif
                    Case ".png"
                        imageType = ImageFormat.Png
                    Case ".bmp"
                        imageType = ImageFormat.Bmp
                    Case ".tif"
                        imageType = ImageFormat.Tiff
                    Case ".wmf"
                        imageType = ImageFormat.Wmf
                    Case ".ico"
                        imageType = ImageFormat.Icon
                    Case Else
                        imageType = ImageFormat.Jpeg
                End Select
                Dim ms As MemoryStream = New MemoryStream()
                modifyImage.Save(ms, imageType)
                Dim imgData As Byte() = ms.ToArray()
                Dim fs As FileStream = Nothing

If Not Me.OutPath.Equals(String.Empty) Then
                    fs = New FileStream(Me.OutPath, FileMode.Create, FileAccess.Write)
                Else
                    fs = New FileStream(Me.ModifyImagePath, FileMode.Create, FileAccess.Write)
                End If
                If Not fs Is Nothing Then
                    fs.Write(imgData, 0, imgData.Length)
                    fs.Close()
                End If
            Catch ex As Exception
                bolReturn = False
            Finally

End Try
Return bolReturn

End Function

'修改图片大小
        Public Function SizeChange(ByVal intWidth As Int32, ByVal intHeight As Int32) As Boolean
            Dim bolReturn As Boolean = True
            Try
                Dim modifyImage As Image = Image.FromFile(Me.ModifyImagePath)
                '//
                Dim imageOut As Image = modifyImage.GetThumbnailImage(intWidth, intHeight, Nothing, System.IntPtr.Zero)
                '//保存文件
                Dim allowImageType As String() = {".jpg", ".gif", ".png", ".bmp", ".tiff", ".wmf", ".ico"}
                Dim file As FileInfo = New FileInfo(Me.ModifyImagePath)
                Dim imageType As ImageFormat
                Select Case file.Extension.ToLower()
                    Case ".jpg"
                        imageType = ImageFormat.Jpeg
                    Case ".gif"
                        imageType = ImageFormat.Gif
                    Case ".png"
                        imageType = ImageFormat.Png
                    Case ".bmp"
                        imageType = ImageFormat.Bmp
                    Case ".tif"
                        imageType = ImageFormat.Tiff
                    Case ".wmf"
                        imageType = ImageFormat.Wmf
                    Case ".ico"
                        imageType = ImageFormat.Icon
                    Case Else
                        imageType = ImageFormat.Jpeg
                End Select
                imageOut.Save(OutPath, imageType)
            Catch ex As Exception
                bolReturn = False
            Finally

End Try
Return bolReturn

End Function
#End Region

#Region "new"
        Public Sub New()
            ModifyImagePath = ""
            WaterMarkImagePath = ""
            RightSpace = 0
            BottoamSpace = 0
            LucencyPercent = 50
            OutPath = ""
            mWaterImagePosition = WaterImagePositionType.LeftTop
        End Sub

#End Region
End Class

End Namespace

调用部分：

Imports System.IO
Imports System.Drawing

Partial Class PicTest2
Inherits System.Web.UI.Page

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        '//thefile是个file field html 控件
        thefile.PostedFile.SaveAs(System.Web.HttpContext.Current.Server.MapPath("BBS\SnkProductImages\1.jpg"))
        Dim memstream As System.IO.MemoryStream = New System.IO.MemoryStream()
        Dim imgoutput As System.Drawing.Image = System.Drawing.Bitmap.FromFile(System.Web.HttpContext.Current.Server.MapPath("BBS\SnkProductImages\1.jpg"))
        '//修改成80×80大小
        Dim imgoutput2 As System.Drawing.Image = imgoutput.GetThumbnailImage(80, 80, Nothing, System.IntPtr.Zero)
        imgoutput2.Save(System.Web.HttpContext.Current.Server.MapPath("BBS\SnkProductImages\2.jpg"), System.Drawing.Imaging.ImageFormat.Jpeg)
        Response.Write(thefile.PostedFile.FileName)
        Response.Write("len:" + memstream.length.tostring())
        imgoutput.Dispose()
        imgoutput2.Dispose()
        Response.Write("上传成功!")
        Response.Write(System.Web.HttpContext.Current.Server.MapPath("BBS\SnkProductImages\2.jpg"))

'//加文字水印，注意，这里的代码和以下加图片水印的代码不能共存
        Dim g As Graphics = Graphics.FromImage(imgoutput)
        g.DrawImage(imgoutput, 0, 0, imgoutput.Width, imgoutput.Height)
        Dim f As Font = New Font("Verdana", 32)
        Dim b As Brush = New SolidBrush(Color.Red)
        Dim addText As String = "SNK Star"
        g.DrawString(addText, f, b, 10, 10)
        g.Dispose()

imgoutput.Save(System.Web.HttpContext.Current.Server.MapPath("BBS\SnkProductImages\3.jpg"), System.Drawing.Imaging.ImageFormat.Jpeg)

End Sub

End Class

本文链接

悼哀三天，沉痛追忆一个故人的“离别”

2008-06-30T08:46:00Z

悼哀三天，沉痛追忆一个故人的“离别”

选择斯诺克球杆的基本要素

2008-04-18T14:42:00Z

1)斯诺克球杆种类目前市面上所看到的球杆大慨分成三种,one piece cue（一段式)、center joint cue（两段式）跟3/4jointed cue（3/4段式)三种。 One piece cue（一段式)属于最传统历史最久的一种，目前还有若干选手在使用，如Jonh Higgins、Steven Lee、Peter Ebdon等，据使用one piece球杆的球友说one piece的球杆因为是一体成型所以在力度传动方面会比较完整。但因携带不方便所以后来出现center joint cue（两段式）球杆。 center joint cue（两段式）球杆是把球杆切成两段，而它的涵接口刚好在中间，所以又称1/2球杆，因为携带方便曾经一度非常普遍，后来有人认为球杆是在中间被切开，木头本身的power会有所衰减，所以就延伸出涵接处大慨在杆子的3/4处的３／４jointed cue（3/4段式)球杆。 3/4jointed cue（3/4段式)是目前最普遍的球杆类型，它的前节是一体成型的，所以木头本身的传动

斯诺克之星 - 白沙台球杆官方及派蔻台球杆官方 www.snkstar.com - 最专业的台球杆销售网站

2008-03-30T07:06:00Z

想买斯诺克球杆或者美式台球杆的朋友们有福音啦。上斯诺克之星官方网站看看吧，他们是白沙台球杆官方销售和派蔻台球杆官方销售，我认为他们是国内最专业的，上海和北京有实体店http://www.snkstar.com/他们的客服MM很热情哦，东西质量和价格也非常赞！强烈推荐！淘宝旺旺：snkstar客服QQ：871295255上海门店 [联系电话]：021-34970660 [手机]：13564550266 钱先生[门店地址]：闵行区莘建东路58弄绿地蓝海3号楼商铺104室（楼上）-近莘庄地铁北广场北京门店 [联系电话]：010-65175948 [手机]：15611434554 [门店地址]：东城区建国门内大街18号恒基中心大厦B2-008B（2号线北京站B出口方向，地下通道可直达商场B2）

自制控件：点击页面上的按纽，弹出一个正在处理的层，处理完毕后该层消失

2007-12-19T05:15:00Z

该控件功能如标题。我这里给一些简单的介绍和效果图。实现内容请下载示例代码。 http://www.cnblogs.com/Files/Carlwave/NewLayerWhenClick.rar 控件版权：当然是归我所有拉。哈哈。不过您可以任意下载并使用。修改的话必须邮件告知我。目的是为了如果您有更好的改进，那我这里也是改进后的版本。谢谢。

自动记录数据库存储过程的更新和改变，并产生日志

2007-11-19T06:42:00Z

使用环境：SQL Server 在项目开发过程中，项目管理者通常都很希望对项目的开发进展有一个日志的记录。代码的记录和管理可以通过TFS或者VSS等工具去管理。但是数据库却没有记录开发日志这一功能。这在实际开发中很不方便，特别是大量的存储过程改动。那么针对这一个需求，在数据库中定时执行一个Job，让其自动记录存储过程的改动，以完成对数据库存储过程改动的一个记录。

我最近在忙啥列？好好回忆下。。。

2007-08-14T06:24:00Z

经朋友提醒，才发觉自己已经有4个月没有更新自己的blog了，呼呼，回想下。。。最近自己在干啥列？好像也没啥。。。突然兴致高了打了RPG的游戏，然后出去旅游了一次。。。基本上还是比较规矩的生活。最可恶的是今天发烧了，还高烧不退，哎。。。倒霉。。。希望自己早日康复去公司上班把。。。:-0)下面转一篇VS2008的新闻，当我还在觉得自己用VS2005是多么先进的时候，时间是过的如此之快阿。这次将在八月底...

使用radion button选择datagrid的行（在datagrid中使用radio buttons)

2007-04-17T05:01:00Z

RadioButton 用来选择单一的选项，这篇文章介绍如何将这一种特性应用到DataGrid控件上。

博客园_Carlwave-陆飞(Fei.Lu)

阔别N年，仅仅记录一下，独自一人饮酒，这滋味。。。你懂的。。

推荐一处买望远镜的网站：博士能望远镜上海官方销售 - 38度光 http://www.38optics.com

VS.net图片加水印的代码

悼哀三天，沉痛追忆一个故人的“离别”

选择斯诺克球杆的基本要素

斯诺克之星 - 白沙台球杆 官方 及 派蔻台球杆 官方 www.snkstar.com - 最专业的台球杆销售网站

自制控件：点击页面上的按纽，弹出一个正在处理的层，处理完毕后该层消失

自动记录数据库存储过程的更新和改变，并产生日志

我最近在忙啥列？好好回忆下。。。

使用radion button选择datagrid的行（在datagrid中使用radio buttons)

斯诺克之星 - 白沙台球杆官方及派蔻台球杆官方 www.snkstar.com - 最专业的台球杆销售网站