本链接库是VB 下的ACTIVE DLL,使用方法为: 在VB工程中声明变量,传入参数即可。如在窗体中加入一个文本框,一个按钮,把文本框作为需要查汉字笔画数的汉字参数,点击按钮开始执行,在按钮的点击事件中写如下代码:Private Sub Command1_Click() Dim obj As Object Set obj = CreateObject("ChineseCharacter.StrokeNumber") ‘For i = 1 To Len(Text1.Text)这里加入循环是批量查询 t = Mid(Text1.Text, i, 1) If t <> "" Then s = obj.strokenumber(t,"evaluate") msgbox text1.text & "里的汉字的笔画数为:" & s Next i Set obj = NothingEnd Sub
在VB工程中声明变量,传入参数即可。如在窗体中加入一个文本框,一个按钮,把文本框作为需要查汉字笔画数的汉字参数,点击按钮开始执行,在按钮的点击事件中写如下代码:Private Sub Command1_Click()
Dim obj As Object
Set obj = CreateObject("ChineseCharacter.StrokeNumber")
‘For i = 1 To Len(Text1.Text)这里加入循环是批量查询
t = Mid(Text1.Text, i, 1)
If t <> "" Then
s = obj.strokenumber(t,"evaluate")
msgbox text1.text & "里的汉字的笔画数为:" & s
Next i
Set obj = NothingEnd Sub
顺便关注一下,能否谈一下实现的原理。
[email protected]
谢谢-^-
谢谢
原理可否透漏一点呢?
[email protected]
不过我对原理更感兴趣~~
[email protected]
先顶一下下我也要
[email protected]
谢谢了
[email protected]
楼主费了不少功夫吧
[email protected]
[email protected]
謝啦
与CSDN上既有的无关,与微软拼音也无关,自己做的汉字笔画库,没有版权问题,也没有依赖性。这种办法可能笨,但最可靠。为输入汉字以及得到笔画数,我可没日没夜地费了近两周时间呢。***********************************************************************************
对楼主的精神感到由衷的佩服!
[email protected]
http://free.ys168.com:8000/ys168up/D3/?strokenum.rary70z70fd4fl9fd2z95b6f9b1biplq9b4bpd1b7f6e14z97e14e24b1b1f2fd2f9b4fc6fd7z