vb.net鎖定除頂級(jí)窗體以外的操作步驟如下:
為武侯等地區(qū)用戶提供了全套網(wǎng)頁設(shè)計(jì)制作服務(wù),及武侯網(wǎng)站建設(shè)行業(yè)解決方案。主營業(yè)務(wù)為成都網(wǎng)站建設(shè)、做網(wǎng)站、武侯網(wǎng)站設(shè)計(jì),以傳統(tǒng)方式定制建設(shè)網(wǎng)站,并提供域名空間備案等一條龍服務(wù),秉承以專業(yè)、用心的態(tài)度為用戶提供真誠的服務(wù)。我們深信只要達(dá)到每一位用戶的要求,就會(huì)得到認(rèn)可,從而選擇與我們長期合作。這樣,我們也可以走得更遠(yuǎn)!
1、通過Show方法,用以顯示MDIForm或Form對象。
2、當(dāng)Show在顯示無模式窗體時(shí),隨后遇到的代碼則要執(zhí)行。
3、當(dāng)Show在顯示模式窗體時(shí),則隨后的代碼直到該窗體被隱藏或卸載時(shí)執(zhí)行即可。
多線程一般是不推薦用的,因?yàn)榫€程之間如果有共享資源的話會(huì)引起競爭,需要加鎖處理;而且線程間沒有時(shí)序關(guān)系,所以你在調(diào)試中可能會(huì)出現(xiàn)異步處理結(jié)束順序與開始處理順序不一致的情況(我在調(diào)試中已經(jīng)發(fā)現(xiàn)該問題)。
針對你提出的這個(gè)問題,采用了多線程處理,利用的是BackgroundWorker也就是異步處理控件進(jìn)行了處理。
代碼已經(jīng)經(jīng)過調(diào)試通過。歡迎交流,如有問題,留下QQ或其他聯(lián)系方式。
代碼如下,并附程序截圖。
‘---------------------------------------------------
Imports?System.ComponentModel?'導(dǎo)入異步控件命名空間
Public?Class?Form1
Private?howmany?As?Integer?=?10
Private?AnalysisNumber(0?To?howmany?-?1)?As?BackgroundWorker
Private?Sub?Button1_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button1.Click
ListBox1.Items.Clear()
creatNewBackgroundWorker()
addHandle()
startWork()
End?Sub
Private?Sub?creatNewBackgroundWorker()
For?i?As?Integer?=?0?To?AnalysisNumber.Length?-?1
AnalysisNumber(i)?=?New?BackgroundWorker
Next
End?Sub
Private?Sub?addHandle()
For?i?As?Integer?=?0?To?AnalysisNumber.Length?-?1
AddHandler?AnalysisNumber(i).DoWork,?AddressOf?AnalysisNumber_DoWork
AddHandler?AnalysisNumber(i).RunWorkerCompleted,?AddressOf?AnalysisNumber_RunWorkerCompleted
Next
End?Sub
Private?Sub?startWork()
For?i?As?Integer?=?0?To?9
Dim?temp(0?To?9)?As?Integer
For?j?As?Integer?=?1?To?10
temp(j?-?1)?=?10?*?i?+?j
Next
AnalysisNumber(i).RunWorkerAsync(temp)
Next
End?Sub
Private?Sub?AnalysisNumber_DoWork(ByVal?sender?As?Object,?ByVal?e?As?System.ComponentModel.DoWorkEventArgs)
Dim?data?As?Integer()
data?=?CType(e.Argument,?Integer())
Dim?temp?As?Integer
For?i?As?Integer?=?0?To?data.Length?-?1
temp?=?data(i)
data(i)?=?temp?*?temp
Next
e.Result?=?data
End?Sub
Private?Sub?AnalysisNumber_RunWorkerCompleted(ByVal?sender?As?Object,?ByVal?e?As?System.ComponentModel.RunWorkerCompletedEventArgs)
Dim?data?As?Integer()
data?=?CType(e.Result,?Integer())
For?i?As?Integer?=?0?To?data.Length?-?1
ListBox1.Items.Add(data(i))
Next
End?Sub
End?Class
在你要點(diǎn)擊的按鈕里,定義一個(gè)新窗體的實(shí)例,然后用showdialog(),應(yīng)該就可以吧
步驟一:打開需要制作安裝程序的VB.Net項(xiàng)目
點(diǎn)擊菜單【文件—新建項(xiàng)目】出現(xiàn)如圖01的對話框單擊【其他項(xiàng)目類型—安裝和部署】選擇【安裝項(xiàng)目】如圖:
步驟二:
雙擊【My Project】(在“解決方案資源管理器”里面呢),如圖所示。
步驟三3:單擊【引用】選項(xiàng)卡,查看解決方案的引用項(xiàng),關(guān)注一下.Net類型的引用,本解決方案引用.Net類型的版本是2.0版。查看這個(gè)信息直接關(guān)系到最終安裝文件的大小。
右鍵單擊“解決方案資源管理器”中【Setup1】,選擇【添加—項(xiàng)目輸出】,選擇“主輸出”后單擊【確定】。
再次右鍵點(diǎn)擊【Setup1】,選擇【屬性】,跳出對話框。
步驟四:這里的設(shè)置可是關(guān)鍵中的關(guān)鍵
步驟五:“選擇要安裝的系統(tǒng)必備組件”,解決的是運(yùn)行可執(zhí)行文件環(huán)境的問題運(yùn)行使用VB.Net編寫的程序,必須在系統(tǒng)中安裝.Net Framework(也有軟件使用虛擬環(huán)境運(yùn)行的)?!安榭匆谩辈榈降男畔⒕陀玫搅恕H绻鉀Q方案只是引用了2.0版本的框架(.Net Framework),默認(rèn)的系統(tǒng)組件選擇。
可以選擇框架3.5,建議使用框架2.0,因?yàn)榭蚣?.0大小是30M,而框架3.5卻有300M之巨.指定系統(tǒng)必備組件的安裝設(shè)置”這個(gè)選項(xiàng)也挺有用。如果編寫了一個(gè)很簡單的程序,想發(fā)布(此發(fā)布不是前述的發(fā)布)出去讓大家使用,而又不想拖著少則幾十兆多則幾百兆的框架的話,那么可以選擇第一個(gè)互斥按鈕。如果擔(dān)心用戶在安裝程序時(shí)上網(wǎng)不方便,不能從供應(yīng) 商那兒下載框架的話,那么,只好把框架拖上嘍(這也是為什么在能選擇框架2.0的時(shí)候莫要選擇框架3.5的原因,安裝程序越小越好,用戶如果安裝了幾百 兆的程序,發(fā)現(xiàn)打開的只是個(gè)簡單的計(jì)算器的話,會(huì)氣的摔鍵盤的!)
本文名稱:vb.net互斥鎖 c 互斥鎖
文章來源:http://jinyejixie.com/article44/hpcche.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供域名注冊、企業(yè)建站、搜索引擎優(yōu)化、網(wǎng)站設(shè)計(jì)、定制網(wǎng)站、小程序開發(fā)
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來源: 創(chuàng)新互聯(lián)
猜你還喜歡下面的內(nèi)容