本帖最後由 arthurliuliu 於 2010-8-18 03:19 PM 編輯
- Option Explicit
- Private Sub btnStart_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnStart.Click
- With FrmCalendar
- .g_sRange = "EOM"
- .g_sSheet = "Main"
- .Show 1
- End With
- End Sub
- '****************************************************************************
- 'Date : 26/Jul/07
- 'Purpose: Refresh Sheet
- '****************************************************************************
- Public Function RefreshMe(ByRef r_sErrMsg As String) As Boolean
- Dim iCnt As Integer
- Dim iCount As Integer
- On Error GoTo ErrHandler
- RefreshMe = False
- PageSetup.PrintArea = "$D$1:$G$55"
- cmdProtect.Caption = "UnProtect"
- RefreshMe = True
- CleanUpHandler:
- Exit Function
- ErrHandler:
- r_sErrMsg = Err.Description
- Call rcmodhandler(ActiveWorkbook.Name, "Refresh", "APPERR", Err.Number, r_sErrMsg, True)
- GoTo CleanUpHandler
- End Function
- '********************************************************************************************
- 'Date : 10/July/07
- '
- 'Purpose : cmdExport_Click()
- '********************************************************************************************
- Private Sub btnExport_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnExport.Click
- Dim r_sErrMsg As String
- If ExportSheet(1, Me.Name, r_sErrMsg) = False Then Exit Sub
- MsgBox ("Sheet exported!", vbInformation, "Successful")
- End Sub
- '********************************************************************************************
- 'Date : 10/July/07
- '
- 'Purpose : cmdProtect_Click()
- '********************************************************************************************
- Private Sub btnProtect_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnProtect.Click
- If cmdProtect.Caption = "Protect" Then Me.Protect: cmdProtect.Caption = "UnProtect": Exit Sub
- If cmdProtect.Caption = "UnProtect" Then Me.Unprotect: cmdProtect.Caption = "Protect": Exit Sub
- End Sub
- '****************************************************************************
- 'Date : 26/Jul/07
- 'Purpose: Refresh Sheet
- '****************************************************************************
- Private Sub btnRefresh_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnRefresh.Click
- Dim r_sErrMsg As String
- If ImportAll(r_sErrMsg) = False Then GoTo ErrHandler
- CleanUpHandler:
- Exit Sub
- ErrHandler:
- MsgBox r_sErrMsg, vbCritical, "Error!"
- GoTo CleanUpHandler
- End Sub
複製代碼
如何把以上的vb code轉換去vb.net?求求各個大大的幫忙和指導,我用的是microsoft visual studio 2008!
無限感激。。。... |