public List <StatementSyntax> TranslateControl(VisualBasic6Parser.ControlPropertiesContext node)
{
var statements = new List <StatementSyntax>();
var vbAndCsharpTypeName = GetTypeOfControl(node);
var vbTypeName = vbAndCsharpTypeName.Item1;
var csharpTypeName = vbAndCsharpTypeName.Item2;
if (csharpTypeName == IgnoreString)
{
return(statements);
}
var ctrlIdentifier = GetNameOfControl(node);
var newControlStatement =
SyntaxFactory.ParseStatement(csharpTypeName + " " + ctrlIdentifier + " = new " + csharpTypeName + "();");
statements.Add(newControlStatement);
ProcessProperties(vbTypeName, node, statements, ctrlIdentifier);
return(statements);
}
public string GetNameOfControl(VisualBasic6Parser.ControlPropertiesContext node)
{
var ctrlIdentifierContext =
vb6NodeTree.GetChildren(node).Find(x => x is VisualBasic6Parser.Cp_ControlIdentifierContext);
var ctrlIdentifier = ctrlIdentifierContext.getText().Trim();
return(ctrlIdentifier);
}
public Tuple <string, string> GetTypeOfControl(VisualBasic6Parser.ControlPropertiesContext node)
{
var ctrlTypeContext =
vb6NodeTree.GetChildren(node).Find(x => x is VisualBasic6Parser.Cp_ControlTypeContext);
var vbTypeName = ctrlTypeContext.getText().Trim();
var csharpTypeName = vbtoCSharpControlTypeMapping[vbTypeName];
return(Tuple.Create(vbTypeName, csharpTypeName));
}
public override object VisitControlProperties([NotNull] VisualBasic6Parser.ControlPropertiesContext context)
{
return(base.VisitControlProperties(context));
}
public override void ExitControlProperties([NotNull] VisualBasic6Parser.ControlPropertiesContext context)
{
}
