建立一個(gè)名為 modGeneral 的模塊并加入下面一行代碼:
興海ssl適用于網(wǎng)站、小程序/APP、API接口等需要進(jìn)行數(shù)據(jù)傳輸應(yīng)用場(chǎng)景,ssl證書(shū)未來(lái)市場(chǎng)廣闊!成為創(chuàng)新互聯(lián)建站的ssl證書(shū)銷(xiāo)售渠道,可以享受市場(chǎng)價(jià)格4-6折優(yōu)惠!如果有意向歡迎電話(huà)聯(lián)系或者加微信:028-86922220(備注:SSL證書(shū)合作)期待與您的合作!
Friend DataStuff As DataClass
這一行代碼為我的新類(lèi) DataClass 創(chuàng)建了一個(gè)友元變量,使你可以完全訪問(wèn)程序集,對(duì)這個(gè)簡(jiǎn)單例子來(lái)說(shuō),也就是指完整的應(yīng)用程序。然后我添加了下面的代碼到 Form1 的 Load 事件:
DataStuff = New DataClass
Me.txt1stData.DataBindings.Add("Text", DataStuff, "MyData")
Me.txt2ndData.DataBindings.Add("Text", DataStuff, "MoreData")
第一行建立一個(gè) DataClass 新實(shí)例。下面兩行代碼將數(shù)據(jù)綁定到 textbox 控件。對(duì)這個(gè)窗體而言,就這么些操作!
現(xiàn)在,你怎樣讓它們與 Form2 和其它窗體上的數(shù)據(jù)同步呢?將下面兩行加入到 Form 2 的窗體load 事件中去:
Me.txt1stData.DataBindings.Add("Text",DataStuff, "MyData")
Me.txt2ndData.DataBindings.Add("Text",DataStuff, "Moredata")
這個(gè)方法容易確保所有窗體上的幾乎任何類(lèi)型的數(shù)據(jù)處于同步狀態(tài)。你可以簡(jiǎn)單地將控件綁定到某個(gè)類(lèi)的相同實(shí)例上,這就行了。
首先,在一個(gè)兩個(gè)窗體都能訪問(wèn)的地方聲明一個(gè)變量記錄窗體位置,我這里使用的是Module,你也可以用靜態(tài)類(lèi)。
Public Module Module1
Public frmLocation As Point
End Module
然后兩個(gè)窗體的VisibleChanged事件處理器里寫(xiě)下面的代碼:
If Me.Visible Then
Me.Location = frmLocation
Else
frmLocation = Me.Location
End If
窗口切換時(shí)要“先隱藏后顯示”
樓上回答不對(duì),這個(gè)問(wèn)題很常見(jiàn),就是在線程中使用到了控件,在這種狀況下,不能直接操作控件屬性,而只能通過(guò)委托的方法去實(shí)現(xiàn)
1、沒(méi)有事件是直接由最小化、還原觸發(fā)的,它們都會(huì)觸發(fā)SizeChanged事件。所以你可以寫(xiě)主窗體的SizeChanged事件來(lái)控制副窗體顯隱,順便改變副窗體的相對(duì)位置;
2、在SizeChanged事件中,通過(guò)判斷窗體的WindowState屬性來(lái)確定用戶(hù)是最小化還是還原了;(FormWindowState.Minimized和FormWindowState.Normal枚舉)
3、調(diào)用副窗體的BringToFront方法可以把副窗體帶到最前面來(lái)
可以稍微改下,預(yù)讀兩句歌詞的時(shí)間范圍,時(shí)間大于第一句的起始點(diǎn),小于第二句的起始點(diǎn),那么顯示第一句,