可以在窗體上放一個(gè)Lable控件,取名叫Lable1, 那么實(shí)現(xiàn)方式就是: private sub form_load() Lable1.Text="今天天氣很好"; end sub 你可以試試!
創(chuàng)新互聯(lián)主營吳川網(wǎng)站建設(shè)的網(wǎng)絡(luò)公司,主營網(wǎng)站建設(shè)方案,重慶App定制開發(fā),吳川h5微信小程序搭建,吳川網(wǎng)站營銷推廣歡迎吳川等地區(qū)企業(yè)咨詢
一、VB讀寫EXCEL表:
能獲取到表的行數(shù)的代碼:xlSheet2.UsedRange.Rows.Count
VB本身提自動(dòng)化功能可以讀寫EXCEL表,其方法如下:
1、在工程中引用Microsoft
Excel類型庫:
從"工程"菜單中選擇"引用"欄;選擇Microsoft
Excel
9.0
Object
Library(EXCEL2000),然后選擇"確定"。表示在工程中要引用EXCEL類型庫。
2、在通用對(duì)象的聲明過程中定義EXCEL對(duì)象:
Dim
xlApp
As
Excel.Application
Dim
xlBook
As
Excel.WorkBook
Dim
xlSheet
As
Excel.Worksheet
3、在程序中操作EXCEL表常用命令:
Set
xlApp
=
CreateObject("Excel.Application")
'創(chuàng)建EXCEL對(duì)象
Set
xlBook
=
xlApp.Workbooks.Open("文件名")
'打開已經(jīng)存在的EXCEL工件簿文件
xlApp.Visible
=
True
'設(shè)置EXCEL對(duì)象可見(或不可見)
Set
xlSheet
=
xlBook.Worksheets("表名")
'設(shè)置活動(dòng)工作表
xlSheet.Cells(row,
col)
=值'給單元格(row,col)賦值
xlSheet.PrintOut
'打印工作表
xlBook.Close
(True)
'關(guān)閉工作簿
xlApp.Quit
'結(jié)束EXCEL對(duì)象
Set
xlApp
=
Nothing
'釋放xlApp對(duì)象
xlBook.RunAutoMacros
(xlAutoOpen)
'運(yùn)行EXCEL啟動(dòng)宏
xlBook.RunAutoMacros
(xlAutoClose)
'運(yùn)行EXCEL關(guān)閉宏
4、在運(yùn)用以上VB命令操作EXCEL表時(shí),除非設(shè)置EXCEL對(duì)象不可見,否則VB程序可繼續(xù)執(zhí)行其它操作,也能夠關(guān)閉EXCEL,同時(shí)也可對(duì)EXCEL進(jìn)行操作。但在EXCEL操作過程中關(guān)閉EXCEL對(duì)象時(shí),VB程序無法知道,如果此時(shí)使用EXCEL對(duì)象,則VB程序會(huì)產(chǎn)生自動(dòng)化錯(cuò)誤。形成VB程序無法完全控制EXCEL的狀況,使得VB與EXCEL脫節(jié)。
1。選擇工作表左上角的“全選”按鈕,選定所有單元格,選擇“審閱”選項(xiàng)卡中的“保護(hù)單元格”命令,取消所有單元格鎖定。
2。再選擇不允許填充內(nèi)容的單元格區(qū)域,選擇“審閱”選項(xiàng)卡中的“保護(hù)單元格”命令,將不允許修改的單元格鎖定。
3。選擇“審閱”選項(xiàng)卡中的“保護(hù)工作表”命令,在彈出的對(duì)話框中“確定”即可(如果不想讓他人修改,這里可以設(shè)置密碼)。