锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net拖入文件 vbnet adodb

IT技术文件

如何让textbox控件显示拖拽过来的文件，是vb.net 。最简单就好，只要textbox显示文件名窗体上放置一个TextBox，设AllowDrop属性为True，Multiline属性为True
为TextBox添加DragEnter和DragDrop两个事件，
代码如下：
Private Sub TextBox1_DragDrop(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles TextBox1.DragDrop
Dim files As Array = e.Data.GetData(DataFormats.FileDrop)
For Each file As String In files
TextBox1.AppendText(fileEnvironment.NewLine)
Next
End Sub
Private Sub TextBox1_DragEnter(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles TextBox1.DragEnter
If e.Data.GetDataPresent(DataFormats.FileDrop) Then
e.Effect = DragDropEffects.Link
Else
e.Effect = DragDropEffects.None
End If
End Sub
实在不知道应该发什么图，拖放操作后的图放上来没有什么意义 ， 还是自己动手试一下吧
VB.NET2010 如何复制指定目录下按类型的所有文件到另一文件夹 复制后再删除原来的文件？这段代码的问题是：
首先for each循环在files里查找文件对象，但是f变量声明为string了，无法让它获取对象；
然后file.copy的变量file没有任何声明，也没有初始化赋值等；
最后 ， 整个for each循环里查找集合files的文件，由于初始化的循环计数器仍然按照最初设定的文件数目向后递增（文件地址），但是实际文件删除一部分 ， 后续的文件位置就不能跟循环计数指针匹配了，所以默认为查找不到文件，将会报错 。一般的做法时把复制和删除分别放在2次循环里 ， 第一次只复制文件，第二次才去删除 。
求助vb.net拖拽文件到窗体获取文件信息这是一个简单的示例，你只需要新建一个项目，并在项目上放置一个文本框：TEXTBOX1，然后 ， 将以下代码复制到代码区：
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.AllowDrop = True
End Sub
【vb.net拖入文件 vbnet adodb】''建拖曳事件，实现文件拖放
Private Sub Form1_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles Me.DragEnter
Try
If e.Data.GetDataPresent(DataFormats.FileDrop) = True Then
e.Effect = DragDropEffects.Copy
Else
e.Effect = DragDropEffects.None
End If
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
Private Sub Form1_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles Me.DragEnter
Try
Dim filepaht As String() = e.Data.GetData(DataFormats.FileDrop)
For Each File As String In filepaht
textBox1.Text = File
Next
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
如此，在文本框里将会出现被拖曳文件的路径信息 。
请教在VB.net中如何将数据写入txt文件、再从txt文件读出？软糖来告诉你吧 。
VB.net中读写文件主要使用System.IO命名空间 。
① 使用 File.ReadAllText 读取
Dim s As String = System.IO.File.ReadAllText("C:\a.txt")
② 使用 StreamReader 读取，注意编码格式和写入的编码保持一致 。
Dim sr As StreamReader = New StreamReader("C:\a.txt", System.Text.Encoding.UTF8)
Dim s As String = sr.ReadToEnd()
sr.Close()
③ 使用 File.WriteAllText 写入，会覆盖同名的文件 。
Dim 要写的内容 As String = ""
File.WriteAllText(文件路径, 要写的内容, System.Text.Encoding.UTF8)
④ 使用 StreamWriter 写入 。
Dim sw As System.IO.StreamWriter = New System.IO.StreamWriter("C:\a.txt", False,System.Text.Encoding.UTF8)
sw.WriteLine(TextTB.Text)
sw.Close()
⑤ 使用 StreamWriter 追加写入 。
将上面代码的第二个参数False改为True 。
◆ 满意请采纳，谢谢 ◆
VB.NET拖放文本文件到TextBox获得其路径 。Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
TextBox1.AllowDrop = True
End Sub
Private Sub TextBoxDragEnter(sender As Object, e As DragEventArgs) Handles TextBox1.DragEnter
If e.Data.GetDataPresent(DataFormats.FileDrop) Then
Dim files As String()
Try
files = CType(e.Data.GetData(DataFormats.FileDrop), String())
Me.TextBox1.Text = files(files.Length - 1)
Catch ex As Exception
MessageBox.Show(ex.Message)
Return
End Try
End If
End Sub
TextBox1.AllowDrop = True 是开启拖放支持vb.net拖入文件，可以在窗体设计器里面开启它vb.net拖入文件，也可以代码开启 。
VB.net PictureBox实现图片文件直接用鼠标拖入 。建议vb.net拖入文件你看下这个vb.net拖入文件：
vb.net拖入文件的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vbnet adodb、vb.net拖入文件的信息别忘了在本站进行查找喔 。

    推荐阅读


    上一篇：如何建立FTP服务器？ ftp服务器怎么搞

    下一篇：ssh连接redis远程服务器，redis远程连接不上