vb.net复制选定文本 vb如何复制窗体

VB.NET2010 如何复制指定目录下按类型的所有文件到另一文件夹 复制后再删除原来的文件？

这段代码的问题是：

首先for each循环在files里查找文件对象vb.net复制选定文本，但是f变量声明为string了vb.net复制选定文本，无法让它获取对象；

然后file.copy的变量file没有任何声明，也没有初始化赋值等；

最后，整个for each循环里查找集合files的文件，由于初始化的循环计数器仍然按照最初设定的文件数目向后递增（文件地址），但是实际文件删除一部分，后续的文件位置就不能跟循环计数指针匹配了，所以默认为查找不到文件，将会报错。一般的做法时把复制和删除分别放在2次循环里，第一次只复制文件，第二次才去删除。

相关问答

Q1: VB的文本复制

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Const WM_CLOSE = H10

Private Const WM_SETTEXT = HC

Private Const EM_REPLACESEL = HC2

Private Sub Command1_Click()

Static n As Integer '计数器

Dim a() As String, wh As Long, ch As Long

a = Split(Text1.Text, vbCrLf) '获取文本框内容，并按行分割

If n = UBound(a) Then '如果计数器没超过文本框行数

  wh = FindWindow(vbNullString, "无标题 - 记事本") '按照记事本的窗口标题自己修改，我的是"无标题 - 记事本"，你的是"新建文本文档 - 记事本"

  If wh Then

    ch = FindWindowEx(wh, 0, "Edit", vbNullString)

    SendMessage ch, EM_REPLACESEL, 0, ByVal vbCrLf  a(n)

  Else

    MsgBox "记事本没有运行!"

  End If

  n = n + 1 '点一次按钮，计数器加1

Else

  MsgBox "文本框文本发送已完成"

End If

End Sub

Q2: VB将指定文本文件复制到剪贴板

复制到剪切板的主要代码：

Clipboard.SetText str

示例（示例文件1.txt）：

Open "c:\1.txt" For Input As #1

Clipboard.Clear

Clipboard.SetText Input(LOF(1), 1)

Close #1

其中的

Clipboard.Clear

表示清空剪切板（推荐清空一次）

如果是使用相对路径的，"c:\1.txt"改为

App.Path "\1.txt"

读取剪切板主要代码：

s = Clipboard.GetText()

Q3: VB.NET怎么复制文件到剪切板，不是复制文件内容！

例如，把文件"E:\新建文件夹\a.txt"复制到剪贴板

CreateObject("Shell.Application").NameSpace("E:\新建文件夹").ParseName("a.txt").InvokeVerb "复制(C)"

Q4: vb.net textbox1选中的文本，拖放到textbox2？

很久没有上这里了，今天看到了这个问题，尝试做了一个；

本例以源文本框TextBox1全部文字作为拖放文字为例，实现拖放

1、向一个窗体中添加两个文本框，分别名为TextBox1，TextBox2。注意：把TextBox2控件的AllowDrop属性设置成True，这点不要遗漏。

2、完整的代码如下：

Public Class Form1

Private MouseIsDown As Boolean = False

Private Sub TextBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TextBox1.MouseDown

'设置一个标志以显示鼠标已按下。

MouseIsDown = True

End Sub

Private Sub TextBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TextBox1.MouseMove

If MouseIsDown Then

'开始拖动（将TextBox1的文本内容作为拖放内容）。

TextBox1.DoDragDrop(TextBox1.Text, DragDropEffects.Copy)

End If

MouseIsDown = False

End Sub

Private Sub TextBox2_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles TextBox2.DragEnter

'检查正在被拖放的数据的格式。

If (e.Data.GetDataPresent(DataFormats.Text)) Then

'显示复制光标（表示是拖放行为）。

e.Effect = DragDropEffects.Copy

Else

'显示不放置光标（表示不是拖放行为）。

e.Effect = DragDropEffects.None

End If

End Sub

Private Sub TextBox2_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles TextBox2.DragDrop

'粘贴文本（将拖放内容作为TextBox2的文本内容）。

TextBox2.Text = e.Data.GetData(DataFormats.Text)

End Sub

End Class

Q5: VB：把指定的word文档里的内容复制并新建路径保存。

VB.net复制Word文档内容？建议可以参考下spire.doc for .net的教程文章：

C#/VB.NET 复制 Word 文档（这个文章描述的是复制word正文内容）

C#/VB.NET 复制 Word 页眉/页脚（复制Word页眉页脚）

复制水印：

Imports Spire.Doc

Namespace CopyWatermark_Doc

Class Program

Private Shared Sub Main(args As String())

'加载文档1

Dim doc1 As New Document()

doc1.LoadFromFile("input.docx")

'加载文档2

Dim doc2 As New Document()

doc2.LoadFromFile("target.docx")

'获取文档1的水印效果，设置到文档2

doc2.Watermark = doc1.Watermark

'保存文档2

doc2.SaveToFile("CopyWatermark.docx", FileFormat.Docx2013)

System.Diagnostics.Process.Start("CopyWatermark.docx")

End Sub

End Class

End Namespace

这代码里面的路径是以将结果文档保存在项目文件下，也可以自己自定义路径

关于vb.net复制选定文本和vb如何复制窗体的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。