vb.net转ps编码,vbs编码转换

vb.net调用photoshop

将photoshop TypeLibrary通过引用调用,就可以用它的函数了.强烈建议你下载photoshop6.0 sdk里面有一个vb的例子,如果你要写程序,就必须要用到他模块里面的一些声明.不过他的资料也给的很少,只可实现一些简单函数(实现基本操作),较复杂的只有自己写了(由于资料不全,比较困难)

photoshop6.0 sdk在下载，好好研究一下那个vb例子

，以后可以自己写出更多的函数

相关问答

Q1: VB.net 字符转换问题 字符（汉字、数字、字母、符号）>gb2312>unicode>utf8， 以及逆转的方法

字符编码转换吗?

1.字符与gb2312(gbk的子集)：

Public Function GBKEncode(ByVal sInput As String) As String

Dim ret_GBKEncode As String = ""

Dim i As Integer

Dim startIndex As Integer = 0

Dim endIndex As Integer

Dim x() As Byte = System.Text.Encoding.Default.GetBytes(sInput) '字符以及字符串在vb2008中都是以unicode编码存储的

endIndex = x.Length - 1

For i = startIndex To endIndex

ret_GBKEncode = "%" Hex(x(i))

Next

Return ret_GBKEncode

End Function

'GBK解码

Public Function GBKDecode(ByVal sInput As String) As String

sInput = sInput.Replace("%", "")

Dim ret_GBKDecode As String = ""

Dim sLen As Integer = sInput.Length

Dim n As Integer = sLen \ 2

Dim sBytes(0 To n - 1) As Byte

'转化为字节码

For i As Integer = 1 To n

sBytes(i - 1) = CByte("H" sInput.Substring(2 * i - 2, 2))

Next

'将字节码转化为字符串

ret_GBKDecode = System.Text.Encoding.Default.GetString(sBytes)

Return ret_GBKDecode

End Function

2.Unicode字符串为UTF-8

Imports System.Text

Public Function StringAsUtf8Bytes(ByVal strData As String) As Byte()

Dim bytes() As Byte

bytes = Encoding.UTF8.GetBytes(strData)

Return bytes

End Function

'这里可以类推出好几种。

Q2: 关于用VB.NET 模仿输出photoshop 里面4种字体样式，该如何做到？

有个程序叫做ClearType，如果你是win7的，那你一直使用ClearType。使用ClearType可以把字体变得平滑，否则变得浑厚。锐利应该是锐化字体，犀利...我也没见过这种样式的文字，有空再看。 firefox也有这种功能，可以取消或使用ClearType.

我的想法是:

先启用个人程序的ClearType(置于怎么使用，你去查下，我也不知道)，然后GDI截取文字部分的图片，然后返回原来的ClearType状态，再输出图像.

Q3: vb.net 如何将编码GB2312转成UTF8

Imports System.Text

Public Function StringAsUtf8Bytes(ByVal strData As String) As Byte()

Dim bytes() As Byte

bytes = Encoding.UTF8.GetBytes(strData)

Return bytes

End Function

说明：strData参数是GB2312字符串，函数返回UTF8字节数组