高手请进（控件拖放问题）

还是老问题，但这回降低要求了。  
  在FROM或PICTURE   等容器中，有若干控件（如：TEXT、LANEL）如何实现类似空件拖放操作，实现将源空件的内容复制到目的空件（TEXT是复制.TEXT内容,LABEL是复制  
  .CAPTION内容)。  
  拜托各位高手了，谢谢！！！！！！！！！！！！！  
  问题点数：50、回复次数：3Top

1 楼TechnoFantasy（（VB MVP）www.applevb.com）回复于 2004-08-03 16:01:36 得分 20

在Form上添加三个TextBox：  
   
  Private   Sub   Form_Load()  
          Text2.DragMode   =   vbAutomatic  
          Text3.DragMode   =   vbAutomatic  
  End   Sub  
   
  Private   Sub   Text1_DragDrop(Source   As   Control,   X   As   Single,   Y   As   Single)  
          Text1.Text   =   Source.Text  
  End   Sub  
   
  TExt1就可以接受TExt2和Text3的拖放了。Top

2 楼LGYAN（紫衣随想）回复于 2004-08-03 16:02:15 得分 0

你单独复制控件也不管用的，控件的事件代码你也需要用到的啊！Top

3 楼rainstormmaster（暴风雨 v2.0）回复于 2004-08-03 16:18:08 得分 30

这样也行，从text1拖到text2：  
  Option   Explicit  
   
  Private   Sub   Form_Load()  
          Text2.OLEDropMode   =   1  
  End   Sub  
   
  Private   Sub   Text1_MouseDown(Button   As   Integer,   Shift   As   Integer,   X   As   Single,   Y   As   Single)  
          Text1.OLEDrag  
  End   Sub  
   
  Private   Sub   Text1_OLEStartDrag(Data   As   DataObject,   AllowedEffects   As   Long)  
          Data.SetData   Text1.Text,   vbCFText  
          AllowedEffects   =   vbDropEffectCopy  
   
  End   Sub  
   
  Private   Sub   Text2_OLEDragDrop(Data   As   DataObject,   Effect   As   Long,   Button   As   Integer,   Shift   As   Integer,   X   As   Single,   Y   As   Single)  
            Dim   s   As   String  
            s   =   Data.GetData(vbCFText)  
            Text2.SetFocus  
            Clipboard.SetText   s,   vbCFText  
            SendKeys   "^V"  
  End   SubTop

相关问题

• 控件
• 内容
• 拖放
• vbcftext
• subprivate
• 复制
• single
• sub
• integer
• text

• 帖主：top911
• TechnoFantasy
• rainstormmaster

• Visual Basic类图书
• Visual Basic类源码下载