If m Msg = WM_DROPFILES Then
设置拖放的动作
Dim nfiles As Int
nfiles = DragQueryFile（m WParam ToInt Nothing ）
Dim i As Int
Dim *** As New System Text StringBuilder（ ）
Dim sFirstFileName As String 记录第一个文件名
TextBox Clear（）
For i = To nfiles
DragQueryFile（m WParam ToInt i *** ）
If i = Then sFirstFileName = *** ToString
TextBox AppendText（ControlChars CrLf*** ToString）
Next
DragFinish（m WParam ToInt ） 拖放完成
显示文件内容
Dim fs As New System IO FileStream（sFirstFileName IO FileMode Open）
Dim sr As New System IO StreamReader（fs System Text Encoding GetEncoding（ gb ））
TextBox AppendText（ControlChars CrLfsr ReadToEnd（） ToString）
fs Close（）
sr Close（）
End If
Return False
End Function
Protected Overloads Overrides Sub Dispose（ByVal disposing As Boolean）
If disposing Then
If Not （ponents Is Nothing） Then
ponents Dispose（）
End If
End If
Application RemoveMessageFilter（Me）
DragAcceptFiles（TextBox Handle ToInt False）
MyBase Dispose（disposing）
End Sub
lishixinzhi/Article/program/net/201311/13043
vb，net怎么实现拖拽文件到文本框和粘贴复制？第一步 ， 点击VS工具
请点击输入图片描述
第二步，打开后，新建一个Windows窗体应用程序
请点击输入图片描述
第三步，新建完毕后，如图所示
请点击输入图片描述
第四步，拖动文本框与按钮，如图示
请点击输入图片描述
第五步，将剪贴板复制与粘贴代码输入 ， 如图示
请点击输入图片描述
第六步，运行程序
请点击输入图片描述
7
第七步 ， 点击按钮，成功从剪贴板中复制与粘贴操作
请点击输入图片描述
【vb.net移动文件到 vbnet imports】vb.net移动文件到的介绍就聊到这里吧，感谢你花时间阅读本站内容 ， 更多关于vbnet imports、vb.net移动文件到的信息别忘了在本站进行查找喔 。
推荐阅读
- 特别耐玩的单机游戏，特别耐玩的单机游戏手机
- flutter右侧返回上一级页面的实现，flutter返回页面刷新
- definedinphpcms的简单介绍
- 计算器用java代码，计算器java代码打完之后计算器才出来
- python函数类型讲解 python中函数类型
- redis的set类型，redis中set命令
- 微信公众号的视频不高清，微信公众号的视频不高清怎么设置
- asp.netpdf转word的简单介绍
- vb.net数组常量 vbnet byte数组