public string ConvertButton(MyButton b, string s, List <string> controlVariableArray, List <string> controlFormArray,
List <string> controlGBArray, object parentObj)
{
string name = b.General.Name;
s = VBtoNET.CreateNETCode(s, b.General, "Button", controlVariableArray, controlFormArray, controlGBArray, parentObj);
s += VBtoNET.padding + "Me." + name + ".UseVisualStyleBackColor = " + b.UseVisualStyleBackColor1.ToString() + "\r";
//Me.Button1 = New System.Windows.Forms.Button()
//Me.SuspendLayout()
//'
//'Button1
//'
//Me.Button1.Location = New System.Drawing.Point(34, 79)
//Me.Button1.Name = "Button1"
//Me.Button1.Size = New System.Drawing.Size(75, 23)
//Me.Button1.TabIndex = 0
//Me.Button1.Text = "Button1"
//Me.Button1.UseVisualStyleBackColor = True
// TODO rest of it
//Friend WithEvents Button1 As Button
// do these get updated??
return(s);
}
public string Convert(MyTextbox o, string s, List <string> controlVariableArray, List <string> controlFormArray,
List <string> controlGBArray, object parentObj, List <string> datasourceArray)
{
string name = o.General.Name;
s = VBtoNET.CreateNETCode(s, o.General, "TextBox", controlVariableArray, controlFormArray, controlGBArray, parentObj);
s += VBtoNET.padding + "Me." + name + ".Text = \"" + o.General.Text + "\"" + "\r";
s += VBtoNET.padding + "Me." + name + ".Multiline = " + multiline.ToString() + "" + "\r";
if (!String.IsNullOrEmpty(o.dataField))
{
s += VBtoNET.padding + "'Datafield = \"" + o.dataField + "\"" + "\r";
}
if (!String.IsNullOrEmpty(o.dataSource))
{
s += VBtoNET.padding + "'Datasource = \"" + o.dataSource + "\"" + "\r";
}
if (!String.IsNullOrEmpty(o.dataSource) && !String.IsNullOrEmpty(o.dataField))
{
datasourceArray.Add(name + ".Text = " + o.dataSource.Replace("rdc", "dt") + ".Rows(0)(\"" + o.dataField + "\").toString");
}
return(s);
}
public string Convert(MyCombobox o, string s, List <string> controlVariableArray, List <string> controlFormArray,
List <string> controlGBArray, object parentObj)
{
string name = o.General.Name;
s = VBtoNET.CreateNETCode(s, o.General, "ComboBox", controlVariableArray, controlFormArray, controlGBArray, parentObj);
return(s);
}
public string ConvertCheckbox(MyCheckbox c, string s, List <string> controlVariableArray, List <string> controlFormArray,
List <string> controlGBArray, object parentObj)
{
string name = c.General.Name;
s = VBtoNET.CreateNETCode(s, c.General, "CheckBox", controlVariableArray, controlFormArray, controlGBArray, parentObj);
return(s);
}
public string Convert(MyListbox o, string s, List <string> controlVariableArray, List <string> controlFormArray,
List <string> controlGBArray, object parentObj)
{
string name = o.General.Name;
s = VBtoNET.CreateNETCode(s, o.General, "ListBox", controlVariableArray, controlFormArray, controlGBArray, parentObj);
s += VBtoNET.padding + "Me." + name + ".FormattingEnabled = True\r";
return(s);
}
public string Convert(MyRadioButton o, string s, List <string> controlVariableArray, List <string> controlFormArray,
List <string> controlGBArray, object parentObj)
{
string name = o.General.Name;
s = VBtoNET.CreateNETCode(s, o.General, "RadioButton", controlVariableArray, controlFormArray, controlGBArray, parentObj);
s += VBtoNET.padding + "Me." + name + ".Text = \"" + o.General.Text + "\"" + "\r";
return(s);
}
public string Convert(MyDatagridview l, string s, List <string> controlVariableArray, List <string> controlFormArray,
List <string> controlGBArray, object parentObj)
{
string name = l.General.Name;
s = VBtoNET.CreateNETCode(s, l.General, "DataGridView", controlVariableArray, controlFormArray, controlGBArray, parentObj);
s += VBtoNET.padding + "Me." + name + ".ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize\r";
return(s);
}
public string Convert(MyDatagridview l, string s, List <string> controlVariableArray, List <string> controlFormArray,
List <string> controlGBArray, object parentObj)
{
string name = l.General.Name;
s = VBtoNET.CreateNETCode(s, l.General, "DataGridView", controlVariableArray, controlFormArray, controlGBArray, parentObj);
s += VBtoNET.padding + "Me." + name + ".ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize\r";
s += VBtoNET.padding + "Me." + name + ".AllowUserToAddRows = False\r";
s += VBtoNET.padding + "Me." + name + ".AllowUserToDeleteRows = False\r";
s += VBtoNET.padding + "Me." + name + ".MultiSelect = False\r";
s += VBtoNET.padding + "Me." + name + ".ReadOnly = True\r";
s += VBtoNET.padding + "Me." + name + ".SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect\r";
return(s);
}
public string Convert(MyTextbox o, string s, List <string> controlVariableArray, List <string> controlFormArray,
List <string> controlGBArray, object parentObj)
{
string name = o.General.Name;
s = VBtoNET.CreateNETCode(s, o.General, "TextBox", controlVariableArray, controlFormArray, controlGBArray, parentObj);
s += VBtoNET.padding + "Me." + name + ".Text = \"" + o.General.Text + "\"" + "\r";
s += VBtoNET.padding + "Me." + name + ".Multiline = " + multiline.ToString() + "" + "\r";
if (!String.IsNullOrEmpty(o.dataField) || !String.IsNullOrEmpty(o.dataSource))
{
string dataBindingInfo = VBtoNET.padding + name + ".Text = ";
dataBindingInfo += o.dataSource.Replace("rdc", "dt") + ".Rows(0)(";
dataBindingInfo += "\"" + o.dataField + "\").ToString\r";
//TxtLocType.Text = dtPhantomLocation.Rows(0)("LocType").ToString
VBtoNET.controlDBList.Add(dataBindingInfo);
}
return(s);
}
public string Convert(MyGroupBox o, string s, List <string> controlVariableArray, List <string> controlFormArray, List <string> controlGBArray, object parentObj)
{
string name = o.General.Name;
s = VBtoNET.CreateNETCode(s, o.General, "GroupBox", controlVariableArray, controlFormArray, controlGBArray, parentObj);
// '
//'ListBox1
//'
//Me.ListBox1.FormattingEnabled = True
//Me.ListBox1.Location = New System.Drawing.Point(131, 24)
//Me.ListBox1.Name = "ListBox1"
//Me.ListBox1.Size = New System.Drawing.Size(120, 43)
//Me.ListBox1.TabIndex = 5
//controlVariableArray.Add("Friend WithEvents " + name + " As GroupBox\r");
//controlFormArray.Add("Me.Controls.Add(Me." + name + ")\r");
return(s);
}
public string Convert(MyTabControl o, string s, List <string> controlVariableArray, List <string> controlFormArray,
List <string> controlGBArray, object parentObj)
{
string name = o.General.Name;
s = VBtoNET.CreateNETCode(s, o.General, "TabControl", controlVariableArray, controlFormArray, controlGBArray, parentObj);
s += VBtoNET.padding + "Me." + name + ".SelectedIndex = 0\r";
foreach (MyTabpage page in o.tabList)
{
s += VBtoNET.padding + "Me." + name + ".Controls.Add(Me." + page.General.Name + ")\r";
}
foreach (MyTabpage page in o.tabList)
{
s = VBtoNET.CreateNETCode(s, page.General, "TabPage", controlVariableArray, controlFormArray, controlGBArray, parentObj);
}
// do tab pages
return(s);
}
