Public Class frmPartnersucheInfo Inherits System.Windows.Forms.Form #Region " Vom Windows Form Designer generierter Code " Public Sub New() MyBase.New() ' Dieser Aufruf ist für den Windows Form-Designer erforderlich. InitializeComponent() ' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen End Sub ' Die Form überschreibt den Löschvorgang der Basisklasse, um Komponenten zu bereinigen. Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) If disposing Then If Not (components Is Nothing) Then components.Dispose() End If End If MyBase.Dispose(disposing) End Sub ' Für Windows Form-Designer erforderlich Private components As System.ComponentModel.IContainer 'HINWEIS: Die folgende Prozedur ist für den Windows Form-Designer erforderlich 'Sie kann mit dem Windows Form-Designer modifiziert werden. 'Verwenden Sie nicht den Code-Editor zur Bearbeitung. Friend WithEvents Label1 As System.Windows.Forms.Label Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox Friend WithEvents Label2 As System.Windows.Forms.Label Friend WithEvents Label3 As System.Windows.Forms.Label Friend WithEvents Label4 As System.Windows.Forms.Label Friend WithEvents Label5 As System.Windows.Forms.Label Friend WithEvents Label6 As System.Windows.Forms.Label Friend WithEvents Label8 As System.Windows.Forms.Label Friend WithEvents Label9 As System.Windows.Forms.Label Friend WithEvents Label10 As System.Windows.Forms.Label Friend WithEvents Label11 As System.Windows.Forms.Label Friend WithEvents Label12 As System.Windows.Forms.Label Friend WithEvents Label14 As System.Windows.Forms.Label Friend WithEvents Label15 As System.Windows.Forms.Label Friend WithEvents Label16 As System.Windows.Forms.Label Friend WithEvents Label17 As System.Windows.Forms.Label Friend WithEvents Label18 As System.Windows.Forms.Label Friend WithEvents Label19 As System.Windows.Forms.Label Friend WithEvents Label20 As System.Windows.Forms.Label Friend WithEvents Label21 As System.Windows.Forms.Label Friend WithEvents Label7 As System.Windows.Forms.Label Friend WithEvents Label13 As System.Windows.Forms.Label Friend WithEvents Label22 As System.Windows.Forms.Label Friend WithEvents Label23 As System.Windows.Forms.Label Friend WithEvents Label24 As System.Windows.Forms.Label Friend WithEvents Label25 As System.Windows.Forms.Label Friend WithEvents Label26 As System.Windows.Forms.Label Friend WithEvents Button1 As System.Windows.Forms.Button Private Sub InitializeComponent() Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmPartnersucheInfo)) Me.Label1 = New System.Windows.Forms.Label() Me.PictureBox1 = New System.Windows.Forms.PictureBox() Me.Label2 = New System.Windows.Forms.Label() Me.Label3 = New System.Windows.Forms.Label() Me.Label4 = New System.Windows.Forms.Label() Me.Label5 = New System.Windows.Forms.Label() Me.Label6 = New System.Windows.Forms.Label() Me.Label8 = New System.Windows.Forms.Label() Me.Label9 = New System.Windows.Forms.Label() Me.Label10 = New System.Windows.Forms.Label() Me.Label11 = New System.Windows.Forms.Label() Me.Label12 = New System.Windows.Forms.Label() Me.Label14 = New System.Windows.Forms.Label() Me.Label15 = New System.Windows.Forms.Label() Me.Label16 = New System.Windows.Forms.Label() Me.Label17 = New System.Windows.Forms.Label() Me.Label18 = New System.Windows.Forms.Label() Me.Label19 = New System.Windows.Forms.Label() Me.Label20 = New System.Windows.Forms.Label() Me.Label21 = New System.Windows.Forms.Label() Me.Label7 = New System.Windows.Forms.Label() Me.Label13 = New System.Windows.Forms.Label() Me.Label22 = New System.Windows.Forms.Label() Me.Label23 = New System.Windows.Forms.Label() Me.Label24 = New System.Windows.Forms.Label() Me.Label25 = New System.Windows.Forms.Label() Me.Label26 = New System.Windows.Forms.Label() Me.Button1 = New System.Windows.Forms.Button() Me.SuspendLayout() ' 'Label1 ' Me.Label1.Location = New System.Drawing.Point(64, 16) Me.Label1.Name = "Label1" Me.Label1.Size = New System.Drawing.Size(552, 23) Me.Label1.TabIndex = 0 Me.Label1.Text = "Sie können Partner mit der Partnernummer, dem Kurznamen, einem Freitext oder eine" & _ "r VV-Nummer suchen." ' 'PictureBox1 ' Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Bitmap) Me.PictureBox1.Location = New System.Drawing.Point(8, 16) Me.PictureBox1.Name = "PictureBox1" Me.PictureBox1.Size = New System.Drawing.Size(48, 48) Me.PictureBox1.TabIndex = 4 Me.PictureBox1.TabStop = False ' 'Label2 ' Me.Label2.Location = New System.Drawing.Point(64, 40) Me.Label2.Name = "Label2" Me.Label2.Size = New System.Drawing.Size(552, 32) Me.Label2.TabIndex = 5 Me.Label2.Text = "Bei der Partnernummer-Suche ist die gesamte Partnernummer ohne Interpunktionen (m" & _ "it oder ohne führende Nullen) zu verwenden. Bei der VV-Suche sind Interpunktions" & _ "zeichen möglich." ' 'Label3 ' Me.Label3.Location = New System.Drawing.Point(64, 80) Me.Label3.Name = "Label3" Me.Label3.Size = New System.Drawing.Size(552, 40) Me.Label3.TabIndex = 6 Me.Label3.Text = "Bei der Kurznamen- und Freitext-Suche sind mehrere, durch Leerzeichen getrennte B" & _ "egriff als Suchkriterium möglich. Die Begriffe werden bei der Kurznamen-Suche im" & _ " Kurznamen, bei der Freitext-Suche in sämtlichen Partner-Informationen (Kurzbeze" & _ "ichnung, Inhaber-Adresse und Zustelladresse) gesucht." ' 'Label4 ' Me.Label4.Location = New System.Drawing.Point(64, 128) Me.Label4.Name = "Label4" Me.Label4.Size = New System.Drawing.Size(552, 32) Me.Label4.TabIndex = 7 Me.Label4.Text = "Verwenden Sie mehrere Suchbegriffe, werden in der Trefferliste nur Partner aufgef" & _ "ührt, bei denen sämtliche Suchbegriffe gefunden wurden, und zwar unabhängig von " & _ "der Reihenfolge der erfassten Suchbegriffe. " ' 'Label5 ' Me.Label5.Location = New System.Drawing.Point(64, 168) Me.Label5.Name = "Label5" Me.Label5.Size = New System.Drawing.Size(552, 32) Me.Label5.TabIndex = 8 Me.Label5.Text = "Bei einem Suchbegriff wird ein Treffer erzielt, wenn er irgendwo in einem Datensa" & _ "tz enthalten ist. EDOKA setzt für die Suche vor und nach dem Suchbegriff automat" & _ "isch sogenannte Wildcards (*)." ' 'Label6 ' Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label6.Location = New System.Drawing.Point(64, 208) Me.Label6.Name = "Label6" Me.Label6.Size = New System.Drawing.Size(552, 16) Me.Label6.TabIndex = 9 Me.Label6.Text = "Beispiel (Suche im Kurznamen):" ' 'Label8 ' Me.Label8.Location = New System.Drawing.Point(80, 240) Me.Label8.Name = "Label8" Me.Label8.Size = New System.Drawing.Size(552, 16) Me.Label8.TabIndex = 11 Me.Label8.Text = "Treffer:" ' 'Label9 ' Me.Label9.Location = New System.Drawing.Point(152, 240) Me.Label9.Name = "Label9" Me.Label9.Size = New System.Drawing.Size(552, 16) Me.Label9.TabIndex = 12 Me.Label9.Text = "Hans Egg, Mauren" ' 'Label10 ' Me.Label10.Location = New System.Drawing.Point(152, 256) Me.Label10.Name = "Label10" Me.Label10.Size = New System.Drawing.Size(552, 16) Me.Label10.TabIndex = 13 Me.Label10.Text = "Hanselmann & Egger, Kreuzlingen" ' 'Label11 ' Me.Label11.Location = New System.Drawing.Point(152, 272) Me.Label11.Name = "Label11" Me.Label11.Size = New System.Drawing.Size(552, 16) Me.Label11.TabIndex = 14 Me.Label11.Text = "Hans Maurer, Eggersriet" ' 'Label12 ' Me.Label12.Location = New System.Drawing.Point(64, 304) Me.Label12.Name = "Label12" Me.Label12.Size = New System.Drawing.Size(560, 32) Me.Label12.TabIndex = 15 Me.Label12.Text = "Sie können selber Wildcards verwenden. Verwenden Sie * für eine beliebige Anzahl " & _ "beliebiger Zeichen und _ für ein einzelnes, beliebiges Zeichen" ' 'Label14 ' Me.Label14.Location = New System.Drawing.Point(152, 392) Me.Label14.Name = "Label14" Me.Label14.Size = New System.Drawing.Size(552, 16) Me.Label14.TabIndex = 19 Me.Label14.Text = "Meier & Huber, Kreuzlingen" ' 'Label15 ' Me.Label15.Location = New System.Drawing.Point(152, 376) Me.Label15.Name = "Label15" Me.Label15.Size = New System.Drawing.Size(552, 16) Me.Label15.TabIndex = 18 Me.Label15.Text = "Franz Meyer, Weinfelden" ' 'Label16 ' Me.Label16.Location = New System.Drawing.Point(80, 360) Me.Label16.Name = "Label16" Me.Label16.Size = New System.Drawing.Size(552, 16) Me.Label16.TabIndex = 17 Me.Label16.Text = "Suchkriterium:" ' 'Label17 ' Me.Label17.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label17.Location = New System.Drawing.Point(64, 344) Me.Label17.Name = "Label17" Me.Label17.Size = New System.Drawing.Size(552, 16) Me.Label17.TabIndex = 16 Me.Label17.Text = "Beispiel (Suche im Kurznamen):" ' 'Label18 ' Me.Label18.Location = New System.Drawing.Point(80, 376) Me.Label18.Name = "Label18" Me.Label18.Size = New System.Drawing.Size(48, 16) Me.Label18.TabIndex = 21 Me.Label18.Text = "Treffer:" ' 'Label19 ' Me.Label19.Location = New System.Drawing.Point(152, 360) Me.Label19.Name = "Label19" Me.Label19.Size = New System.Drawing.Size(552, 16) Me.Label19.TabIndex = 22 Me.Label19.Text = "Me_er" ' 'Label20 ' Me.Label20.Location = New System.Drawing.Point(80, 224) Me.Label20.Name = "Label20" Me.Label20.Size = New System.Drawing.Size(552, 16) Me.Label20.TabIndex = 23 Me.Label20.Text = "Suchkriterium:" ' 'Label21 ' Me.Label21.Location = New System.Drawing.Point(152, 224) Me.Label21.Name = "Label21" Me.Label21.Size = New System.Drawing.Size(552, 16) Me.Label21.TabIndex = 24 Me.Label21.Text = "Hans Egg, Mauren" ' 'Label7 ' Me.Label7.Location = New System.Drawing.Point(152, 432) Me.Label7.Name = "Label7" Me.Label7.Size = New System.Drawing.Size(552, 16) Me.Label7.TabIndex = 30 Me.Label7.Text = "Me*er, Arbon" ' 'Label13 ' Me.Label13.Location = New System.Drawing.Point(152, 464) Me.Label13.Name = "Label13" Me.Label13.Size = New System.Drawing.Size(552, 16) Me.Label13.TabIndex = 28 Me.Label13.Text = "Meinrad Dornacher, Arbon" ' 'Label22 ' Me.Label22.Location = New System.Drawing.Point(152, 448) Me.Label22.Name = "Label22" Me.Label22.Size = New System.Drawing.Size(552, 16) Me.Label22.TabIndex = 27 Me.Label22.Text = "Rolf Meissner, Arbon" ' 'Label23 ' Me.Label23.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label23.Location = New System.Drawing.Point(64, 416) Me.Label23.Name = "Label23" Me.Label23.Size = New System.Drawing.Size(552, 16) Me.Label23.TabIndex = 25 Me.Label23.Text = "Beispiel (Suche im Kurznamen):" ' 'Label24 ' Me.Label24.Location = New System.Drawing.Point(80, 448) Me.Label24.Name = "Label24" Me.Label24.Size = New System.Drawing.Size(48, 16) Me.Label24.TabIndex = 29 Me.Label24.Text = "Treffer:" ' 'Label25 ' Me.Label25.Location = New System.Drawing.Point(80, 432) Me.Label25.Name = "Label25" Me.Label25.Size = New System.Drawing.Size(552, 16) Me.Label25.TabIndex = 26 Me.Label25.Text = "Suchkriterium:" ' 'Label26 ' Me.Label26.Location = New System.Drawing.Point(152, 480) Me.Label26.Name = "Label26" Me.Label26.Size = New System.Drawing.Size(552, 16) Me.Label26.TabIndex = 31 Me.Label26.Text = "Meier und Tischler, Arbon" ' 'Button1 ' Me.Button1.DialogResult = System.Windows.Forms.DialogResult.OK Me.Button1.Location = New System.Drawing.Point(272, 520) Me.Button1.Name = "Button1" Me.Button1.TabIndex = 0 Me.Button1.Text = "&Schliessen" ' 'frmPartnersucheInfo ' Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13) Me.ClientSize = New System.Drawing.Size(624, 549) Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.Button1, Me.Label26, Me.Label7, Me.Label13, Me.Label22, Me.Label23, Me.Label24, Me.Label25, Me.Label21, Me.Label20, Me.Label19, Me.Label14, Me.Label15, Me.Label17, Me.Label12, Me.Label11, Me.Label10, Me.Label9, Me.Label8, Me.Label6, Me.Label5, Me.Label4, Me.Label3, Me.Label2, Me.PictureBox1, Me.Label1, Me.Label18, Me.Label16}) Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog Me.Name = "frmPartnersucheInfo" Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen Me.Text = "Info zur Partnersuche" Me.TopMost = True Me.ResumeLayout(False) End Sub #End Region Private Sub frmPartnersucheInfo_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.Button1.Focus() End Sub Private Sub frmPartnersucheInfo_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown If e.KeyCode = Keys.Return Then Me.Close() End Sub End Class