VB.net 怎么實現(xiàn)多項目之間的窗體調(diào)用？

首先引入那個項目的命名空間，在代碼最上方用Imports語句，比如

創(chuàng)新互聯(lián)服務(wù)項目包括江陵網(wǎng)站建設(shè)、江陵網(wǎng)站制作、江陵網(wǎng)頁制作以及江陵網(wǎng)絡(luò)營銷策劃等。多年來，我們專注于互聯(lián)網(wǎng)行業(yè)，利用自身積累的技術(shù)優(yōu)勢、行業(yè)經(jīng)驗、深度合作伙伴關(guān)系等，向廣大中小型企業(yè)、政府機構(gòu)等提供互聯(lián)網(wǎng)行業(yè)的解決方案，江陵網(wǎng)站推廣取得了明顯的社會效益與經(jīng)濟效益。目前，我們服務(wù)的客戶以成都為中心已經(jīng)輻射到江陵省份的部分城市，未來相信會繼續(xù)擴大服務(wù)區(qū)域并繼續(xù)獲得客戶的支持與信任！

Imports Project1

然后在需要用的地方寫

Dim aform As New MyForm1()

然后通過aform對象的Show方法（彈出普通窗口）或ShowDialog（彈出窗口時后方窗口無響應(yīng)）方法來顯示窗口，最后調(diào)用Dispose方法釋放對象內(nèi)存。

VB.net中怎么調(diào)用控件的事件

軟糖來回答羅。

“調(diào)用事件”有歧義，你的意思是不是下面兩種：

調(diào)用事件處理方法

直接調(diào)用對象名.方法名

'例如有這樣一個按鈕點擊事件處理程序

Private?Sub?Button1_Click(sender?As?Object,?e?As?EventArgs)?Handles?Button1.Click

秒表.Start()

End?Sub

'調(diào)用它直接用

Button1_Click(me,?new?EventArgs())

引發(fā)事件

Button1.Click.Invoke(me,?new?EventArgs())

另外?RaiseEvent 也可以引發(fā)事件，但不能使用 RaiseEvent?來引發(fā)派生窗體的控件事件，只有自己定義的類的事件才能用它引發(fā)。

如滿意，請采納，謝謝。

VB.net過程的調(diào)用

Sub過程實現(xiàn)：

Sub FactsSub(ByVal intN As Integer, ByRef result As Long)

Dim i As Integer

Dim lngResult As Long

lngResult = 1

For i = 1 To intN

lngResult *= i

Next

result = lngResult

End Sub

Private Sub btnSub_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSub.Click

Dim i As Integer

Dim sum As Long = 0

Dim result As Long

For i = 1 To 10

FactsSub(i, result)

sum += result

Next

MsgBox("過程實現(xiàn) 1! + 2! + 3! + … + 10! = " sum)

End Sub

Function函數(shù)實現(xiàn):

Function FactsFunction(ByVal intN As Integer) As Long

Dim i As Integer

Dim lngResult As Long

lngResult = 1

For i = 1 To intN

lngResult *= i

Next

Return lngResult

End Function

Private Sub btnFunction_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFunction.Click

Dim i As Integer

Dim sum As Long = 0

For i = 1 To 10

sum += FactsFunction(i)

Next

MsgBox("函數(shù)實現(xiàn) 1! + 2! + 3! + … + 10! = " sum)

End Sub

在vb.net中怎么調(diào)用自定義類？

代碼已測試。

一、測試需要的INI文件。名稱為“setinfo.ini”，存放路徑為你解決方案里“Bin“文件夾的”Debug“文件夾里。

內(nèi)容：

[Location]

pnlTime.Location.X=787

pnlTime.Location.Y=0

[TopMost]

Top=True

二、操作INI文件的類。新建一個類，類中內(nèi)容為：

Public?Class?Class1

Public?Declare?Function?GetPrivateProfileString?Lib?"kernel32"?Alias?"GetPrivateProfileStringA"?_

(?_

ByVal?lpApplicationName?As?String,?_

ByVal?lpKeyName?As?String,?_

ByVal?lpDefault?As?String,?_

ByVal?lpReturnedString?As?String,?_

ByVal?nSize?As?Int32,?_

ByVal?lpFileName?As?String?_

)?As?Int32

End?Class

三、界面代碼：

Imports?System.IO?'for?path

Public?Class?Form1

Private?Sub?Button1_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button1.Click

getINI()

End?Sub

Private?Sub?getINI()

Dim?iniclass?As?New?Class1?'

Dim?myBf?As?String?'get?set_info?開辟存儲的內(nèi)存

myBf?=?New?String(CChar(""),?256)

Dim?myFN?As?String?'配置文件的文件路徑

myFN?=?Path.Combine(My.Application.Info.DirectoryPath,?"setinfo.ini")

Dim?myAN?As?String?'Application_NAME,也是Section名稱

myAN?=?Me.TextBox1.Text

Dim?myKN?As?String?'KEY_NAME,關(guān)鍵字名稱

myKN?=?Me.TextBox2.Text

Class1.GetPrivateProfileString(myAN,?myKN,?"",?myBf,?myBf.Length,?myFN)?'調(diào)用讀取INI文件的操作

TextBox3.Text?=?Microsoft.VisualBasic.Left(myBf,?InStr(myBf,?Chr(0))?-?1)?'截取有用部分,有必要

End?Sub

End?Class

四、測試截圖如下

VB.NET，如何調(diào)用外部程序？

兩種方法

1.

Shell(""Explorer.exe", AppWinStyle.NormalFocus")

2.

Dim proc As New Process

proc.StartInfo.FileName="Explorer.exe"

proc.Start

方法2給予更多的控制，如結(jié)束進(jìn)程的方法Kill

關(guān)于vb.net對底層的調(diào)用，望高手幫忙，感激涕零！

VB對于win32 API的支持還是不錯的。而且比起用C++來說還簡化了不少。建議你看些windows系統(tǒng)機制的資料，比如windows消息處理機制，windows窗口過程的實現(xiàn)等。最好是去看看MFC的教程，會讓你對win32 API有更深入的了解。推薦孫鑫的《VC++深入詳解》，給其他窗體發(fā)送消息，鉤子什么的都有詳細(xì)的解釋。

關(guān)于做鉤子，使用SetWindowsHookEx，UnhookWindowsHookEx，CallNextHookEx，CopyMemory四個win32 API函數(shù)，再加上一個自己寫的回調(diào)函數(shù)就可以實現(xiàn)。

控制別的窗體最小化，給其他窗體發(fā)送消息，首先用FindWindow函數(shù)找到目標(biāo)窗體的句柄(對于VB自己的窗體來說Me.hwnd屬性),然后用SendMessage,PostMessage函數(shù)發(fā)送消息。還可以用SetWindowText但是windows消息有幾百種，各種消息的參數(shù)可能是不同的。要查MSDN搞懂你要使用的消息的參數(shù)結(jié)構(gòu)。

代碼：關(guān)閉其他窗口：

模塊中的聲明：

Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Public Const WM_CLOSE = H10 '定義消息常量

窗體中：

Dim hnd As Long '定義一個長整型變量儲存句柄

Private Sub Form_Load()

hnd = FindWindow(vbNullString, "test") '獲取目標(biāo)窗體句柄，這里目標(biāo)窗體的標(biāo)題為"test"

SendMessage hnd, WM_CLOSE, 0, 0 '發(fā)送WM_CLOSE消息關(guān)閉窗體

End Sub

網(wǎng)頁題目：vb.net調(diào)用qt VBNET是干嘛的
本文來源：http://chinadenli.net/article42/hjijec.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供定制網(wǎng)站、Google、小程序開發(fā)、網(wǎng)站排名、關(guān)鍵詞優(yōu)化、企業(yè)網(wǎng)站制作

廣告

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