• 首页

    • 求解vb代码（自动复制，和自动粘贴）

    我想用vb制作一个QQ自动聊天器不知道自动复制粘贴的代码求教高手谢谢

    推荐答案   2013-10-15
    Private Sub Command1_Click()
    s = "我是剪贴板中的内容"
    Clipboard.Clear '清空剪贴板
    Clipboard.SetText s '将变量s文本赋给剪贴板
    Text1 = Clipboard.GetText '将剪贴板中文本赋给text1
    Clipboard.Clear
    Clipboard.SetData Picture1 '将picture1中图像赋给剪贴板
    Picture2.Picture = Clipboard.GetData '将剪贴板中图像放到picture2中
    SavePicture Clipboard.GetData, "d:\11.bmp " '将剪贴板中的图像保存到"d:\11.bmp"中
    Text1.SelStart = 1
    Text1.SelLength = 4
    Print Text1.SelText
    Text1.SetFocus
    End Sub
    'SelLength -返回或设置所选择的字符数?
    'SelStart－返回或设置所选择的文本的起始点；如果没有文本被选中，则指出插入点的位置。
    'SelText－返回或设置包含当前所选择文本的字符串；如果没有字符被选中，则为零长度字符串 ("")。'Clipboard只有方法，没有属性和事件。方法还有GetFormat
    温馨提示：答案为网友推荐，仅供参考
    其他回答
    第1个回答  2013-10-15
    clipboard.seltext "文本内容" '复制文字到剪贴板 X=clipboard.gettext 'X是所粘贴的对象，gettext是获取剪贴板中的内容

    相关了解……

    你可能感兴趣的内容

    大家正在搜
    vba复制粘贴代码vba自动复制粘贴复制粘贴的代码vb粘贴代码vba 复制粘贴vb复制代码vba区域复制粘贴vb模拟键盘复制粘贴vb6模拟键盘复制粘贴
    相关问题
    vb代码：让程序开机自动运行 和 自动复制到其它文件夹下 的...
    VB复制粘贴问题？
    如何在VB中实现程序自动复制并粘贴指定个字符？
    VB复制文件代码
    vb 复制粘贴
    vb自动复制（覆盖）
    复制和粘贴的代码在VB里怎么写?

    本站内容来自于网友发表，不代表本站立场，仅表示其个人看法，不对其真实性、正确性、有效性作任何的担保
    相关事宜请发邮件给我们
    © 非常风气网