´注意!不要删除或修改下列被注释的行!
public property get fontname() as string 【程序编程相关:ASP编程中树型结构的提交】´mappinginfo=picctrl,picctrl,-1,fontname 【推荐阅读:给网站添加一个注册表 之 “类的应用” 】end property 【扩展信息:在C#中应用MapObjects(图层标】 fontname = picctrl.fontnamepublic property let fontname(byval new_fontname as string)
picctrl.cls picctrl.fontname() = new_fontname propertychanged "fontname"end property´注意!不要删除或修改下列被注释的行!
´mappinginfo=picctrl,picctrl,-1,fontsizepublic property get fontsize() as single fontsize = picctrl.fontsizeend propertypublic property let fontsize(byval new_fontsize as single)
picctrl.cls picctrl.fontsize() = new_fontsize maxoffsetx = picctrl.textwidth(m_textstring) propertychanged "fontsize"end property´注意!不要删除或修改下列被注释的行!
´mappinginfo=timer,timer,-1,intervalpublic property get speed() as long speed = timer.intervalend propertypublic property let speed(byval new_speed as long)
timer.interval() = new_speed propertychanged "speed"end property´注意!不要删除或修改下列被注释的行!
´memberinfo=13,0,0,"图片过度效果pictrans v1.0 设计:江龙 2000年02月30日"public property get textstring() as string textstring = m_textstringend propertypublic property let textstring(byval new_textstring as string)
picctrl.cls m_textstring = new_textstring textlen = strlen(m_textstring) maxoffsetx = picctrl.textwidth(m_textstring) propertychanged "textstring"end property´注意!不要删除或修改下列被注释的行!
´mappinginfo=picctrl,picctrl,-1,forecolorpublic property get textcolor() as ole_color textcolor = picctrl.forecolorend propertypublic property let textcolor(byval new_textcolor as ole_color)
picctrl.forecolor() = new_textcolor propertychanged "textcolor"end property´注意!不要删除或修改下列被注释的行!
´memberinfo=7,0,0,0public property get textoffsety() as integer textoffsety = m_textoffsetyend property... 下一页