14 lines
601 B
VB.net
14 lines
601 B
VB.net
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 |