锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net抗锯齿 enb 抗锯齿

IT技术picture

关于用VB.NET 模仿输出photoshop 里面4种字体样式，该如何做到？有个程序叫做ClearType，如果你是win7的，那你一直使用ClearType 。使用ClearType可以把字体变得平滑，否则变得浑厚 。锐利应该是锐化字体 ， 犀利...我也没见过这种样式的文字，有空再看 。firefox也有这种功能，可以取消或使用ClearType.
我的想法是:
先启用个人程序的ClearType(置于怎么使用，你去查下，我也不知道)，然后GDI截取文字部分的图片，然后返回原来的ClearType状态，再输出图像.
VB6或者Vb.Net或者GDI ， 如何设置单张png图片的透明度，并且平滑没有毛刺？Private Sub Picture1_Paint()
Dim l As Long, t As Long
l = (Picture1.Width - Picture1.ScaleWidth) / 2'求左右边偏差
t = (Picture1.Height - Picture1.ScaleHeight) / 2'求上下边偏差
Picture1.PaintPicture Me.Picture, 0, 0, , , Picture1.Leftl, Picture1.Topt, Picture1.ScaleWidth, Picture1.ScaleHeight'载入图片,就用这行
'Picture1.PaintPicture Me.Image, 0, 0, , , Picture1.Leftl, Picture1.Topt, Picture1.ScaleWidth, Picture1.ScaleHeight'复制的图片,就用这行
End Sub
我想写一个小游戏程序Flash本身就支持AS脚本语言，编写小游戏完全足够了，如果要编写中型游戏需要服务器后台支持，大型游戏Flash可以不用考虑了 。
如果想用高级语言编写多媒体程序，可以了解一下微软的WPF技术 ， 其网页控件版名为银光——SilverLight ， 应用领域与Flash大同，不过SilverLight拥有绝对性的强大编程性能支持，其后台代码开发语言可以是C#、VB.net、C.net、J#等，其前台表现层完全以XML语言描述，它以超强的程度支持点阵图像、矢量图像、文本、Windows常规控件、视频、音频、文档、3D模型等多媒体内容，并且支持3D加速，以及3D抗锯齿渲染、3D实时渲染等强大技术，这些都是Flash所望尘莫及的 。
VB.net背景透明文字有白色锯齿你把标签的字体换一下，另外你的屏幕分辨率高一些，锯齿就不见了 。
打字不易，如满意，望采纳 。
vb中样条曲线问题不引用的话，VB做不到 。这事情要看VB的版本 。如果是6.0的话，要去网上下载GDIPLUS的库文件或者自己声明GDI 的API 。如果是VB.NET的话，VB自带GDI，但是也可以下载GDIPLUS库来用 。如果不知道去哪里下载，我下载有，你可以问我要 。我使用VB6.0 。下载gdiplus以后，在VB里面引用这个库，注意要选择“所有文件”才能看到这个库 。gdi 里面的path功能可以实现样条：Private
TOKEN
As
Long'GDI 对象
Private
Graphics
As
Long'画板
Private
Sub
InitGDIPlus()
'初始化GDI
Dim
uInput
As
GdiplusStartupInput
uInput.GdiplusVersion
=
1
If
GdiplusStartup(TOKEN,
uInput)
Ok
Then
'初始化错误
MsgBox
"GDI
初始化错误 。程序即将关闭 。",
vbCritical,
"InitError"
End
End
If
GdipCreateFromHDC
Me.hDC,
Graphics'创建画板
GdipSetSmoothingMode
Graphics,
SmoothingModeAntiAlias'设置为反锯齿
End
SubPrivate
Sub
TerminateGDIPlus()
GdipDeleteGraphics
Graphics
'释放graphics占用的内存
GdiplusShutdown
TOKEN
'关闭GDI
End
SubPrivate
Sub
Form_Load()
InitGDIPlus
'初始化End
SubPrivate
Sub
Command1_Click()
Dim
path
As
Long
Dim
m(3)
As
POINTF
'以下是坐标，你可以自由改变
m(0).x
=
m(0).y
=
m(1).x
=
10
m(1).y
=
100
m(2).x
=
20
m(2).y
=
3
m(3).x
=
500
m(3).y
=
100
Dim
pen
As
Long
GdipCreatePen1
HFF000000,
2,
UnitPixel,
pen
'创建画笔 ， 用来画出样条
GdipCreatePath
FillModeAlternate,
path
'创建path
GdipAddPathBeziers
path,
m(0),
4
'创建样条'Count是说坐标的个数，points只能传递数组的第一个元素，不能传递数组 。
GdipDrawPath
Graphics,
pen,
path
'画出样条
GdipDeletePen
pen
'删除画笔
GdipDeletePath
path
'删除样条End
SubPrivate
Sub
Form_Unload(Cancel
As
Integer)
TerminateGDIPlus
'删除GDI
End
Sub
vb.net 画线再画保留以前画得可以把所有画的线都保存在一个列表中，画的时候全部画出即可 。如下：
Public Class Form1
Class Line'直线类
Public Point1, Point2 As Point'成员 ， 直线的两个端点
Sub New(p1 As Point, p2 As Point)'构造方法
Point1 = p1
Point2 = p2
End Sub
Public Sub Draw(g As Graphics)'绘制方法
g.DrawLine(Pens.Black, Point1, Point2)
End Sub
End Class
Private Lines As New List(Of Line)'列表用于保存所有画下的直线
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
BackColor = Color.White
DoubleBuffered = True'开启双缓冲可有效避免闪烁
End Sub
Private Sub Form1_MouseDown(sender As Object, e As MouseEventArgs) Handles Me.MouseDown
Lines.Add(New Line(e.Location, e.Location))'在直线列表中添加直线
End Sub
Private Sub Form1_MouseMove(sender As Object, e As MouseEventArgs) Handles Me.MouseMove
If e.ButtonWindows.Forms.MouseButtons.Left Then Return '左键未按下
'鼠标拖动时改变列表最后一条直线（也即当前直线的第二个端点）
Lines(Lines.Count - 1).Point2 = e.Location
Refresh()'刷新窗体
End Sub
'在Form的Paint事件中绘制所有直线，每次Form1重绘时都会触发Paint事件
'PS: 也可以通过重写OnPaint方法来达到类似的效果
Private Sub Form1_Paint(sender As Object, e As PaintEventArgs) Handles Me.Paint
e.Graphics.SmoothingMode = Drawing2D.SmoothingMode.AntiAlias'开启抗锯齿
For Each l In Lines'遍历所有直线
l.Draw(e.Graphics)'调用绘制方法 ， 传入的参数可以理解为画布
Next
End Sub
End Class
运行效果：
【vb.net抗锯齿 enb 抗锯齿】关于vb.net抗锯齿和enb 抗锯齿的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息 ， 记得收藏关注本站 。

    推荐阅读


    上一篇：java在线充值代码，java话费充值代码

    下一篇：word转pdf后页码，word转pdf后页码乱了