DYLIKE专栏

多功能组件for .Net Framework,详细功能请参考本人博客。

DSAPI1.0.0.7多功能编程组件，可大大简化.NET开发流程，数百项功能，参阅本人博客文章。

新增WIN7特效（需Vista/7/8/10)

DSAPI多功能组件,适用于Visual Studio.内含超多集成功能,节省大量代码.

DSAPI多功能组件,适用于Visual Studio.内含超多集成功能,节省大量代码.

应用于Microsoft Vistudio 中文版的DSAPI.DLL,内置多种常用功能，适合新手使用，以加快开发进度。

DSAPI.DLL └─DSAPI ├─QQ用户相关 │ └─在线状态 │ ├─在线 │ ├─未知 │ └─离线 ├─内存资源 │ └─清理一下 ├─加载字体 │ └─加载指定字体文件 ├─图形图像 │ ├─从网址获取图片 │ ├─保护图像 │ │ ├─保护图像 │ │ └─解除保护 │ ├─图像特效 │ │ ├─变形 │ │ │ ├─从中心旋转 │ │ │ ├─从指定点旋转 │ │ │ └─调整大小 │ │ └─色彩 │ │ ├─亮度 │ │ ├─保留通道 │ │ ├─反色 │ │ ├─投影效果 │ │ ├─模糊 │ │ ├─灰度 │ │ ├─色彩通道 │ │ │ ├─粉 │ │ │ ├─红 │ │ │ ├─绿 │ │ │ ├─蓝 │ │ │ ├─青 │ │ │ └─黄 │ │ ├─透明度 │ │ └─黑与白 │ ├─彩色文字图像 │ │ ├─代码文本 │ │ ├─字体 │ │ ├─字符行距 │ │ ├─字符间距 │ │ ├─所有连接数量 │ │ ├─描边颜色 │ │ ├─文字清晰度 │ │ ├─文字颜色 │ │ ├─显示文本 │ │ ├─画布尺寸 │ │ ├─绘制描边 │ │ ├─绘制阴影 │ │ ├─获取指定坐标的链接 │ │ ├─输出图像 │ │ ├─链接 │ │ ├─链接下划线颜色 │ │ └─阴影颜色 │ └─透明窗体 │ ├─显示图像 │ ├─窗体支持鼠标拖动 │ ├─窗体支持鼠标调整尺寸 │ ├─绘制圆角矩形 │ └─绘制圆角矩形_带标题栏 ├─字串提取 │ ├─提取中间文本 │ └─提取所有中间文本 ├─序列化 │ ├─反序列化 │ ├─序列化 │ └─绑定 ├─文件类 │ ├─修改指定文件扩展名为指定打开方式 │ ├─压缩 │ ├─取消文件头 │ ├─添加文件头 │ ├─获取可读性强的字节大小信息 │ ├─解压缩 │ └─追加文件尾 ├─硬件信息 │ ├─硬件列表 │ ├─硬件选择 │ │ ├─主板 │ │ ├─光盘驱动器 │ │ ├─包括鼠标 │ │ ├─声卡 │ │ ├─打印机 │ │ ├─打印机任务 │ │ ├─指针设备 │ │ ├─显卡 │ │ ├─物理内存条 │ │ ├─硬盘序列号 │ │ ├─硬盘驱动器 │ │ ├─网络适配器 │ │ ├─软盘驱动器 │ │ └─键盘 │ └─获取硬件信息 ├─系统信息 │ ├─主显示器屏幕大小 │ ├─主显示器工作区大小 │ ├─使用交流电 │ │ ├─否 │ │ ├─是 │ │ └─未知 │ ├─启用列表框平滑滚动效果 │ ├─启用字体平滑效果 │ ├─启用平滑组合框打开效果 │ ├─启用按钮动画效果 │ ├─启用提示框淡入淡出效果 │ ├─启用标题栏渐变效果 │ ├─启用桌面主题 │ ├─启用窗口还原动画效果 │ ├─启用窗口阴影效果 │ ├─启用自动对齐默认按钮 │ ├─启用菜单淡入淡出效果 │ ├─图标排列单元格高度 │ ├─图标排列格子大小 │ ├─子菜单延迟显示时间 │ ├─屏幕旋转角度 │ ├─工作组 │ ├─已连接交

全中文复合功能组件. 文件类 网络类 图像类 窗体类 加密类 其他

屏幕花瓣飘飞源码,使用VB.NET编写,如果你用的是C#,请到 http://www.developerfusion.com/tools/convert/vb-to-csharp/ 将源码翻译成C#即可.

仿QQ好友列表控件，使用代码绘制，无迟延无闪烁，非控件拼凑。

通过摄像头跟踪你的眼镜上的反光,摇晃你的脑袋即可让窗口随着你的脑袋一起晃动.源工程(内置EXE)

新增图像分割重组及支持鼠标调整大小及单窗体实现层窗体显示控件

Imports System.ComponentModel _ Public Class DSButton Private _ButtonColor As Color = Color.White Private SF As New System.Drawing.StringFormat Private _Text As String Public Property ButtonColor As Color Get Return _ButtonColor End Get Set(ByVal value As Color) _ButtonColor = value MakeRoundedRect(RoundRectValue, Me, Color.FromArgb(255, ButtonColor.R / 255 * 50, ButtonColor.G / 255 * 50, ButtonColor.B / 255 * 50)) End Set End Property Public Property RoundRectValue As Integer = 10 Private nIndex As Integer = 0 Private IsMouseEnter As Boolean = False Public Property IsShowAnimate As Boolean = False Public Property ButtonText As String Get Return _Text End Get Set(ByVal value As String) _Text = value MakeRoundedRect(RoundRectValue, Me, Color.FromArgb(255, ButtonColor.R / 255 * 50, ButtonColor.G / 255 * 50, ButtonColor.B / 255 * 50)) End Set End Property Private _TextColor As Color = Color.White Public Property TextColor As Color Get Return _TextColor End Get Set(ByVal value As Color) _TextColor = value MakeRoundedRect(RoundRectValue, Me, Color.FromArgb(255, ButtonColor.R / 255 * 50, ButtonColor.G / 255 * 50, ButtonColor.B / 255 * 50)) End Set End Property Private Sub DSButton_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load SetStyle(ControlStyles.UserPaint, True) SetStyle(ControlStyles.AllPaintingInWmPaint, True) SetStyle(ControlStyles.ResizeRedraw, True) SetStyle(ControlStyles.Selectable, True) SF.LineAlignment = StringAlignment.Center SF.Alignment = StringAlignment.Center MakeRoundedRect(RoundRectValue, Me, Color.FromArgb(255, ButtonColor.R / 255 * 50, ButtonColor.G / 255 * 50, ButtonColor.B / 255 * 50)) End Sub Private Sub MakeRoundedRect(ByVal Rounded As Integer, ByVal Ct As Control, ByVal ButtonColor As Color) If Ct.BackgroundImage IsNot Nothing Then Ct.BackgroundImage.Dispose() Ct.BackgroundImage = New Bitmap(Ct.Width, Ct.Height) Dim WW, HH As Integer WW = Ct.Width - 1 HH = Ct.Height - 1 Using G As Graphics = Graphics.FromImage(Ct.BackgroundImage) G.SmoothingMode = Drawing2D.SmoothingMode.AntiAlias G.TextRenderingHint = Drawing.Text.TextRenderingHint.ClearTypeGridFit Using Gp As New Drawing2D.GraphicsPath Gp.AddArc(New Rectangle(0, 0, Rounded, Rounded), 180, 90) Gp.AddArc(New Rectangle(WW - Rounded, 0, Rounded, Rounded), -90, 90) Gp.AddArc(New Rectangle(WW - Rounded, HH - Rounded, Rounded, Rounded), 0, 90) Gp.AddArc(New Rectangle(0, HH - Rounded, Rounded, Rounded), 90, 90) Gp.AddLine(New Point(0, HH - Rounded), New Point(0, Rounded / 2)) Using Lg As New Drawing2D.LinearGradientBrush(New Point(0, 0), New Point(0, HH), ControlPaint.Dark(ButtonColor, 0.5), ButtonColor) G.FillPath(Lg, Gp) G.DrawPath(Pens.Black, Gp) End Using End Using WW = WW - 3 HH = HH - 3 Using Gp As New Drawing2D.GraphicsPath Gp.AddArc(New Rectangle(3, 3, Rounded, Rounded), 180, 90) Gp.AddArc(New Rectangle(WW - Rounded, 3, Rounded, Rounded), -90, 90) Gp.AddArc(New Rectangle(WW - Rounded, HH / 2 - Rounded - 1, Rounded, Rounded), 0, 90) Gp.AddArc(New Rectangle(3, HH / 2 - Rounded - 1, Rounded, Rounded), 90, 90) Using Lg As New Drawing2D.LinearGradientBrush(New Point(0, 0), New Point(0, HH / 2), Color.FromArgb(220, 255, 255, 255), Color.FromArgb(50, 255, 255, 255)) G.FillPath(Lg, Gp) End Using End Using Using Gp As New Drawing2D.GraphicsPath Gp.AddEllipse(New Rectangle(3, HH / 2 + 10, WW, HH / 2)) Using Lg As New Drawing2D.PathGradientBrush(Gp) Lg.CenterColor = Color.FromArgb(150, 255, 255, 255) Lg.SurroundColors = New Color() {Color.Transparent} Gp.FillMode = Drawing2D.FillMode.Winding G.FillPath(Lg, Gp) End Using End Using Try If _Text.Length 0 Then G.DrawString(_Text, Me.Font, New SolidBrush(TextColor), New Rectangle(0, 0, Me.Width, Me.Height), SF) Catch End Try End Using End Sub Private Sub DSButton_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseClick End Sub Private Sub DSButton_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown If e.Button = MouseButtons.Left Then MakeRoundedRect(RoundRectValue, Me, Color.Black) End If End Sub Private Sub DSButton_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.MouseEnter If DesignMode = False Then IsMouseEnter = True Timer1.Enabled = True End If End Sub Private Sub DSButton_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.MouseLeave If DesignMode = False Then IsMouseEnter = False Timer1.Enabled = True End If End Sub Private Sub DSButton_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp MakeRoundedRect(RoundRectValue, Me, _ButtonColor) End Sub Private Sub DSButton_SizeChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.SizeChanged If Me.IsHandleCreated Then MakeRoundedRect(RoundRectValue, Me, ButtonColor) End If End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Select Case IsMouseEnter Case True If IsShowAnimate = True Then nIndex = IIf(nIndex + 30 >= 225, 255, nIndex + 30) If nIndex >= 255 Then Timer1.Enabled = False Else nIndex = 255 Timer1.Enabled = False End If Case False nIndex = IIf(nIndex - 20 <= 50, 50, nIndex - 20) If nIndex <= 50 Then Timer1.Enabled = False End Select Try MakeRoundedRect(RoundRectValue, Me, Color.FromArgb(255, ButtonColor.R / 255 * nIndex, ButtonColor.G / 255 * nIndex, ButtonColor.B / 255 * nIndex)) Catch End Try End Sub End Class

彩色的Label绘制，超酷超华丽。支持文字描边，投影，支持图像投影，支持字间距、行间距调整。改进了边缘裁剪算法,更精确,更减少绘制面积. 压缩包内容: 示例代码 DLL文件 XML(for .net)说明档' 效果截图

彩色的Label绘制，超酷超华丽。支持文字描边，投影，支持图像投影，支持字间距、行间距调整。

桌面秀_名言警句(700多句),适合放到启动项内随机启动. 使用VB.NET2010编写,需.net2.0运行库支持.

DrawTextOutLine Boolean 是否绘制文字描边 DrawTextShadow Boolean 是否绘制投影,不支持投影平移 Text String 源文,包含颜色代码的源文 TextRect Rectangle 给定区域边界,一般为欲设置结果图的控件大小 TextOutLineColor Color 文字描边颜色 TextFont Font 绘制文字的字体 TextRenderHint TextRenderHint 字符渲染样式 TextBitmapSize Size 最终生成的结果图的大小 CharWidth Integer 字符间距增量 CharLine Integer 字符行距增量 OutBitmap Bitmap 最终生成的结果图 OutputText String 过滤颜色代码后的内容

地图控件

DYLIKE时间轴控件

DYLIKE时间轴完整工程源代码