WINCC工程中有許多設(shè)備，要點(diǎn)擊一下，彈出一個(gè)子畫面，再點(diǎn)起動(dòng)或停止
特做了一個(gè).net控件來實(shí)現(xiàn)

用法
Dim  msg
Set msg=ScreenItems("msg")

'type :0 為運(yùn)行，停止彈出窗，  1為開到位，關(guān)到位彈出窗
'x ，y彈出 的坐標(biāo)
'變量名 為字符串
'tagrun 運(yùn)行反饋 或開到位信號(hào)
'tagstop 停止反饋 或關(guān)到位信號(hào)
'tagerr 故障信號(hào)
'start  運(yùn)行或開 按鈕置位的變量
'stop 停止或關(guān)  按鈕置位的變量
'devname 設(shè)備名稱
'show(int type, int x, int y, string tagrun, string tagstop, string tagerr, string start, string stop, string devname)
msg.show 1,83,214,"a_2","a_3","a_4","a_6","a_7","羅茨泵"
End Sub
wc.rar (289 K) 下载次数:75

謝謝，學(xué)習(xí)了