home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 22 / CD_ASCQ_22_0695.iso / win / prg / psmmm11.exe / SAMPLE.DEU / SAMPLE2 / BASIC / PSMMM.BAS < prev    next >
BASIC Source File  |  1995-03-18  |  1KB  |  58 lines
  1.  
  2. Function PSMGetComment (psmMain As Control, nMsgId As Integer) As String
  3.     
  4. On Error GoTo PSMGetComment_Error
  5.  
  6.     psmMain.MessageID = nMsgId
  7.     PSMGetComment = psmMain.Message
  8.  
  9. PSMGetComment_End:
  10.     Exit Function
  11.  
  12. PSMGetComment_Error:
  13.     Select Case Err
  14.         Case 20002
  15.             PSMGetComment = "Error"
  16.         Case 20003
  17.             PSMGetComment = ""
  18.     End Select
  19.     Resume PSMGetComment_End
  20.  
  21. End Function
  22.  
  23. Function PSMInsertVariable (sText As String, sParameter As String, sSymbole As String) As String
  24. Dim nPos     As Integer
  25. Dim sNewText As String
  26.  
  27.     sNewText = sText
  28.     nPos = InStr(1, sText, sSymbole)
  29.     If nPos > 0 Then
  30.         sNewText = Left$(sText, nPos - 1)
  31.         sNewText = sNewText + sParameter
  32.         sNewText = sNewText + Right$(sText, Len(sText) - nPos - Len(sSymbole) + 1)
  33.     End If
  34.     PSMInsertVariable = sNewText
  35.  
  36. End Function
  37.  
  38. Function PSMSetLanguage (psmMain As Control, sLanguage As String) As Integer
  39.  
  40. On Error GoTo PSMSetLanguage_Error
  41.  
  42.     PSMSetLanguage = True
  43.     psmMain.Language = LCase$(sLanguage)
  44.  
  45. PSMSetLanguage_End:
  46.     Exit Function
  47.  
  48.  
  49. PSMSetLanguage_Error:
  50.     Select Case Err
  51.         Case 20002
  52.             PSMSetLanguage = False
  53.     End Select
  54.     Resume PSMSetLanguage_End
  55.     
  56. End Function
  57.  
  58.