易截截图软件、单文件、免安装、纯绿色、仅160KB

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(此前Illustrator未启动)?

请教一下:我用vb写了一个调用Illustrator的测试程序,代码很简单:Private Sub Command1_Click()
Dim app As New Illustrator.Application
Dim doc As Illustrator.Document
Dim thislayer As Illustrator.Layer ......

VB 请教高手关于用户控件问题

我制作了个用户控件,需要动态加载到窗体上

    Set objExt = Controls.Add("工程1.meActiveX", argName)
    objExt.Visible = True

程序一次能加载N个, 现在想对 ......

vb插入数据库重复值问题

在vb中怎么判断,插入到数据库中的值是重复的,本人才刚接触VB语言,甚是有好多地方还不懂,还请各位大侠们给出代码,谢谢了呀!!!
插入之前select一下阿。
或者写一个组合SQL插入语句,例如
IF not Exist(
& ......

vb打印字体显示黑体加粗怎么设置

我这样写对吗?


Printer.Font = "黑体加粗"

Printer.FontSize = 24 '设置文字的大小


Printer.Print "汽车燃料消耗量标识"

VB code:

Private Sub Com ......

vb 如何将十六进制UTF-8转换为汉字

据说java语言是这样的,那VB呢?

byte[] b(byte)0x62,(byte)0x11,(byte)0x72,(byte)0x31};
  try {
System.out.println(new String(b,"UTF-16"));
  } catch (UnsupportedEnco ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号