看起來是鼠標按住不放情況下導致焦點還保持在新建線程的窗口,然后又循環導致焦點切來切去引起閃爍。
創新互聯網站建設公司一直秉承“誠信做人,踏實做事”的原則,不欺瞞客戶,是我們最起碼的底線! 以服務為基礎,以質量求生存,以技術求發展,成交一個客戶多一個朋友!專注中小微企業官網定制,網站建設、成都網站建設,塑造企業網絡形象打造互聯網企業效應。
試下在循環中的執行代碼前加上 mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0) '釋放鼠標左鍵
Dim F1 As New Datasystem.Form2 '實例化窗體
For Each na As Form In Application.OpenForms '打開窗體的集合
If na.ProductName = F1.ProductName AndAlso na.Name = F1.Name 0 Then '判斷程序集的產品名稱和窗體名稱是否已存在打開的窗體中
If na.WindowState = FormWindowState.Minimized Then '判斷窗體是否最小化
na.WindowState = FormWindowState.Normal '還原窗體
End If
na.Activate() '激活窗體
Return '返回
End If
Next
F1.Show() '如果沒有打開的窗體中未找到,重新打開窗體
給你一個思路,
1把A窗口(比如是FormA)要控制的控件、成員變量、方法、屬性等定義為Public
2然后重寫B窗口(FormB)的構造函數,增加一個成員變量,使之用來保存A窗口的引用,比如
Public Partial Class FormB
Private _formA As FormA
Public Sub New(formA As FormA)
_formA = formA
End Sub
'...
End Class
然后我們在FormB中就可以用_formA來控制FormA的內容了
在A中打開B窗口可以這樣:
Dim B As New FormB(Me)
B.Show()
網站欄目:vb點虐
打開窗口函數 vbs打開窗口
文章分享:http://www.2m8n56k.cn/article28/ddepdjp.html
成都網站建設公司_創新互聯,為您提供手機網站建設、全網營銷推廣、網站改版、網站制作、小程序開發、App設計
聲明:本網站發布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯系客服。電話:028-86922220;郵箱:[email protected]。內容未經允許不得轉載,或轉載時需注明來源: 創新互聯