7,763
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
strawren 2004-03-26
- 打赏
- 举报
是哦
用clipboard这个对象，可现在大部分常用的功能
用clipboard这个对象，可现在大部分常用的功能
fuzq 2004-03-26
- 打赏
- 举报
本示例使用 Clear 方法清除一个图表框中的所有项目。要检验此示例，可将本例代码粘贴到带有一个名为 List1 的 ListBox 控件的窗体的声明部分，然后按 F5 键并单击该窗体。
Private Sub Form_Click ()
Dim Entry, I, Msg ' 声明变量。
Msg = "Choose OK to add 100 items to your list box."
MsgBox Msg ' 显示信息。
For I = 1 To 100 ' 计数值从 1 到 100。
Entry = "Entry " & I ' 创建输入项。
List1.AddItem Entry ' 添加该输入项。
Next I
Msg = "Choose OK to remove every other entry."
MsgBox Msg ' 显示信息。
For I = 1 To 50 ' 确定如何
List1.RemoveItem I ' 每隔一项
Next I ' 删除。
Msg = "Choose OK to remove all items from the list box."
MsgBox Msg ' 显示信息。
List1.Clear ' 清除列表框。
End Sub
本示例使用 Clear 方法清除 Clipboard 对象。要检验此示例，可将本例代码粘贴到一个窗体的声明部分，然后按 F5 键并单击该窗体
Private Sub Form_Click ()
Const CF_BITMAP = 2 ' 定义位图各种格式。
Dim Msg ' 声明变量。
On Error Resume Next ' 设置错误处理。
Msg = "Choose OK to load a bitmap onto the Clipboard."
MsgBox Msg ' 显示信息。
Clipboard.Clear ' 清除剪贴板。
Clipboard.SetData LoadPicture("PAPER.BMP") ' 取得位图。
If Err Then
Msg = "Can't find the .BMP file."
MsgBox Msg ' 显示错误信息。
Exit Sub
End If
Msg = "A bitmap is now on the Clipboard. Choose OK to copy "
Msg = Msg & "the bitmap from the Clipboard to the form."
MsgBox Msg ' 显示信息。
Picture = Clipboard.GetData() ' 从剪贴板上复制。
Msg = "Choose OK to clear the picture."
MsgBox Msg ' 显示信息。
Picture = LoadPicture() ' 清除图片。
End Sub
northwolves 2004-03-26
- 打赏
- 举报
调出窗口：
Private Sub Command1_Click()
Shell "clipbrd.exe", 1
End Sub
Private Sub Command1_Click()
Shell "clipbrd.exe", 1
End Sub
victorycyz 2004-03-26
- 打赏
- 举报
copy文字：
clipboard.clear
clipboard.settext text1.seltext
paste:
text1.seltext=clipboard.gettext()
