Access交流中心

北京 | 上海 | 天津 | 重庆 | 广州 | 深圳 | 珠海 | 汕头 | 佛山 | 中山 | 东莞 | 南京 | 苏州 | 无锡 | 常州 | 南通 | 扬州 | 徐州 | 杭州 | 温州 | 宁波 | 台州 | 福州 | 厦门 | 泉州 | 龙岩 | 合肥 | 芜湖 | 成都 | 遂宁 | 长沙 | 株洲 | 湘潭 | 武汉 | 南昌 | 济南 | 青岛 | 烟台 | 潍坊 | 淄博 | 济宁 | 太原 | 郑州 | 石家庄 | 保定 | 唐山 | 西安 | 大连 | 沈阳 | 长春 | 昆明 | 兰州 | 哈尔滨 | 佳木斯 | 南宁 | 桂林 | 海口 | 贵阳 | 西宁 | 乌鲁木齐 | 包头 |

如何把文本框的文本复制到内存粘贴板

流星  发表于:2015-02-26 15:54:24  
复制

如何把文本框的文本复制到内存粘贴板?

 

Top
煮江品茶 发表于:2015-02-26 16:08:47

然后呢?


假设阁下的文本框名曰:Text0,需要复制到剪切板,则:

Me.Text0.SetFocus
DoCmd.RunCommand acCmdCopy


假设另有一个文本框名曰:Text1,需要粘贴复制内容,则:

Me.Text1.SetFocus
DoCmd.RunCommand acCmdPaste




流星 发表于:2015-02-27 19:02:46

那如果是下面的这种文本呢?

str2 = Right(Me.付款方式, Len(Me.付款方式) - 1) & str1 & "信用证款/" & Me.合同号



CS 发表于:2015-02-28 11:03:39
引用"System32\FM20.DLL"
   
    Dim cli As DataObject
    Set cli = New DataObject
    cli.SetText (Text4)
    cli.PutInClipboard
    Text9 = cli.GetText

煮江品茶 发表于:2015-02-28 11:08:51
你不是已经得到了一个变量的值了吗?所以我问你:“然后呢?”,你打算把这个值弄到什么地方去?只有弄清楚了用于什么地方,才可以判断是否一定需要用剪切板。

流星 发表于:2015-03-01 14:12:46
我的意思是能不能不使用文本框,直接在VBA中把变量的值存到内存中。

总记录:5篇  页次:1/1 9 1 :