DP Tool Club 22/CD_ASCQ_22_0695.iso/win/prg/psmmm11.exe/SAMPLE.ENU/SAMPLE2/BASIC/PSMMM.FRM

Text File | 1995-04-04 | 7KB | 236 lines

VERSION 2.00
Begin Form frmMain
   BackColor       =   &H00C0C0C0&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Sentences with parameters"
   ClientHeight    =   4560
   ClientLeft      =   1440
   ClientTop       =   2025
   ClientWidth     =   4800
   Height          =   5250
   Icon            =   PSMMM.FRX:0000
   Left            =   1380
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   4560
   ScaleWidth      =   4800
   Top             =   1395
   Width           =   4920
   Begin ListBox List1
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   8.25
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   1005
      Left            =   60
      MultiSelect     =   2  'Extended
      TabIndex        =   0
      Top             =   3495
      Width           =   2955
   End
   Begin PSMMM psmmm1
      FileName        =   "SAMPLE2.LRS"
      Left            =   4305
      Top             =   3060
   End
   Begin Line Line1
      X1              =   60
      X2              =   4725
      Y1              =   2985
      Y2              =   2985
   End
   Begin Label Label2
      Caption         =   "You can then replace the %1 and %2 at run-time using the PSMInsertVariable function of the module PSMMM.BAS."
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   8.25
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   450
      Index           =   5
      Left            =   120
      TabIndex        =   7
      Top             =   2310
      Width           =   4560
   End
   Begin Label Label2
      Caption         =   "The file %1 will be copied in the directory %2."
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   8.25
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      ForeColor       =   &H00C00000&
      Height          =   210
      Index           =   4
      Left            =   105
      TabIndex        =   6
      Top             =   1890
      Width           =   4545
   End
   Begin Label Label2
      Caption         =   "The variables X and Y are know only at run-time. However you don't need to write three strings. Instead, you can use the following notation :"
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   8.25
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   615
      Index           =   3
      Left            =   105
      TabIndex        =   5
      Top             =   1245
      Width           =   4545
   End
   Begin Label Label2
      Caption         =   "The file X will be copied in the directory Y."
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   8.25
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      ForeColor       =   &H00C00000&
      Height          =   210
      Index           =   2
      Left            =   105
      TabIndex        =   4
      Top             =   960
      Width           =   3930
   End
   Begin Label Label2
      Caption         =   "For example,  you have to write the followin text in a dialog box of an installation program :"
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   8.25
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   420
      Index           =   1
      Left            =   105
      TabIndex        =   3
      Top             =   525
      Width           =   4530
   End
   Begin Label Label2
      Caption         =   "This example shows how you can create generic sentences."
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   8.25
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   405
      Index           =   0
      Left            =   105
      TabIndex        =   2
      Top             =   75
      Width           =   4515
   End
   Begin Label Label1
      BackColor       =   &H00FFFFFF&
      BackStyle       =   0  'Transparent
      ForeColor       =   &H00FF0000&
      Height          =   285
      Left            =   105
      TabIndex        =   1
      Top             =   3150
      Width           =   2835
      WordWrap        =   -1  'True
   End
   Begin Shape Shape1
      BackStyle       =   1  'Opaque
      Height          =   345
      Left            =   60
      Top             =   3120
      Width           =   2955
   End
   Begin Shape Shape2
      BackStyle       =   1  'Opaque
      Height          =   2790
      Left            =   45
      Top             =   45
      Width           =   4680
   End
   Begin Menu Info
      Caption         =   "Info"
   End
End
Option Explicit

Sub Form_Load ()
Dim nTmp As Integer

  nTmp = PSMSetLanguage(psmmm1, "enu")

  List1.AddItem "Element"
  List1.AddItem "Element"
  List1.AddItem "Element"
  List1.AddItem "Element"
  List1.AddItem "Element"
  List1.AddItem "Element"
  List1.AddItem "Element"
  List1.AddItem "Element"
  List1.AddItem "Element"
  List1.AddItem "Element"
  List1.AddItem "Element"
  List1.AddItem "Element"
  List1.AddItem "Element"
  List1.AddItem "Element"
  List1.AddItem "Element"
  List1.AddItem "Element"
  List1.AddItem "Element"
  List1.AddItem "Element"
  List1.AddItem "Element"

End Sub

Sub Info_Click ()

  frmAbout.Show 1

End Sub

Sub List1_Click ()
Dim nCount          As Integer
Dim nNberSelectItem As Integer
Dim sComment        As String

  For nCount = 0 To List1.ListCount - 1
    If List1.Selected(nCount) Then
      nNberSelectItem = nNberSelectItem + 1
    End If
  Next nCount

  sComment = PSMGetComment(psmmm1, MSG_SYS_LANGNAME100)

' Einfⁿgen der Anzahl ausgewΣhlten Elemente (Parameter %1)
  sComment = PSMInsertVariable(sComment, CStr(nNberSelectItem), "%1")


' AnhΣngen wenn n÷tig am Wort 'Element' das "e" (Parameter %2)
  If nNberSelectItem > 1 Then
    sComment = PSMInsertVariable(sComment, PSMGetComment(psmmm1, MSG_SYS_Para2101), "%2")
  Else
    sComment = PSMInsertVariable(sComment, "", "%2")
  End If


' Einsetzen des "ist" oder "sind" in den Satz (Parameter %3)
 If nNberSelectItem > 1 Then
    sComment = PSMInsertVariable(sComment, PSMGetComment(psmmm1, MSG_SYS_Para3b103), "%3")
  Else
    sComment = PSMInsertVariable(sComment, PSMGetComment(psmmm1, MSG_SYS_Para3a102), "%3")
  End If

  label1.Caption = sComment

End Sub