看起來是鼠標按住不放情況下導致焦點還保持在新建線程的窗口,然后又循環(huán)導致焦點切來切去引起閃爍。
創(chuàng)新互聯(lián)網(wǎng)站建設(shè)公司一直秉承“誠信做人,踏實做事”的原則,不欺瞞客戶,是我們最起碼的底線! 以服務(wù)為基礎(chǔ),以質(zhì)量求生存,以技術(shù)求發(fā)展,成交一個客戶多一個朋友!專注中小微企業(yè)官網(wǎng)定制,網(wǎng)站建設(shè)、成都網(wǎng)站建設(shè),塑造企業(yè)網(wǎng)絡(luò)形象打造互聯(lián)網(wǎng)企業(yè)效應(yīng)。
試下在循環(huán)中的執(zhí)行代碼前加上 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 '判斷程序集的產(chǎn)品名稱和窗體名稱是否已存在打開的窗體中
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(tài)窗口(FormB)的構(gòu)造函數(shù),增加一個成員變量,使之用來保存A窗口的引用,比如
Public Partial Class FormB
Private _formA As FormA
Public Sub New(formA As FormA)
_formA = formA
End Sub
'...
End Class
然后我們在FormB中就可以用_formA來控制FormA的內(nèi)容了
在A中打開B窗口可以這樣:
Dim B As New FormB(Me)
B.Show()
網(wǎng)站欄目:vb點虐
打開窗口函數(shù) vbs打開窗口
文章分享:http://bm7419.com/article28/ddepdjp.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供手機網(wǎng)站建設(shè)、全網(wǎng)營銷推廣、網(wǎng)站改版、網(wǎng)站制作、小程序開發(fā)、App設(shè)計
聲明:本網(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)