icePubDll应用.生成文字的文本图案(字符填充) -网络-风帆小筑

工具/原料

windows os;vc6/vb6;icePubDll.dll;

步骤/方法

VB具体步骤：
界面布局设计
API声明：
Private Declare Function icePub_imgToFileTextImg Lib "icePubDll.dll" (ByVal strImgFilename As String, ByVal strFilename As String, ByVal strFenge As String, ByVal ch As Byte) As Integer
Private Declare Function icePub_createWordBmpFile Lib "icePubDll.dll" (ByVal strWord As String, ByVal strBmpFilename As String, ByVal bmpWidth As Integer, ByVal bmpHeight As Integer) As Integer
Private Declare Function icePub_readFileToText Lib "icePubDll.dll" (ByVal strFilename As String, ByVal strText As String, ByVal maxLen As Integer) As Integer
Private Declare Function icePub_toClipboard Lib "icePubDll.dll" (ByVal strBuffer As String) As Integer
具体代码：
Private Sub Command1_Click()'生成按钮代码
Dim a2 As Long
Dim ch As Byte
Dim strText As String
Dim x() As Byte

'Text1 待处理文字文本框值
'Text2 生成文本图案文本框值

'Text3 待填充字符文本框值

If Len(Text1.Text) < 0 Then
MsgBox "输入文字不要为空~"
Exit Sub
End If

ch = Asc("*")
x = StrConv(Text3.Text, vbFromUnicode)
If UBound(x) >= 0 Then
ch = x(0)
End If

If ch > 100 Then
MsgBox "填充字符要西文~"
Exit Sub
End If

a2 = icePub_createWordBmpFile(Text1.Text, App.Path + "\word.bmp", 16 * Len(Text1.Text), 16)
a2 = icePub_imgToFileTextImg(App.Path + "\word.bmp", App.Path + "\txtimg.txt", "", ch)
strText = Space(1024 * 10 + 1)
a2 = icePub_readFileToText(App.Path + "\txtimg.txt", strText, 1024 * 10)
Text2.Text = strText

End Sub

Private Sub Command2_Click()'退出按钮代码
Unload Me
End Sub

Private Sub Command3_Click()'复制到剪切板代码
Dim a2 As Integer
a2 = icePub_toClipboard(Text2.Text)
End Sub

Private Sub Form_Load()
ChDrive App.Path
ChDir App.Path
End Sub

注意事项

函数原型：
原型：
int WINAPI icePub_createWordBmpFile(char *strWord,char *strBmpFilename,int bmpWidth,int bmpHeight)
输入：strWord 文本串
strBmpFilename 待生成BMP图片文件名
bmpWidth BMP文件宽度
bmpHeight BMP文件高度
输出：
函数原型：
原型：
int WINAPI icePub_imgToFileTextImg(char *strImgFilename,char *strTextFilename,char *strFenge,char ch)
输入：strImgFilename 待处理图像文件 (会被强制2值化)
strTextFilename 待生成文本图案文件名
strFenge 列之间分隔符
ch 文本图案填充字符
输出：
函数原型：
原型：
int WINAPI icePub_readFileToText(char *strFilename,char *strText,int maxLen)
输入：strFilename 待读取数据文件名
strText 待写入文本串
maxLen strText最大长度
输出：
函数原型：
原型：
int WINAPI icePub_toClipboard(char *strBuffer)
输入：strBuffer 文本内容
输出：