VB如何实现发出点击FLASH按钮的命令?
VB用了ShockwaveFlash控件,载入了一个联网查天气的Flash,就是这个FLASH: "http://flash.weather.com.cn/sk2/shikuang.swf?id=101050101"这个Flash有几个选项,有温度,湿度,气压,风向等,这些是可以用鼠标点击后查看的,但我想让VB自己实现点击这些选项的这个动作,就是想实现每隔5秒自动换一个天气项目,我之前用指定坐标模拟鼠标点击动作,但效果不理想,能不能用程序直接向ShockwaveFlash控件写某个指令来实现切换项目的动作?哪位高人可以帮助一下,万分感谢!
控件可以接收、发送flash命令的 flash发命令给vb: 在flash中,用fscommand(参数1,参数2); vb的shockwaveflash控件接收, vb传值给Flash。 me.shockwaveflash.setVal...什么的,忘记了,明天再给你段例子吧。 如期回帖 VB code: Private Sub ShockwaveFlash1_FSCommand(ByVal command As String, ByVal args As String) ' 这里是用来接收Flash中发出的命令 ' Flash的命令格式为 fscommand(command,args); End Sub ' VB发送参数给Flash Me.ShockwaveFlash1.SetVariable Flash中的元件名, 参数值 ' 例如Flash中有个文本框元件,实例名为txt_Name, Me.ShockwaveFlash1.SetVariable "_root.txt_Name.text", "显示我吧"引用 如期回帖 VB codePrivateSub ShockwaveFlash1_FSCommand(ByVal commandAsString, ByVal argsAsString)' 这里是用来接收Flash中发出的命令 ' Flash的命令格式为
相关问答:
请教一下:我用vb写了一个调用Illustrator的测试程序,代码很简单:Private Sub Command1_Click() Dim app As New Illustrator.Application Dim doc As Illustrator.Document Dim thislayer As Illustrator.Layer ......
我制作了个用户控件,需要动态加载到窗体上 Set objExt = Controls.Add("工程1.meActiveX", argName) objExt.Visible = True 程序一次能加载N个, 现在想对 ......
在vb中怎么判断,插入到数据库中的值是重复的,本人才刚接触VB语言,甚是有好多地方还不懂,还请各位大侠们给出代码,谢谢了呀!!! 插入之前select一下阿。 或者写一个组合SQL插入语句,例如 IF not Exist( & ......
我这样写对吗? Printer.Font = "黑体加粗" Printer.FontSize = 24 '设置文字的大小 Printer.Print "汽车燃料消耗量标识" VB code: Private Sub Com ......
据说java语言是这样的,那VB呢? byte[] b(byte)0x62,(byte)0x11,(byte)0x72,(byte)0x31}; try { System.out.println(new String(b,"UTF-16")); } catch (UnsupportedEnco ......