Shell("cmd.exe /c net time \\server /set /y", vbHide)
目前創(chuàng)新互聯(lián)已為千余家的企業(yè)提供了網(wǎng)站建設(shè)、域名、網(wǎng)絡(luò)空間、網(wǎng)站托管、企業(yè)網(wǎng)站設(shè)計(jì)、同仁網(wǎng)站維護(hù)等服務(wù),公司將堅(jiān)持客戶(hù)導(dǎo)向、應(yīng)用為本的策略,正道將秉承"和諧、參與、激情"的文化,與客戶(hù)和合作伙伴齊心協(xié)力一起成長(zhǎng),共同發(fā)展。
'其中server表示服務(wù)器
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)
建立一個(gè)名為 modGeneral 的模塊并加入下面一行代碼:
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í)例上,這就行了。