Winform如何獲取系統(tǒng)任務(wù)欄高度

告訴你幾個(gè)重要參數(shù)

創(chuàng)新互聯(lián)專注于臨猗網(wǎng)站建設(shè)服務(wù)及定制，我們擁有豐富的企業(yè)做網(wǎng)站經(jīng)驗(yàn)。 熱誠為您提供臨猗營銷型網(wǎng)站建設(shè)，臨猗網(wǎng)站制作、臨猗網(wǎng)頁設(shè)計(jì)、臨猗網(wǎng)站官網(wǎng)定制、成都微信小程序服務(wù)，打造臨猗網(wǎng)絡(luò)公司原創(chuàng)品牌,更為您提供臨猗網(wǎng)站排名全網(wǎng)營銷落地服務(wù)。

SystemParameters.WorkArea.Width;

SystemParameters.WorkArea.Height;

SystemParameters.PrimaryScreenWidth;

SystemParameters.PrimaryScreenHeight;

你要的參數(shù)這樣算

SystemParameters.PrimaryScreenHeight - SystemParameters.WorkArea.Height;

VB獲得任務(wù)欄高度

Screen.Height / Screen.TwipsPerPixelX ---這是把屏幕的絕對高度單位由緹轉(zhuǎn)為像素

(Screen.Height / Screen.TwipsPerPixelX) - rectVal.Bottom ---這是把屏幕高度減去工作區(qū)高度（計(jì)算結(jié)果就是任務(wù)欄的高度了，單位為像素）

((Screen.Height / Screen.TwipsPerPixelX) - rectVal.Bottom) * Screen.TwipsPerPixelX ---這是把上述計(jì)算結(jié)果的單位由像素轉(zhuǎn)為VB默認(rèn)的緹

補(bǔ)充說明：此語句存在下屬錯(cuò)誤或缺陷：

1、任務(wù)欄并不是固定在屏幕下方的，也可以是上邊、左邊或右邊的（盡管很少有人這么做），如果出現(xiàn)后面這些情況，那么程序的計(jì)算結(jié)果就是不準(zhǔn)確的；

2、計(jì)算工作區(qū)的高度（或?qū)挾龋r(shí)，要把Bottom-Top（或Right-Left），因?yàn)門op（或Left）是不一定為0的（見上述1）；

3、Screen.TwipsPerPixelX用錯(cuò)了，應(yīng)該是Screen.TwipsPerPixelY，前者是屏幕橫向每像素多少緹，是用來轉(zhuǎn)換屏幕寬度單位的，后者則是屏幕縱向每像素多少緹，這才是用來轉(zhuǎn)換屏幕高度單位的。不過在絕大部分情況下，這兩個(gè)值是相等的（都是15），所以程序運(yùn)行結(jié)果不會(huì)出錯(cuò)，但是作為程序必須嚴(yán)謹(jǐn)，因?yàn)檎f不定你的程序要運(yùn)行在一些特殊的屏幕上呢（這時(shí)候兩個(gè)值就不一定相等了）？

vb.net拓展標(biāo)題欄高度

窗口的FormBorderStyle是修改窗口屬性的~，可以改成None這樣就沒有邊框和標(biāo)題欄了

如果僅僅要去掉標(biāo)題欄，修改窗口ControlBox為false，并吧Text屬性置空就好了

……還是你啊~你問了兩次，復(fù)制過來~呵呵

vb怎么知道任務(wù)欄高度？

要用到API函數(shù)

Public Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByRef lpvParam As Any, ByVal fuWinIni As Long) As Long

Public Const SPI_GETWORKAREA = 48

Public Type RECT

Left As Long

Top As Long

Right As Long

Bottom As Long

End Type

Public Function GetTaskbarHeight() As Integer

Dim lRes As Long

Dim rectVal As RECT

lRes = SystemParametersInfo(SPI_GETWORKAREA, 0, rectVal, 0)

GetTaskbarHeight = ((Screen.Height / Screen.TwipsPerPixelX) - rectVal.Bottom) * Screen.TwipsPerPixelX

End Function

用的時(shí)候調(diào)用GetTaskbarHeight它會(huì)返回高度值注意上面的代碼要寫在一個(gè)標(biāo)準(zhǔn)模塊里

vb.net獲取excel頁面高度

1 打開Excel dim myexcelas new Excel.Application() myexcel.visible=true

2 添加新的工作簿myexcel.Workbooks.add()

3 設(shè)定第二個(gè)工作表為活動(dòng)工作表myexcel.worksheets(2).Acivate()

4 打開指定的Excel文件myexcel.workbooks.open(“c:\my.xls”)

5 顯示Excel窗口myexcel.visible=true

6 更改Excel的標(biāo)題欄myexcel.caption=“歡迎,歡迎!”

7 為Excel的單元格賦值myexcel.cells(1,4).value=100 此語句使Excel當(dāng)前工作表的第一行第四列,即D1單元格等于100, 也可以這樣寫: myexcel.Range(“D1”).value=100

8 設(shè)置指定列的寬度(單位:字符個(gè)數(shù))myexcel.ActiveSheet.colums(1).columnwidth=20 設(shè)定當(dāng)前工作表第1列的寬度為20

9 設(shè)置指定行的高(單位:磅)myexcel.ActiveSheet.rows(1).rowHeight=1/0.035 1磅 =0.035厘米設(shè)置第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參數(shù)指定單元格邊框的位置:1:左 2:右 3:頂 4:底 5:斜\ 6:斜/

13 指定邊框線條的類型 myexcel.Activesheet.range(“B1:D3”).borders(2).linestyle=1此語句將當(dāng)前工作表的B1:D3單元格的右邊框設(shè)置為實(shí)線 linestyle參數(shù): 1:細(xì)實(shí)線 2:細(xì)虛線 3:點(diǎn)虛線 4:雙細(xì)實(shí)線

14 設(shè)置頁腳myexcel.activesheet.pagesetup.centerfooter=“第p頁” 注意:設(shè)置頁眉頁腳時(shí)要保證計(jì)算機(jī)上裝有打印機(jī),否則出錯(cuò)!

15 設(shè)置頁眉myexcel.activesheet.pagesetup.centerfooter=“第p頁”

16 設(shè)置頁眉到頂斷距離為2cmmyexcel.Activesheet.pagesetup.Headermargin=2/0.035

17 設(shè)置頁腳到底端距離為2cmmyexcel.Activesheet.pagesetup.Footermargin=2/0.035

18 設(shè)置頂邊邊距為2cmmyexcel.Activesheet.pagesetup.topmargin=2/0.035

19 設(shè)置底邊邊距為2cmmyexcel.Activesheet.pagesetup.Bottommargin=2/0.035

20 設(shè)置左邊邊距為2cmmyexcel.Activesheet.pagesetup.Leftmargin=2/0.035

21 設(shè)置右邊邊距為2cmmyexcel.Activesheet.pagesetup.Rightmargin=2/0.035

22 設(shè)置頁面水平居中myexcel.activesheet.pagesetup.CenterHorizontally=true

23 設(shè)置頁面垂直居中myexcel.activesheet.pagesetup.Centervertically=true

24 設(shè)置頁面紙張大小 (1,窄行8.511 ;39 ,寬行1411) myexcel.activesheet.pagesetup.papersize=1

25 打印單元格網(wǎng)格線 myexcel.activesheet.pagesetup.PrintGridlines=true

26 復(fù)制整個(gè)工作表 myexcel.activesheet.Usedrange.Copy

27 復(fù)制指定區(qū)域 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 自動(dòng)調(diào)整第2列列寬 myexcel.activesheet.Columns(2).AutoFit

33 設(shè)置字體myexcel.Activesheet.cells(2,1).font.name=“黑體”

34 設(shè)置字體大小myexcel.Activesheet.cells(2,1).font.size=25

35 設(shè)置字體為斜體 myexcel.Activesheet.cells(2,1).font.Italic=true

36 設(shè)置字體為粗體 myexcel.Activesheet.cells(2,1).font.Bold=true

37 清除單元格內(nèi)容myexcel.activesheet.cells(2,1).ClearContents

38 打印預(yù)覽工作表myexcel.Activesheet.PrintPreview

39 打印工作表 myexcel.Activesheet.Printout

40 工作表另存為myexcel.ActiveWorkbook.saveas(“C:\book2.xls”)

41 放棄存盤 myexcel.ActiveWorkbook.saved=false

42 關(guān)閉工作簿 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，看更多技術(shù)內(nèi)容

VB調(diào)用Excel軟件實(shí)現(xiàn)打印預(yù)覽功能

摘要:VB源碼,報(bào)表打印,打印預(yù)覽VB調(diào)用Excel軟件實(shí)現(xiàn)打印預(yù)覽功能，可以插入折線圖，VB打印預(yù)覽功能示例源碼，分享給大家參考。

用vb操作EXCEL打印報(bào)表

最近使用vb來打印報(bào)表,打印出來的EXCEL一直無法上傳到ftp 反復(fù)多次問題都沒解決, 200 PORT command successful. Consider using PASV. 問題出在這,由于win10的防火墻的原因,關(guān)閉防火墻后問題得到解決. 轉(zhuǎn)載于:...

繼續(xù)訪問

VB操作excel 格式設(shè)置及打印頁面設(shè)置（精簡）

langue：VB Set ExcelApp = CreateObject("Excel.Application") ’創(chuàng)建資源，建立連接 Set ExcelBook = ExcelApp.Workbooks.Open(“d:\pipo\index.htm") Set ExcelSheet = ExcelBook.Worksheet...

繼續(xù)訪問

vb.net excel操作：填充人事檔案表并打印

節(jié)選自：《Visual Basic.Net 循序漸進(jìn)》【例 21.7】【項(xiàng)目：code21-007】填充人事檔案表并打印。 本例使用到的Excel文件為：職員信息登記表.xlsx，如下圖所示： 圖21-10 職員信息登記表 窗體設(shè)計(jì)如下圖所示（注意：為了演示方便，已經(jīng)填充了數(shù)據(jù)）： 圖21-11 窗體設(shè)計(jì) 在本例中還需要掌握的知識(shí)： 1、插入圖片到指定位置 Worksheet.Shapes.AddPicture(Filename, LinkToFile, SaveWithDocumen

繼續(xù)訪問

vb.net操作Excel常用命令

轉(zhuǎn)載: 首先,須在項(xiàng)目里引用: 添加引用-Com-Microsoft Excel 9.0 Object Library （這是EXCEL2000） 1 打開Excel： dim myexcel as new Excel.Application() myexcel.visib...

繼續(xù)訪問

vb.net 如何實(shí)現(xiàn)報(bào)表打印_Excel如何實(shí)現(xiàn)分類別打??？創(chuàng)建組輕松實(shí)現(xiàn)

有朋友咨詢個(gè)關(guān)于Excel打印數(shù)據(jù)問題，他的需求是這樣的：下表中是某公司人員信息表，現(xiàn)在領(lǐng)導(dǎo)要求將表格分部門打印出來，每位員工核對個(gè)人信息并簽字。需求很明確，就是將相同部門的人員打印到一張紙上。打印很簡單，難點(diǎn)在于如何按每個(gè)部門去打??？如果部門較少的話可以將不同部門復(fù)制到不同插頁中，再進(jìn)行打?。坏侨绻块T較多的話，這種辦法實(shí)在不可取；有小伙伴表示可以利用VBA技術(shù)將部門拆分到各個(gè)插頁，在進(jìn)行打印...

繼續(xù)訪問

最新發(fā)布 vb.net 教程 11-1 打印組件 3 PageSetupDialog

版權(quán)聲明：本文為博主原創(chuàng)文章，轉(zhuǎn)載請?jiān)陲@著位置標(biāo)明本文出處以及作者網(wǎng)名，未經(jīng)作者允許不得用于商業(yè)目的。 本節(jié)談?wù)劻硗庖粋€(gè)有關(guān)打印的對話框：PageSetupDialog，頁面設(shè)置對話框 實(shí)際我們是通過這個(gè)對話框獲得PageSetting，關(guān)于PageSetting在上一節(jié)有部分介紹，請參看 vb.net 教程 11-1 打印組件 PrintDialog 2 注意的是，使用PageSetupDialog需要綁定一個(gè)PrintDocument，在PageSetupDialog的Document屬性處

繼續(xù)訪問

VB.NET使用EXCEL常見操作

首先,須在項(xiàng)目里引用: 添加引用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

繼續(xù)訪問

【VB Excel】VB 操作Excel基本步驟

VB操作EXCEL,實(shí)現(xiàn)數(shù)據(jù)讀取 1、定義Excel操作變量 Dim objExcelFile As Excel.Application Dim objWorkBook As Excel.Workbook Dim objImportSheet As Excel.Worksheet 2、打開Excel進(jìn)程，并打開目標(biāo)Exc...

繼續(xù)訪問

vba代碼編程800例_如何設(shè)置Excel打印格式，學(xué)會(huì)這個(gè)VBA對象就可以隨心所欲

NO.1 Excel如何設(shè)置打印格式使用vba可以做打印格式處理，如何做一個(gè)漂亮的打印頁面，不外乎要設(shè)置打印表格的邊框、版式、頁眉、頁角等等。那么怎樣設(shè)置這些格式呢？NO.2 PageSetup對象vba編程用到Pagesetup對象，對表格打印進(jìn)行設(shè)置。PageSetup對象有許多屬性，下面圖片里列出了大部分常用的屬性，可以對照進(jìn)行設(shè)置。具體方法下面舉個(gè)例子來展示一下最終效果。PageSetup...

繼續(xù)訪問

vb.net操作excel文件

[轉(zhuǎn)自] vb.net操作excel文件 要求將數(shù)據(jù)顯示在Excel表中，并且要設(shè)好數(shù)據(jù)格式。雖說如此，真正實(shí)現(xiàn)了自己的功能，還是費(fèi)了不少時(shí)間。相信還是有很多與我相似的人需要實(shí)現(xiàn)這種功能。那就做個(gè)小結(jié)吧。不妥之處，請指正哦。 1.添加引用–com—microsoft excel 11.0 object library 2在需要訪問excel的過程中定義 dim exapp as excel.a

繼續(xù)訪問

VB.net使用PrintForm打印窗體

在VS2010中內(nèi)置了了一個(gè)PowerPacks的擴(kuò)展包,果然很好用啊,可以直接打印窗體內(nèi)容 先從"工具箱"中拖一個(gè)PrintForm到設(shè)計(jì)好的窗體中 然后在窗體里加了個(gè)打印的按鈕,對應(yīng)代碼如下 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.

繼續(xù)訪問

熱門推薦 開源:.NET環(huán)境下有關(guān)打印頁面設(shè)置、打印機(jī)設(shè)置、打印預(yù)覽對話框的實(shí)現(xiàn)與應(yīng)用(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_

繼續(xù)訪問

vb.net 設(shè)置打印紙張與頁邊距_機(jī)關(guān)公文格式設(shè)置規(guī)范(最新整理版)

本方法根據(jù)《黨政機(jī)關(guān)公文格式國家標(biāo)準(zhǔn)》(GB/T9704-2012)制定。具體內(nèi)容如下：一、辦公軟件要求適用于微軟OFFICE—WORD文字處理軟件。二、頁面設(shè)置1.選擇“文件”——“頁面設(shè)置”選擇“頁邊距”附簽，上：3.7厘米，下：3.5厘米，左：2.8厘米，右：2.6厘米。2.選擇“紙張”附簽，“紙張大小”設(shè)成“A4”。3.選擇“版式”附簽，將“頁眉和頁腳”設(shè)置成“奇偶頁不同”,在該...

繼續(xù)訪問

VB.NET EXCEL 操作