本帖最后由 vbbaris 于 2012-09-07 14:19:37 编辑

解决方案 »

  1.   

    翻译了你就会用吗
    http://technet.microsoft.com/zh-tw/library/aa913293.aspx
      

  2.   


    Declare Function ScriptStringAnalyse Lib "你的DLL名称" (ByVal hdc As Long, _
                                                            ByRef pString As Any, _
                                                            ByVal cString As Integer, _
                                                            ByVal cGlyphs As Integer, _
                                                            ByVal iCharset As Integer, _
                                                            ByVal dwFlags As Long, _
                                                            ByVal iReqWidth As Integer, _
                                                            ByRef psControl As Any, _
                                                            ByRef psState As Any, _
                                                            ByRef piDx As Any, _
                                                            ByRef pTabdef As Any, _
                                                            ByRef pbInClass As Any, _
                                                            ByRef pssa As Any) As Long