ねもぷらす

ふぁいんでぃんぐねもの日記。プログラミングとか育児とか

2013-01-10から1日間の記事一覧

任意の文字列をクリップボードにコピーする

Public Sub Clip (msg) Set uf=CreateObject("Forms.Form.1") Set tb=uf.Controls.Add("Forms.TextBox.1").Object tb.Text=msg tb.SelStart=0 tb.SelLength=tb.TextLength tb.Copy Set tb=Nothing Set uf=Nothing End Sub Clip("今日の天気")