home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 22 / CD_ASCQ_22_0695.iso / win / prg / psmmm11.exe / SAMPLE.DEU / SAMPLE4 / BASIC / PSMMM.BAS < prev    next >
BASIC Source File  |  1995-03-18  |  2KB  |  58 lines
  1. Sub PSMCreateLanguageMenu (psmMain As Control, frmMain As Form)
  2. Dim nCount As Integer
  3.     
  4. 'Schaut welche Sprachen zu Verfⁿgung stehen und fⁿgt sie im Menⁿ 'mnuLanguage' zu
  5.  
  6.     psmMain.Language = psmMain.SupportedLanguage(0)
  7.     frmMain.mnuLanguage(0).Caption = PSMGetComment(psmMain, MSGLang_Language1)
  8.     
  9.     For nCount = 1 To psmMain.NberOfSupportedLanguages - 1
  10.         psmMain.Language = psmMain.SupportedLanguage(nCount)
  11.  
  12.         Load frmMain.mnuLanguage(nCount)
  13.         frmMain.mnuLanguage(nCount).Caption = PSMGetComment(psmMain, MSGLang_Language1)
  14.     Next nCount
  15.  
  16. ' Weitere ErkΣrungen finden Sie im  Visual Basic Programmer's Guide
  17. '                                       Kapitel 4 Menus and Dialogs
  18. '                                                          Seite 89
  19.  
  20. End Sub
  21.  
  22. Function PSMGetComment (psmMain As Control, nMsgId As Integer) As String
  23.     
  24. On Error GoTo PSMGetComment_Error
  25.  
  26.     psmMain.MessageID = nMsgId
  27.     PSMGetComment = psmMain.Message
  28.  
  29. PSMGetComment_End:
  30.     Exit Function
  31.  
  32. PSMGetComment_Error:
  33.     Select Case Err
  34.         Case 20002
  35.             PSMGetComment = "Error"
  36.         Case 20003
  37.             PSMGetComment = ""
  38.     End Select
  39.     Resume PSMGetComment_End
  40.  
  41. End Function
  42.  
  43. Sub PSMSetAppLanguage (psmMain As Control, frmMain As Form, nLanguageIndex As Integer)
  44. Dim nCount  As Integer
  45.     
  46. ' Setzt die gewⁿnschte Sprache der Applikation, "checked" die Sprache im Menⁿ
  47.   For nCount = 0 To psmMain.NberOfSupportedLanguages - 1
  48.     If nCount = nLanguageIndex Then
  49.       frmMain.mnuLanguage(nCount).Checked = True
  50.       psmMain.Language = psmMain.SupportedLanguage(nCount)
  51.     Else
  52.       frmMain.mnuLanguage(nCount).Checked = False
  53.     End If
  54.   Next nCount
  55.  
  56. End Sub
  57.  
  58.