问题描述
SubAddRow()DimiAsIntegerDimmyTextBoxAsMSForms.TextBoxDimArrAlign'Ifn=15ThenExitSub'最多是15行n=n+1ArrAlign=Array(2,2,3,3,3,2,3,3,3,3)'array数组为了规范文本框的对齐方式【TextBox.TextAlign】With增加文本框'这里+【=.Controls("Frame2")】+【EndWith】能让文本框放到Forms里With增加文本框Fori=1To10cn=cn+1SetMyText(cn)=NewText_CountSetmyTextBox=Me.Controls.Add("Forms.TextBox.1","Text("&n&","&i&")",True)'这句话显示类型不匹配Text_Number.Text=myTextBox.NameWithmyTextBox.SpecialEffect=6.Width=ArrWidth(i).TextAlign=ArrAlign(i-1).Top=1.Left=L.Top=T.Text=1'文本框赋值，初始化L=L+.WidthEndWithMyText(cn).AttechmyTextBoxNext.Controls("Text("&n&",1)").Text=n'第一个文本框自动输入行号[=DATE则自动输入日期].Controls("Text("&n&",3)").SetFocus'1代表选中第一个文本框EndWithL=-2T=T+18EndWithEndSub
解决方案
解决方案二：
跪求高手
解决方案三：
是vba还是vb6，还是vb.net各种添加方法是不一样的哦。
解决方案四：
我想改成VB6
解决方案五：
自力更生丰衣足食SubAddRow()DimiAsIntegerDimmyTextBoxAsTextBoxDimArrAlign'Ifn=15ThenExitSub'最多是15行Ifn>9ThenFrame3.Height=Frame3.Height+300Frame3.Top=Frame3.Top-300EndIfn=n+1ArrAlign=Array(0,1,1,2,2,2,2,2,2,2)'array数组为了规范文本框的对齐方式【TextBox.TextAlign】With增加文本框'这里+【=.Controls("Frame2")】+【EndWith】能让文本框放到Forms里With增加文本框Fori=0To9SetMyText(cn)=NewText_CountSetmyTextBox=Controls.Add("VB.TextBox","Tex"&n&i&"l",Me.Frame3)'创建文本框并设置其属性WithmyTextBox'.SpecialEffect=6.Appearance=0'.BorderStyle=0.Width=ArrWidth(i)IfnMod2=0Then.BackColor=&H8000000F'.FontUnderline=True'.ForeColor=&HFF&.Alignment=ArrAlign(i).Height=300.Top=400.Left=L.Top=T.Text=1'文本框赋值，初始化L=L+.Width.Visible=TrueEndWithMyText(cn).AttechmyTextBox'LoadText(i)'MsgBoxmyTextBox.Namecn=cn+1IfMid(myTextBox.Name,InStr(1,myTextBox.Name,"l")-1,1)=0ThenmyTextBox.Text=nmyTextBox.BackColor=&HFFC0C0EndIfIfMid(myTextBox.Name,InStr(1,myTextBox.Name,"l")-1,1)=9ThenmyTextBox.Text="公司"'myTextBox.BackColor=&HFFC0C0EndIf'Mid(Str,InStr(1,Str,"x")+1,InStr(1,Str,"l")-InStr(1,Str,"x")-2)'MID("tEX1l",6,1)'MID("tEXT(12,1)",6,1)Next'Right(AnyString,1)'.Controls("Text("&n&",1)").Text=n'第一个文本框自动输入行号[=DATE则自动输入日期]'.Controls("Text("&n&",3)").SetFocus'1代表选中第一个文本框'Text_Number.Text=cnEndWithL=0T=T+300EndWithCallbgEndSub