應(yīng)該是需要在Form2上做一個(gè)事件,只要在Form2里成功修改了數(shù)據(jù)庫(kù)中Machine的值,則Form2可在FormCloseing事件中將修改的Machine關(guān)鍵值傳回給Form1。而Form1中應(yīng)該還要寫(xiě)一個(gè)更新Machine的函數(shù),根據(jù)Form2傳回的參數(shù)對(duì)Form1現(xiàn)在有控件進(jìn)行查找參數(shù)對(duì)應(yīng)的控件,然后再讀取數(shù)據(jù)庫(kù)中數(shù)據(jù),再修改Form1里對(duì)應(yīng)控件屬性。
創(chuàng)新互聯(lián)建站自2013年創(chuàng)立以來(lái),先為通州等服務(wù)建站,通州等地企業(yè),進(jìn)行企業(yè)商務(wù)咨詢服務(wù)。為通州企業(yè)網(wǎng)站制作PC+手機(jī)+微官網(wǎng)三網(wǎng)同步一站式服務(wù)解決您的所有建站問(wèn)題。
我的做法是先寫(xiě)入一個(gè)圖片變量,然后再寫(xiě)入到容器上。容器設(shè)置雙緩沖
還有你說(shuō)的控件必須透明不太明白,可以直接在容器上繪圖,不需要控件,圖片的透明度可以用RGBA色的A值(透明度)來(lái)控制
我這個(gè)也是實(shí)時(shí)翻滾刷新的,不會(huì)閃!
使用wmi
類“Win32_Processor”中LoadPercentage屬性為當(dāng)前的cpu使用率
示例代碼: Private Sub Timer1_Timer()
Dim WMI服務(wù) As Object
Dim 對(duì)象 As Object
Dim 子對(duì)象 As Object
Dim 電腦名 As String
Dim 刷新 As Long
刷新 = 0
電腦名 = "." '表示本地計(jì)算機(jī)
Set WMI服務(wù) = GetObject("winmgmts://" 電腦名 "/root/cimv2")
Set 對(duì)象 = WMI服務(wù).InstancesOf("Win32_Processor")
Me.CurrentX = 0
Me.CurrentY = 0
For Each 子對(duì)象 In 對(duì)象
If 刷新 = 0 Then
刷新 = 1
Me.Cls
End If
Me.Print 子對(duì)象.Name "[" 子對(duì)象.CurrentClockSpeed "Hz] 使用率:" _
子對(duì)象.LoadPercentage "%"
Next
End Sub
set xxx=nothing就是把對(duì)象占用的空間釋放掉。 其他的局部變量都在棧內(nèi)存,用完會(huì)自動(dòng)釋放的