请高人帮忙把c#代码转化成vb代码

Question

请高人帮忙把c#代码转化成vb代码，急用，谢谢！
private void btnDelete_Click(object sender, System.EventArgs e)
{ int cmdresults = 0;// string myConnectionString="server=LINBELL;UID=mgame;PWD=mgame;database=mgame";
SqlConnection myConnection = new SqlConnection(myConnectionString);
SqlCommand myCommand = new SqlCommand();
myCommand.Connection = myConnection; myCommand.CommandText = "DeleteMusicByStageNoRhythmNo";
myCommand.CommandType = CommandType.StoredProcedure; SqlParameter myParm = myCommand.Parameters.Add("@Original_StageNo", SqlDbType.Int , 18);
myCommand.Parameters["@Original_StageNo"].Value = m_CurStageNo; myParm = myCommand.Parameters.Add("@Original_RhythmNo", SqlDbType.Int , 18);
myCommand.Parameters["@Original_RhythmNo"].Value = m_CurRhythmNo;
myConnection.Open(); try
{
cmdresults = myCommand.ExecuteNonQuery();
}
catch (Exception ex)
{
MessageBox.Show("Failed to execute command" +ex.ToString ());
}
myConnection.Close(); m_isBtnAddClicked= false;
int temp = (int)m_CurStageNo; if (temp+1 > 20)
{
lbxStage.SelectedIndex = 0;
}
else{
lbxStage.SelectedIndex = temp;
}
lbxStage.SelectedIndex = temp-1;// MessageBox.Show("Number of records deleted = " + cmdresults.ToString());

} private void btnAdd_Click(object sender, System.EventArgs e)
{
if (m_isBtnAddClicked) return ;
m_isBtnAddClicked = true; lbxMusic.Items.Clear ();
lbxRhythm.Items.Add(lbxRhythm.Items.Count+1) ; m_CurRhythmNo = lbxRhythm.Items.Count;
lbxRhythm.SelectedIndex = lbxRhythm.Items.Count-1; lbxNote.Focus();

} private void FrmRhythmM_Load(object sender, System.EventArgs e)
{
lbxStage.SelectedIndex = 0; g = new Game();
// lbxRhythm.SelectedIndex = 0;
} private void lbxNote_SelectedIndexChanged(object sender, System.EventArgs e)
{ switch(lbxNote.SelectedIndex)       
{         
case 0:   
m_CurNoteNM = 4;
m_CurDelayTM = m_CurNoteNM * m_CurNoteTM;
break;                  
case 1:   
m_CurNoteNM = 3;
m_CurDelayTM = m_CurNoteNM * m_CurNoteTM;
break;                  
case 2:            
m_CurNoteNM = 2;
m_CurDelayTM = m_CurNoteNM * m_CurNoteTM;
break;
case 3:            
m_CurNoteNM = 1.5;
m_CurDelayTM = m_CurNoteNM * m_CurNoteTM;
break;
case 4:            
m_CurNoteNM = 1;
m_CurDelayTM = m_CurNoteNM * m_CurNoteTM;
break;
case 5:            
m_CurNoteNM = 0.33;
m_CurDelayTM = m_CurNoteNM * m_CurNoteTM;
break;
case 6:            
m_CurNoteNM = 0.2;
m_CurDelayTM = m_CurNoteNM * m_CurNoteTM;
break;
case 7:            
m_CurNoteNM = 0.14;
m_CurDelayTM = m_CurNoteNM * m_CurNoteTM;
break;
case 8:            
m_CurNoteNM = 0.75;
m_CurDelayTM = m_CurNoteNM * m_CurNoteTM;
break;
case 9:            
m_CurNoteNM = 0.5;
m_CurDelayTM = m_CurNoteNM * m_CurNoteTM;
break;
case 10:            
m_CurNoteNM = 0.375;
m_CurDelayTM = m_CurNoteNM * m_CurNoteTM;
break;
case 11:            
m_CurNoteNM = 0.25;
m_CurDelayTM = m_CurNoteNM * m_CurNoteTM;
break;
case 12:            
m_CurNoteNM = 0.125;
m_CurDelayTM = m_CurNoteNM * m_CurNoteTM;
break;
default:  
break;      
}


}
private void lbxNote_KeyDown(object sender,KeyEventArgs e)
{
if (lbxNote.SelectedIndex ==-1){return;} int q =1;
if (lbxNote.SelectedIndex ==5) q=3;
if (lbxNote.SelectedIndex ==6) q=5;
if (lbxNote.SelectedIndex ==7) q=7; switch(e.KeyCode)
{         
case  Keys.Enter:  if (lbxRhythm.SelectedIndex ==-1){ MessageBox.Show("请选择节奏"); return ;} int cmdresults = 0;// string myConnectionString="server=LINBELL;UID=mgame;PWD=mgame;database=mgame";
SqlConnection myConnection = new SqlConnection(myConnectionString);
SqlCommand myCommand = new SqlCommand();
myCommand.Connection = myConnection; myCommand.CommandText = "InsertNewNote";
myCommand.CommandType = CommandType.StoredProcedure; SqlParameter myParm = myCommand.Parameters.Add("@StageNo", SqlDbType.Int , 18);
myCommand.Parameters["@StageNo"].Value = m_CurStageNo; myParm = myCommand.Parameters.Add("@RhythmNo", SqlDbType.Int , 18);
myCommand.Parameters["@RhythmNo"].Value = lbxRhythm.SelectedIndex + 1; myParm = myCommand.Parameters.Add("@NoteTM", SqlDbType.Decimal, 18);
myCommand.Parameters["@NoteTM"].Value = m_CurNoteTM; myParm = myCommand.Parameters.Add("@NoteNM", SqlDbType.Decimal  , 18);
myCommand.Parameters["@NoteNM"].Value = m_CurNoteNM; myConnection.Open(); try
{
for (int i = 1;i<=q;i++){
cmdresults = myCommand.ExecuteNonQuery();
lbxMusic.Items.Add (m_CurDelayTM);
}
}
catch (Exception ex)
{
MessageBox.Show("用户已经存在！"+ex.Message );
}
myConnection.Close(); m_isBtnAddClicked=false;// MessageBox.Show("Number of records inserted = " + cmdresults.ToString()); break;       
default:  
break;      
}
} private void btnTest_Click(object sender, System.EventArgs e)
{
g.StageNoParam  = m_CurStageNo;
g.RhythmNoParam = m_CurRhythmNo;
g.LoadFromDBByStageNoRhythmNo ();
g.TestPlay();
} private void btn_Export_Click(object sender, System.EventArgs e)
{
saveFileDialog.DefaultExt ="xml";
saveFileDialog.InitialDirectory = "c:\\" ;
saveFileDialog.Filter = "xml files (*.xml)|*.xml"  ;
saveFileDialog.FilterIndex = 1 ;
saveFileDialog.RestoreDirectory = true; saveFileDialog.ShowDialog();

if( saveFileDialog.FileName == null || saveFileDialog.FileName.Trim() == "") {return;} g.TxtFileName  = saveFileDialog.FileName;  g.LoadFromDBByAll(); g.ExportXMLfile(); MessageBox.Show("导出成功","导出成功");

} private void btn_Import_Click(object sender, System.EventArgs e)
{
openFileDialog.DefaultExt ="xml";
openFileDialog.InitialDirectory = "c:\\" ;
openFileDialog.Filter = "xml files (*.xml)|*.xml" ;
openFileDialog.FilterIndex = 1 ;
openFileDialog.RestoreDirectory = true ; openFileDialog.ShowDialog();
if( openFileDialog.FileName == null || openFileDialog.FileName.Trim() == "") {return;} g.TxtFileName  = openFileDialog.FileName;// g.LoadFromDBByAll();
 
g.ImportXMLfile ();             MessageBox.Show("导入成功","导入成功");
}
}
}

Answer 1

VB6.0使用ADO而不是ADO.NET模型来访问数据库。
可以根据你代码的意思加以改写。

Answer 2

'Error: Converting Methods, Functions and Constructors 
'Error: Converting If-Else-End If Blocks private void btnDelete_Click(Object sender, System.EventArgs e)
{
 
Dim cmdresults As Integer =  0 
 
' string myConnectionString="server=LINBELL;UID=mgame;PWD=mgame;database=mgame";
Dim myConnection As SqlConnection =  New SqlConnection(myConnectionString) 
Dim myCommand As SqlCommand =  New SqlCommand() 
myCommand.Connection = myConnection
 
myCommand.CommandText = "DeleteMusicByStageNoRhythmNo"
myCommand.CommandType = CommandType.StoredProcedure
 
Dim myParm As SqlParameter =  myCommand.Parameters.Add("@Original_StageNo",SqlDbType.Int,18) 
myCommand.Parameters("@Original_StageNo").Value = m_CurStageNo
 
myParm = myCommand.Parameters.Add("@Original_RhythmNo", SqlDbType.Int , 18)
myCommand.Parameters("@Original_RhythmNo").Value = m_CurRhythmNo
 
 
myConnection.Open()
 
Try
cmdresults = myCommand.ExecuteNonQuery()
Catch ex As Exception
MessageBox.Show("Failed to execute command" +ex.ToString())
End Try
myConnection.Close()
 
m_isBtnAddClicked= False
 
 
Dim temp As Integer = CType(m_CurStageNo, Integer)
 
if (temp+1 > 20)
{
lbxStage.SelectedIndex = 0
}
else
{

lbxStage.SelectedIndex = temp
}
lbxStage.SelectedIndex = temp-1
 
' MessageBox.Show("Number of records deleted = " + cmdresults.ToString());
 
}
 
private void btnAdd_Click(Object sender, System.EventArgs e)
{
Dim Return As if(m_isBtnAddClicked)
m_isBtnAddClicked = True
 
lbxMusic.Items.Clear ()
lbxRhythm.Items.Add(lbxRhythm.Items.Count+1) 
 
m_CurRhythmNo = lbxRhythm.Items.Count
lbxRhythm.SelectedIndex = lbxRhythm.Items.Count-1
 
lbxNote.Focus()
 
}
 
private void FrmRhythmM_Load(Object sender, System.EventArgs e)
{
lbxStage.SelectedIndex = 0
 
g = New Game()
' lbxRhythm.SelectedIndex = 0;
}
 
private void lbxNote_SelectedIndexChanged(Object sender, System.EventArgs e)
{
 
Select Case lbxNote.SelectedIndex
Case 0
m_CurNoteNM = 4
m_CurDelayTM = m_CurNoteNM * m_CurNoteTM
break   
Case 1
m_CurNoteNM = 3
m_CurDelayTM = m_CurNoteNM * m_CurNoteTM
break   
Case 2
m_CurNoteNM = 2
m_CurDelayTM = m_CurNoteNM * m_CurNoteTM
break
Case 3
m_CurNoteNM = 1.5
m_CurDelayTM = m_CurNoteNM * m_CurNoteTM
break
Case 4
m_CurNoteNM = 1
m_CurDelayTM = m_CurNoteNM * m_CurNoteTM
break
Case 5
m_CurNoteNM = 0.33
m_CurDelayTM = m_CurNoteNM * m_CurNoteTM
break
Case 6
m_CurNoteNM = 0.2
m_CurDelayTM = m_CurNoteNM * m_CurNoteTM
break
Case 7
m_CurNoteNM = 0.14
m_CurDelayTM = m_CurNoteNM * m_CurNoteTM
break
Case 8
m_CurNoteNM = 0.75
m_CurDelayTM = m_CurNoteNM * m_CurNoteTM
break
Case 9
m_CurNoteNM = 0.5
m_CurDelayTM = m_CurNoteNM * m_CurNoteTM
break
Case 10
m_CurNoteNM = 0.375
m_CurDelayTM = m_CurNoteNM * m_CurNoteTM
break
Case 11
m_CurNoteNM = 0.25
m_CurDelayTM = m_CurNoteNM * m_CurNoteTM
break
Case 12
m_CurNoteNM = 0.125
m_CurDelayTM = m_CurNoteNM * m_CurNoteTM
break
Case Else
break
End Select
 
 
}
private void lbxNote_KeyDown(Object sender,KeyEventArgs e)
{
if (lbxNote.SelectedIndex =-1)
{
Return
} 
Dim q As Integer = 1 
if (lbxNote.SelectedIndex =5) q=3
if (lbxNote.SelectedIndex =6) q=5
if (lbxNote.SelectedIndex =7) q=7
 
Select Case e.KeyCode
Case Keys.Enter
 Dim Return As MessageBox.Show("请选择节奏")
 
Dim cmdresults As Integer =  0 
 
' string myConnectionString="server=LINBELL;UID=mgame;PWD=mgame;database=mgame";
Dim myConnection As SqlConnection =  New SqlConnection(myConnectionString) 
Dim myCommand As SqlCommand =  New SqlCommand() 
myCommand.Connection = myConnection
 
myCommand.CommandText = "InsertNewNote"
myCommand.CommandType = CommandType.StoredProcedure
 
Dim myParm As SqlParameter =  myCommand.Parameters.Add("@StageNo",SqlDbType.Int,18) 
myCommand.Parameters("@StageNo").Value = m_CurStageNo
 
myParm = myCommand.Parameters.Add("@RhythmNo", SqlDbType.Int , 18)
myCommand.Parameters("@RhythmNo").Value = lbxRhythm.SelectedIndex + 1
 
myParm = myCommand.Parameters.Add("@NoteTM", SqlDbType.Decimal, 18)
myCommand.Parameters("@NoteTM").Value = m_CurNoteTM
 
myParm = myCommand.Parameters.Add("@NoteNM", SqlDbType.Decimal , 18)
myCommand.Parameters("@NoteNM").Value = m_CurNoteNM
 
myConnection.Open()
 
Try
Dim i As Integer
For  i = 1 To q Step i + 1
cmdresults = myCommand.ExecuteNonQuery()
lbxMusic.Items.Add (m_CurDelayTM)
Next
Catch ex As Exception
MessageBox.Show("用户已经存在！"+ex.Message)
End Try
myConnection.Close()
 
 
 
m_isBtnAddClicked=False
 
' MessageBox.Show("Number of records inserted = " + cmdresults.ToString());
 
Exit For   
Case Else
Exit For
End Select
}
 
private void btnTest_Click(Object sender, System.EventArgs e)
{
g.StageNoParam = m_CurStageNo
g.RhythmNoParam = m_CurRhythmNo
g.LoadFromDBByStageNoRhythmNo ()
g.TestPlay()
}
 
private void btn_Export_Click(Object sender, System.EventArgs e)
{
saveFileDialog.DefaultExt ="xml"
saveFileDialog.InitialDirectory = "c:\\" 
saveFileDialog.Filter = "xml files (*.xml)|*.xml" 
saveFileDialog.FilterIndex = 1 
saveFileDialog.RestoreDirectory = True
 
saveFileDialog.ShowDialog()
 
if(saveFileDialog.FileName = Nothing Or saveFileDialog.FileName.Trim() = "") 
{
Return
} 
g.TxtFileName = saveFileDialog.FileName  
 
g.LoadFromDBByAll()
 
g.ExportXMLfile()
 
MessageBox.Show("导出成功","导出成功")
 
}
 
private void btn_Import_Click(Object sender, System.EventArgs e)
{
openFileDialog.DefaultExt ="xml"
openFileDialog.InitialDirectory = "c:\\" 
openFileDialog.Filter = "xml files (*.xml)|*.xml" 
openFileDialog.FilterIndex = 1 
openFileDialog.RestoreDirectory = True 
 
openFileDialog.ShowDialog()
if(openFileDialog.FileName = Nothing Or openFileDialog.FileName.Trim() = "") 
{
Return
} 
g.TxtFileName = openFileDialog.FileName
 
' g.LoadFromDBByAll();
 
g.ImportXMLfile ()   
 
MessageBox.Show("导入成功","导入成功")
}
 
 
}
}

Answer 3

楼主应该把你的贴子发到VB.NET版去。

Answer 4

建议到http://prj.csdn.net 发个贴招标，估计 500-2000 元就搞定了

Answer 5

在VB6里面，使用ADO访问数据库，在C#里面使用ADO.NET。模型略有不同，所以理解了意思，照着改写即可。