解决方案 »
- 设计form画面时选中所有button控件
- 关于textbox的一些问题
- C#处理中文的问题
- C#可否在一个类里面再定义一个类?
- 这是段返回电脑配置的代码 编译通过 没有返回值 求高人指点
- 菜鸟问题:文件读写intRead=readStream.Read(b,0,b.Length);不通过
- 请问大大虾:是否可以通过线程来控制主程序中界面的变化?
- 调用libusbdotnet中的UsbEndpointWriter 和UsbEndpointRead时总是提示我未将对象引用设置到对象的实例
- Crystal Report v9.2 与VS.NET2003 不兼容,所做的报表vs.net2003调用不了!
- zhangbat,谢谢你的资料,请接分
- mono运行winform窗体时报错
- c#界面实现代码封装,在没有界面的情况下可以调用,而不会影响功能
'在窗体Form1上添加2个命令按钮Command1,Command2和1个图片框控件Picture1Option Explicit'调用运动图像播放类型库Quartz.dll,在c:/windows/system32目录下
Private pMC As FilgraphManager '定义pMC为FilgraphManager对象
Private pVW As IVideoWindow '定义pVW为IVideoWindow对象'播放GIF动画
Private Sub Command1_Click() '终止播放
On Error Resume Next
Set pMC = New FilgraphManager
pMC.Stop
pMC.RenderFile ""
'加载GIF文件
On Error GoTo Lhandle
pMC.RenderFile "E:/offline.gif" '加载GIF动画(图片),并在PictureBox中播放
On Error Resume Next
Set pVW = pMC
pVW.WindowStyle = CLng(&H6000000)
'限定图像在Picture1的大小中
pVW.Left = 0: pVW.Top = 0
pVW.Width = Picture1.ScaleWidth
pVW.Height = Picture1.ScaleHeight
pVW.Owner = Picture1.hWnd '在Picture1中播放
pVW.MessageDrain = Picture1.hWnd '此行非常重要,用来定义图像的右键菜单所必须
pMC.Run '一直播放
Exit Sub
Lhandle:
MsgBox ("加载文件错误!")
End Sub'停止播放GIF动画
Private Sub Command2_Click()
pMC.Stop
Set pVW = Nothing
Set pMC = Nothing
End SubPrivate Sub Form_Load()
Me.ScaleMode = 3
Picture1.ScaleMode = 3
End Sub