You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
14 lines
601 B
14 lines
601 B
Public Class frmMailtexte
|
|
Private Sub frmMailtexte_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
Me.ComboBox1.Items.Clear()
|
|
Dim db As New clsDB
|
|
db.Get_Tabledata("Replacer", "", "Select MailElement from MailTexte_Replacer")
|
|
For Each r As DataRow In db.dsDaten.Tables(0).Rows
|
|
Me.ComboBox1.Items.Add(r(0))
|
|
Next
|
|
End Sub
|
|
|
|
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
|
Me.txtinhalt.Text = Me.txtinhalt.Text.Insert(Me.txtinhalt.SelectionStart, Me.ComboBox1.Text)
|
|
End Sub
|
|
End Class |