如何在vb中调用getpath()函数.txt

VB技巧问答10000例 VB技巧问答10000例

GetPath的 定 义 如 下 ： 
    Declare Function GetPath Lib "gdi32" Alias "GetPath" (ByVal hdc As Long, lpPoint As POINTAPI, lpTypes As Byte, ByVal nSize As Long) As Long 
    其 中 第 二 个 参 数 为 点 坐 标 组 成 的 数 组 ， 你 可 以 将 数 组 的 第 一 个 元 素 传 递 给 该 函 数 。 如 ： 
    Dim pPoints(10) As POINTAPI 
    GetPath Picture1.hDC, pPoints(0), ... 
    或 
    GetPath Picture1.hDC, VarPtr(pPoints), ... 
<END>