網(wǎng)站制作NEWS
求解vb代碼(自動復(fù)制,和自動粘貼)
Private Sub Command1_Click()
s = "我是剪貼板中的內(nèi)容"
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 -返回或設(shè)置所選擇的字符數(shù)?
'SelStart-返回或設(shè)置所選擇的文本的起始點(diǎn);如果沒有文本被選中,則指出插入點(diǎn)的位置。
'SelText-返回或設(shè)置包含當(dāng)前所選擇文本的字符串;如果沒有字符被選中,則為零長度字符串 ("")。'Clipboard只有方法,沒有屬性和事件。方法還有GetFormat
多重隨機(jī)標(biāo)簽