日韩无码专区无码一级三级片|91人人爱网站中日韩无码电影|厨房大战丰满熟妇|AV高清无码在线免费观看|另类AV日韩少妇熟女|中文日本大黄一级黄色片|色情在线视频免费|亚洲成人特黄a片|黄片wwwav色图欧美|欧亚乱色一区二区三区

RELATEED CONSULTING
相關(guān)咨詢
選擇下列產(chǎn)品馬上在線溝通
服務(wù)時(shí)間：8:30-17:00
你可能遇到了下面的問題
關(guān)閉右側(cè)工具欄

新聞中心

這里有您想知道的互聯(lián)網(wǎng)營(yíng)銷解決方案
剖析VB.NETTextBox控件

經(jīng)過長(zhǎng)時(shí)間學(xué)習(xí)VB.NET TextBox控件，于是和大家分享一下，看完本文你肯定有不少收獲，希望本文能教會(huì)你更多東西。拖放操作的一個(gè)很簡(jiǎn)單然而很有用的情形是從一個(gè)VB.NET TextBox控件復(fù)制文本到另一個(gè)VB.NET TextBox控件。當(dāng)然你可以只用鍵盤就能實(shí)現(xiàn)(CTRL + C and CTRL + V)，然而拖放更簡(jiǎn)單因?yàn)樗鼉H需要鼠標(biāo)的移動(dòng)就可以完成。

目前創(chuàng)新互聯(lián)公司已為成百上千家的企業(yè)提供了網(wǎng)站建設(shè)、域名、雅安服務(wù)器托管、網(wǎng)站托管運(yùn)營(yíng)、企業(yè)網(wǎng)站設(shè)計(jì)、泰順網(wǎng)站維護(hù)等服務(wù)，公司將堅(jiān)持客戶導(dǎo)向、應(yīng)用為本的策略，正道將秉承"和諧、參與、激情"的文化，與客戶和合作伙伴齊心協(xié)力一起成長(zhǎng)，共同發(fā)展。

向一個(gè)窗體中添加兩個(gè)文本框，并把第二個(gè)VB.NET TextBox控件的AllowDrop屬性設(shè)置成True，添加如下代碼。

 
 
 
    
  
  
  
  1. Private MouseIsDown As Boolean = False 
    2.   
  
  
  2. Private Sub TextBox1_MouseDown(ByVal sender As Object, ByVal e As _  
    3.   
  
  
  3. System.Windows.Forms.MouseEventArgs) Handles TextBox1.MouseDown  
    4.   
  
  
  4. ' Set a flag to show that the mouse is down.  
    5.   
  
  
  5. MouseIsDown = True 
    6.   
  
  
  6. End Sub  
    7.   
  
  
  7.  
    8.   
  
  
  8. Private Sub TextBox1_MouseMove(ByVal sender As Object, ByVal e As _  
    9.   
  
  
  9. System.Windows.Forms.MouseEventArgs) Handles TextBox1.MouseMove  
    10.   
  
  
  10. If MouseIsDown Then  
    11.   
  
  
  11. ' Initiate dragging.  
    12.   
  
  
  12. TextBox1.DoDragDrop(TextBox1.Text, DragDropEffects.Copy)  
    13.   
  
  
  13. End If  
    14.   
  
  
  14. MouseIsDown = False 
    15.   
  
  
  15. End Sub  
    16.   
  
  
  16.  
    17.   
  
  
  17. Private Sub TextBox2_DragEnter(ByVal sender As Object, ByVal e As _  
    18.   
  
  
  18. System.Windows.Forms.DragEventArgs) Handles TextBox2.DragEnter  
    19.   
  
  
  19. ' Check the format of the data being dropped.  
    20.   
  
  
  20. If (e.Data.GetDataPresent(DataFormats.Text)) Then  
    21.   
  
  
  21. ' Display the copy cursor.  
    22.   
  
  
  22. e.Effect = DragDropEffects.Copy  
    23.   
  
  
  23. Else  
    24.   
  
  
  24. ' Display the no-drop cursor.  
    25.   
  
  
  25. e.Effect = DragDropEffects.None  
    26.   
  
  
  26. End If  
    27.   
  
  
  27. End Sub  
    28.   
  
  
  28.  
    29.   
  
  
  29. Private Sub TextBox2_DragDrop(ByVal sender As Object, ByVal e As _  
    30.   
  
  
  30. System.Windows.Forms.DragEventArgs) Handles TextBox2.DragDrop  
    31.   
  
  
  31. ' Paste the text.  
    32.   
  
  
  32. TextBox2.Text = e.Data.GetData(DataFormats.  
    33.   
  
  
  33. End Sub 
    34.

在上面的例子中，MouseDown事件是用來判斷鼠標(biāo)是否按下的，MouseMove事件中用到了DoDragDrop方法。盡管你可以在 MouseDown事件中來初始化Drag，然而這么做會(huì)帶來出人意料之外的結(jié)果。在用戶點(diǎn)擊控件時(shí)，將顯示no-drag 指針。DoDragDrop方法有兩個(gè)參數(shù)
◆data，這個(gè)例子中代表的是第一個(gè)TextBox的Text屬性。
◆allowedEffects，這個(gè)例子中是只允許復(fù)制。


當(dāng)前文章：剖析VB.NETTextBox控件
文章來源：http://www.5511xx.com/article/cceoggi.html