AutoCAD 3DMAX C语言 Pro/E UG JAVA编程 PHP编程 Maya动画 Matlab应用 Android
Photoshop Word Excel flash VB编程 VC编程 Coreldraw SolidWorks A Designer Unity3D
 首页 > PowerBuilder

透明文本的实现

51自学网 http://www.wanshiok.com
 

  (1) 新建Standard Visual用户对象uo_transparent_st,类型为定义实例变量:

  Boolean ib_painting

  (2) 编写uo_transparent_st的Constructor 事件脚本:
  // 透明色 536870912
  This.backcolor = 2^29

  (3) 定义用户对象uo_transparent_st的用户事件ue_paint(Event ID:pbm_paint),并编写脚本如下:
  IF IsValid(This) THEN
  if ib_painting THEN Return 0
  ib_painting = True
  This.Visible = False
  Do While Yield()
  Loop
  This.Visible = True
  ib_painting = False
  END IF</P><P>Return 0

 

 

 
上一篇:在pb中用语音读金额  下一篇:在PB下实现圆形的窗口