document.body.oncopy = function () {
if (window.clipboardData) {
setTimeout(function () {
var text = clipboardData.getData("text");
if (text && text.length > 300) {
text = text + "\r\n\n本文来自CSDN博客，转载请标明出处：" + location.href;
clipboardData.setData("text", text);
}
}, 100);
}
}function StorePage() { d = document; t = d.selection ? (d.selection.type != 'None' ? d.selection.createRange().text : '') : (d.getSelection ? d.getSelection() : ''); void (keyit = window.open('http://www.365key.com/storeit.aspx?t=' + escape(d.title) + '&u=' + escape(d.location.href) + '&c=' + escape(t), 'keyit', 'scrollbars=no,width=475,height=575,left=75,top=20,status=no,resizable=yes')); keyit.focus(); }
对于.NET的CheckedListBox控件，我们可以适当封装，让其可以支持设置CheckListBox中指定Index的某一项的勾选状态的功能，以及支持设置CheckListBox中指定内容的某一项的勾选状态的功能，具体的实现代码如下所示：
'设置CheckListBox中指定Index的某一项的勾选状态
Function CheckItemByIndex(w_CheckListBox , ItemIndex ,CheckState)
w_CheckListBox.Object.SetItemChecked ItemIndex , CheckState
End Function
RegisterUserFunc "SwfList","CheckItemByIndex","CheckItemByIndex"
'设置CheckListBox中指定内容的某一项的勾选状态
Function CheckItemByText(w_CheckListBox , ItemText ,CheckState)
For I =0 to w_CheckListBox.GetItemsCount -1
If w_CheckListBox.GetItem(I) = ItemText Then
w_CheckListBox.Object.SetItemChecked I,CheckState
CheckItemByText = True
Exit Function
End If
Next
CheckItemByText = False
End Function
RegisterUserFunc "SwfList","CheckItemByText","CheckItemByText"
在QTP中引用该VBS文件后，可以这样使用封装的功能：
SwfWindow("Form1").SwfList("checkedListBox1").CheckItemByIndex 0,False
Msgbox SwfWindow("Form1").SwfList("checkedListBox1").CheckItemByText ("鸡蛋",True)
