赠分行动---技术请教

[lgm]

1、PB中使用ole控件：“shockware flash”，请问如何在代码中控制该控件执行的文件，还有其播放、停止、或暂停的控制，请说的详细点，最好写出命令行！

2、pb中如何实现静态文本控件背景透明，就象VB的那样！

问题解决，立刻给分，决不拖延！！！！！！！
谢谢！

[lgm]

谢谢大家的帮助,问题已经解决!
这个贴我要结啦,送分给大家!
不过请大家继续看看小弟的下一道问题!"高分求助!"
*^_^*

[Icon]

1、插入ole时，点击Browse按钮，其方法和属性一览无遗。

2、st背景透明参考此帖：
http://www.csdn.net/expert/topic/640/640565.xml?temp=.7492487

[xiongxiao]

问题1不敢做答,我也试过,在BROWSE按钮中看到的东东不一定就能用
第2个:你在静态文本控件的constructor事件中写上:BackColor = 2^29即可.

[wzljzh]

第一步：在窗口上Declare Instance Variables:
　　　　private:
　　　　boolean ib_painting = false

　　第二步：在st_1的事件constructor上编写下列代码：
call super::constructor
this.BackColor = 2^29

　　第二步：在StaticText上增加下列事件：
　　　　EVENT name: ue_paint
　　　　EVENT ID: pbm_paint。

　　第三步：对自定事件ue_paint编写下列代码：
IF ib_Painting THEN RETURN 0
ib_Painting = TRUE
p_1.Visible = TRUE //假设静态文本遮住了图片p_1
mle_1.Visible = TRUE //假设静态文本同时也遮住了多行编辑框mle_1
//如果此静态文本还盖住了其他控件
//在此增加这些控件代码: control.Visible = TRUE
THIS.Visible = FALSE
YIELD()
THIS.Visible = TRUE
ib_painting=FALSE
END IF
RETURN 0
转贴!!!

[sun_cathay]

晓雄的透明简单

[xiongxiao]

还有你要在文本控件中定义一个事件:
先定义实例变量: boolean ib_painting///记住如有多个文本控件,就要定义多个,需要一个对一个.要不你可看看会有什么情况,可是很搞笑的···
EVENT ID: pbm_paint

然后写上
if IsValid(This) then
if ib_painting_name then Return 0
ib_painting_name = True
Visible = False
Do While Yield()
Loop
Visible = True
ib_painting_name = False
end if
Return 0

[xiongxiao]

上面的ib_painting_name 这个变量名写错了，不好意思，就为ib_painting