home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DP Tool Club 22
/
CD_ASCQ_22_0695.iso
/
win
/
prg
/
psmmm11.exe
/
SAMPLE.DEU
/
SAMPLE3
/
BASIC
/
PSMMM.BAS
< prev
next >
Wrap
BASIC Source File
|
1995-03-15
|
2KB
|
68 lines
Function PSMGetComment (psmMain As Control, nMsgId As Integer) As String
On Error GoTo PSMGetComment_Error
psmMain.MessageID = nMsgId
PSMGetComment = psmMain.Message
PSMGetComment_End:
Exit Function
PSMGetComment_Error:
Select Case Err
Case 20002
PSMGetComment = "Error"
Case 20003
PSMGetComment = ""
End Select
Resume PSMGetComment_End
End Function
Function PSMInsertVariable (sText As String, sParameter As String, sSymbole As String) As String
Dim nPos As Integer
Dim sNewText As String
sNewText = sText
nPos = InStr(1, sText, sSymbole)
If nPos > 0 Then
sNewText = Left$(sText, nPos - 1)
sNewText = sNewText + sParameter
sNewText = sNewText + Right$(sText, Len(sText) - nPos - Len(sSymbole) + 1)
End If
PSMInsertVariable = sNewText
End Function
Sub PSMLoadLanguageList (psmMain As Control, lstLanguageList As Control)
Dim nCount As Integer
For nCount = 0 To psmMain.NberOfSupportedLanguages - 1
lstLanguageList.AddItem psmMain.SupportedLanguage(nCount)
Next nCount
End Sub
Function PSMSetLanguage (psmMain As Control, sLanguage As String) As Integer
On Error GoTo PSMSetLanguage_Error
PSMSetLanguage = True
psmMain.Language = UCase$(sLanguage)
PSMSetLanguage_End:
Exit Function
PSMSetLanguage_Error:
Select Case Err
Case 20002
PSMSetLanguage = False
End Select
Resume PSMSetLanguage_End
End Function