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.FRM < prev    next >
Text File  |  1995-04-04  |  7KB  |  236 lines
  1. VERSION 2.00
  2. Begin Form frmMain 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "Parameter in Texten"
  6.    ClientHeight    =   4560
  7.    ClientLeft      =   1440
  8.    ClientTop       =   2025
  9.    ClientWidth     =   4800
  10.    Height          =   5250
  11.    Icon            =   PSMMM.FRX:0000
  12.    Left            =   1380
  13.    LinkTopic       =   "Form1"
  14.    MaxButton       =   0   'False
  15.    ScaleHeight     =   4560
  16.    ScaleWidth      =   4800
  17.    Top             =   1395
  18.    Width           =   4920
  19.    Begin ListBox List1 
  20.       FontBold        =   0   'False
  21.       FontItalic      =   0   'False
  22.       FontName        =   "MS Sans Serif"
  23.       FontSize        =   8.25
  24.       FontStrikethru  =   0   'False
  25.       FontUnderline   =   0   'False
  26.       Height          =   1005
  27.       Left            =   60
  28.       MultiSelect     =   2  'Extended
  29.       TabIndex        =   0
  30.       Top             =   3495
  31.       Width           =   2955
  32.    End
  33.    Begin PSMMM psmmm1 
  34.       FileName        =   "SAMPLE2.LRS"
  35.       Left            =   4305
  36.       Top             =   2865
  37.    End
  38.    Begin Line Line1 
  39.       X1              =   60
  40.       X2              =   4725
  41.       Y1              =   2985
  42.       Y2              =   2985
  43.    End
  44.    Begin Label Label2 
  45.       Caption         =   "Die Variabeln %1 und %2 lassen sich im RUN-TIME mit der Funktion PSMInsertVariable einfach einfⁿgen."
  46.       FontBold        =   0   'False
  47.       FontItalic      =   0   'False
  48.       FontName        =   "MS Sans Serif"
  49.       FontSize        =   8.25
  50.       FontStrikethru  =   0   'False
  51.       FontUnderline   =   0   'False
  52.       Height          =   450
  53.       Index           =   5
  54.       Left            =   120
  55.       TabIndex        =   7
  56.       Top             =   2310
  57.       Width           =   4560
  58.    End
  59.    Begin Label Label2 
  60.       Caption         =   "Die Datei %1 wird in das Verzeichnis %2 kopiert."
  61.       FontBold        =   0   'False
  62.       FontItalic      =   0   'False
  63.       FontName        =   "MS Sans Serif"
  64.       FontSize        =   8.25
  65.       FontStrikethru  =   0   'False
  66.       FontUnderline   =   0   'False
  67.       ForeColor       =   &H00C00000&
  68.       Height          =   210
  69.       Index           =   4
  70.       Left            =   105
  71.       TabIndex        =   6
  72.       Top             =   1875
  73.       Width           =   4545
  74.    End
  75.    Begin Label Label2 
  76.       Caption         =   "Die Variabeln X und Y kennen Sie erst im RUN-TIME Modus. Um nicht drei Texte separat im Editor eingeben zu mⁿssen, schreiben Sie folgendes:"
  77.       FontBold        =   0   'False
  78.       FontItalic      =   0   'False
  79.       FontName        =   "MS Sans Serif"
  80.       FontSize        =   8.25
  81.       FontStrikethru  =   0   'False
  82.       FontUnderline   =   0   'False
  83.       Height          =   615
  84.       Index           =   3
  85.       Left            =   105
  86.       TabIndex        =   5
  87.       Top             =   1245
  88.       Width           =   4545
  89.    End
  90.    Begin Label Label2 
  91.       Caption         =   "Die Datei X wird in das Verzeichnis Y kopiert."
  92.       FontBold        =   0   'False
  93.       FontItalic      =   0   'False
  94.       FontName        =   "MS Sans Serif"
  95.       FontSize        =   8.25
  96.       FontStrikethru  =   0   'False
  97.       FontUnderline   =   0   'False
  98.       ForeColor       =   &H00C00000&
  99.       Height          =   210
  100.       Index           =   2
  101.       Left            =   105
  102.       TabIndex        =   4
  103.       Top             =   960
  104.       Width           =   3930
  105.    End
  106.    Begin Label Label2 
  107.       Caption         =   "z.B: In einem Installationsprogramm wollen Sie in der Copy-Dialogbox folgendes schreiben:"
  108.       FontBold        =   0   'False
  109.       FontItalic      =   0   'False
  110.       FontName        =   "MS Sans Serif"
  111.       FontSize        =   8.25
  112.       FontStrikethru  =   0   'False
  113.       FontUnderline   =   0   'False
  114.       Height          =   420
  115.       Index           =   1
  116.       Left            =   105
  117.       TabIndex        =   3
  118.       Top             =   525
  119.       Width           =   4530
  120.    End
  121.    Begin Label Label2 
  122.       Caption         =   "An Hand von Variabeln k÷nnen Sie Texte schreiben die generelle Einsetzbar sind. "
  123.       FontBold        =   0   'False
  124.       FontItalic      =   0   'False
  125.       FontName        =   "MS Sans Serif"
  126.       FontSize        =   8.25
  127.       FontStrikethru  =   0   'False
  128.       FontUnderline   =   0   'False
  129.       Height          =   405
  130.       Index           =   0
  131.       Left            =   105
  132.       TabIndex        =   2
  133.       Top             =   75
  134.       Width           =   4515
  135.    End
  136.    Begin Label Label1 
  137.       BackColor       =   &H00FFFFFF&
  138.       BackStyle       =   0  'Transparent
  139.       ForeColor       =   &H00FF0000&
  140.       Height          =   285
  141.       Left            =   105
  142.       TabIndex        =   1
  143.       Top             =   3150
  144.       Width           =   2835
  145.       WordWrap        =   -1  'True
  146.    End
  147.    Begin Shape Shape1 
  148.       BackStyle       =   1  'Opaque
  149.       Height          =   345
  150.       Left            =   60
  151.       Top             =   3120
  152.       Width           =   2955
  153.    End
  154.    Begin Shape Shape2 
  155.       BackStyle       =   1  'Opaque
  156.       Height          =   2790
  157.       Left            =   45
  158.       Top             =   30
  159.       Width           =   4680
  160.    End
  161.    Begin Menu Info 
  162.       Caption         =   "Info"
  163.    End
  164. End
  165. Option Explicit
  166.  
  167. Sub Form_Load ()
  168. Dim nTmp As Integer
  169.  
  170.   nTmp = PSMSetLanguage(psmmm1, "deu")
  171.  
  172.   List1.AddItem "Element"
  173.   List1.AddItem "Element"
  174.   List1.AddItem "Element"
  175.   List1.AddItem "Element"
  176.   List1.AddItem "Element"
  177.   List1.AddItem "Element"
  178.   List1.AddItem "Element"
  179.   List1.AddItem "Element"
  180.   List1.AddItem "Element"
  181.   List1.AddItem "Element"
  182.   List1.AddItem "Element"
  183.   List1.AddItem "Element"
  184.   List1.AddItem "Element"
  185.   List1.AddItem "Element"
  186.   List1.AddItem "Element"
  187.   List1.AddItem "Element"
  188.   List1.AddItem "Element"
  189.   List1.AddItem "Element"
  190.   List1.AddItem "Element"
  191.  
  192. End Sub
  193.  
  194. Sub Info_Click ()
  195.   
  196.   frmAbout.Show 1
  197.  
  198. End Sub
  199.  
  200. Sub List1_Click ()
  201. Dim nCount          As Integer
  202. Dim nNberSelectItem As Integer
  203. Dim sComment        As String
  204.  
  205.   For nCount = 0 To List1.ListCount - 1
  206.     If List1.Selected(nCount) Then
  207.       nNberSelectItem = nNberSelectItem + 1
  208.     End If
  209.   Next nCount
  210.  
  211.   sComment = PSMGetComment(psmmm1, MSG_SYS_LANGNAME100)
  212.  
  213. ' Einfⁿgen der Anzahl ausgewΣhlten Elemente (Parameter %1)
  214.   sComment = PSMInsertVariable(sComment, CStr(nNberSelectItem), "%1")
  215.  
  216.  
  217. ' AnhΣngen wenn n÷tig am Wort 'Element' das "e" (Parameter %2)
  218.   If nNberSelectItem > 1 Then
  219.     sComment = PSMInsertVariable(sComment, PSMGetComment(psmmm1, MSG_SYS_Para2101), "%2")
  220.   Else
  221.     sComment = PSMInsertVariable(sComment, "", "%2")
  222.   End If
  223.  
  224.  
  225. ' Einsetzen des "ist" oder "sind" in den Satz (Parameter %3)
  226.  If nNberSelectItem > 1 Then
  227.     sComment = PSMInsertVariable(sComment, PSMGetComment(psmmm1, MSG_SYS_Para3b103), "%3")
  228.   Else
  229.     sComment = PSMInsertVariable(sComment, PSMGetComment(psmmm1, MSG_SYS_Para3a102), "%3")
  230.   End If
  231.  
  232.   label1.Caption = sComment
  233.  
  234. End Sub
  235.  
  236.