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

<ins id="rwz6s"></ins>

首頁 > 學院 > 開發(fā)設(shè)計 > 正文

插入對象

2019-11-18 17:49:30

字體：大中小

來源：轉(zhuǎn)載

供稿：網(wǎng)友

'說明：表單一個；命令按鈕一個為CmdInsertObject；RichTextBox控件一個為RichTextBox1

OptionExplicit

ll_TextLength=lstrlenW(ll_StringPointer) 1
'初始化字符串
ls_ProgID=Space(ll_TextLength)
'拷貝ll_StringPointer指針到字符串ls_ProgID
CopyMemoryByValStrPtr(ls_ProgID),ByValll_StringPointer,ll_TextLength*2
'清除內(nèi)存
CoTaskMemFreell_StringPointer

'添加對象到RichTextBox中
RichTextBox1.OLEObjects.Add,,"",ls_ProgID

Else

'選擇："從文件創(chuàng)建"時
RichTextBox1.OLEObjects.Add,,lu_InsertObject.lpszFile

EndIf
EndIf

EndSub->

上一篇：如何在VB6中導出EXCEL、FOXPRO格式的表

下一篇：在VB組件內(nèi)調(diào)用Excel2000實現(xiàn)GIF餅圖

學習交流

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

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

熱門圖片

猜你喜歡的新聞

猜你喜歡的關(guān)注

新聞熱點

榮耀總裁趙明烏鎮(zhèn)演講：榮耀首款5G手機V30下月發(fā)布

2019-10-23 09:17:05

搜狐張朝陽：回歸媒體是搜狐重新崛起的關(guān)鍵

2019-10-21 09:20:02

華為輪值董事長郭平：虛擬技術(shù)創(chuàng)造現(xiàn)實價值

2019-10-21 09:00:12

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

2019-09-26 08:57:12

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

2019-09-25 08:46:36

馬斯克：特斯拉正組建中國技術(shù)團隊

2019-09-25 08:15:43

疑難解答

圖片精選

網(wǎng)友關(guān)注

主站蜘蛛池模板：桑日县| 张家界市| 南木林县| 安国市| 甘孜县| 南安市| 绥棱县| 许昌县| 阳曲县| 长兴县| 神池县| 抚远县| 德州市| 分宜县| 太仓市| 汾西县| 共和县| 托克逊县| 和田县| 阳新县| 克什克腾旗| 左贡县| 绥化市| 靖边县| 江华| 阿城市| 石门县| 凤庆县| 罗城| 南华县| 察雅县| 南雄市| 鹤峰县| 禹城市| 杭锦后旗| 子长县| 绍兴市| 蒲江县| 潼关县| 鲜城| 五寨县|

<noscript id="kq3ub"></noscript>