dashley
Well-known member
The procedure below works fine on a normal windows form. When I put it in a PPC project form (compact framework) the line i have marked with ***** gives me a "to many arguments to Public sub New" error. Does anyone have any ideas on how this can be corrected?
Thanks
Dan
[/color]
Thanks
Dan
VB.NET:
[/size]
[size=2][color=#0000ff]Dim[/color][/size][size=2] handlerFile [/size][size=2][color=#0000ff]As[/color][/size][size=2] EventHandler
handlerFile = [/size][size=2][color=#0000ff]New[/color][/size][size=2] EventHandler([/size][size=2][color=#0000ff]AddressOf[/color][/size][size=2] MenuItemFileClick)
[/size][size=2][color=#0000ff]Dim[/color][/size][size=2] I [/size][size=2][color=#0000ff]As[/color][/size][size=2][color=#0000ff]Integer
[/color][/size][size=2][color=#0000ff]Dim[/color][/size][size=2] FileLine [/size][size=2][color=#0000ff]As[/color][/size][size=2][color=#0000ff]String
[/color][/size][size=2][color=#0000ff]Dim[/color][/size][size=2] pre_FileLine [/size][size=2][color=#0000ff]As[/color][/size][size=2][color=#0000ff]String
[/color][/size][size=2][color=#0000ff]Dim[/color][/size][size=2] sr [/size][size=2][color=#0000ff]As[/color][/size][size=2] StreamReader = [/size][size=2][color=#0000ff]New[/color][/size][size=2] StreamReader("mtrxcat.txt")
[/size][size=2][color=#0000ff]Dim[/color][/size][size=2] myArray() [/size][size=2][color=#0000ff]As[/color][/size][size=2][color=#0000ff]String
[/color][/size][size=2][color=#0000ff]Dim[/color][/size][size=2] MySTRING [/size][size=2][color=#0000ff]As[/color][/size][size=2][color=#0000ff]String
[/color][/size][size=2]I = 0
[/size][size=2][color=#0000ff]While[/color][/size][size=2] sr.Peek > 0
FileLine = (sr.ReadLine)
pre_FileLine = Replace((FileLine), Chr(34), " ")
myArray = pre_FileLine.Split(",")
[/size][size=2][color=#0000ff]If[/color][/size][size=2] UBound(myArray) >= 2 [/size][size=2][color=#0000ff]Then
[/color][/size][size=2]MySTRING = myArray(3).ToString
[/size][size=2][color=#0000ff]Dim[/color][/size][size=2] men1 [/size][size=2][color=#0000ff]As[/color][/size][size=2][color=#0000ff]New[/color][/size][size=2] MenuItem(MySTRING, handlerFile) *****
[/size][size=2][color=#0000ff]Me[/color][/size][size=2].MenuItem1.MenuItems.Add(men1)
[/size][size=2][color=#0000ff]End[/color][/size][size=2][color=#0000ff]If
[/color][/size][size=2]I = I + 1
[/size][size=2][color=#0000ff]End[/color][/size][size=2][color=#0000ff]While[/color][/size]
[size=2][color=#0000ff]
Last edited: