获得光标在多行textbox中的行与列的函数[2]

                if i = 0 then

                    p = row

                else

                    p = row - count1

                end if

                return "行：" & cstr(i) & "/列：" & cstr(p)

            end if

            count1 += me.textbox1.lines(i).length + 2

        next

    end function