今天是本年度最后一天,我的汉字笔画链接库(DLL)完成了,为表高兴,UP有分。需要此DLL的,请留下EMAIL。

解决方案 »

  1.   

    本链接库是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
      

  2.   

    我UP一下,E_mail:[email protected]先行谢过了!
      

  3.   

    忘记留个E-mail:[email protected]
      

  4.   

    留下email:[email protected],帮忙发我一份。
    顺便关注一下,能否谈一下实现的原理。
      

  5.   

    狂UP
    [email protected]
    谢谢-^-
      

  6.   

    [email protected]
    谢谢
    原理可否透漏一点呢?
      

  7.   

    支持。发一份瞧瞧 [email protected]
      

  8.   

    记得上次CSDN上有个库,不知道楼主的和他比哪个全
      

  9.   

    [email protected] 也要 谢谢~!!
      

  10.   

    我也要~~
    [email protected]
    不过我对原理更感兴趣~~
      

  11.   

    先抢一个再说
    [email protected]
      

  12.   

    [email protected]
    先顶一下下我也要
      

  13.   

    留一个给我。
    [email protected]
    谢谢了
      

  14.   

    麻烦也给我发一份
    [email protected]
      

  15.   

    谢过了  [email protected]
      

  16.   

    up顺便要一份 [email protected]
      

  17.   

    本库就是自己做的库,不依靠别人。GBK中频率为非零的所有汉字都可以查到笔画数。
      

  18.   

    与CSDN上既有的无关,与微软拼音也无关,自己做的汉字笔画库,没有版权问题,也没有依赖性。这种办法可能笨,但最可靠。为输入汉字以及得到笔画数,我可没日没夜地费了近两周时间呢。
      

  19.   

    好东西!我要一份 [email protected]
      

  20.   

    up
    楼主费了不少功夫吧
    [email protected]
      

  21.   

    接分也接DLL文件
    [email protected]
    謝啦
      

  22.   

    回复人: lidaixiang(smartyufu) ( ) 信誉:98  2006-01-04 09:09:00  得分: 0  
     
     
       与CSDN上既有的无关,与微软拼音也无关,自己做的汉字笔画库,没有版权问题,也没有依赖性。这种办法可能笨,但最可靠。为输入汉字以及得到笔画数,我可没日没夜地费了近两周时间呢。***********************************************************************************
    对楼主的精神感到由衷的佩服!
    [email protected]
      

  23.   

    几天过去了,感谢网友们的支持。已经给分了。还需要此库的,请到正面的地址下载:
    http://free.ys168.com:8000/ys168up/D3/?strokenum.rary70z70fd4fl9fd2z95b6f9b1biplq9b4bpd1b7f6e14z97e14e24b1b1f2fd2f9b4fc6fd7z