'TextBox txt = (TextBox)e.Item.Cells.Controls[0];转换成VB.NET的语法怎么写啊,谢谢

[terryxin]

'if (e.Item.ItemType == ListItemType.EditItem)

'{

'for (int i = 0; i < e.Item.Cells.Count; i++)

'{

'TextBox txt = (TextBox)e.Item.Cells.Controls[0];

'txt.Width = Unit.Pixel(50);

'}

'}

[xcz1943]

小山正解

[dsclub]

帮忙看看这个http://community.csdn.net/Expert/topic/4592/4592268.xml?temp=.7722742

[GSXiaoXiao]

If e.Item.ItemType = ListItemType.EditItem Then
Dim i As Integer
For i = 0 To e.Item.Cells.Count - 1
Dim txt As TextBox = CType(e.Item.Cells.Controls(0), TextBox)
txt.Width = Unit.Pixel(50)
Next i
End If

[helloMac]

If e.Item.ItemType = ListItemType.EditItem Then
Dim i As Integer
For i = 0 To e.Item.Cells.Count - 1
Dim txtText As New TextBox
e.Item.Cells(0).Controls.AddAt(0, txtText)
'e.Item.Cells(0).Controls.Add(txtText)
txtText.Width = Unit.Pixel(50)
Next i
End If

[helloMac]

1。Dim txtText As New TextBox
要new一个TextBox,VB构造函数语法
2。e.Item.Cells(0).Controls.AddAt(0, txtText)
'e.Item.Cells(0).Controls.Add(txtText)
这个自己选择应用了

[terryxin]

谢谢大家,搞定,接贴

[singlepine]

用这个工具转一下,然后再少做修改就可以了
http://www.developerfusion.co.uk/utilities/convertcsharptovb.aspx

[cow8063]

一样的

[singlepine]

If e.Item.ItemType = ListItemType.EditItem Then
Dim i As Integer = 0
While i < e.Item.Cells.Count
Dim txt As TextBox = CType(e.Item.Cells.Controls(0), TextBox)
txt.Width = Unit.Pixel(50)
End While
End If

[terryxin]

在一个DATAGRID的其中一行编辑状态中,自动生成的TEXTBOX的宽度能设置宽度,但上面的好象也不行