📄 frmmain.cs
字号:
using System.Runtime.InteropServices;
using System;
using System.Windows.Forms;
internal partial class frmMain : System.Windows.Forms.Form
{
string ComputerName;
string ServerClassID;
YFOPCSDK.ServerDataChangeProcProxy temp1 = new YFOPCSDK.ServerDataChangeProcProxy(Module1.ServerDataChangeProc);
YFOPCSDK.ServerShutdownProcProxy temp2 = new YFOPCSDK.ServerShutdownProcProxy(Module1.ServerShutdownProc);
YFOPCSDK.AddProcessProxy tmp = new YFOPCSDK.AddProcessProxy(Module1.AddProcess);
public void Disconnect()
{
Module1.ItemIndex = 0;
//UPGRADE_WARNING: δÄܽâÎö¶ÔÏó ServerHandle µÄĬÈÏÊôÐÔ¡£ µ¥»÷ÒÔ»ñµÃ¸ü¶àÐÅÏ¢:¡°ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"¡±
if (Module1.ServerHandle == 0) return; // TODO: might not be correct. Was : Exit Sub
if (Module1.GroupHandle > 0)
{
lvListView.Items.Clear();
//UPGRADE_WARNING: δÄܽâÎö¶ÔÏó ServerHandle µÄĬÈÏÊôÐÔ¡£ µ¥»÷ÒÔ»ñµÃ¸ü¶àÐÅÏ¢:¡°ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"¡±
bool ret;
ret = YFOPCSDK.OPC_RemoveGroup(Module1.ServerHandle, Module1.GroupHandle);
Module1.GroupHandle = 0;
}
//UPGRADE_WARNING: δÄܽâÎö¶ÔÏó ServerHandle µÄĬÈÏÊôÐÔ¡£ µ¥»÷ÒÔ»ñµÃ¸ü¶àÐÅÏ¢:¡°ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"¡±
if (YFOPCSDK.OPC_Disconnect(Module1.ServerHandle)!=0)
{
//UPGRADE_WARNING: δÄܽâÎö¶ÔÏó ServerHandle µÄĬÈÏÊôÐÔ¡£ µ¥»÷ÒÔ»ñµÃ¸ü¶àÐÅÏ¢:¡°ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"¡±
Module1.ServerHandle = 0;
mnuConnect.Enabled = true;
mnuDisconnect.Enabled = false;
mnuServerStatus.Enabled = false;
mnuGroupStatus.Enabled = false;
mnuGroupRefresh.Enabled = false;
mnuAddItem.Enabled = false;
mnuAddItem.Enabled = false;
mnuRemoveItem.Enabled = false;
mnuReadItem.Enabled = false;
mnuWriteItem.Enabled = false;
mnuItemStatus.Enabled = false;
}
}
private void frmMain_Load(object eventSender, System.EventArgs eventArgs)
{
//UPGRADE_WARNING: δÄܽâÎö¶ÔÏó ServerHandle µÄĬÈÏÊôÐÔ¡£ µ¥»÷ÒÔ»ñµÃ¸ü¶àÐÅÏ¢:¡°ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"¡±
Module1.ServerHandle = 0;
Module1.GroupHandle = 0;
Module1.ItemIndex = 0;
Random rnd = new Random();
Module1.GroupName = "GROUP"+ rnd.NextDouble().ToString();
//ÐòÁкÅÓû§Ê¹ÓÃ
//AS_ActiveCode "", ""
YFOPCSDK.OPC_Init();
YFOPCSDK.OPC_SetProcessTiggerProcA(tmp);
//UPGRADE_ISSUE: δÄÜ·ÖÎöÉÏÒ»ÐС£ µ¥»÷ÒÔ»ñµÃ¸ü¶àÐÅÏ¢:¡°ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="82EBB1AE-1FCB-4FEF-9E6C-8736A316F8A7"¡±
}
private void frmMain_FormClosed(object eventSender, System.Windows.Forms.FormClosedEventArgs eventArgs)
{
//UPGRADE_WARNING: δÄܽâÎö¶ÔÏó ServerHandle µÄĬÈÏÊôÐÔ¡£ µ¥»÷ÒÔ»ñµÃ¸ü¶àÐÅÏ¢:¡°ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"¡±
if (Module1.ServerHandle > -1)
{
//UPGRADE_WARNING: δÄܽâÎö¶ÔÏó ServerHandle µÄĬÈÏÊôÐÔ¡£ µ¥»÷ÒÔ»ñµÃ¸ü¶àÐÅÏ¢:¡°ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"¡±
YFOPCSDK.OPC_Disconnect(Module1.ServerHandle);
}
YFOPCSDK.OPC_Uninit();
}
//UPGRADE_WARNING: ³õʼ»¯´°Ìåʱ¿ÉÄܼ¤·¢Ê¼þ frmMain.Resize¡£ µ¥»÷ÒÔ»ñµÃ¸ü¶àÐÅÏ¢:¡°ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="88B12AE1-6DE0-48A0-86F1-60C0686C026A"¡±
private void frmMain_Resize(object eventSender, System.EventArgs eventArgs)
{
// ERROR: Not supported in C#: OnErrorStatement
//if (VB6.PixelsToTwipsX(this.Width) < 3000) this.Width = VB6.TwipsToPixelsX(3000);
lvListView.Top = 0;
lvListView.Height = this.Height - lstProcess.Height - 80;
//lvListView.Left = VB6.TwipsToPixelsX(10);
//lvListView.Width = VB6.TwipsToPixelsX(VB6.PixelsToTwipsX(this.Width) - 120);
//lvListView.Height = VB6.TwipsToPixelsY(VB6.PixelsToTwipsY(this.ClientRectangle.Height) - VB6.PixelsToTwipsY(sbStatusBar.Height) - VB6.PixelsToTwipsY(lstProcess.Height));
//lstProcess.Top = VB6.TwipsToPixelsY(VB6.PixelsToTwipsY(lvListView.Height) + 20);
lstProcess.Width = lvListView.Width;
}
//UPGRADE_ISSUE: MSComctlLib.ListView ʼþ lvListView.ItemClick δÉý¼¶¡£ µ¥»÷ÒÔ»ñµÃ¸ü¶àÐÅÏ¢:¡°ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="ABD9AF39-7E24-4AFF-AD8D-3675C1AA3054"¡±
private void lvListView_ItemClick(System.Windows.Forms.ListViewItem Item)
{
if (lvListView.FocusedItem == null) return; // TODO: might not be correct. Was : Exit Sub
mnuReadItem.Enabled = true;
mnuWriteItem.Enabled = true;
mnuItemStatus.Enabled = true;
mnuRemoveItem.Enabled = true;
}
public void menuOpen_Click(object eventSender, System.EventArgs eventArgs)
{
int I;
int Count;
dlgCommonDialogOpen.Filter = "OPC client Files(*.opc)|*.opc|All Files(*.*)|*.*";
dlgCommonDialogOpen.FileName = "opcclient.opc";
dlgCommonDialogOpen.ShowDialog();
try
{
//dlgCommonDialogSave.FileName = dlgCommonDialogOpen.FileName
Disconnect();
ComputerName = Module1.ReadInIFiles("PUBLIC", "HOST", "", (dlgCommonDialogOpen.FileName));
ServerClassID = Module1.ReadInIFiles("PUBLIC", "CLSID", "", (dlgCommonDialogOpen.FileName));
Module1.GroupName = Module1.ReadInIFiles("PUBLIC", "GROUP", "GROUP1", (dlgCommonDialogOpen.FileName));
Count = int.Parse(Module1.ReadInIFiles("PUBLIC", "COUNT", "0", (dlgCommonDialogOpen.FileName)));
Module1.ServerHandle = YFOPCSDK.OPC_Connect(ComputerName, ServerClassID, 1);
if (Module1.ServerHandle > 0)
{
YFOPCSDK.OPC_SetDataChangeProc(Module1.ServerHandle, temp1);
YFOPCSDK.OPC_SetShutdownProc(Module1.ServerHandle, temp2);
// OPC_SetDataChangeProc(ServerHandle, AddressOf ServerDataChangeProc)
Module1.GroupHandle = YFOPCSDK.OPC_AddGroup(Module1.ServerHandle, Module1.GroupName, 1, 500, 0, 0.0F, 0);
if (Module1.GroupHandle > 0)
{
mnuConnect.Enabled = false;
mnuDisconnect.Enabled = true;
mnuServerStatus.Enabled = true;
mnuGroupStatus.Enabled = true;
mnuGroupRefresh.Enabled = true;
mnuAddItem.Enabled = true;
menuSaveAs.Enabled = true;
}
for (I = 0; I <= Count -1; I++)
{
AddItem(Module1.ReadInIFiles("ITEM", "item" + (Count - I).ToString(), "", (dlgCommonDialogOpen.FileName)));
}
}
}
catch (Exception e)
{
MessageBox.Show(e.Message);
}
return; // TODO: might not be correct. Was : Exit Sub
}
public void menuSaveAs_Click(object eventSender, System.EventArgs eventArgs)
{
int I;
dlgCommonDialogSave.Filter = "OPC client Files(*.opc)|*.opc|All Files(*.*)|*.*";
dlgCommonDialogSave.FileName = "opcclient.opc";
dlgCommonDialogSave.ShowDialog();
Module1.WritePrivateProfileString("PUBLIC", "HOST", ComputerName, dlgCommonDialogSave.FileName);
Module1.WritePrivateProfileString("PUBLIC", "CLSID", ServerClassID, dlgCommonDialogSave.FileName);
Module1.WritePrivateProfileString("PUBLIC", "GROUP", Module1.GroupName, dlgCommonDialogSave.FileName);
Module1.WritePrivateProfileString("PUBLIC", "COUNT", lvListView.Items.Count.ToString(), dlgCommonDialogSave.FileName);
for (I = 0; I <= lvListView.Items.Count-1 ; I++) {
//UPGRADE_WARNING: ¼¯ºÏ lvListView.ListItems µÄÏÂÏÞÒÑÓÉ 1 ¸ü¸ÄΪ 0¡£ µ¥»÷ÒÔ»ñµÃ¸ü¶àÐÅÏ¢:¡°ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="A3B628A0-A810-4AE2-BFA2-9E7A29EB9AD0"¡±
Module1.WritePrivateProfileString("ITEM", "item" + (I +1).ToString(), lvListView.Items[I].Text, dlgCommonDialogSave.FileName);
}
return; // TODO: might not be correct. Was : Exit Sub
//out1:
// MsgBox dlgCommonDialog.FileName
}
public void mnuAddItem_Click(object eventSender, System.EventArgs eventArgs)
{
frmItemBrowser frm = new frmItemBrowser();
frm.ShowDialog();
}
public void mnuConnect_Click(object eventSender, System.EventArgs eventArgs)
{
Program.sbWindow = new frmServerBrowser();
if (Program.sbWindow.ShowDialog() != DialogResult.OK) return; // TODO: might not be correct. Was : Exit Sub
if (Program.sbWindow.ServerClassID == "") return; // TODO: might not be correct. Was : Exit Sub
//UPGRADE_WARNING: δÄܽâÎö¶ÔÏó ServerHandle µÄĬÈÏÊôÐÔ¡£ µ¥»÷ÒÔ»ñµÃ¸ü¶àÐÅÏ¢:¡°ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"¡±
Module1.ServerHandle = 0;
Module1.GroupHandle = 0;
Module1.ItemIndex = 0;
Module1.GroupName = "GROUP-1" ;
lstProcess.Items.Clear();
//UPGRADE_WARNING: δÄܽâÎö¶ÔÏó ServerHandle µÄĬÈÏÊôÐÔ¡£ µ¥»÷ÒÔ»ñµÃ¸ü¶àÐÅÏ¢:¡°ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"¡±
Module1.ServerHandle = YFOPCSDK.OPC_Connect(Program.sbWindow.ComputerName, Program.sbWindow.ServerClassID, Program.sbWindow.Version);
//MsgBox ServerHandle
//UPGRADE_WARNING: δÄܽâÎö¶ÔÏó ServerHandle µÄĬÈÏÊôÐÔ¡£ µ¥»÷ÒÔ»ñµÃ¸ü¶àÐÅÏ¢:¡°ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"¡±
if (Module1.ServerHandle > 0)
{
YFOPCSDK.OPC_SetDataChangeProc(Module1.ServerHandle, temp1);
YFOPCSDK.OPC_SetShutdownProc(Module1.ServerHandle, temp2);
//UPGRADE_WARNING: δÄܽâÎö¶ÔÏó ServerHandle µÄĬÈÏÊôÐÔ¡£ µ¥»÷ÒÔ»ñµÃ¸ü¶àÐÅÏ¢:¡°ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"¡±
Module1.GroupHandle = YFOPCSDK.OPC_AddGroup(Module1.ServerHandle, Module1.GroupName, 1, 500, 0, 0, 0);
// MsgBox GroupHandle
if (Module1.GroupHandle > 0)
{
mnuConnect.Enabled = false;
mnuDisconnect.Enabled = true;
mnuServerStatus.Enabled = true;
mnuGroupStatus.Enabled = true;
mnuGroupRefresh.Enabled = true;
mnuAddItem.Enabled = true;
menuSaveAs.Enabled = true;
ComputerName = Program.sbWindow.ComputerName;
ServerClassID = Program.sbWindow.ServerClassID;
}
}
}
public void mnuDisconnect_Click(object eventSender, System.EventArgs eventArgs)
{
//UPGRADE_WARNING: δÄܽâÎö¶ÔÏó ServerHandle µÄĬÈÏÊôÐÔ¡£ µ¥»÷ÒÔ»ñµÃ¸ü¶àÐÅÏ¢:¡°ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"¡±
if (YFOPCSDK.OPC_Disconnect(Module1.ServerHandle)!=0)
{
lvListView.Items.Clear();
Module1.GroupHandle = 0;
//UPGRADE_WARNING: δÄܽâÎö¶ÔÏó ServerHandle µÄĬÈÏÊôÐÔ¡£ µ¥»÷ÒÔ»ñµÃ¸ü¶àÐÅÏ¢:¡°ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"¡±
Module1.ServerHandle = 0;
mnuConnect.Enabled = true;
mnuDisconnect.Enabled = false;
mnuServerStatus.Enabled = false;
mnuGroupStatus.Enabled = false;
mnuGroupRefresh.Enabled = false;
mnuAddItem.Enabled = false;
mnuReadItem.Enabled = false;
mnuWriteItem.Enabled = false;
mnuRemoveItem.Enabled = false;
mnuItemStatus.Enabled = false;
menuSaveAs.Enabled = false;
}
}
public void mnuExit_Click(object eventSender, System.EventArgs eventArgs)
{
this.Close();
}
public void mnuGroupStatus_Click(object eventSender, System.EventArgs eventArgs)
{
frmGroupStatus frm = new frmGroupStatus();
frm.frmGroupName = Module1.GroupName;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -