試試這個怎么樣,添加在子進程里面,就加在你批量傳輸代碼里的每一個傳輸后面,也就是大批量中的每傳輸一個數據就暫停一下,而不是每一個大批量才暫停一下
創新互聯服務項目包括西湖網站建設、西湖網站制作、西湖網頁制作以及西湖網絡營銷策劃等。多年來,我們專注于互聯網行業,利用自身積累的技術優勢、行業經驗、深度合作伙伴關系等,向廣大中小型企業、政府機構等提供互聯網行業的解決方案,西湖網站推廣取得了明顯的社會效益與經濟效益。目前,我們服務的客戶以成都為中心已經輻射到西湖省份的部分城市,未來相信會繼續擴大服務區域并繼續獲得客戶的支持與信任!
System.Threading.Thread.Sleep(10) '讓它走慢一點
這樣的話你就不要直接把子窗口show出來,先在父窗口創建一個子窗口對象的變量,通過實例化該變量達到創建子窗口的目的,然后在下次又要打開子窗口時也可以通過該變量關閉原有的子窗口
示例代碼如下(假設Form1為父窗口,Form2為子窗口):
Form1的代碼:
Public
Class
Form1
Dim
nform
As
Form2
=
Nothing
Private
Sub
Button1_Click(ByVal
sender
As
System.Object,
ByVal
e
As
System.EventArgs)
Handles
Button1.Click
If
nform
IsNot
Nothing
Then
nform.Close()
nform.Dispose()
End
If
nform
=
New
Form2
nform.Show()
Me.Hide()
End
Sub
End
Class
通過nform變量,你可以很輕易就處理掉原來已經打開但隱藏著的子窗口了
Sub aaa()
MsgBox("111")
application.exit
End Sub
上位機軟件接收大量數據并顯示,會造成界面卡頓,可采用雙緩沖技術,即將數據存到內存,再將其繪制到界面,比將數據直接繪制到界面要省很多時間
添加在子進程里面,就加在你批量傳輸代碼里的每一個傳輸后面,也就是大批量中的每傳輸一個數據就暫停一下,而不是每一個大批量才暫停一下。
Imports System
Imports System.Management
Module Module1
Public Sub Main()
Dim service As ManagementObject = New ManagementObject( "win32_service=""winmgmt""")
Dim options As InvokeMethodOptions = New InvokeMethodOptions
options.Timeout = New TimeSpan(0, 0, 0 , 5)
Dim outParams As ManagementBaseObject = service.InvokeMethod("StopService" , Nothing, options)
Console.WriteLine("狀態:" outParams("Returnvalue"))
End Sub
End Module
文章名稱:vb.net子進程,vbs 進程
文章分享:http://vcdvsql.cn/article20/hsphjo.html
成都網站建設公司_創新互聯,為您提供搜索引擎優化、用戶體驗、品牌網站制作、域名注冊、小程序開發、企業網站制作
聲明:本網站發布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創新互聯