Question

请大神帮忙看一下，这段vb代码用C#怎么写（winform的，不是web的）。。

Private Sub Command1_Click()
Dim sql As String
Dim rs As ADODB.Recordset
Dim tmpItem As ListItem
If Not IsNumeric(txtCardNo.Text) Or Val(txtCardNo.Text) < CARD_INDEX_MIN Then
SBar.Panels(1).Text = "[" & txtCardNo.Text & "]输入错误！"
Exit Sub
End If
Set tmpItem = lstRegCard.FindItem(txtCardNo.Text)
If tmpItem Is Nothing Then
sql = "insert into RegCardInfo(cId)values(" & Val(txtCardNo.Text) & ")"
Call ReRS(DBName, sql)
lstRegCard.ListItems.Add , , CStr(txtCardNo.Text)
SBar.Panels(1).Text = "[" & txtCardNo.Text & "]注册成功！"
Frame1.Caption = "已注册卡[" & lstRegCard.ListItems.Count & "]张"
CardInfo(Val(txtCardNo.Text)).cId = Val(txtCardNo.Text)
CardInfo(Val(txtCardNo.Text)).isReged = True
txtCardNo.Text = ""
txtCardNo.SetFocus
Else
SBar.Panels(1).Text = "[" & txtCardNo.Text & "]已经存在！"
txtCardNo.Text = ""
End If
End Sub

Answer 1

String sql;
ADODB.Recordset rs;
ListItem tmpitem;
int n;
if(! int.TryParse(txtCardNo.Text,out n) || txtCardNo.Text.Tostring()<CARD_INDEX_MIN )
{
SBar.Panels(1).Text = "[" + txtCardNo.Text + "]输入错误！";
}

tmpItem = txtCardNo；
If （tmpItem ==null）
{
sql = "insert into RegCardInfo(cId)values(" & Val(txtCardNo.Text) & ")"；
ReRS(DBName, sql)；
lstRegCard.ListItems.Add , , CStr(txtCardNo.Text)；
SBar.Panels(1).Text = "[" + txtCardNo.Text + "]注册成功！"
Frame1.Caption = "已注册卡[" + lstRegCard.ListItems.Count + "]张"；
CardInfo(txtCardNo.Text).cId = Val(txtCardNo.Text)；
CardInfo(txtCardNo.Text).isReged = True；
txtCardNo.Text = ""；
txtCardNo.SetFocus；
else{
SBar.Panels(1).Text = "[" + txtCardNo.Text + "]已经存在！"；
txtCardNo.Text = ""；
}
你要注意一个问题，VB中的很多控件跟C#中封装的不一样。所以完全转换时不可能的，你要重新新建相应的控件，根据C#的控件的方法来写代码。