home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 22 / CD_ASCQ_22_0695.iso / win / prg / psmmm11.exe / SAMPLE.ENU / SAMPLE1 / BASIC / PSMMM.BAS < prev    next >
BASIC Source File  |  1995-03-18  |  1KB  |  52 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. Sub PSMLoadLanguageList (psmMain As Control, lstLanguageList As Control)
  24. Dim nCount As Integer
  25.     
  26.     For nCount = 0 To psmMain.NberOfSupportedLanguages - 1
  27.         lstLanguageList.AddItem psmMain.SupportedLanguage(nCount)
  28.     Next nCount
  29.  
  30. End Sub
  31.  
  32. Function PSMSetLanguage (psmMain As Control, sLanguage As String) As Integer
  33.  
  34. On Error GoTo PSMSetLanguage_Error
  35.  
  36.     PSMSetLanguage = True
  37.     psmMain.Language = LCase$(sLanguage)
  38.  
  39. PSMSetLanguage_End:
  40.     Exit Function
  41.  
  42.  
  43. PSMSetLanguage_Error:
  44.     Select Case Err
  45.         Case 20002
  46.             PSMSetLanguage = False
  47.     End Select
  48.     Resume PSMSetLanguage_End
  49.     
  50. End Function
  51.  
  52.