vb 复制剪切粘帖的代码,有text1,在线等

Clipboard，剪贴板，可以对某项进行剪切、复制或粘贴 *** 作

方法

With Clipboard

Clear '清除剪贴板里的所有内容。建议执行以下方法时先执行这个语句。

SetText <要复制的内容>,<复制方式> '将字符串按指定格式存入Clipboard对象中（如果<复制方法>不写，将按默认值进行）。例如，将Text1中的选定内容复制到剪贴板中，代码是ClipboardSetText Text1SelText

GetText (<粘贴方式>) '从剪贴板返回的一个字符串。（<粘贴方式>可以不写，但是括号不能删掉）例如，将该字符串粘贴到Text1的光标处或选定部分（会把原来选定部分删除），方法是Text1SelText = ClipboardGetText()

SetData <存入图形>, <方式> '与SetText相似，只不过是将图形数据按指定格式存入Clipboard，代码也相似。如果<方式>为空，则由系统自动判定。

GetData (<粘贴方式>) '与GetText相似，只不过是将图形数据粘贴至某处，但不允许删除括号。代码也相似。如果<方式>为空，则由系统自动判定。

GetFormat '一般用于检查剪贴板某项中是否存在一些东西。有则返回True，否则为False。可同时包含文字和图形，互不干扰。

End With

SetText 和 GetText 的复制/粘贴取值

内部常数| 值 | 含义

VbCFText| 1 | （默认值）文本

VbCFRTF | &HBF01| RTF 格式

VbCFLink| &HBF00| DDE 对话信息

SetData 和 GetData 的复制/粘贴取值

内部常数 值 | 含义

vbCFBitmap | 2 | 位图 (bmp)

vbCFMetaFile| 3 | 元文件 (wmf)

vbCFDIB | 8 | 与设备无关的位图(DIB)

vbCFPalette | 9 | 调色板

参考资料：

书

Private Sub Command1_Click()  '点击按钮Command1

ClipboardSetText Text1SelText  '把Text1中已选择的文本复制到系统剪贴板

End Sub

这样的话再到记事本中（或其他任何软件中）按Ctrl-V就能粘贴了。

如果想复制Text1的全部内容而不是选择的内容，可改为

ClipboardSetText Text1Text

VB提供了对象Clipboard完成剪贴板的 *** 作

将文本复制到剪贴板

ClipboardClear

ClipboardSetText

"text"

将bmp复制到剪贴板

ClipboardClear

ClipboardSetData

LoadPicture("abmp")

将剪贴板中文本取到

变量temp中

Dim

temp

As

String

If

ClipboardGetFormat(CF_TEXT)

Then

Temp

=

ClipboardGetText(CF_TEXT)'CF_TEXT

=

1

将剪贴板中粘贴到当前窗体

If

ClipboardGetFormat(CF_BITMAP)

Then

Picture

=

ClipboardGetData()'CF_BITMAP

=

2

CF_LINK

&HBF00

DDE

conversation

information

CF_TEXT

1

Text

CF_BITMAP

2

Bitmap

(BMP

files)

CF_METAFILE

3

Metafile

(WMF

files)

CF_DIB

8

Device-independent

bitmap

CF_PALETTE

9

Color

palette

快捷键在菜单定定义窗口中设置啦

再说cut:

Ctrl+X,

copy:

Ctrl+C,

paste:

Ctrl+V

都已经成为约定俗成的使用方法了

最好不要搞什么

shift+1复制ctrl+1粘贴

shift+2复制ctrl+2粘贴另一组

1

VB6 中有一个对象 clipboard ,通过它可以 *** 作系统的剪贴板

2

看看 VB6 中的 clipboard 对象的一些方法:

clear '清空剪贴板

getdata '从剪贴板中获得指定格式的图形

gettext '从剪贴板中获得指定格式的文本信息

getformat '检查剪贴板中的对象格式

setdata '把图形放入剪贴板

settext '把文本信息放入剪贴板

3具体代码

'复制至粘贴板

ClipboardSetText Text1Text

'粘贴出来

Text1Text = ClipboardGetText

'剪切

Text1Text = ClipboardGetText

ClipboardClear

有任何疑问请追问，，谢谢。

添加部件。。internet controls

多了个地球图标，拉一个放窗体上

再拉一个command，，

复制代码则可直接登陆163com

1txt放到c盘

1txt的内容为

mail163com a123456789 a123456

'===================代码

Dim vDoc, vTag

Dim i As Integer

Dim a() As String

Private Sub Command1_Click()

Set vDoc = WebBrowser1Document

For i = 0 To vDocAlllength - 1

If UCase(vDocAll(i)tagName) = "INPUT" Then

Set vTag = vDocAll(i)

If vTagType = "text" Then

Select Case vTagName

Case "username"

vTagValue = a(1) '用户名

End Select

End If

If vTagType = "password" Then

Select Case vTagName

Case "password"

vTagValue = a(2) '密码

End Select

End If

If vTagName = "remUser" Then '如果不要记住用户名，此句删除

vTagClick

End If

If vTagType = "submit" Then '如果不要点击按钮登陆，把此if的代码删除

vTagClick

End If

End If

Next i

End Sub

Private Sub Form_Load()

Dim t As String

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

Do While Not EOF(1)

Line Input #1, t

If t <> "" Then a = Split(t, " ")

Loop

WebBrowser1Navigate a(0)

End Sub

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

ClipboardSetText str

示例（示例文件1txt）：

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

    ClipboardClear

    ClipboardSetText Input(LOF(1), 1)

    Close #1

其中的

ClipboardClear

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

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

AppPath & "\1txt"

读取剪切板主要代码：

s = ClipboardGetText()

Private Sub Button3_Click(ByVal sender As SystemObject, ByVal e As SystemEventArgs) Handles Button3Click

ClipboardSetDataObject(TextBox1Text)

End Sub

Private Sub Button4_Click(ByVal sender As SystemObject, ByVal e As SystemEventArgs) Handles Button4Click

TextBox1Text = ClipboardGetDataObject()GetData(DataFormatsText, False)

End Sub

我用一个比较AO的方法，嘻嘻，不过很有用我觉得。

SendKeys "^v"

不过这个代码放到按钮上有点问题，

Text1SetFocus

Text1SelStart = 0

Text1SelLength = Len(Text1Text)

SendKeys "^v"

这样就OK了

关键在于你要给谁用就在SendKeys "^v"前，设置谁是焦点，因为这个代码是模拟键盘ctrl+v 。功能嘛，绝对和WINDOWS上的标准功能一样。

以上就是关于vb 复制剪切粘帖的代码,有text1,在线等全部的内容，包括:vb 复制剪切粘帖的代码,有text1,在线等、vb中实现跨程序的粘贴功能、用VB实现复制粘贴等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！