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); }
private Dictionary <string, string> PopulateControlNamesList(int beginline, int endline, string[] lines, List <MyTabpage> tabList) { controlNameMap = new Dictionary <string, string>(); for (int i = 0; i < tabList.Count; i++) { for (int j = 0; j < 99; j++) { string key = VBtoNET.GetProperty("Tab(" + i.ToString() + ").Control(" + j.ToString() + ")", beginline, endline, lines); string value = tabList[i].General.Name; if (!String.IsNullOrEmpty(key)) { //if (VBtoNET.controlNameList.Contains(key)) { // // its an array // key = key + beginline.ToString(); // odd but guarantees uniqueness //} controlNameMap.Add(key, value); } else { break; } } } return(controlNameMap); }
public MyTabControl Create(int beginline, int endline, string[] lines) { MyTabControl o = new MyTabControl(); string key = "Begin TabDlg.SSTab "; o.General = VBtoNET.PopulateGeneral(key, lines, beginline, endline); // tab pages int tabPageNum = Int16.Parse(VBtoNET.GetProperty("Tabs", beginline, endline, lines)); for (int i = 0; i < tabPageNum; i++) { MyTabpage page = new MyTabpage(); page.General = new General(); page.General.Name = o.General.Name + "TabPage" + i.ToString(); page.General.Text = VBtoNET.GetProperty("TabCaption(" + i.ToString() + ")", beginline, endline, lines); page.Padding = 3; page.General.Tabindex = i.ToString(); page.UseVisualStyleBackColor = true; // these needs to be fixed a bit, i'm not sure what the size and location should be page.General.Locationx = "4"; page.General.Locationy = "22"; int sizex = Int16.Parse(o.General.Sizex) - 8; int sizey = Int16.Parse(o.General.Sizey) - 26; page.General.Sizex = sizex.ToString(); page.General.Sizey = sizey.ToString(); o.tabList.Add(page); } o.ControlNameMap = PopulateControlNamesList(beginline, endline, lines, o.tabList); return(o); }
public static General PopulateGeneral(string key, string[] lines, int beginline, int endline) { General g = new General(); int pos = lines[beginline].IndexOf(key) + key.Length; string name = lines[beginline].Substring(pos).Trim(); // check if its a control array - same name string index = VBtoNET.GetProperty(" Index", beginline, endline, lines); if (!String.IsNullOrEmpty(index)) { // its an array g.ArrayName = name + "(" + index + ")"; name = name + index; // odd but guarantees uniqueness } //controlNameList.Add(name); g.Name = name; g.Sizey = VBtoNET.GetProperty("Height", beginline, endline, lines); g.Locationx = VBtoNET.GetProperty("Left", beginline, endline, lines); g.Tabindex = VBtoNET.GetProperty("TabIndex", beginline, endline, lines); g.Locationy = VBtoNET.GetProperty("Top", beginline, endline, lines); g.Sizex = VBtoNET.GetProperty("Width", beginline, endline, lines); g.Text = VBtoNET.GetProperty("Caption", beginline, endline, lines); g = g.FixSizes(g); return(g); }
public MyForm CreateForm(int beginline, int endline, string[] lines) { MyForm frm = new MyForm(); General g = new General(); try { string key = "Begin VB.Form "; int pos = lines[beginline].IndexOf(key) + key.Length; string name = lines[beginline].Substring(pos).Trim(); g.Name = name; g.Sizex = VBtoNET.GetProperty("ClientWidth", beginline, endline, lines); g.Sizey = VBtoNET.GetProperty("ClientHeight", beginline, endline, lines); g.Text = VBtoNET.GetProperty("Caption", beginline, endline, lines); if (String.IsNullOrEmpty(g.Text)) { g.Text = name; } g.FixSizes(g); frm.General = g; } catch (Exception e) { MessageBox.Show("General error - did you load a VB6 form?"); return(null); } return(frm); }
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 MyCombobox Create(int beginline, int endline, string[] lines) { MyCombobox o = new MyCombobox(); string key = "Begin MSDBCtls.DBCombo "; o.General = VBtoNET.PopulateGeneral(key, lines, beginline, endline); return(o); }
public MyRadioButton Create(int beginline, int endline, string[] lines) { MyRadioButton o = new MyRadioButton(); string key = "Begin VB.OptionButton "; o.General = VBtoNET.PopulateGeneral(key, lines, beginline, endline); return(o); }
public MyGroupBox Create(int beginline, int endline, string[] lines) { MyGroupBox o = new MyGroupBox(); string key = "Begin VB.Frame "; o.General = VBtoNET.PopulateGeneral(key, lines, beginline, endline); return(o); }
public MyCheckbox CreateCheckbox(int beginline, int endline, string[] lines) { MyCheckbox o = new MyCheckbox(); string key = "Begin VB.CheckBox "; o.General = VBtoNET.PopulateGeneral(key, lines, beginline, endline); o.UseVisualStyleBackColor1 = true; return(o); }
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 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 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(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(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 MyCombobox Create(int beginline, int endline, string[] lines) { MyCombobox o = new MyCombobox(); string key = "Begin MSDBCtls.DBCombo "; o.General = VBtoNET.PopulateGeneral(key, lines, beginline, endline); o.dataSource = VBtoNET.GetProperty("DataSource", beginline, endline, lines); o.dataField = VBtoNET.GetProperty("DataField", beginline, endline, lines); return(o); }
public MyButton CreateButton(int beginline, int endline, string[] lines) { MyButton o = new MyButton(); o.General = VBtoNET.PopulateGeneral("Begin VB.CommandButton ", lines, beginline, endline); if (String.IsNullOrEmpty(o.General.Text)) { o.General.Text = o.General.Name; } o.UseVisualStyleBackColor1 = true; return(o); }
public MyListbox Create(int beginline, int endline, string[] lines) { MyListbox o = new MyListbox(); if (lines[beginline].Contains("MSDBCtls.DBList ")) { o.General = VBtoNET.PopulateGeneral("Begin MSDBCtls.DBList ", lines, beginline, endline); } else { o.General = VBtoNET.PopulateGeneral("Begin VB.ListBox ", lines, beginline, endline); } return(o); }
public MyDatagridview Create(int beginline, int endline, string[] lines) { MyDatagridview o = new MyDatagridview(); string key = "Begin MSDBGrid.DBGrid "; o.General = VBtoNET.PopulateGeneral(key, lines, beginline, endline); if (String.IsNullOrEmpty(o.General.Text)) { o.General.Text = o.General.Name; } int sizex = Int16.Parse(o.General.Sizex); o.General.Sizex = sizex.ToString(); return(o); }
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 MyLabel Create(int beginline, int endline, string[] lines) { MyLabel o = new MyLabel(); string key = "Begin VB.Label "; o.General = VBtoNET.PopulateGeneral(key, lines, beginline, endline); if (String.IsNullOrEmpty(o.General.Text)) { o.General.Text = o.General.Name; } int sizex = Int16.Parse(o.General.Sizex); sizex += 10; // the font or size is a bit off in the conversion o.General.Sizex = sizex.ToString(); return(o); }
public MyTextbox Create(int beginline, int endline, string[] lines) { MyTextbox o = new MyTextbox(); string key = "Begin VB.TextBox "; o.General = VBtoNET.PopulateGeneral(key, lines, beginline, endline); string multi = VBtoNET.GetProperty("MultiLine", beginline, endline, lines); if (multi.Contains("-1")) { o.Multiline = true; } o.dataSource = VBtoNET.GetProperty("DataSource", beginline, endline, lines); o.dataField = VBtoNET.GetProperty("DataField", beginline, endline, lines); return(o); }
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); }
public MyTabControl Create(int beginline, int endline, string[] lines) { MyTabControl o = new MyTabControl(); string key = "Begin TabDlg.SSTab "; o.General = VBtoNET.PopulateGeneral(key, lines, beginline, endline); // tab pages string tabPageNumStr = VBtoNET.GetProperty("Tabs", beginline, endline, lines); int tabPageCount = 0; if (tabPageNumStr == "") { bool foundTab = true; // can't find the tabs property for (int tabnum = 0; tabnum < 20; tabnum++) { if (!foundTab) { break; } for (int i = beginline; i < endline; i++) { string s = lines[i]; if (s.Contains("Tab(" + tabnum.ToString())) { tabPageCount++; break; } if (i == endline - 1) { foundTab = false; break; } } } } else { tabPageCount = Int16.Parse(tabPageNumStr); } for (int i = 0; i < tabPageCount; i++) { MyTabpage page = new MyTabpage(); page.General = new General(); page.General.Name = o.General.Name + "TabPage" + i.ToString(); page.General.Text = VBtoNET.GetProperty("TabCaption(" + i.ToString() + ")", beginline, endline, lines); page.Padding = 3; page.General.Tabindex = i.ToString(); page.UseVisualStyleBackColor = true; // these needs to be fixed a bit, i'm not sure what the size and location should be page.General.Locationx = "4"; page.General.Locationy = "22"; int sizex = Int16.Parse(o.General.Sizex) - 8; int sizey = Int16.Parse(o.General.Sizey) - 26; page.General.Sizex = sizex.ToString(); page.General.Sizey = sizey.ToString(); o.tabList.Add(page); } o.ControlNameMap = PopulateControlNamesList(beginline, endline, lines, o.tabList); return(o); }