七、接着使用右键点击图片,使用弹出的菜单选项调整每张图片的层 。
八、调整完毕后的效果见下图,这时点击“确定” 。
九、最后点击“保存”,制作完成 。
4.VB怎么做个截图工具1. 启动新 VisualBasic 常用 Exe 项目 。
默认情况下创建 Form 1 。2. 在 项目 菜单上, 选择将一个新模块添加到现有项目 添加模块。
3. 向窗体, 名称之一添加两 图片框 Pic_Edit (目标), 和其他名称 Pic_Dest (目标) 。4. 将是 Pic_Edit Picture 属性设置为要从中选择区域位图 5. 将是 Pic_Dest AutoRedraw 属性设置为 True 6. 以下代码添加到 Module 1:Public Const INVERSE = 6 Public Const DOT = 2 Public Const SOLID = 0 Public OrigX As Long Public OrigY As Long Public DestX As Long Public DestY As Long Public Sub Draw_Selection_Rectangle() ' Set drawing mode to INVERSE since this routine also used to erase ' the selection rectangle by simply drawing over the currently ' displayed rectangle With Editor.Pic_Edit .DrawMode = INVERSE .DrawStyle = DOT Editor.Pic_Edit.Line (OrigX, OrigY)-(DestX, DestY), , B .DrawStyle = SOLID End With End Sub Public Sub Copy_Rectangle() With Editor.Pic_Dest .Cls .Visible = True .Height = DestY - OrigY .Width = DestX - OrigX .PaintPicture Editor.Pic_Edit, 0, 0, (DestX - OrigX), _ (DestY - OrigY), OrigX, OrigY, (DestX - OrigX), _ (DestY - OrigY), vbSrcCopy End With ' Make sure the clipboard is clear, then copy the image: Clipboard.Clear Clipboard.SetData Editor.Pic_Dest.Image End Sub 7. 以下代码添加到 Form 1:Private Sub Pic_Edit_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then Pic_Edit.Refresh Pic_Dest.Visible = False OrigX = X OrigY = Y DestX = OrigX DestY = OrigY Call Module1.Draw_Selection_Rectangle End Sub Private Sub Pic_Edit_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then DestX = X DestY = Y Pic_Edit.Refresh Call Module1.Draw_Selection_Rectangle End If End Sub Private Sub Pic_Edit_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) ' Check to see if mouse moved or goes the "wrong" way: If DestX <= OrigX Or DestY <= OrigY Then Pic_Edit.Refresh Exit Sub End If If Button = 1 Then Call Copy_Rectangle End Sub 8. 启动应用程序并选择用鼠标与位图的区域 。
当您松开鼠标按钮, Pic_Dest 出现 备注 所选区域: 如果备份 MS 画图、MSWord 或任何其他应用程序可能需要粘贴位图, 打开您就可以粘贴到该应用程序图像的选定部分 。也可以通过剪贴板查看程序查看剪贴板的内容 。
文章插图
- 电脑没声音怎么弄 电脑没声音怎么办win7
- cf怎么截图 CF游戏中怎么截图
- qq空间访问权限 手机怎么设置qq空间访问权限
- 鱼肉馅饺子怎么做 鱼肉馅饺子做法视频
- 怎么开葡萄酒 怎么开葡萄酒木塞小妙招
- 洗龙沟是什么意思 洗龙沟是什么意思衣机里面太脏了怎么办
- wow使命召唤怎么做 使命召唤怎么弄
- 文件隐藏了怎么恢复 windows文件隐藏了怎么恢复
- 英雄联盟查战斗力 英雄联盟怎么查战斗力
- 安卓手机如何省电 安卓手机怎么节省电量