小编Vin*_*oir的帖子

这是我在uni的第一个图形主题,并且实现的某些部分对我不起作用.我可以正确地绘制关节,但我正在尝试编写一个在关节之间放入"骨骼"的函数.在这一点上,骨头只是立方体,被转换为矩形棱柱,稍后我将尝试从搅拌机或其他东西引入适当的模型.

我的麻烦在于轮换.大约5个小时左右后,我的伴侣和我有一些工作,但是一旦你移动你的手臂或腿,立方体就会扭曲并看起来很奇怪.任何帮助,将不胜感激.以下是尝试绘制骨骼的功能.

private void DrawBone(Skeleton skeleton, JointType jointType0, JointType jointType1)
{
    Joint joint0 = skeleton.Joints[jointType0];
    Joint joint1 = skeleton.Joints[jointType1];

    // If we can't find either of these joints, exit
    if (joint0.TrackingState == JointTrackingState.NotTracked ||
        joint1.TrackingState == JointTrackingState.NotTracked)
    {
        return;
    }

    // Don't draw if both points are inferred
    if (joint0.TrackingState == JointTrackingState.Inferred &&
        joint1.TrackingState == JointTrackingState.Inferred)
    {
        return;
    }

    // We assume all drawn bones are inferred unless BOTH joints are tracked
    if (joint0.TrackingState == JointTrackingState.Tracked && joint1.TrackingState == JointTrackingState.Tracked) …

我正在编写一些非常基本的Excel VBA宏来处理在工作表上拆分和合并大型工作簿.我已经把它解决了,但我间歇性地发生了故障(大约10次中有1次)我似乎无法可靠地再现,更不用说修复了.

在我感兴趣的文件夹中有205个左右的单片工作簿,宏使用Dir()循环遍历它们,当它到达空文件名时结束.除非有时它没有.

它偶尔会在随机点停止浏览这些文件.我已经看到它发生在60-190之间的导入,它只是停止执行该点,没有错误或警告.Do Until循环之后的其余代码不会被执行.

有没有人遇到类似的东西？这是excel中的内存问题吗？我在这里失去了理智.在循环中添加一个计时器以减慢它的速度并没有帮助.我正在合并的文件夹中没有打开的文件.抑制合并过程中弹出的警报不是问题.

这是循环的代码:

    strFilename = Dir(myPath & "\*.xlsx", vbNormal)

    If Len(strFilename) = 0 Then Exit Sub

    Do Until strFilename = ""
        Set wbSrc = Workbooks.Open(fileName:=myPath & "\" & strFilename, UpdateLinks:=False)
        Set wsSrc = wbSrc.Worksheets(1)
        wsSrc.Copy after:=wbDst.Worksheets(wbDst.Worksheets.Count)
        wbSrc.Close False
        strFilename = Dir()
    Loop