在任意form類或模塊中都可以創建類,跟建立函數和過程一樣。
創新互聯建站:自2013年起為各行業開拓出企業自己的“網站建設”服務,為千余家公司企業提供了專業的網站設計制作、成都網站制作、網頁設計和網站推廣服務, 按需制作網站由設計師親自精心設計,設計的效果完全按照客戶的要求,并適當的提出合理的建議,擁有的視覺效果,策劃師分析客戶的同行競爭對手,根據客戶的實際情況給出合理的網站構架,制作客戶同行業具有領先地位的。
示例:
public class form1
‘創建一個屬于form的子類,名稱為【類名】。
public class 類名
’定義類成員text
public text as string
end class
‘定義一個【類名】類的公共變量。
dim 類名1 as 類名
’定義一個過程,使用【類名】類的text成員
public sub 過程
‘實例化【類名1】
類名1=new 類名
類名1.text=“賦值”
’定義一個【新類】類的私用變量,并實例化。
dim 新類1 as new 新類
新類1.name=“一個字符串”
新類1.age=12
end sub
end class
‘’‘創建一個與form同級的類,名稱為【新類】
public class 新類
public sub new()
end sub
public name as string
public age as integer
end class
在模塊中使用:
public class module1
dim a as new form1.類名
end module
vb點虐 教程之vb點虐 的Button控件
vb點虐 的Button控件
Button(按鈕)控件一般接受鼠標單擊事件被用來啟動、中斷或結束一個進程(相當于Visual Basic以前版本的CommandButton控件)。單擊Button控件時將調用已寫入Click事件過程中的過程。Button控件在大多數Visual Basic應用程序中都會用到,用戶可以單擊按鈕執行操作。單擊時,按鈕不僅能執行相應的操作,而且看起來與被按下和松開一樣。Button控件在工具箱中的圖標如圖所示:
1.向窗體添加按鈕
在應用程序中很可能要使用多個按鈕。就象在其他容器控件上繪制按鈕那樣,從工具箱里把Button控件直接拖到窗體上即可。可用鼠標調整按鈕的大小,也可通過設置Location(坐標,用來確定控件相對窗體左上方頂點的位置)和Size(大小,第一個參數代表寬度,第二個參數代表高度)屬性進行調整。
2.設置按鈕顯示文本
可用Text屬性改變按鈕上顯示的文本。設計時,可在控件的“屬性窗口”中設置此屬性。在設計時設置Text屬性后將動態更新按鈕文本。Text屬性最多包含255個字符。若標題超過了命令按鈕的寬度,則會折到下一行。但是,如果控件無法容納其全部長度,則標題會被剪切。可以通過設置Font屬性改變在命令按鈕上顯示的字體。
3.創建鍵盤快捷方式
可通過Text屬性創建按鈕的訪問鍵快捷方式。為此,只需在作為訪問鍵的字母前添加一個連字符()。例如,要為標題“Ok”創建訪問鍵,應在字母“O”前添中連字符,于是得到“Ok”。運行時,字母“O”將帶下劃線,同時按Alt+O鍵就可執行單擊按鈕程序所執行的動作。
注意:如果不創建訪問鍵,而又要使標題中包含連字符,應添加兩個連字符()。這樣,在標題中就只顯示一個連字符。
4.選定按鈕
運行時,可用鼠標或鍵盤通過下述方法選定按鈕:
(1)用鼠標單擊按鈕;
(2)按Tab鍵,將焦點轉移到按鈕上,然后按Enter鍵選定按鈕;
(3)按按鈕的訪問鍵([Alt+帶有下劃線的字母])。
5.Click事件
運行時單擊按鈕,將觸發按鈕的Click事件并執行寫入Click事件過程中的代碼,同時,單擊按鈕的過程也將生成MouseMove、MouseLeave、MouseDown和MouseUp等事件。如果要在這些相關事件中附加事件過程,則應確保操作不發生沖突。對控件的操作不同,這些事件過程發生的順序也不同。Button控件的單擊事件發生順序為:
MouseMove→MouseDown→Click→MouseUp→MouseLeave
注意:如果用戶試圖雙擊按鈕控件,則其中每一次單擊都將分別處理;也即按鈕控件不支持雙擊事件。
6.增強按鈕的視覺效果
按鈕控件象復選框和選項按鈕一樣,可通過Image屬性設置Button控件上的圖標以增強視覺效果,然后設置圖標(圖片)的屬性:ImageAlign顯示圖標(圖片)的位置。通過設置ImageIndex(圖片在圖片框中的索引)以及ImageList(圖片框)則可實現如下的效果,比如要向按鈕添加圖標或位圖,或者在單擊、禁止控件時顯示不同的圖象等等。
1 打開Excel dim myexcelas new Excel.Application() myexcel.visible=true
2 添加新的工作簿myexcel.Workbooks.add()
3 設定第二個工作表為活動工作表myexcel.worksheets(2).Acivate()
4 打開指定的Excel文件myexcel.workbooks.open(“c:\my.xls”)
5 顯示Excel窗口myexcel.visible=true
6 更改Excel的標題欄myexcel.caption=“歡迎,歡迎!”
7 為Excel的單元格賦值myexcel.cells(1,4).value=100 此語句使Excel當前工作表的第一行第四列,即D1單元格等于100, 也可以這樣寫: myexcel.Range(“D1”).value=100
8 設置指定列的寬度(單位:字符個數)myexcel.ActiveSheet.colums(1).columnwidth=20 設定當前工作表第1列的寬度為20
9 設置指定行的高(單位:磅)myexcel.ActiveSheet.rows(1).rowHeight=1/0.035 1磅 =0.035厘米設置第1行的高度為1CM
10 插入分頁符 myexcel.Activesheet.rows(20).pagebreak=1在第20行前插入分頁符
11 刪除分頁符myexcel.Activesheet.columns(20).pagebreak=0 在第20列前刪除分頁符
12 指定邊框線的寬度myexcel.Activesheet.range(“B3:D3”).borders(1).weight=3 其中borders參數指定單元格邊框的位置:1:左 2:右 3:頂 4:底 5:斜\ 6:斜/
13 指定邊框線條的類型 myexcel.Activesheet.range(“B1:D3”).borders(2).linestyle=1此語句將當前工作表的B1:D3單元格的右邊框設置為實線 linestyle參數: 1:細實線 2:細虛線 3:點虛線 4:雙細實線
14 設置頁腳myexcel.activesheet.pagesetup.centerfooter=“第p頁” 注意:設置頁眉頁腳時要保證計算機上裝有打印機,否則出錯!
15 設置頁眉myexcel.activesheet.pagesetup.centerfooter=“第p頁”
16 設置頁眉到頂斷距離為2cmmyexcel.Activesheet.pagesetup.Headermargin=2/0.035
17 設置頁腳到底端距離為2cmmyexcel.Activesheet.pagesetup.Footermargin=2/0.035
18 設置頂邊邊距為2cmmyexcel.Activesheet.pagesetup.topmargin=2/0.035
19 設置底邊邊距為2cmmyexcel.Activesheet.pagesetup.Bottommargin=2/0.035
20 設置左邊邊距為2cmmyexcel.Activesheet.pagesetup.Leftmargin=2/0.035
21 設置右邊邊距為2cmmyexcel.Activesheet.pagesetup.Rightmargin=2/0.035
22 設置頁面水平居中myexcel.activesheet.pagesetup.CenterHorizontally=true
23 設置頁面垂直居中myexcel.activesheet.pagesetup.Centervertically=true
24 設置頁面紙張大小 (1,窄行8.511 ;39 ,寬行1411) myexcel.activesheet.pagesetup.papersize=1
25 打印單元格網格線 myexcel.activesheet.pagesetup.PrintGridlines=true
26 復制整個工作表 myexcel.activesheet.Usedrange.Copy
27 復制指定區域 myexcel.activesheet.range(“a1:b5”).Copy
28 粘貼 myexcel.worksheets(“sheet2”).range(“A1”).PasteSpecial
29 在第2行前插入一行 myexcel.activesheet.rows(2).Insert
30 在第2列前插入一列 myexcel.Activesheet.Columns(2).Insert
31 合并 C4:D4 單元格 myexcel.Activesheet.Range(“C4:D4”).Merge()
32 自動調整第2列列寬 myexcel.activesheet.Columns(2).AutoFit
33 設置字體myexcel.Activesheet.cells(2,1).font.name=“黑體”
34 設置字體大小myexcel.Activesheet.cells(2,1).font.size=25
35 設置字體為斜體 myexcel.Activesheet.cells(2,1).font.Italic=true
36 設置字體為粗體 myexcel.Activesheet.cells(2,1).font.Bold=true
37 清除單元格內容myexcel.activesheet.cells(2,1).ClearContents
38 打印預覽工作表myexcel.Activesheet.PrintPreview
39 打印工作表 myexcel.Activesheet.Printout
40 工作表另存為myexcel.ActiveWorkbook.saveas(“C:\book2.xls”)
41 放棄存盤 myexcel.ActiveWorkbook.saved=false
42 關閉工作簿 myexcel.Workbooks.close
43 退出 Excel myexcel.quit
44 紙張橫向:myexcel.activesheet.PageSetup.OrientaTion=2(1縱向)
45 單元格居中:cells(2,1).HorizontalAlignment=Excel.XlHAlign.xlHAlignCenter 水平方向cells(2,1).VerticalAlignment=Excel.XlVAlign.xlVAlignCenter 垂直方向
打開CSDN APP,看更多技術內容
VB調用Excel軟件實現打印預覽功能
摘要:VB源碼,報表打印,打印預覽VB調用Excel軟件實現打印預覽功能,可以插入折線圖,VB打印預覽功能示例源碼,分享給大家參考。
用vb操作EXCEL打印報表
最近使用vb來打印報表,打印出來的EXCEL一直無法上傳到ftp 反復多次問題都沒解決, 200 PORT command successful. Consider using PASV. 問題出在這,由于win10的防火墻的原因,關閉防火墻后問題得到解決. 轉載于:...
繼續訪問
VB操作excel 格式設置及打印頁面設置(精簡)
langue:VB Set ExcelApp = CreateObject("Excel.Application") ’創建資源,建立連接 Set ExcelBook = ExcelApp.Workbooks.Open(“d:\pipo\index.htm") Set ExcelSheet = ExcelBook.Worksheet...
繼續訪問
vb點虐 excel操作:填充人事檔案表并打印
節選自:《Visual Basic.Net 循序漸進》【例 21.7】【項目:code21-007】填充人事檔案表并打印。 本例使用到的Excel文件為:職員信息登記表.xlsx,如下圖所示: 圖21-10 職員信息登記表 窗體設計如下圖所示(注意:為了演示方便,已經填充了數據): 圖21-11 窗體設計 在本例中還需要掌握的知識: 1、插入圖片到指定位置 Worksheet.Shapes.AddPicture(Filename, LinkToFile, SaveWithDocumen
繼續訪問
vb點虐 操作Excel常用命令
轉載: 首先,須在項目里引用: 添加引用-Com-Microsoft Excel 9.0 Object Library (這是EXCEL2000) 1 打開Excel: dim myexcel as new Excel.Application() myexcel.visib...
繼續訪問
vb點虐 如何實現報表打印_Excel如何實現分類別打印?創建組輕松實現
有朋友咨詢個關于Excel打印數據問題,他的需求是這樣的:下表中是某公司人員信息表,現在領導要求將表格分部門打印出來,每位員工核對個人信息并簽字。需求很明確,就是將相同部門的人員打印到一張紙上。打印很簡單,難點在于如何按每個部門去打印?如果部門較少的話可以將不同部門復制到不同插頁中,再進行打印;但是如果部門較多的話,這種辦法實在不可取;有小伙伴表示可以利用VBA技術將部門拆分到各個插頁,在進行打印...
繼續訪問
最新發布 vb點虐 教程 11-1 打印組件 3 PageSetupDialog
版權聲明:本文為博主原創文章,轉載請在顯著位置標明本文出處以及作者網名,未經作者允許不得用于商業目的。 本節談談另外一個有關打印的對話框:PageSetupDialog,頁面設置對話框 實際我們是通過這個對話框獲得PageSetting,關于PageSetting在上一節有部分介紹,請參看 vb點虐 教程 11-1 打印組件 PrintDialog 2 注意的是,使用PageSetupDialog需要綁定一個PrintDocument,在PageSetupDialog的Document屬性處
繼續訪問
VB.NET使用EXCEL常見操作
首先,須在項目里引用: 添加引用Microsoft.Office.Interop.Excel Imports Excel = Microsoft.Office.Interop.Excel 1 打開Excel: Dim myexcel as new Excel.Application() myexcel.visible=true 2 添加新的工作簿: myexcel.Workbooks.ad
繼續訪問
【VB Excel】VB 操作Excel基本步驟
VB操作EXCEL,實現數據讀取 1、定義Excel操作變量 Dim objExcelFile As Excel.Application Dim objWorkBook As Excel.Workbook Dim objImportSheet As Excel.Worksheet 2、打開Excel進程,并打開目標Exc...
繼續訪問
vba代碼編程800例_如何設置Excel打印格式,學會這個VBA對象就可以隨心所欲
NO.1 Excel如何設置打印格式使用vba可以做打印格式處理,如何做一個漂亮的打印頁面,不外乎要設置打印表格的邊框、版式、頁眉、頁角等等。那么怎樣設置這些格式呢?NO.2 PageSetup對象vba編程用到Pagesetup對象,對表格打印進行設置。PageSetup對象有許多屬性,下面圖片里列出了大部分常用的屬性,可以對照進行設置。具體方法下面舉個例子來展示一下最終效果。PageSetup...
繼續訪問
vb點虐 操作excel文件
[轉自] vb點虐 操作excel文件 要求將數據顯示在Excel表中,并且要設好數據格式。雖說如此,真正實現了自己的功能,還是費了不少時間。相信還是有很多與我相似的人需要實現這種功能。那就做個小結吧。不妥之處,請指正哦。 1.添加引用–com—microsoft excel 11.0 object library 2在需要訪問excel的過程中定義 dim exapp as excel.a
繼續訪問
VB點虐 使用PrintForm打印窗體
在VS2010中內置了了一個PowerPacks的擴展包,果然很好用啊,可以直接打印窗體內容 先從"工具箱"中拖一個PrintForm到設計好的窗體中 然后在窗體里加了個打印的按鈕,對應代碼如下 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.
繼續訪問
熱門推薦 開源:.NET環境下有關打印頁面設置、打印機設置、打印預覽對話框的實現與應用(2)
!--google_ad_client = "pub-0022674553583619";google_ad_width = 728;google_ad_height = 90;google_ad_format = "728x90_as";google_ad_type = "text_image";google_ad_channel ="";google_color_
繼續訪問
vb點虐 設置打印紙張與頁邊距_機關公文格式設置規范(最新整理版)
本方法根據《黨政機關公文格式國家標準》(GB/T9704-2012)制定。具體內容如下:一、辦公軟件要求適用于微軟OFFICE—WORD文字處理軟件。二、頁面設置1.選擇“文件”——“頁面設置”選擇“頁邊距”附簽,上:3.7厘米,下:3.5厘米,左:2.8厘米,右:2.6厘米。2.選擇“紙張”附簽,“紙張大小”設成“A4”。3.選擇“版式”附簽,將“頁眉和頁腳”設置成“奇偶頁不同”,在該...
繼續訪問
VB.NET EXCEL 操作
網頁名稱:vbnet教程 vbnet教程下載
文章網址:http://vcdvsql.cn/article44/ddihhhe.html
成都網站建設公司_創新互聯,為您提供響應式網站、手機網站建設、網站內鏈、軟件開發、網站建設、移動網站建設
聲明:本網站發布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創新互聯