就是说在应用程序里可以在一个表单里加入文本框,图像框,复选框等等工具栏里有的工具,而且还可以用鼠标拖动这些元件,改变他们的大小等功能。可以做到吗?

解决方案 »

  1.   

    我们帮你顶!你自己也要顶!
    如果没人顶,帖子就沉到海底了,就没有人回答了.
    我们也是对这个帖子感兴趣才顶的,这样可以从我参与问题中找到这个帖子,这也叫做Mark!
      

  2.   

    是做ocx吧。
    可能实现你的要求
      

  3.   

    不是做ocx啊。可以这样说:vb的ide是用c做出来的,而我现在想用vb来做一个d语言(假设)的ide
      

  4.   

    你试一下这个是否符合?rgdock.zip
    http://www.china-askpro.com/msg2/qa01.shtml
      

  5.   

    " 而且还可以用鼠标拖动这些元件,改变他们的大小等功能 " ftp://ftp.softcircuits.com/vbsrc/formdsgn.zip
      

  6.   

    非常感谢leolan(史留香),后半段的问题解决了。如何可以象design time 那样新加入这些元件呢?
      

  7.   

    //如何可以象design time 那样新加入这些元件呢?用controls.add
      

  8.   

    ---- 怎 样 用 控 件 拖 放 表 单 呢 ? 很 简 单, 将 这 段 代 码 插 入 到Declare 部 分。 
    Declare Function ReleaseCapture Lib "user32" () As Long
    Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
    再 在 控 制 的Mousedown 事 件 中 插 入:
    Sub Command1_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim Ret&
    ReleaseCapture
    Ret& = SendMessage(Me.hWnd, &H112, &HF012, 0)
    End Sub