国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

<sub id="zgyvs"><tr id="zgyvs"><th id="zgyvs"></th></tr></sub>

<small id="zgyvs"></small>

<td id="zgyvs"><tr id="zgyvs"></tr></td>

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

在VB中建立可旋轉的文本特效

2019-11-18 17:34:07

字體：大中小

來源：轉載

供稿：網友

在VB中利用Windows的API函數可以實現很多的VB無法實現的擴展功能，下面的程序介紹的是如何通過調用Windows中的API函數實現文本旋轉顯示的特級效果。
　　首先建立一個工程文件，然后選菜單中的PRoject|AddClassModule加入一個新的類文件，并將這個類的Name屬性改變為APIFont，然后在類的代碼窗口中加入以下的代碼：
　　OptionExplicit

　　PrivateDeclareFunctionSelectCl　　AF.FontOut“電腦商情報第42期”,Picture2,X,Y
　　AF.SelectOrgPicture2
　　NextI
　　EndSub

　　PrivateSubForm_Load()
　　Picture2.ScaleMode=3
　　EndSub
　　運行程序，點擊Form上的Command1按鈕，在窗口的圖片框就會出現旋轉的文本顯示，程序的效果如圖所示：
　　值得注意的問題是，由于Windows的動態連接庫的中英文版本的關系，在一些系統中顯示中文可能會有一些問題，大家可能看到，上面程序中的語句：AF.FontOut“腦商情報第42期”，Picture2,X,Y中的字符串后面有7個空格，這是對于“電腦商情報第42期”中的7個中文字符，中文系統計算的是7個字符，但是實際它們占據的是14個字節的空間，所以在輸出時要在后面添加7個空格做“替身”。上面的程序在中文Win98，VB6下運行通過。->

上一篇：利用子類處理技術限制窗體的大小

下一篇：VB中訪問API函數之防錯技巧

學習交流

索泰發布一款GTX 1070 Mini迷你版本:小機

索泰發布一款GTX 1070 Mini迷你版本:小機箱大愛...

熱門圖片

猜你喜歡的新聞

猜你喜歡的關注

新聞熱點

榮耀總裁趙明烏鎮演講：榮耀首款5G手機V30下月發布

2019-10-23 09:17:05

搜狐張朝陽：回歸媒體是搜狐重新崛起的關鍵

2019-10-21 09:20:02

華為輪值董事長郭平：虛擬技術創造現實價值

2019-10-21 09:00:12

滴滴英文服務上線兩周年用戶已超200萬

2019-09-26 08:57:12

華為推出全球至快AI訓練集群Atlas900

2019-09-25 08:46:36

馬斯克：特斯拉正組建中國技術團隊

2019-09-25 08:15:43

疑難解答

圖片精選

網友關注

主站蜘蛛池模板：杨浦区| 巴东县| 桃园市| 米脂县| 太保市| 华宁县| 项城市| 蒲城县| 大石桥市| 望谟县| 孙吴县| 黄浦区| 资溪县| 长岭县| 浦江县| 阿拉善左旗| 林芝县| 怀宁县| 榆树市| 名山县| 余姚市| 阿克| 咸宁市| 辽中县| 铁力市| 普定县| 大同县| 淮南市| 吉安县| 方正县| 沭阳县| 阳曲县| 昭觉县| 乡城县| 通化市| 温泉县| 廊坊市| 桓仁| 襄汾县| 泰宁县| 天长市|

<rp id="cmk4k"><dl id="cmk4k"></dl></rp>

<small id="cmk4k"></small>

<td id="cmk4k"><tr id="cmk4k"></tr></td>

<p id="cmk4k"><ins id="cmk4k"></ins></p><p id="cmk4k"><ins id="cmk4k"></ins></p>

<td id="cmk4k"><tr id="cmk4k"></tr></td>