图片输出文字闪字

2010-7-21 11:09 792 0

摘要: 　　大家好我是By:晴客 QQ：337607378　　今天给大家做个VB编程在图片输出文字的教程加彩色闪光字。　　本来想做个语音的教程，由于我在家有音箱没有麦克风，只能做个文字教程了。　...

关键词： Picture Timer Sub 呵呵 Private 教程一下好字中加图片

　　大家好我是By:晴客 QQ：337607378　　今天给大家做个VB编程在图片输出文字的教程加彩色闪光字。　　本来想做个语音的教程，由于我在家有音箱没有麦克风，只能做个文字教程了。　　我不想浪费大家时间，所以我事先打好字了。呵呵，好了废话不多说了，我们开始。　　首先我们打开软件VB，呵呵先画一下用到的控件。先换个图标。　　呵呵，现在写入代码，有些朋友问，我们还没有加图片呢，别急，图片我们在代码中加进去。　　Private Sub Form_Load()　　Picture1.Picture = LoadPicture(App.Path & "\黑色图片.webp")　　End Sub　　Private Sub Timer1_Timer()　　Picture1.FontName = "隶书"　　Picture1.FontSize = "30"　　Picture1.Print "中国葑榊技术联盟"　　End Sub　　Private Sub Timer2_Timer()　　Picture1.Cls　　End Sub　　Private Sub Timer3_Timer()　　Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)　　End Sub　　我们来设置一下时钟的时间，　　好了，我都设置好了，下面我们来演示一下，呵呵，效果还可以吧！！　　好了，教程到这里结束了，大家有什么不明白的来问我。　　By:晴客 QQ：337607378