重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
复制文件夹不用剪贴板,使用系统文件操作对象就好了
创新互联建站主营西吉网站建设的网络公司,主营网站建设方案,成都App定制开发,西吉h5微信小程序搭建,西吉网站营销推广欢迎西吉等地区企业咨询
CreateObject("scripting.filesystemobject").copyfolder "c:\Program Files", "D:\Program Files"
通过:
Clipboard.GetText
Clipboard.GetData
可以得到系统剪贴板的内容
如果剪贴板中的内容是文字,Clipboard.GetFormat(1)=True 。
获得文字直接用
Clipboard.GetText
获得图片可以用
Clipboard.GetData
设置文字直接用
Clipboard.SetText
设置图片可以用
Clipboard.SetData
清空
Clipboard.Clear
检测剪贴板中的内容
Clipboard.GetFormat(1)
返回True则文字
返回False则其他
'没办法,需的把窗口隐藏一下,还的隐藏后延迟一下再截图。
Dim WithEvents Timer1 As New Timer With {.Interval = 30, .Enabled = False}
Dim Imgrect As Rectangle
Dim img As Bitmap
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Imgrect = Me.RectangleToScreen(Me.ClientRectangle)
img = New Bitmap(Imgrect.Width, Imgrect.Height)
Me.Hide()
Timer1.Start()
End Sub
Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Timer1.Stop()
Graphics.FromImage(img).CopyFromScreen(Imgrect.X, Imgrect.Y, 0, 0, Imgrect.Size)
Me.BackgroundImage = img
Me.Show()
End Sub
Clipboard.SetText()是方法,必须给它传递参数才能将内容保存在剪切板上。
Clipboard.SetText(TextBox1.Text);
SelectedText是只读属性,只能读取文本框内选定的内容,而不能对其赋值。
Clipboard.GetText()用于获得剪切板内的内容。如:
TextBox2.Text=Clipboard.GetText();
新建一个工程,在Form1双击,编写:
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim bmp As New Bitmap(1024,768)'这跟你的电脑分辨率有关,要更改
Dim gs As Graphics = Graphics.FromImage(bmp)
gs.CopyFromScreen(0, 0, 0, 0, New Size(1024, 768))'这跟你的电脑分辨率有关,要更改
bmp.Save("C:\myBmp.bmp")
End Sub
把它弄到开始菜单,一打开,桌面就被截了。
INTOUCH自带的就有,打印屏幕的命令
自己写个时间条件运行那命令就可以了
PRINTSCREEN这个命令 具体怎么用 看下帮助
希望我的回答对你有所帮助
如有其他问题,可以继续追问,您的采纳是我前进的动力!