问题描述
PrivateSubM_main_clear_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesM_main_clear.ClickcarList_used=0WithcarFixed.AxisType=0.Weight=0.AxisNum=0.Index=0.Speed=0EndWithdata_clear()MsgBox("ClearDone!")EndSubPrivateSubMS_main_open_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMS_main_open.ClickWithOF_main.Title="Choosethelogfile:".Filter="text|*.txt|log|*.log|all|*.*".Multiselect=False.FileName=""EndWithIfOF_main.ShowDialog()=Windows.Forms.DialogResult.OKThenlogFileName=OF_main.FileNameWD_adjust.Show()needSave=TrueElseneedSave=FalseEndIfEndSubPrivateSubMS_main_save_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMS_main_save.ClickDimxlBookAsExcel.WorkbookmyExcel=NewExcel.ApplicationmyExcel.Visible=TruexlBook=myExcel.Workbooks.AddFori=0TocarList_used-1#If0ThenForEachcarInfoAsCarDataIncarList(i)IfcarInfo.FixdWeight=0ThenDimMycar,Mycar2AsNewCarDataDimNewArrayAsNewSystem.Collections.ArrayListGet_Fixed_Car_By_5KM(carList(i),Mycar)Mycar2.FixedAxisWeight=NewSystem.Collections.ArrayListForcarIndex=0TocarList(i).Count-1Mycar2=carList(i)(carIndex)Mycar2.FixdWeight=Mycar.WeightMycar2.FixedAxisWeight.Clear()ForkAsInt32=0ToMycar.AxisWeight.Count-1Mycar2.FixedAxisWeight.Add(Mycar.AxisWeight(k))NextNewArray.Add(Mycar2)NextcarList(i).Clear()carList(i).AddRange(NewArray)ExitForEndIfNext#EndIfAdd_CarData_2_workbook(xlBook,carList(i))NextEndSub
解决方案
解决方案二：
先转c#再转vc、应该不难。/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////该死的验证码。回答一个问题。 常常认错。得打好几次验证码。才能输入进来//混账设计。不能把验证码搞大一点吗/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////