❶ VB如何动态创建图片Dim pic As Image 然后怎么写
'用PaintPicture方法
目标控件.PaintPicture Me.Picture, 0, 0
用法参见MSDN
PaintPicture 方法
用以在 Form, PictureBox 或 Printer 上绘制图形文件(.bmp、.wmf、.emf、.cur、.ico或 .dib)的内容。不支持命名参数。
语法
object.PaintPicture picture, x1, y1, width1, height1, x2, y2, width2, height2, opcode
PaintPicture 方法的语法包含下列部分:
部分 描述
object 可选的。一个对象表达式,其值为“应用于”列表中的一个对象。如果省略 object,带有焦点的 Form 对象缺省为 object。
Picture 必需的。要绘制到 object 上的图形源。Form 或 PictureBox 必须是 Picture 属性。
x1, y1 必需的。均为单精度值,指定在 object 上绘制 picture 的目标坐标(x-轴和y-轴)。object 的 ScaleMode 属性决定使用的度量单位。
Width1 可选的。单精度值,指示 picture 的目标宽度。object 的 ScaleMode 属性决定使用的度量单位。如果目标宽度比源宽度 (width2) 大或小,将适当地拉伸或压缩 picture。如果该参数省略,则使用源宽度。
Height1 可选的。 单精度值,指示 picture 的目标高度。object 的 ScaleMode 属性决定使用的度量单位。如果目标高度比源高度 (height2) 大或小,将适当地拉伸或压缩 picture。如果该参数省略,则使用源高度。
x2, y2 可选的。均为单精度值,指示 picture 内剪贴区的坐标(x-轴和y-轴)。object 的 ScaleMode 属性决定使用的度量单位。如果该参数省略,则缺省为 0。
Width2 可选的。单精度值,指示 picture 内剪贴区的源宽度。object 的 ScaleMode 属性决定使用的度量单位。如果该参数省略,则使用整个源宽度。
Height2 可选的。 单精度值,指示 picture 内剪贴区的源高度。object 的 ScaleMode 属性决定使用的度量单位。如果该参数省略,则使用整个源高度。
Opcode 可选的。是长型值或仅由位图使用的代码。它用来定义在将 pictur 绘制到 object 上时对 picture 执行的位操作(例如, vbMergeCopy 或 vbSrcAnd 操作符)。关于位操作符常数的完整列表,请参阅 Visual Basic Help 文件中的 RasterOp Constants 主题。
在使用opcode时有一些限制。例如,如果资源是图标或图元文件,则只能使用 vbSrcCopy,而不能使用其他的opcode;并且,与图案 (或 SDK 术语中的"画笔"),如 MERGECOPY、 PATCOPY、 PATPAINT 和 PATINVERT,相交互的opcode实际上是同目标的 FillStyle 属性交互。
注意 Opcode 用于将按位操作传递到位图。当传递其他图象类型时将一个值给该参数会造成“无效过程调用或参数”错误。这是设计的原因。要避免这个错误,对于除位图外的图象,将 Opcode 参数置为空。
❷ vb中怎样做能使图片具有动态效果
看你的图片放在哪个界面中,如窗体中还是picturebox中,他们都有click事件,但是放在窗体中估计你是达不到抖动的效果了,只有放在picturebox中,然后用top和left来进行抖动!
❸ VB中怎么添加动态图片
1、首先要注册,注册方法:在工程中选中“引用”→引用项目ActiveMovie Control type Libray→然后点击“确定”键即可。
2、其次,在PictureBox控件中显示GIF动画,凡有句柄hwnd的窗体控件均可以;
3、在窗体Form1上添加2个命令按钮Command1,Command2和1个图片框控件Picture1。
❹ VB里面怎么插入动态图啊
楼主你好!
可以按以下步骤:
1、打开VB6.0,新建标准EXE
❺ 在VB中让图片动起来
不要用什么GIF控件了,你直接用WebBrowser就可以了。。
输入一句代码就可以了。
WebBrowser1.Navigate (App.Path & "\**.gif") '()里面的是目录
WebBrowser 在什么地方?
工程---部件 打开控件选择卡,在下面的“Microsoft Internet Controls 6.0” 把前面的方框打上对号,应用 确定就可以了。。
❻ VB6.0如何用VB6.0做动态图像,就是简单的把图像从左端移动到右端,求高手~谢谢
Private Sub Timer1_Timer()
Label1.Left = Label1.Left - 20
End Sub
注:Label1.Left - 20向左移动
Label1.Left +20向右移动
Timer1.Interval = 1000'时间间隔为一秒
❼ 【怎么用VB做动态图片会的告诉的.不会的也可以学习下】
'先添加控件:Timer1、Picture1
Dim ctS As Long
Private Sub Form_Load()
Timer1.Enabled = True: Timer1.Interval = 500
End Sub
Private Sub Timer1_Timer()
ctS = ctS + 1
If ctS > 5 Then ctS = 1
' 绘图法 =================
Picture1.Cls
Picture1.Font.Size = 24
Picture1.Print ctS
'' 图片法 =================
'' 删除上面 绘图法 的三条语句,改用下面的一条语句
'' 用绘图软件制作 5 张动作有连续性的图片
'' 分别保存为 My1.bmp, My2.bmp, My3.bmp, My4.bmp, My5.bmp
'' Picture1.Picture = LoadPicture("C:\My" & ctS & ".bmp")
End Sub
❽ 怎么让VB中的静态图片动起来
1、在PR中导入图片素材,添加到轨道上。
2、在上面点--“效果”按钮。如图:
3、把光标移到要加运动效果的位置,点添加关键帧。如图:
4、在效果控件面板里面--“视频效果”---"运动“如图:
4、对”位置“,”缩放“”旋转“等进行设置。
5、设置好了,图片就运动起来了。
❾ VB中怎么添加动态图片
1、首先要注册,注册方法:在工程中选中“引用”→引用项目ActiveMovie
Control
type
Libray→然后点击“确定”键即可。
2、其次,在PictureBox控件中显示GIF动画,凡有句柄hwnd的窗体控件均可以;
3、在窗体Form1上添加2个命令按钮Command1,Command2和1个图片框控件Picture1。