AppStd/Modules
8
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

ZooFlow/Test: work on indexing

Browse Source
This commit is contained in:
Jonathan Jenne 2021-07-30 12:58:47 +02:00
parent a95593d337
commit 59b7408544
2 changed files with 26 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
GUIs.ZooFlow/frmtest.Designer.vb generated
View File

@ -41,8 +41,9 @@ Partial Class frmtest
Me.Label1 = New System.Windows.Forms.Label()
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.ListBox1 = New System.Windows.Forms.ListBox()
Me.Button1 = New System.Windows.Forms.Button()
Me.txtAttributeName = New System.Windows.Forms.TextBox()
Me.Button2 = New System.Windows.Forms.Button()
Me.txtAttibuteValue = New System.Windows.Forms.TextBox()
Me.GroupBox1.SuspendLayout()
Me.SuspendLayout()
'
@ -210,28 +211,36 @@ Partial Class frmtest
Me.ListBox1.Size = New System.Drawing.Size(200, 329)
Me.ListBox1.TabIndex = 23
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(205, 142)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(187, 23)
Me.Button1.TabIndex = 17
Me.Button1.Text = "GetAttribute"
Me.Button1.UseVisualStyleBackColor = True
'
'txtAttributeName
'
Me.txtAttributeName.Location = New System.Drawing.Point(398, 144)
Me.txtAttributeName.Location = New System.Drawing.Point(205, 236)
Me.txtAttributeName.Name = "txtAttributeName"
Me.txtAttributeName.Size = New System.Drawing.Size(165, 20)
Me.txtAttributeName.Size = New System.Drawing.Size(115, 20)
Me.txtAttributeName.TabIndex = 24
Me.txtAttributeName.Text = "InvoiceNr"
'
'Button2
'
Me.Button2.Location = New System.Drawing.Point(12, 234)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(187, 23)
Me.Button2.TabIndex = 17
Me.Button2.Text = "GetAttribute"
Me.Button2.UseVisualStyleBackColor = True
'
'txtAttibuteValue
'
Me.txtAttibuteValue.Location = New System.Drawing.Point(326, 236)
Me.txtAttibuteValue.Name = "txtAttibuteValue"
Me.txtAttibuteValue.Size = New System.Drawing.Size(100, 20)
Me.txtAttibuteValue.TabIndex = 25
'
'frmtest
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(865, 450)
Me.Controls.Add(Me.txtAttibuteValue)
Me.Controls.Add(Me.txtAttributeName)
Me.Controls.Add(Me.ListBox1)
Me.Controls.Add(Me.GroupBox1)
@ -241,7 +250,7 @@ Partial Class frmtest
Me.Controls.Add(Me.Label5)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.Button2)
Me.Controls.Add(Me.Button8)
Me.Controls.Add(Me.Button6)
Me.Controls.Add(Me.Button7)
@ -278,6 +287,7 @@ Partial Class frmtest
Friend WithEvents Label1 As Label
Friend WithEvents GroupBox1 As GroupBox
Friend WithEvents ListBox1 As ListBox
Friend WithEvents Button1 As Button
Friend WithEvents txtAttributeName As TextBox
Friend WithEvents Button2 As Button
Friend WithEvents txtAttibuteValue As TextBox
End Class

3
GUIs.ZooFlow/frmtest.vb
View File

@ -115,7 +115,7 @@ Public Class frmtest
cmbObjectStoreType.SelectedIndex = 0
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button2.Click
Try
Dim oValue = My.Application.Service.Client.GetVariableValue(txtIDB_OBJ_ID.Text, txtAttributeName.Text)
@ -123,6 +123,7 @@ Public Class frmtest
ListBox1.Items.Add("Value is nothing")
Else
ListBox1.Items.Add(oValue.Value)
txtAttibuteValue.Text = oValue.Value
End If
Catch ex As Exception