vb中的字体阴影

vb中的字体阴影

您可以使用两个label控件,其中上面的那个背景设为透明,下面的那个文字颜色设置为深色(阴影色),然后把两上标签的文字大小\内容等设置为一样,两个放在一起,稍微错开点,就实现了阴影效果了.

(1)创建一个新目标文件(project1)，并建立一个窗体form1。 　　(2)在form1上配置一个计时器控制timer1、标签控件label1、命令控件command1。 　　(3)各控件属性设置： 　　timer1的enabled设置为true; 　　label1的caption设置为需闪烁的字体：“闪烁字体”、 font设置字体及大小、backstyle设置为“0－transparent”； 　　command1中的caption设置为“退出”。 　　(4)程序代码清单： 　　option explicit 　　private sub form_ load() 　　label1.top=850　　 　　　′设置闪烁字体的显示位置 　　label1.left=750 　　timer1.interval=555　　 　　′设置字体闪烁间隔时间 　　form1.windowstate=2 　　end sub 　　′利用计时器控件timer有规律地改变字体颜色(forecolor) 　　private sub timer1_timer() 　　chc label1,1,4,8 　　end sub 　　′chc过程是循环地改变字体颜色(forecolor) 　　sub chc(cont as control,color1 as integer,color2 as integer,color3 as integer) 　　if val(cont.tag)=color1 then 　　cont.tag=color2 　　elseif val(cont.tag)=color2 then 　　cont.tag=color3 　　elseif val(cont.tag)=color3 then 　　cont.tag=color1 　　else 　　cont.tag=color1 　　end if 　　cont.forecolor=qbcolor(cont.tag) 　　end sub 　　private sub command1_click() 　　end 　　end sub

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息！