Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Texteingabe in List und Textbox 2 (VB-Code)
Autor: thor-hammergermany
Datum: 04.08.05 18:10
---- Zum Programmiertext: Der Button der 1. ComboBox (schriftart): Private Sub Command1_Click() Select Case Combo1 'Schriftart Case "leer" Case "Alibi" Textbox1.Text = """Alibi""" Form2.Listbox1.Text = """Alibi""" Case "Arial" Textbox1.Text = """Verdana""" Form2.Listbox1.Text = """Verdana""" Case "Carisma" Textbox1.Text = """Carisma""" Form2.Listbox1.Text = """Carisma""" Case "" MsgBox ("Waehlen Sie erst aus dem Menue die jeweilige Schriftart aus"), , "Keine Eingabe" 'wenn nichts ausgewählt End Select End Sub Der Button der 2. ComboBox (Schriftgröße): Private Sub Command2_Click() Select Case Combo2 'Schriftart Case "leer" Case "11" Textbox1.Text = "11" Form2.Listbox1.Text = "11" Case "12" Textbox1.Text = "12" Form2.Listbox1.Text = "12" Case "13" Textbox1.Text = "13" Form2.Listbox1.Text = "13" Case "14" Textbox1.Text = "14" Form2.Listbox1.Text = "14" Case "" MsgBox ("Waehlen Sie erst aus dem Menue die jeweilige Schriftgröße aus"), , "Keine Eingabe" End Select End Sub Der Button der 3. ComboBox (Schriftgröße): Private Sub Command3_Click() Select Case Combo3 'Schriftart Case "leer" Case "Top" Textbox1.Text = "Top" Form2.Listbox1.Text = "Top" Case "Left" Textbox1.Text = "Left" Form2.Listbox1.Text = "Left" Case "" MsgBox ("Waehlen Sie erst aus dem Menue die jeweilige Schriftgröße aus"), , "Keine Eingabe" End Select End Sub Der Button der 4. ComboBox (auf/zu): Private Sub Command4_Click() Select Case Combo4 'Schriftart Case "leer" Case "auf('" Textbox1.Text = "auf('" Form2.Listbox1.Text = "auf('" Case "zu('" Textbox1.Text = "zu('" Form2.Listbox1.Text = "zu('" Case "" MsgBox ("Waehlen Sie erst aus dem Menue die jeweilige Einstellung aus"), , "Keine Eingabe" End Select End Sub Private Sub Text1_Change() 'Zahlenangaben negativ/positive für die Entfernung des Layers Textbox1.Text = Text1 Form2.Listbox1.Text = Text1 End Sub Private Sub Command5_Click() Textbox1.Text = "px;" Form2.Listbox1.Text = "px;" End Sub Private Sub Text2_Change() 'Name des Layerobjektes Textbox1.Text = Text2 Form2.Listbox1.Text = Text2 End Sub Private Sub Text3_Change() 'Schriftgrösse Textbox1.Text = Text3 Form2.Listbox1.Text = Text3 End Sub Private Sub Command6_Click() Textbox1.Text = "=" Form2.Listbox1.Text = "=" End Sub Private Sub Command7_Click() 'Button als Aufforderung die 2. Form zu öffnen Form2.Show End Sub Private Sub Command8_Click() 'Button zum übergeben der User-Eingaben: With Form1.List2 If .Enabled Then ' Hinzufügen! .AddItem Form1.Textbox1.Text Else ' Aktualisieren .List(.ListIndex) = Form1.Textbox1.Text .Enabled = True End If Text1.Text = "" End With End Sub Private Sub Listbox2_Click() 'Listbox2 auf dieser Form1 - Visible = False oder True - egal End Sub Private Sub Textbox1_Change() 'Textbox1 damit man sieht was geschrieben bzw. eingegeben wurde. Diese Textbox liegt auf Form1 End Sub ............. Code direkt auf Form geschrieben, für die Anwahl der ComboBoxen: With Combo1 .AddItem "": .ItemData(.NewIndex) = 0 'Schriftartenwahl font face .AddItem "Alibi": .ItemData(.NewIndex) = 1 .AddItem "Verdana": .ItemData(.NewIndex) = 2 .AddItem "Carisma": .ItemData(.NewIndex) = 3 End With With Combo2 .AddItem "": .ItemData(.NewIndex) = 0 'Schriftgrösse font size .AddItem "11": .ItemData(.NewIndex) = 1 .AddItem "12": .ItemData(.NewIndex) = 2 .AddItem "13": .ItemData(.NewIndex) = 3 .AddItem "14": .ItemData(.NewIndex) = 3 End With With Combo3 .AddItem "": .ItemData(.NewIndex) = 0 'Schriftgrösse font size .AddItem "Top": .ItemData(.NewIndex) = 1 .AddItem "Left": .ItemData(.NewIndex) = 2 End With With Combo4 .AddItem "": .ItemData(.NewIndex) = 0 'Schriftgrösse font size .AddItem "auf('": .ItemData(.NewIndex) = 1 .AddItem "zu('": .ItemData(.NewIndex) = 2 End With 2. Form Private Sub Listbox1_Click() 'Form2.Listbox1 End Sub

Texteingabe in List und Textbox 2 (VB-Code)

604

thor-hammergerm...

04.08.05 18:10

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen