做多媒体求助?急用 怎么在窗体中嵌入.gif动画?怎么用按钮实现访问windows资源管理器功能?急用!谢谢!!! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 http://expert.csdn.net/Expert/topic/1676/1676646.xml?temp=.7797052 访问资源管理器??如果是像打开或关闭文件,建议用commondialog控件。 播*.gif的(已通过测试):Private Sub Form_Load() Image1.Picture = LoadPicture(App.Path & "\13.gif") WebBrowser1.Navigate (App.Path & "\13.gif") '播放gif动画End SubPrivate Sub Command1_Click()’播 Command1.Enabled = False Command2.Enabled = True Picture1.Visible = True Image1.Visible = FalseEnd SubPrivate Sub Command2_Click() ‘不播 Command2.Enabled = False Command1.Enabled = True Picture1.Visible = False Image1.Visible = TrueEnd SubPrivate Sub Command3_Click() EndEnd Sub VB建立DBF表,对字段数据类型为小数的字段怎么定义啊? Command控件小问题 数据库路经找不到??(急急急) 怎样动态添加treeview节点呀? 如何用api控制recording control (录音控制)中的microphone(麦克风)的音量 如何在VB中使用api函数 还有一问! 高分讨教:这个vb+SQL2000的出错提示太奇怪了. 为什么给分的人越来越少了? 怎样写? 怎样把commomdialog选择的颜色和字体,在textbox里实现? 关于EXCEL中菜单和宏的问题
如果是像打开或关闭文件,建议用commondialog控件。
Private Sub Form_Load()
Image1.Picture = LoadPicture(App.Path & "\13.gif")
WebBrowser1.Navigate (App.Path & "\13.gif") '播放gif动画
End SubPrivate Sub Command1_Click()
’播
Command1.Enabled = False
Command2.Enabled = True
Picture1.Visible = True
Image1.Visible = False
End SubPrivate Sub Command2_Click()
‘不播
Command2.Enabled = False
Command1.Enabled = True
Picture1.Visible = False
Image1.Visible = True
End SubPrivate Sub Command3_Click()
End
End Sub