Max,
Please note that the call to ProgErrorhandle r is just a generic routine that
I use to display a message about the error that occurs:
Public Sub ProgErrorHandle r(ByVal FuncOrSubName As String, ByVal FormName As
String, ByVal ErrMessage As String, Optional ByVal CloseApplicatio n As
Boolean = False)
'This is the routine that is passed error details for display to the
user and which will shut down the application if the error is sufficiently
'Serious as denoted by the "CloseApplicati on" parameter, can be left and
False assumed
Dim Msg As String
Msg = "An error has occurred in the " & FuncOrSubName & " procedure in
the " & FormName & " form." & vbCrLf & vbCrLf
Msg += "The error message returned is:" & vbCrLf & vbCrLf & ErrMessage &
vbCrLf & vbCrLf
Select Case CloseApplicatio n
Case False
Msg += "This error is not too serious to continue, but the
information from this dialog should be reported to " & Support
Msg += ". If this error occurred whilst making changes to the
database, it is likely that your data has not been saved. "
Case True
Msg += "This error is too serious to continue running the
application, any outstanding changes will be lost. Please make a note "
Msg += "of the message details above and pass them to " & Support &
" so that the cause of this error can be rectified in a "
Msg += "future release of this application. I apologise for this
problem and will endeavour to fix it as soon as possible "
Msg += "once I know where the error lies."
MsgBox(Msg, MsgBoxStyle.Inf ormation, H)
Call EndApplication( )
End Select
Dim Resp As Integer = MsgBox(Msg, MsgBoxStyle.Inf ormation, H)
End Sub
The variable "Support" just holds the relevant support desk name and number.
The EndApplication routine is just used to close down any global variables
and shut down forms etc
Hope they are useful.
Siv
"Siv" <ms**********@r emoveme.sivill. com> wrote in message
news:%2******** **********@TK2M SFTNGP14.phx.gb l...
Max,
This is my routine, which I got from this group many Moons ago:
' =============== =============== =============== ========
Function CutCopyPaste(By Val type As Integer, ByVal ctrl As Control) As
String
'Type is 1=Cut 2=Copy 3=Paste
'ctrl is control being cut or copied from or if type=3 is the control
being pasted to.
Select Case type
Case 1 '=Cut
Try
Clipboard.SetDa taObject(ctrl.T ext)
ctrl.Text = "" 'THEN clear the source control
Catch ex As Exception
Call ProgErrorHandle r("CutCopyPas te - Cut", "Common Module", ex.Message,
False)
End Try
Case 2 '=Copy
Try
Clipboard.SetDa taObject(ctrl.T ext)
Catch ex As Exception
Call ProgErrorHandle r("CutCopyPas te - Copy", "Common Module", ex.Message,
False)
End Try
Case 3 '=Paste
Try
Catch ex As Exception
Dim objClipboard As IDataObject = Clipboard.GetDa taObject()
With objClipboard
If .GetDataPresent (DataFormats.Te xt) Then
ctrl.Text = .GetData(DataFo rmats.Text)
End If
End With
End Try
End Select
End Function
' =============== =============== =============== ========
"Max81" <ma******@yamo. org-dot-uk.no-spam.invalid> wrote in message
news:41******** **@Usenet.com.. . Im trying to build a calculator for an assignment! (due wednesday)
im having trouble finding any code for creating Copy/Paste menu
buttons (just need the "doing" code)
can anyone help?
in addition, how do you get the keyboard numbers to activate the
"calculator " buttons. (not as important)
thanks for any info provided.
Max
*-----------------------*
Posted at:
www.GroupSrv.com
*-----------------------*
