资源描述：
《又酷又炫的文字特效》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、又酷又炫的文字特效__________________________________________________________________________________________DimwAsNewWord.ApplicationPrivateSubForm_Load()w.Documents.Add.Selectw.ActiveDocument.Shapes.AddTextEffect(0,"艺术字","隶书",48#,-1,0,183.75,70.5).SelectEndSubPrivateSubForm_Click()'...每单击窗
2、体一下，就改变一种艺术字'随机选择艺术字的类型w.Selection.ShapeRange.TextEffect.PresetTextEffect=Int(Rnd*30)'...选择字体w.Selection.ShapeRange.TextEffect.FontName="隶书"'...拷贝到剪贴板w.Selection.Copy'...从剪贴板读取到窗体上Picture=Clipboard.GetData()EndSubPrivateSubForm_Unload(CancelAsInteger)'退出Wordw.QuitwdDoNotSaveChanges
3、Setw=NothingEndSub__________________________________________________________________________________________PrivateSubForm_Load()Text2.Text=""Timer1.Enabled=TrueTimer1.Interval=200Timer1.Enabled=TrueEndSubPrivateSubTimer1_Timer()Dimstr1AsStringDimstr2AsStringDimlen1AsIntegerStatici
4、AsIntegerstr1="打字效果演示"'显示信息len1=Len(str1)'取得要显示的字符str2=Mid(str1,i+1,1)'一个字一个字地显示SendKeysstr2i=i+1If(i+1)>len1ThenSendKeys"{enter}"'换行i=0EndIfEndSub__________________________________________________________________________________________PrivateSubCommand1_Click()'清除窗体Me.Cls'设置文字阴影的
5、起始位置x=1000y=600'生成阴影Fori=0To100ForeColor=RGB(0,0,0)'设置阴影的颜色为黑色x=x-1y=y-1CurrentX=xCurrentY=yPrint"投影字"Nexti'生成前景文字ForeColor=RGB(255,255,255)'设置文字的颜色为白色x=x-1CurrentX=xCurrentY=y-25Print"投影字"EndSub'阴影在右上PrivateSubCommand2_Click()Me.Clsx=1000y=600Fori=0To100ForeColor=RGB(0,0,0)x=x-1y=
6、y+1CurrentX=xCurrentY=yPrint"投影字"NextiForeColor=RGB(255,255,255)x=x-1CurrentX=xCurrentY=y+25Print"投影字"EndSub'阴影在左下PrivateSubCommand3_Click()Me.Clsx=1000y=600Fori=0To100ForeColor=RGB(0,0,0)x=x+1y=y-1CurrentX=xCurrentY=yPrint"投影字"NextiForeColor=RGB(255,255,255)x=x-1CurrentX=xCurrentY
7、=y-25Print"投影字"EndSub'阴影在左上PrivateSubCommand4_Click()Me.Clsx=1000y=600Fori=0To100ForeColor=RGB(0,0,0)x=x+1y=y+1CurrentX=xCurrentY=yPrint"投影字"NextiForeColor=RGB(255,255,255)x=x-1CurrentX=xCurrentY=y+25Print"投影字"EndSub__________________________________________________________________
8、________________________Op
