if(!IsClipboardFormatAvailable(CF_TEXT))
return;
if(!OpenClipboard(hwndMain))
return; hglb=GetClipboardData(CF_TEXT);
if(hglb!=NULL)
{
lptstr=GlobalLock(hglb);
if(lptstr!=NULL)
{
//Calltheapplication-definedReplaceSelection
//functiontoinsertthetextandrepaintthe
//window. ReplaceSelection(hwndSelected,pbox,lptstr);
GlobalUnlock(hglb);
}
}
CloseClipboard(); 2.可以使用javascript獲得windows剪貼板里的字符串嗎？
比如在網(wǎng)頁(yè)中實(shí)現(xiàn)點(diǎn)擊一個(gè)文本框就把剪貼板里的字符粘貼進(jìn)去 當(dāng)然可以
<form>
<p>
<inputname=txtSearchvalue="">
<inputtype=buttonvalue=Copy2Cliponclick='javascript:vartextRange=txtSearch.createTextRange();textRange.execCommand("Copy")'>
</p>
<p>
<inputname="copyto"type="text"id="copyto">
<inputtype=buttonvalue=PastefromCliponclick='javascript:vartextRange=copyto.createTextRange();textRange.execCommand("Paste")'>
</p>
</form> 3.javascript和剪貼板的交互 一般可以這樣將id為‘objid'的對(duì)象的內(nèi)容copy到剪貼板 varrng=document.body.createTextRange();
rng.moveToElementText(document.getElementById("objid"));
rng.scrollIntoView();
rng.select();
rng.execCommand("Copy");
rng.collapse(false);
setTimeout("window.status=''",1800) 也可以用rng.execCommand("Past");將剪貼板的內(nèi)容粘到光標(biāo)當(dāng)前位置。 內(nèi)容參見(jiàn)msdn的textRange對(duì)象。 不過(guò)，copy到剪貼板的都是不帶html標(biāo)簽的，所有html標(biāo)簽都將被過(guò)濾。
4.window.clipboardData.getData("Text")//可以獲得剪貼版的文字
window.clipboardData.setData("Text","你的內(nèi)容")//向剪貼板里寫(xiě)文本信息 5.怎么判斷剪貼板中的數(shù)據(jù)是否為字符串而不是圖片或別的信息？ PrivateSubCommand1_Click()
IfClipboard.GetFormat(vbCFText)OrClipboard.GetFormat(vbCFRTF)Then
MsgBox"ok"
EndIf
EndSub 6.請(qǐng)問(wèn)如何判斷剪貼板中不為空？
一、 Eg
判斷windows剪貼板里是否為空,沒(méi)有則讀取圖片到Image中
usesclipbrd; ifClipBoard.HasFormat(CF_Picture)then
Image1.Picture.Assign(ClipBoard);
二、 usesClipbrd; procedureTForm1.Button1Click(Sender:TObject);
begin
ifClipboard.FormatCount<=0then
{TODO:空};
end; 7.怎樣確定剪貼板中的數(shù)據(jù)是否為圖象？
GetFormat方法示例
本示例使用GetFormat方法確定Clipboard對(duì)象上數(shù)據(jù)的格式。要檢驗(yàn)此示例，可將本例代碼粘貼到一個(gè)窗體的聲明部分，然后按F5鍵并單擊該窗體。 PrivateSubForm_Click()
'定義位圖各種格式。
DimClpFmt,Msg'聲明變量。
OnErrorResumeNext'設(shè)置錯(cuò)誤處理。
IfClipboard.GetFormat(vbCFText)ThenClpFmt=ClpFmt+1
IfClipboard.GetFormat(vbCFBitmap)ThenClpFmt=ClpFmt+2
IfClipboard.GetFormat(vbCFDIB)ThenClpFmt=ClpFmt+4
IfClipboard.GetFormat(vbCFRTF)ThenClpFmt=ClpFmt+8
SelectCaseClpFmt
Case1
Msg="TheClipboardcontainsonlytext."
Case2,4,6
Msg="TheClipboardcontainsonlyabitmap."
Case3,5,7
Msg="TheClipboardcontainstextandabitmap."
Case8,9
Msg="TheClipboardcontainsonlyrichtext."
CaseElse
Msg="ThereisnothingontheClipboard."
EndSelect
MsgBoxMsg'顯示信息。
EndSub

美國(guó)穩(wěn)定服務(wù)器

版權(quán)聲明：本站文章來(lái)源標(biāo)注為YINGSOO的內(nèi)容版權(quán)均為本站所有，歡迎引用、轉(zhuǎn)載，請(qǐng)保持原文完整并注明來(lái)源及原文鏈接。禁止復(fù)制或仿造本網(wǎng)站，禁止在非maisonbaluchon.cn所屬的服務(wù)器上建立鏡像，否則將依法追究法律責(zé)任。本站部分內(nèi)容來(lái)源于網(wǎng)友推薦、互聯(lián)網(wǎng)收集整理而來(lái)，僅供學(xué)習(xí)參考，不代表本站立場(chǎng)，如有內(nèi)容涉嫌侵權(quán)，請(qǐng)聯(lián)系alex-e#qq.com處理。