home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / bp_3_94 / vbwin / tricks / prg_grps.frm next >
Text File  |  1994-05-24  |  3KB  |  107 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   3  'Fixed Double
  5.    Caption         =   "Gruppen-Auswahl"
  6.    ClientHeight    =   5244
  7.    ClientLeft      =   1428
  8.    ClientTop       =   2640
  9.    ClientWidth     =   5436
  10.    Height          =   5664
  11.    Left            =   1380
  12.    LinkTopic       =   "Form1"
  13.    ScaleHeight     =   5244
  14.    ScaleWidth      =   5436
  15.    Top             =   2268
  16.    Width           =   5532
  17.    Begin CommandButton Command1 
  18.       Caption         =   "&Weiter"
  19.       Height          =   372
  20.       Left            =   1920
  21.       TabIndex        =   4
  22.       Top             =   4680
  23.       Width           =   1572
  24.    End
  25.    Begin ListBox List1 
  26.       Height          =   3288
  27.       Left            =   360
  28.       Sorted          =   -1  'True
  29.       TabIndex        =   1
  30.       Top             =   1200
  31.       Width           =   4692
  32.    End
  33.    Begin TextBox Text1 
  34.       Height          =   288
  35.       Left            =   360
  36.       TabIndex        =   3
  37.       Text            =   "Text1"
  38.       Top             =   360
  39.       Width           =   4692
  40.    End
  41.    Begin Label Label2 
  42.       BackColor       =   &H00C0C0C0&
  43.       Caption         =   "&vorhandene Gruppen:"
  44.       Height          =   252
  45.       Left            =   360
  46.       TabIndex        =   0
  47.       Top             =   960
  48.       Width           =   1932
  49.    End
  50.    Begin Label Label1 
  51.       BackColor       =   &H00C0C0C0&
  52.       Caption         =   "&Gruppenname:"
  53.       Height          =   228
  54.       Left            =   360
  55.       TabIndex        =   2
  56.       Top             =   120
  57.       Width           =   1692
  58.    End
  59. End
  60.  
  61. Sub Command1_Click ()
  62.     Unload Me
  63. End Sub
  64.  
  65. Sub Form_Load ()
  66.     
  67.     left = (screen.Width - Width) \ 2    'Form in Bildshcirmmitte zentrieren
  68.     top = (screen.Height - Height) \ 2
  69.  
  70.     text1.LinkTopic = "Progman|Progman"
  71.     text1.LinkItem = "Progman"
  72.     text1.LinkMode = 2                   'manueller Linkmodus
  73.     text1.LinkRequest                    'Fⁿllen der Textbox ⁿber DDE
  74.  
  75.     On Error Resume Next                 'ProgMan von Windows 3.0 gibt beim nΣchsten Befehl einen Fehler
  76.     text1.LinkMode = 0                   'DDE beenden
  77.     
  78.     t$ = text1.Text
  79.     
  80.     While Len(t$) > 0
  81.         f% = InStr(t$, Chr$(13))              'Suchen des ersten CR in t$
  82.         list1.AddItem Left$(t$, f% - 1)       'Namen in Listbox eintragen
  83.         t$ = Right$(t$, Len(t$) - f% - 1)     'Abschneiden des ersten Nahmens incl. CR + LF
  84.     Wend
  85.  
  86.     '#### Alternativmethode zum Fⁿllen der Listbox - Anfang #### (beide Methoden sind gleich schnell)
  87.     'For z% = 1 To Len(t$)
  88.     '    kr$ = Mid$(t$, z%, 1)
  89.     '    If kr$ = Chr$(13) Then  'CR: bedeutet, da▀ Gruppenname vollstΣndig
  90.     '        list1.AddItem l$    'Gruppenname in Listbox aufnehmen
  91.     '        z% = z% + 1         'ZΣhler um eins erh÷hen, damit LineFeed ⁿbersprungen wird
  92.     '        l$ = ""             'fⁿr neuen Gruppennamen leeren
  93.     '    Else
  94.     '        l$ = l$ & kr$       'Gruppennamen Buchstabenweise auslesen
  95.     '    End If
  96.     'Next z%
  97.     '#### Alternativmethode zum Fⁿllen der Listbox - Ende ####
  98.  
  99.     list1.ListIndex = 0         'Rollbalken der Listbox auf ersten Eintrag setzen
  100.  
  101. End Sub
  102.  
  103. Sub List1_Click ()
  104.     text1.Text = list1.Text
  105. End Sub
  106.  
  107.