你只要在mousemove事件里跟踪坐标的变化并把新坐标与旧坐标的差值记录下来用三角形的三个坐标照差值变换就是了。再把旧三角形擦掉。

解决方案 »

  1.   

    我在我的机器上(台式机)用了Server7。0(个人版),并且建立了不小的数据库,还有自己的应用程序(VB做的),我的系统是Win98。现在我想再加个笔记本,笔记本是用来出去采集数据的,笔记本上的所有配置(包括操作系统,VB应用程序,数据库格式)都与台式机上一样,唯一不同只是用的SQL Server2000。
    我的问题是:
         第一。如何把SQL7.0里的数据库拿到笔记本得SQL2000里来。然后把台式机升级到SQL2000,
         
         第二,如何实现台式机与笔记本的数据库交换(要求最好在VB应用程序中实现,定义为数据传输<就是把“今天”出去采集得数据通过网卡传到台式机上;或是台式机上地数据有什么改动,通过按钮,通过网卡,把台式机上地数据传到笔记本上>)
    ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^我有了两全其美的方~哈哈哈哈~先恭喜自己~~就是?:因为笔记本和台式机的架构完全一直,所不同的就是更新的数据,那么好,如同你所说,我就建一个临时表,临时表的构造与主表完全一直,每天的更新,无论是笔记本还是台式机,都将数据记录在临时表里,等到一个工作期完成后,两边分别通过一个功能相同的按钮,把自己的临时表追加倒自己的主表以及对方的主表中,两边都这样工作,不就完成了两边的数据更新了吗,可能需要注意的就是排序问题,还有就是应用程序肯定会在主表中提档,也就是查询,不知道这个时候如何处理那???????
      

  2.   

    你的问题很简单~建议你去微软读几篇文章,一是有助于你提高分析问题的能力,二是真的能解决问题~如果你能回答我上面的问题,我将给你分~………………………………去这里回答:http://www.csdn.net/expert/topic/795/795529.xml?temp=.7208368
      

  3.   

    在控件上先画一个三角形(这个应该不是问题吧?),然后用api使控件跟着鼠标走就行。Private Declare Function ReleaseCapture Lib "user32" () As Long
    Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As LongConst HTCAPTION = 2
    Const WM_NCLBUTTONDOWN = &HA1''''以下为鼠标拖着cmd走的例子Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single)
    If Button = 1 Then
        ReleaseCapture
        SendMessage Command1.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0
    End If
    End Sub
      

  4.   

    同意: wxy_xiaoyu(然也) ( 呵呵
      

  5.   

    可觉得wxy_xiaoyu(然也) 的比较牵强.
      

  6.   

    可参考
    http://go6.163.com/910grtd/vb/wdzp/LineTool.htm
    一个画直线的工具