vb.net活動(dòng)窗體 vba簡(jiǎn)單窗體實(shí)例

怎樣用VB.NET寫和調(diào)用DLl窗體

一、帶窗體的dll創(chuàng)建

作為一家“創(chuàng)意+整合+營(yíng)銷”的成都網(wǎng)站建設(shè)機(jī)構(gòu)，我們?cè)跇I(yè)內(nèi)良好的客戶口碑。創(chuàng)新互聯(lián)公司提供從前期的網(wǎng)站品牌分析策劃、網(wǎng)站設(shè)計(jì)、成都網(wǎng)站設(shè)計(jì)、成都網(wǎng)站制作、外貿(mào)網(wǎng)站建設(shè)、創(chuàng)意表現(xiàn)、網(wǎng)頁(yè)制作、系統(tǒng)開發(fā)以及后續(xù)網(wǎng)站營(yíng)銷運(yùn)營(yíng)等一系列服務(wù)，幫助企業(yè)打造創(chuàng)新的互聯(lián)網(wǎng)品牌經(jīng)營(yíng)模式與有效的網(wǎng)絡(luò)營(yíng)銷方法,創(chuàng)造更大的價(jià)值。

1、先新建 類庫(kù)（testdll），在項(xiàng)目中添加兩個(gè)窗體form1(主窗體)、form2,為了與后面的調(diào)用區(qū)分分別命名為fm1,fm2；并在fm1窗體中添加一個(gè)按鈕用來調(diào)用fm2如下圖

2、在fm1窗體代碼中先引用fm2, ? ?按鈕代碼調(diào)用fm2.如圖

3、生成dll,(class1.vb中不需要寫任何代碼）

二、調(diào)用dll

1、新建 一個(gè)windows應(yīng)用程序并添加一個(gè)按鈕用來調(diào)用dll中的窗體，選 擇 “項(xiàng)目”－“添加引用”，選擇剛才創(chuàng)建的testdll

2、窗體代碼中先引用testdll,再定義一個(gè)testdll中的fm1對(duì)象，最后執(zhí)行對(duì)象的show方法

3、運(yùn)行結(jié)果如下：

vb.net mdi顯示當(dāng)前活動(dòng)子窗體文本框的內(nèi)容

簡(jiǎn)單的問題

Dim ActiveTextBox As TextBox = Me.ActiveMdiChild.Controls("TextBox1") '里面的字符串填控件的Name屬性

MsgBox(ActiveTextBox.Text)

VB.NET的Form的所有事件

名稱

說明

Activated

當(dāng)使用代碼激活或用戶激活窗體時(shí)發(fā)生。

AutoSizeChanged

當(dāng)?AutoSize?屬性更改時(shí)發(fā)生。

AutoValidateChanged

當(dāng)?AutoValidate?屬性更改時(shí)發(fā)生。

BackColorChanged

當(dāng)?BackColor?屬性的值更改時(shí)發(fā)生。（從?Control?繼承。）

BackgroundImageChanged

當(dāng)?BackgroundImage?屬性的值更改時(shí)發(fā)生。（從?Control?繼承。）

BackgroundImageLayoutChanged

當(dāng)?BackgroundImageLayout?屬性更改時(shí)發(fā)生。（從?Control?繼承。）

BindingContextChanged

當(dāng)?BindingContext?屬性的值更改時(shí)發(fā)生。（從?Control?繼承。）

CausesValidationChanged

當(dāng)?CausesValidation?屬性的值更改時(shí)發(fā)生。（從?Control?繼承。）

ChangeUICues

焦點(diǎn)或鍵盤用戶界面 (UI) 提示更改時(shí)發(fā)生。（從?Control?繼承。）

Click

在單擊控件時(shí)發(fā)生。（從?Control?繼承。）

ClientSizeChanged

當(dāng)?ClientSize?屬性的值更改時(shí)發(fā)生。（從?Control?繼承。）

Closed

關(guān)閉窗體時(shí)發(fā)生。

Closing

關(guān)閉窗體時(shí)發(fā)生。

ContextMenuChanged

當(dāng)?ContextMenu?屬性的值更改時(shí)發(fā)生。（從?Control?繼承。）

ContextMenuStripChanged

當(dāng)?ContextMenuStrip?屬性的值更改時(shí)發(fā)生。（從?Control?繼承。）

ControlAdded

在將新控件添加到?Control.ControlCollection?時(shí)發(fā)生。（從?Control?繼承。）

ControlRemoved

在從?Control.ControlCollection?移除控件時(shí)發(fā)生。（從?Control?繼承。）

CursorChanged

當(dāng)?Cursor?屬性的值更改時(shí)發(fā)生。（從?Control?繼承。）

Deactivate

當(dāng)窗體失去焦點(diǎn)并不再是活動(dòng)窗體時(shí)發(fā)生。

Disposed

當(dāng)通過調(diào)用?Dispose?方法釋放組件時(shí)發(fā)生。（從?Component?繼承。）

DockChanged

當(dāng)?Dock?屬性的值更改時(shí)發(fā)生。（從?Control?繼承。）

DoubleClick

在雙擊控件時(shí)發(fā)生。（從?Control?繼承。）

DragDrop

拖放操作完成時(shí)發(fā)生。（從?Control?繼承。）

DragEnter

在將對(duì)象拖入控件的邊界時(shí)發(fā)生。（從?Control?繼承。）

DragLeave

將對(duì)象拖出控件的邊界時(shí)發(fā)生。（從?Control?繼承。）

DragOver

在將對(duì)象拖到控件的邊界上發(fā)生。（從?Control?繼承。）

EnabledChanged

在?Enabled?屬性值更改后發(fā)生。（從?Control?繼承。）

Enter

進(jìn)入控件時(shí)發(fā)生。（從?Control?繼承。）

FontChanged

在?Font?屬性值更改時(shí)發(fā)生。（從?Control?繼承。）

ForeColorChanged

在?ForeColor?屬性值更改時(shí)發(fā)生。（從?Control?繼承。）

FormClosed

關(guān)閉窗體后發(fā)生。

FormClosing

關(guān)閉窗體前發(fā)生。

GiveFeedback

在執(zhí)行拖動(dòng)操作期間發(fā)生。（從?Control?繼承。）

GotFocus

在控件接收焦點(diǎn)時(shí)發(fā)生。（從?Control?繼承。）

HandleCreated

在為控件創(chuàng)建句柄時(shí)發(fā)生。（從?Control?繼承。）

HandleDestroyed

在控件的句柄處于銷毀過程中時(shí)發(fā)生。（從?Control?繼承。）

HelpButtonClicked

單擊“幫助”按鈕時(shí)發(fā)生。

HelpRequested

用戶請(qǐng)求控件幫助時(shí)發(fā)生。（從?Control?繼承。）

ImeModeChanged

在?ImeMode?屬性更改后發(fā)生。（從?Control?繼承。）

InputLanguageChanged

更改窗體的輸入語言后發(fā)生。

InputLanguageChanging

當(dāng)用戶嘗試更改窗體的輸入語言時(shí)發(fā)生。

Invalidated

控件的顯示要求重新繪制時(shí)發(fā)生。（從?Control?繼承。）

KeyDown

在控件有焦點(diǎn)的情況下按下鍵時(shí)發(fā)生。（從?Control?繼承。）

KeyPress

在控件有焦點(diǎn)的情況下字符、空格或退格鍵時(shí)發(fā)生。（從?Control?繼承。）

KeyUp

在控件有焦點(diǎn)的情況下釋放鍵時(shí)發(fā)生。（從?Control?繼承。）

Layout

在控件應(yīng)重新定位其子控件時(shí)發(fā)生。（從?Control?繼承。）

Leave

在輸入焦點(diǎn)離開控件時(shí)發(fā)生。（從?Control?繼承。）

Load

在第一次顯示窗體前發(fā)生。

LocationChanged

在?Location?屬性值更改后發(fā)生。（從?Control?繼承。）

LostFocus

在控件失去焦點(diǎn)時(shí)發(fā)生。（從?Control?繼承。）

MarginChanged

當(dāng)?Margin?屬性更改時(shí)發(fā)生。

MaximizedBoundsChanged

在?MaximizedBounds?屬性的值更改后發(fā)生。

MaximumSizeChanged

在?MaximumSize?屬性的值更改后發(fā)生。

MdiChildActivate

在多文檔界面 (MDI) 應(yīng)用程序內(nèi)激活或關(guān)閉 MDI 子窗體時(shí)發(fā)生。

MenuComplete

當(dāng)窗體菜單失去焦點(diǎn)時(shí)發(fā)生。

MenuStart

當(dāng)窗體菜單接收焦點(diǎn)時(shí)發(fā)生。

MinimumSizeChanged

在?MinimumSize?屬性的值更改后發(fā)生。

MouseCaptureChanged

當(dāng)控件失去鼠標(biāo)捕獲時(shí)發(fā)生。（從?Control?繼承。）

MouseClick

用鼠標(biāo)單擊控件時(shí)發(fā)生。（從?Control?繼承。）

MouseDoubleClick

用鼠標(biāo)雙擊控件時(shí)發(fā)生。（從?Control?繼承。）

MouseDown

當(dāng)鼠標(biāo)指針位于控件上并按下鼠標(biāo)鍵時(shí)發(fā)生。（從?Control?繼承。）

MouseEnter

在鼠標(biāo)指針進(jìn)入控件時(shí)發(fā)生。（從?Control?繼承。）

MouseHover

在鼠標(biāo)指針停放在控件上時(shí)發(fā)生。（從?Control?繼承。）

MouseLeave

在鼠標(biāo)指針離開控件時(shí)發(fā)生。（從?Control?繼承。）

MouseMove

在鼠標(biāo)指針移到控件上時(shí)發(fā)生。（從?Control?繼承。）

MouseUp

在鼠標(biāo)指針在控件上并釋放鼠標(biāo)鍵時(shí)發(fā)生。（從?Control?繼承。）

MouseWheel

在控件有焦點(diǎn)且鼠標(biāo)輪移動(dòng)時(shí)發(fā)生。（從?Control?繼承。）

Move

在移動(dòng)控件時(shí)發(fā)生。（從?Control?繼承。）

PaddingChanged

在控件空白區(qū)更改時(shí)發(fā)生。（從?Control?繼承。）

Paint

在重繪控件時(shí)發(fā)生。（從?Control?繼承。）

ParentChanged

在?Parent?屬性值更改時(shí)發(fā)生。（從?Control?繼承。）

PreviewKeyDown

在焦點(diǎn)位于此控件上的情況下，當(dāng)有按鍵動(dòng)作時(shí)發(fā)生（在?KeyDown?事件之前發(fā)生）。（從Control?繼承。）

QueryAccessibilityHelp

在?AccessibleObject?為輔助功能應(yīng)用程序提供幫助時(shí)發(fā)生。（從?Control?繼承。）

QueryContinueDrag

在拖放操作期間發(fā)生，并且允許拖動(dòng)源確定是否應(yīng)取消拖放操作。（從?Control?繼承。）

RegionChanged

當(dāng)?Region?屬性的值更改時(shí)發(fā)生。（從?Control?繼承。）

Resize

在調(diào)整控件大小時(shí)發(fā)生。（從?Control?繼承。）

ResizeBegin

窗體進(jìn)入大小調(diào)整模式時(shí)發(fā)生。

ResizeEnd

窗體退出大小調(diào)整模式時(shí)發(fā)生。

RightToLeftChanged

在?RightToLeft?屬性值更改時(shí)發(fā)生。（從?Control?繼承。）

RightToLeftLayoutChanged

更改?RightToLeftLayout?屬性值之后發(fā)生。

Scroll

用戶或代碼滾動(dòng)工作區(qū)時(shí)發(fā)生。（從?ScrollableControl?繼承。）

Shown

只要窗體是首次顯示就發(fā)生。

SizeChanged

在?Size?屬性值更改時(shí)發(fā)生。（從?Control?繼承。）

StyleChanged

在控件樣式更改時(shí)發(fā)生。（從?Control?繼承。）

SystemColorsChanged

系統(tǒng)顏色更改時(shí)發(fā)生。（從?Control?繼承。）

TabIndexChanged

此 API 支持 產(chǎn)品 基礎(chǔ)結(jié)構(gòu)，不能在代碼中直接使用。?當(dāng)?TabIndex?屬性的值更改時(shí)發(fā)生。

TabStopChanged

當(dāng)?TabStop?屬性更改時(shí)發(fā)生。

TextChanged

在?Text?屬性值更改時(shí)發(fā)生。（從?Control?繼承。）

Validated

在控件完成驗(yàn)證時(shí)發(fā)生。（從?Control?繼承。）

Validating

在控件驗(yàn)證時(shí)發(fā)生。（從?Control?繼承。）

VisibleChanged

在?Visible?屬性值更改時(shí)發(fā)生。（從?Control?繼承。）

使用VB.NET的五個(gè)技巧之窗體嵌套

NET框架組件太大了 比任何以前所寫的封裝功能的庫(kù)都要大 這樣有好處 因?yàn)樗蠓鳒p了建立應(yīng)用程序所需編寫的代碼 但是也使我們不可能完全了解該框架組件 但是我們很容易從中找到一些技巧

窗體嵌套

經(jīng)驗(yàn)豐富的Visual Basic開發(fā)者知道多文檔界面（MDI）應(yīng)用程序能夠包含子窗體 那些子窗體由MDI父窗體管理 但是如果沒有MDI的能力你怎樣實(shí)現(xiàn)包含嵌套窗體？例如一個(gè)MDI子窗體也可能需要包含另一個(gè)窗體

有時(shí)能夠使用用戶控件（UserControl）實(shí)現(xiàn)這種功能 但是如果你真的需要把一個(gè)窗體嵌套進(jìn)另一個(gè)窗體 有多種方法可以實(shí)現(xiàn) 窗體衍生自Control類 這意味著它能被放入另一個(gè)窗體的控件集合中 使用如下的邏輯

Dim f As New frmEmbed ()Me Controls Add(f)f Show()

但是很不幸 這段代碼將會(huì)導(dǎo)致一個(gè)運(yùn)行時(shí)（runtime）異常（見圖 ）

圖 試圖把一個(gè)窗體添加到另一個(gè)窗體的控件集合時(shí)出現(xiàn)的運(yùn)行時(shí)錯(cuò)誤

為了避免這種異常 該窗體的TopLevel屬性必須設(shè)置為False（見下面的代碼）

Dim f As New frmEmbed () f TopLevel = False Me Controls Add(f) f Show()

圖 顯示的是使用上面的邏輯實(shí)現(xiàn)的一個(gè)窗體嵌入另一個(gè)窗體 嵌入的窗體有一個(gè)標(biāo)題條（它的顏色是未激活的系統(tǒng)顏色） 因此該嵌入窗體能在容器窗體內(nèi)四處拖動(dòng) 在圖 中 該窗體從它的開始位置（左上角）拖到了右下角

圖 在容器窗體中有一個(gè)嵌入的窗體 嵌入的窗體能在容器窗體中拖動(dòng)

通常在顯示嵌入的窗體前先設(shè)置它的位置 這只需要簡(jiǎn)單的設(shè)置嵌入窗體的Left和Top屬性 嵌入窗體的位置與容器窗體是相對(duì)的

與MDI子窗體不同 嵌入窗體能覆蓋容器窗體上的控件 圖 顯示了它們的不同

圖 嵌入窗體（左）可以覆蓋容器窗體上的控件 MDI子窗體（右）不能覆蓋MDI父窗體上的控件

在右邊的MDI例子中 沒有辦法使按鈕隱藏在子窗體的后面 但是在左邊該按鈕被嵌入窗體覆蓋了

當(dāng)窗體第一次被嵌入時(shí) 它將顯示在容器窗體上的已存在的控件的后面 當(dāng)它被點(diǎn)擊時(shí) 它走向前臺(tái)并停留在那兒 這會(huì)打擾用戶 但是能通過插入下面的代碼防止這種情況發(fā)生

f BringToFront（）

嵌入的窗體可以包含其它的嵌入窗體 沒有實(shí)際的限制 圖 顯示了一個(gè)本身包含嵌入的窗體的嵌入窗體

lishixinzhi/Article/program/net/201311/12398

vb.net 截屏 ，獲取活動(dòng)窗口

'模塊中

Declare Function GetDC Lib "user32" (ByVal hwnd As Long) _

As Long

Public Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As Long

Declare Function BitBlt Lib "gdi32" _

(ByVal hDestDC As Long, ByVal x As Long, _

ByVal y As Long, ByVal nWidth As Long, _

ByVal nHeight As Long, ByVal hSrcDC As Long, _

ByVal xSrc As Long, ByVal ySrc As Long, _

ByVal dwRop As Long) As Long

'form1中

Private Sub Command1_Click()

Dim hDCtmp As Long, picWidth As Double, picHeight As Double

Dim x As Double

Dim y As Double

x = Val(Text2.Text)

y = Val(Text3.Text)

picWidth = Val(Text3.Text)

picHeight = Val(Text4.Text)

hDCtmp = GetDC(0)

BitBlt Picture1.hdc, 0, 0, picWidth, picHeight, hDCtmp, x, y, vbSrcCopy

ReleaseDC 0, hDCtmp

End Sub

目的: 將屏幕按照指定坐標(biāo)和大小進(jìn)行截取成圖,在picture1顯示

問題: 大小是相同了,為什么截取的坐標(biāo)不對(duì),只是屏幕上的左上

相信大家都用過QQ截圖功能。不過很多人并沒有真正掌握好它的用法。將QQ截圖與其它截屏和制圖軟件配合使用，會(huì)有意想不到的效果。

獲取顏色的RGB值

我們?cè)诰庉媹D片或網(wǎng)頁(yè)的時(shí)候，經(jīng)常需要獲取某種顏色的“RGB值”，所以很多人都安裝了第三方的顏色吸取工具。其時(shí)用QQ截圖鍵即可獲取屏幕上任意顏色的RGB值。

當(dāng)按下“Ctrl+Shift+A”彈出“截圖”提示框時(shí)，提示框中的“當(dāng)前像素RGB”即為當(dāng)前鼠標(biāo)屏幕位置的顏色RGB值，將鼠標(biāo)移動(dòng)到你想查看的屏幕顏色上即可獲得相應(yīng)的RGB值（如圖1）。

圖1精確截取圖片大小

有時(shí)我們對(duì)要使用的截圖尺寸有嚴(yán)格要求，比如論壇簽名或QQ頭像等。用QQ截圖鍵可以按尺寸精確截取，一步到位無需再進(jìn)行后期裁剪了。

按下QQ截圖鍵，按住鼠標(biāo)不放選取截取范圍時(shí)，在鼠標(biāo)上方會(huì)有一個(gè)信息框顯示當(dāng)前范圍的詳細(xì)信息，其中“矩形大小”就是以像素來表示的圖片的尺寸大小，括號(hào)內(nèi)的數(shù)字分別表示的是長(zhǎng)和高（如圖2）。松開鼠標(biāo)調(diào)整截圖框時(shí)，對(duì)照“矩形大小”就可以按需要的尺寸來精確截圖范圍，然后用鼠標(biāo)點(diǎn)住截圖框?qū)⒔貓D框拖到要截取的圖片上，雙擊即可獲得所需尺寸的圖片了。

圖2圖片拼貼好幫手

大部分的截圖軟件一次只能截取一張圖片，當(dāng)要截取多張圖片并進(jìn)行拼貼組合時(shí)，就需要一張一張截取全部保存后再進(jìn)行拼貼操作，非常麻煩。

我們知道用QQ截圖鍵截取的圖片可以在任一個(gè)可以粘貼圖片的程序中使用，這樣只需用截圖軟件進(jìn)行一次截圖操作，剩下的圖片用QQ截圖鍵來截取，然后依次粘貼到截圖軟件的窗口中即可快速進(jìn)行拼貼操作了，是不是很方便啊。

小提示：QQ截圖鍵無需打開聊天窗口即可使用，截取的圖片在任一可粘貼圖片的程序窗口中如畫圖、Word等，使用“粘貼”命令即可使用

網(wǎng)站欄目：vb.net活動(dòng)窗體 vba簡(jiǎn)單窗體實(shí)例
文章路徑：http://www.jbt999.com/article42/hjjoec.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供定制開發(fā)、微信小程序、做網(wǎng)站、網(wǎng)站建設(shè)、品牌網(wǎng)站設(shè)計(jì)、

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：[email protected]。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來源： 創(chuàng)新互聯(lián)