亚洲香蕉成人av网站在线观看_欧美精品成人91久久久久久久_久久久久久久久久久亚洲_热久久视久久精品18亚洲精品_国产精自产拍久久久久久_亚洲色图国产精品_91精品国产网站_中文字幕欧美日韩精品_国产精品久久久久久亚洲调教_国产精品久久一区_性夜试看影院91社区_97在线观看视频国产_68精品久久久久久欧美_欧美精品在线观看_国产精品一区二区久久精品_欧美老女人bb

首頁 > 學院 > 開發設計 > 正文

用VB6.0實現幾種圖文特效的演示程序

2019-11-18 17:41:45
字體：大 中 小
來源：轉載
供稿：網友
電影或電視中經?？梢姷揭恍┳帜换驁D片的動態變化特技，在制作多媒體教學軟件或廣告宣傳等多媒體演示文檔時，也常常需要用到一些圖文的動態變化效果。VB6.0作為Windows軟件的強有力開發工具，在多媒體程序設計方面具有廣闊的應用前景。本文討論運用VB6.0的定時器并結合WindowsAPI函數實現圖片或文字的動態縮放和漸隱漸現等特技效果。

　　一、實現圖文動態縮放和漸隱漸現特效的程序方法

　　1、程序界面

　　取窗體名為Form1，其Windowstate屬性設為2。在窗體Form1中設置如下控件和屬性:一個標簽控件Label1，其backcolor等于form1的backcolor;bondstyle為0,Autosize為True。一個圖像控件image1，其Stratch和Visible均為True;Bordstyle為0。兩個圖片框控件Picture1和Picture2,Visible屬性Picture1為False而Picture2為True;AutoRedraw屬性Picture1為True而Picture為False;ScaleModel屬性兩者均為Pixels;Bondstyle屬性兩者均為0。三個定時器控件Timer1,Timer2和Tirner3;命令按鈕控件數組cmd(0)，......,Cmd(4)，其caption屬性分別為:"文字縮放"、"圖片縮放"、"文字隱現"、"圖片隱現"和"退出"。

　　2、文字的動態縮放

　　通過VB6.0的定時器控件定時改變文字的Size屬性，就可達到文字被動態放大或縮小的效果。程序中通過timer1的tuner過程來控制標簽Label1的caption屬性文字大小。由cmd(0)觸發的cmd_click事件引發timer1_time過程，通過一邏輯變量1(0)(數組元素)控制文字的變化方式，1(0)=true時使PRivateSubPicCpy(Optionalstr　EndIf
　plw=Picturel.Width
　plh=Picturel.Height
　p2=0
　DoWhilep2<=plw
　　BitBltPicture2.hDC,p2,0,strip,plh,Picture1.hDC,p2,0,SRCCOPY
　　p2=p2 strip
　　Sleepdelay
　　DoEvents
　Loop'由于圖片寬度不一定是strip的整數倍，故下面再全圖復制一遍圖片:
　BitBltPicture2.hDC,0,0,plw,plh,Picture1.hDC,0,0,SRCCOPY
EndSub

PrivateSubForm_load()
　Label1.Font.Name="黑體"
　Image1.Top=0
　Image1.Left=0
　Picture2.Top=0
　Picture2.Left=Screen.Width-Picthne2.Width
　s="產生縮放和隱現效果的文字"
　zt=5'zt為字體大小控制變量
　i=0'i為顯示文字時截取文字的字數變量
EndSub

PrivateSubCmd_Click(IndexAsInteger)
　If1(Index)=TrueThen
　　1(Index)=False
　Else
　　1(Idex)=True
　EndIf
　SelectCaseIndex
　　Case0'激活timer1的timer過程
　　　Timer1.Enabled=True
　　　Timer1.Interval=50
　　　......'Case1,2與上述類似，分別激活timer2,timer3的timer過程
　　Case3'調用圖片復制過程Piccpy
　　　PiCpy10,50
　　Case4'結束程序運行
　　　UnloadMe
　　　End
　EndSelect
EndSub

PrivateSubTimer1_Timer()'實現文字縮放的過程
　If1(0)=TrunThen
　　zt=zt< 5
　Else
　　Zt=Zt-5
　ElseIf
　　Ifzt>50orzt<=5Then
　　　Timer1.Enabled=False
　　EndIf
　　WithLabel1
　　　.Font.Size=zt
　　　.Left=(Form1.Width-Lable1.Width)/2
　　　.Top=(Form1.Height-Label1.Height)/2
　　EndWith
　　Label1.Caption=s
EndSub

PrivateSubTimer2_Timer()'實現圖片縮放的過程
　If1(1)=TrueThen'使圖片放大
　　Image1.Width=Image1.Width Form1.Width/10
　　Image1.Height=Image1.Height Form1.Height/10
　Else'使圖片縮小
　　Image1.Width=Image1.Width-Form1.Width/10
　　Image1.Height=Image1.Height-Form1.Height/10
　EndIf
　If(Image1.Width>=Form1.Width/2)or(Image1.Width<=Form1.Width/10)Then
　　Timer2.Enabled=False
　EndIf
　Image1=LoadPicture("c:/win98/安裝程序.bmp")
EndSub

PrivateSubTimer3.Timer()
　Label1.Font.Size=30
　If1(2)=TrueThen
　　i=i l
　Else
　　i=i一1
　EndIf
　Ifi>=Len(s)oni<1Then
　　Timer3.Enabled=False
　EndIf
　Ifi>=0Then
　　Label1.Caption=Left$(s,i)
　EndIf
EndSub->
　　以上程序在VB6.0和Windows98/2000環境下調試通過。
->

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
亚洲香蕉成人av网站在线观看_欧美精品成人91久久久久久久_久久久久久久久久久亚洲_热久久视久久精品18亚洲精品_国产精自产拍久久久久久_亚洲色图国产精品_91精品国产网站_中文字幕欧美日韩精品_国产精品久久久久久亚洲调教_国产精品久久一区_性夜试看影院91社区_97在线观看视频国产_68精品久久久久久欧美_欧美精品在线观看_国产精品一区二区久久精品_欧美老女人bb
亚洲小视频在线| 中国china体内裑精亚洲片| 亚洲成色777777在线观看影院| 中文字幕在线日韩| 欧美激情在线播放| 91精品久久久久久久久青青| 2025国产精品视频| 91精品国产91久久久久福利| 91精品国产成人www| 欧美第一黄色网| 欧美成人亚洲成人| 欧美在线激情视频| 91久久综合亚洲鲁鲁五月天| 亚洲一区二区三区sesese| 欧美xxxwww| 久久九九全国免费精品观看| 亚洲一区免费网站| 久久综合久久美利坚合众国| 亚洲第一页自拍| 亚洲一区二区自拍| 色综合91久久精品中文字幕| 91欧美精品午夜性色福利在线| 欧美裸体男粗大视频在线观看| 亚洲第一在线视频| 国产色视频一区| 黄色成人av在线| 欧美在线激情视频| 国产午夜精品一区理论片飘花| 日韩欧美aaa| 国产精品国产三级国产aⅴ浪潮| 中文字幕亚洲一区二区三区五十路| 免费av一区二区| 精品亚洲精品福利线在观看| 国产精品久久久久久久av大片| 日韩在线视频观看正片免费网站| 亚洲国产精品福利| 欧美整片在线观看| 中国日韩欧美久久久久久久久| 亚洲一品av免费观看| 这里只有精品视频| 亚洲片在线资源| 欧美午夜xxx| 欧美丰满老妇厨房牲生活| 911国产网站尤物在线观看| 欧美国产在线视频| 欧美在线性爱视频| 欧美午夜丰满在线18影院| 国产99久久久欧美黑人| 日韩欧美福利视频| 亚洲女人天堂色在线7777| 日本韩国在线不卡| 亚洲福利视频专区| 成人免费午夜电影| 国产精品激情自拍| 波霸ol色综合久久| 日韩在线视频中文字幕| 欧美视频在线看| 国产中文字幕91| 亚洲一区二区三区成人在线视频精品| 91精品国产91久久久久久| 日韩一级裸体免费视频| 亚洲一区第一页| 亚洲国产成人在线播放| 国产精品劲爆视频| 久久久久久久久电影| 精品久久久久久久久中文字幕| 亚洲精品国产电影| 久久久国产视频91| 亚洲人成电影网站色…| 91精品国产高清自在线| 日本一区二区三区四区视频| 九九热99久久久国产盗摄| 欧美亚洲另类激情另类| 成人做爰www免费看视频网站| 国内自拍欧美激情| 91亚洲精品一区二区| 两个人的视频www国产精品| 精品国产依人香蕉在线精品| 亚洲天堂网在线观看| 欧美午夜激情在线| 超碰精品一区二区三区乱码| 国产在线不卡精品| 日韩精品在线观看视频| 国产欧美韩国高清| 国内精品视频久久| 亚洲人成欧美中文字幕| 精品视频在线观看日韩| 欧美精品激情blacked18| 在线播放亚洲激情| 国产成人免费av电影| 欧洲午夜精品久久久| 久久久久久有精品国产| 日本在线精品视频| 亚洲欧美日韩视频一区| 亚洲日韩欧美视频| 91在线视频一区| 国产欧美日韩精品专区| 欧美xxxx做受欧美.88| 情事1991在线| 热re99久久精品国产66热| 91久久综合亚洲鲁鲁五月天| 97视频在线观看亚洲| 国产精品美女免费看| 亚洲天堂成人在线| 日韩资源在线观看| 丁香五六月婷婷久久激情| 色综合久久中文字幕综合网小说| xvideos成人免费中文版| 91精品视频免费看| 正在播放国产一区| 国产精品户外野外| 国产精品一香蕉国产线看观看| 成人免费网站在线看| 精品国产拍在线观看| 亚洲欧美三级伦理| 欧美中文字幕第一页| 国产视频丨精品|在线观看| 午夜精品美女自拍福到在线| 久久精品国产v日韩v亚洲| 51久久精品夜色国产麻豆| 欧美专区在线观看| 国产成人亚洲综合91| 91精品视频观看| 在线播放日韩专区| 91中文精品字幕在线视频| 欧美成人精品在线播放| 国产一区二区美女视频| 国产91av在线| 亚洲一区久久久| 国产精品免费在线免费| 亚洲一区久久久| 97在线看免费观看视频在线观看| 黄色91在线观看| 色噜噜狠狠狠综合曰曰曰| 国产欧美精品久久久| 福利一区视频在线观看| 日韩精品黄色网| www日韩欧美| 欧美在线一级va免费观看| 国产精品久久久亚洲| 在线播放日韩欧美| 欧美亚洲国产精品| 亚洲精品午夜精品| 欧美成年人视频网站| 亚洲人成网在线播放| 久久综合久中文字幕青草| 九九精品在线视频| 国产精品99久久99久久久二8| 精品无人区乱码1区2区3区在线| 欧美成人黄色小视频| 欧美日韩成人免费| 在线亚洲男人天堂| 国产精品免费视频xxxx| 国产精品亚洲片夜色在线| 亚洲成人黄色在线| 欧美大片在线影院| 久久人人爽人人爽人人片av高请| 伊人男人综合视频网| 国产成人jvid在线播放| 欧美日韩一区二区三区在线免费观看| 精品福利一区二区| 国产精品美女在线| 欧美激情欧美激情在线五月| 亚洲第一精品夜夜躁人人躁|