如何把 vb 轉換成 vb.net?

1. Option Explicit
   
2. 
   
3. Private Sub btnStart_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnStart.Click
   
4. With FrmCalendar
   
5. .g_sRange = "EOM"
   
6. .g_sSheet = "Main"
   
7. .Show 1
   
8. End With
   
9. End Sub
   
10. 
    
11. '****************************************************************************
    
12. 
    
13. 'Date : 26/Jul/07
    
14. 'Purpose: Refresh Sheet
    
15. '****************************************************************************
    
16. Public Function RefreshMe(ByRef r_sErrMsg As String) As Boolean
    
17. Dim iCnt As Integer
    
18. Dim iCount As Integer
    
19. On Error GoTo ErrHandler
    
20. 
    
21. RefreshMe = False
    
22. PageSetup.PrintArea = "$D$1:$G$55"
    
23. cmdProtect.Caption = "UnProtect"
    
24. RefreshMe = True
    
25. 
    
26. CleanUpHandler:
    
27. Exit Function
    
28. 
    
29. ErrHandler:
    
30. r_sErrMsg = Err.Description
    
31. Call rcmodhandler(ActiveWorkbook.Name, "Refresh", "APPERR", Err.Number, r_sErrMsg, True)
    
32. GoTo CleanUpHandler
    
33. End Function
    
34. '********************************************************************************************
    
35. 'Date : 10/July/07
    
36. '
    
37. 'Purpose : cmdExport_Click()
    
38. '********************************************************************************************
    
39. Private Sub btnExport_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnExport.Click
    
40. Dim r_sErrMsg As String
    
41. If ExportSheet(1, Me.Name, r_sErrMsg) = False Then Exit Sub
    
42. MsgBox ("Sheet exported!", vbInformation, "Successful")
    
43. End Sub
    
44. 
    
45. 
    
46. 
    
47. '********************************************************************************************
    
48. 'Date : 10/July/07
    
49. '
    
50. 'Purpose : cmdProtect_Click()
    
51. '********************************************************************************************
    
52. Private Sub btnProtect_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnProtect.Click
    
53. If cmdProtect.Caption = "Protect" Then Me.Protect: cmdProtect.Caption = "UnProtect": Exit Sub
    
54. If cmdProtect.Caption = "UnProtect" Then Me.Unprotect: cmdProtect.Caption = "Protect": Exit Sub
    
55. End Sub
    
56. 
    
57. '****************************************************************************
    
58. 
    
59. 'Date : 26/Jul/07
    
60. 'Purpose: Refresh Sheet
    
61. '****************************************************************************
    
62. Private Sub btnRefresh_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnRefresh.Click
    
63. Dim r_sErrMsg As String
    
64. 
    
65. If ImportAll(r_sErrMsg) = False Then GoTo ErrHandler
    
66. 
    
67. CleanUpHandler:
    
68. Exit Sub
    
69. ErrHandler:
    
70. MsgBox r_sErrMsg, vbCritical, "Error!"
    
71. GoTo CleanUpHandler
    
72. 
    
73. End Sub

複製代碼

如何把以上的vb code轉換去vb.net?求求各個大大的幫忙和指導，我用的是microsoft visual studio 2008!
無限感激。。。...

瀏覽完整內容，請先 註冊 或 登入會員

1 . 你的程式 , 不就是 vb.net的格式了嗎
2 . 內容也不完整 , 明明有Call Function 卻沒有看到程式段