Egalware/NKC
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Update demo VB x NKC

Browse Source
This commit is contained in:
Samuele E. Locatelli
2020-03-30 18:27:26 +02:00
parent b286d85fdd
commit fd386e95be
3 changed files with 239 additions and 142 deletions
Download Patch File Download Diff File Expand all files Collapse all files
RedisExample/Form1.Designer.vb
Generated
+79 -80
View File
@@ -33,9 +33,7 @@ Partial Class Form1
Me.btnWorkEnd = New System.Windows.Forms.Button()
Me.btnUnlStart = New System.Windows.Forms.Button()
Me.btnUnlEnd = New System.Windows.Forms.Button()
Me.btnNextBunk = New System.Windows.Forms.Button()
Me.txtCurrBunk = New System.Windows.Forms.TextBox()
Me.lblNextBunk = New System.Windows.Forms.Label()
Me.txtPrintStart = New System.Windows.Forms.TextBox()
Me.txtWorkStart = New System.Windows.Forms.TextBox()
Me.txtUnlStart = New System.Windows.Forms.TextBox()
@@ -52,9 +50,10 @@ Partial Class Form1
'
'btnReset
'
Me.btnReset.Location = New System.Drawing.Point(64, 398)
Me.btnReset.Location = New System.Drawing.Point(85, 490)
Me.btnReset.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.btnReset.Name = "btnReset"
Me.btnReset.Size = New System.Drawing.Size(75, 23)
Me.btnReset.Size = New System.Drawing.Size(100, 28)
Me.btnReset.TabIndex = 0
Me.btnReset.Text = "reset Date"
Me.btnReset.UseVisualStyleBackColor = True
@@ -62,26 +61,29 @@ Partial Class Form1
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(262, 403)
Me.Label1.Location = New System.Drawing.Point(349, 496)
Me.Label1.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(39, 13)
Me.Label1.Size = New System.Drawing.Size(51, 17)
Me.Label1.TabIndex = 1
Me.Label1.Text = "Label1"
'
'btnLoadBunk
'
Me.btnLoadBunk.Location = New System.Drawing.Point(64, 36)
Me.btnLoadBunk.Location = New System.Drawing.Point(85, 44)
Me.btnLoadBunk.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.btnLoadBunk.Name = "btnLoadBunk"
Me.btnLoadBunk.Size = New System.Drawing.Size(75, 23)
Me.btnLoadBunk.Size = New System.Drawing.Size(100, 28)
Me.btnLoadBunk.TabIndex = 2
Me.btnLoadBunk.Text = "Load BUNK"
Me.btnLoadBunk.Text = "Load data"
Me.btnLoadBunk.UseVisualStyleBackColor = True
'
'btnPrintStart
'
Me.btnPrintStart.Location = New System.Drawing.Point(64, 165)
Me.btnPrintStart.Location = New System.Drawing.Point(85, 203)
Me.btnPrintStart.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.btnPrintStart.Name = "btnPrintStart"
Me.btnPrintStart.Size = New System.Drawing.Size(75, 23)
Me.btnPrintStart.Size = New System.Drawing.Size(100, 28)
Me.btnPrintStart.TabIndex = 3
Me.btnPrintStart.Text = "Start Paint"
Me.btnPrintStart.UseVisualStyleBackColor = True
@@ -90,148 +92,144 @@ Partial Class Form1
'
Me.cmbSheet.DisplayMember = "SheetId"
Me.cmbSheet.FormattingEnabled = True
Me.cmbSheet.Location = New System.Drawing.Point(526, 39)
Me.cmbSheet.Location = New System.Drawing.Point(700, 54)
Me.cmbSheet.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.cmbSheet.Name = "cmbSheet"
Me.cmbSheet.Size = New System.Drawing.Size(121, 21)
Me.cmbSheet.Size = New System.Drawing.Size(160, 24)
Me.cmbSheet.TabIndex = 4
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(440, 46)
Me.Label2.Location = New System.Drawing.Point(572, 57)
Me.Label2.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(69, 13)
Me.Label2.Size = New System.Drawing.Size(92, 17)
Me.Label2.TabIndex = 5
Me.Label2.Text = "current sheet"
'
'btnPrintEnd
'
Me.btnPrintEnd.Location = New System.Drawing.Point(423, 165)
Me.btnPrintEnd.Location = New System.Drawing.Point(564, 203)
Me.btnPrintEnd.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.btnPrintEnd.Name = "btnPrintEnd"
Me.btnPrintEnd.Size = New System.Drawing.Size(75, 23)
Me.btnPrintEnd.Size = New System.Drawing.Size(100, 28)
Me.btnPrintEnd.TabIndex = 6
Me.btnPrintEnd.Text = "End Paint"
Me.btnPrintEnd.UseVisualStyleBackColor = True
'
'btnWorkStart
'
Me.btnWorkStart.Location = New System.Drawing.Point(64, 209)
Me.btnWorkStart.Location = New System.Drawing.Point(85, 257)
Me.btnWorkStart.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.btnWorkStart.Name = "btnWorkStart"
Me.btnWorkStart.Size = New System.Drawing.Size(75, 23)
Me.btnWorkStart.Size = New System.Drawing.Size(100, 28)
Me.btnWorkStart.TabIndex = 7
Me.btnWorkStart.Text = "Start Cut"
Me.btnWorkStart.UseVisualStyleBackColor = True
'
'btnWorkEnd
'
Me.btnWorkEnd.Location = New System.Drawing.Point(423, 209)
Me.btnWorkEnd.Location = New System.Drawing.Point(564, 257)
Me.btnWorkEnd.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.btnWorkEnd.Name = "btnWorkEnd"
Me.btnWorkEnd.Size = New System.Drawing.Size(75, 23)
Me.btnWorkEnd.Size = New System.Drawing.Size(100, 28)
Me.btnWorkEnd.TabIndex = 8
Me.btnWorkEnd.Text = "End Cut"
Me.btnWorkEnd.UseVisualStyleBackColor = True
'
'btnUnlStart
'
Me.btnUnlStart.Location = New System.Drawing.Point(64, 251)
Me.btnUnlStart.Location = New System.Drawing.Point(85, 309)
Me.btnUnlStart.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.btnUnlStart.Name = "btnUnlStart"
Me.btnUnlStart.Size = New System.Drawing.Size(75, 23)
Me.btnUnlStart.Size = New System.Drawing.Size(100, 28)
Me.btnUnlStart.TabIndex = 9
Me.btnUnlStart.Text = "Start Unload"
Me.btnUnlStart.UseVisualStyleBackColor = True
'
'btnUnlEnd
'
Me.btnUnlEnd.Location = New System.Drawing.Point(423, 251)
Me.btnUnlEnd.Location = New System.Drawing.Point(564, 309)
Me.btnUnlEnd.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.btnUnlEnd.Name = "btnUnlEnd"
Me.btnUnlEnd.Size = New System.Drawing.Size(75, 23)
Me.btnUnlEnd.Size = New System.Drawing.Size(100, 28)
Me.btnUnlEnd.TabIndex = 10
Me.btnUnlEnd.Text = "End Unload"
Me.btnUnlEnd.UseVisualStyleBackColor = True
'
'btnNextBunk
'
Me.btnNextBunk.Location = New System.Drawing.Point(64, 86)
Me.btnNextBunk.Name = "btnNextBunk"
Me.btnNextBunk.Size = New System.Drawing.Size(75, 23)
Me.btnNextBunk.TabIndex = 11
Me.btnNextBunk.Text = "Next BUNK"
Me.btnNextBunk.UseVisualStyleBackColor = True
Me.btnNextBunk.Visible = False
'
'txtCurrBunk
'
Me.txtCurrBunk.Location = New System.Drawing.Point(159, 37)
Me.txtCurrBunk.Location = New System.Drawing.Point(212, 46)
Me.txtCurrBunk.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.txtCurrBunk.Name = "txtCurrBunk"
Me.txtCurrBunk.Size = New System.Drawing.Size(100, 20)
Me.txtCurrBunk.Size = New System.Drawing.Size(132, 22)
Me.txtCurrBunk.TabIndex = 12
'
'lblNextBunk
'
Me.lblNextBunk.AutoSize = True
Me.lblNextBunk.Location = New System.Drawing.Point(159, 95)
Me.lblNextBunk.Name = "lblNextBunk"
Me.lblNextBunk.Size = New System.Drawing.Size(16, 13)
Me.lblNextBunk.TabIndex = 13
Me.lblNextBunk.Text = "---"
Me.lblNextBunk.Visible = False
'
'txtPrintStart
'
Me.txtPrintStart.Location = New System.Drawing.Point(159, 168)
Me.txtPrintStart.Location = New System.Drawing.Point(212, 207)
Me.txtPrintStart.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.txtPrintStart.Name = "txtPrintStart"
Me.txtPrintStart.Size = New System.Drawing.Size(142, 20)
Me.txtPrintStart.Size = New System.Drawing.Size(188, 22)
Me.txtPrintStart.TabIndex = 14
'
'txtWorkStart
'
Me.txtWorkStart.Location = New System.Drawing.Point(159, 211)
Me.txtWorkStart.Location = New System.Drawing.Point(212, 260)
Me.txtWorkStart.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.txtWorkStart.Name = "txtWorkStart"
Me.txtWorkStart.Size = New System.Drawing.Size(142, 20)
Me.txtWorkStart.Size = New System.Drawing.Size(188, 22)
Me.txtWorkStart.TabIndex = 15
'
'txtUnlStart
'
Me.txtUnlStart.Location = New System.Drawing.Point(159, 253)
Me.txtUnlStart.Location = New System.Drawing.Point(212, 311)
Me.txtUnlStart.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.txtUnlStart.Name = "txtUnlStart"
Me.txtUnlStart.Size = New System.Drawing.Size(142, 20)
Me.txtUnlStart.Size = New System.Drawing.Size(188, 22)
Me.txtUnlStart.TabIndex = 16
'
'txtUnlEnd
'
Me.txtUnlEnd.Location = New System.Drawing.Point(526, 252)
Me.txtUnlEnd.Location = New System.Drawing.Point(701, 310)
Me.txtUnlEnd.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.txtUnlEnd.Name = "txtUnlEnd"
Me.txtUnlEnd.Size = New System.Drawing.Size(142, 20)
Me.txtUnlEnd.Size = New System.Drawing.Size(188, 22)
Me.txtUnlEnd.TabIndex = 19
'
'txtWorkEnd
'
Me.txtWorkEnd.Location = New System.Drawing.Point(526, 210)
Me.txtWorkEnd.Location = New System.Drawing.Point(701, 258)
Me.txtWorkEnd.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.txtWorkEnd.Name = "txtWorkEnd"
Me.txtWorkEnd.Size = New System.Drawing.Size(142, 20)
Me.txtWorkEnd.Size = New System.Drawing.Size(188, 22)
Me.txtWorkEnd.TabIndex = 18
'
'txtPrintEnd
'
Me.txtPrintEnd.Location = New System.Drawing.Point(526, 167)
Me.txtPrintEnd.Location = New System.Drawing.Point(701, 206)
Me.txtPrintEnd.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.txtPrintEnd.Name = "txtPrintEnd"
Me.txtPrintEnd.Size = New System.Drawing.Size(142, 20)
Me.txtPrintEnd.Size = New System.Drawing.Size(188, 22)
Me.txtPrintEnd.TabIndex = 17
'
'btnSaveAll
'
Me.btnSaveAll.Location = New System.Drawing.Point(58, 307)
Me.btnSaveAll.Location = New System.Drawing.Point(77, 378)
Me.btnSaveAll.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.btnSaveAll.Name = "btnSaveAll"
Me.btnSaveAll.Size = New System.Drawing.Size(610, 23)
Me.btnSaveAll.Size = New System.Drawing.Size(813, 28)
Me.btnSaveAll.TabIndex = 20
Me.btnSaveAll.Text = "Save All Data"
Me.btnSaveAll.UseVisualStyleBackColor = True
'
'btnPing
'
Me.btnPing.Location = New System.Drawing.Point(64, 6)
Me.btnPing.Location = New System.Drawing.Point(85, 7)
Me.btnPing.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.btnPing.Name = "btnPing"
Me.btnPing.Size = New System.Drawing.Size(75, 23)
Me.btnPing.Size = New System.Drawing.Size(100, 28)
Me.btnPing.TabIndex = 21
Me.btnPing.Text = "Test Ping"
Me.btnPing.UseVisualStyleBackColor = True
@@ -239,17 +237,19 @@ Partial Class Form1
'lblPing
'
Me.lblPing.AutoSize = True
Me.lblPing.Location = New System.Drawing.Point(159, 11)
Me.lblPing.Location = New System.Drawing.Point(212, 14)
Me.lblPing.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.lblPing.Name = "lblPing"
Me.lblPing.Size = New System.Drawing.Size(45, 13)
Me.lblPing.Size = New System.Drawing.Size(59, 17)
Me.lblPing.TabIndex = 22
Me.lblPing.Text = "ping???"
'
'btnAlive
'
Me.btnAlive.Location = New System.Drawing.Point(423, 6)
Me.btnAlive.Location = New System.Drawing.Point(564, 7)
Me.btnAlive.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.btnAlive.Name = "btnAlive"
Me.btnAlive.Size = New System.Drawing.Size(75, 23)
Me.btnAlive.Size = New System.Drawing.Size(100, 28)
Me.btnAlive.TabIndex = 23
Me.btnAlive.Text = "Test Alive"
Me.btnAlive.UseVisualStyleBackColor = True
@@ -257,26 +257,28 @@ Partial Class Form1
'lblAlive
'
Me.lblAlive.AutoSize = True
Me.lblAlive.Location = New System.Drawing.Point(523, 11)
Me.lblAlive.Location = New System.Drawing.Point(697, 14)
Me.lblAlive.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.lblAlive.Name = "lblAlive"
Me.lblAlive.Size = New System.Drawing.Size(47, 13)
Me.lblAlive.Size = New System.Drawing.Size(61, 17)
Me.lblAlive.TabIndex = 24
Me.lblAlive.Text = "alive???"
'
'btnPersist
'
Me.btnPersist.Location = New System.Drawing.Point(423, 86)
Me.btnPersist.Location = New System.Drawing.Point(564, 106)
Me.btnPersist.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.btnPersist.Name = "btnPersist"
Me.btnPersist.Size = New System.Drawing.Size(75, 23)
Me.btnPersist.Size = New System.Drawing.Size(100, 28)
Me.btnPersist.TabIndex = 25
Me.btnPersist.Text = "Save Local"
Me.btnPersist.UseVisualStyleBackColor = True
'
'Form1
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 16.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(800, 450)
Me.ClientSize = New System.Drawing.Size(1067, 554)
Me.Controls.Add(Me.btnPersist)
Me.Controls.Add(Me.lblAlive)
Me.Controls.Add(Me.btnAlive)
@@ -289,9 +291,7 @@ Partial Class Form1
Me.Controls.Add(Me.txtUnlStart)
Me.Controls.Add(Me.txtWorkStart)
Me.Controls.Add(Me.txtPrintStart)
Me.Controls.Add(Me.lblNextBunk)
Me.Controls.Add(Me.txtCurrBunk)
Me.Controls.Add(Me.btnNextBunk)
Me.Controls.Add(Me.btnUnlEnd)
Me.Controls.Add(Me.btnUnlStart)
Me.Controls.Add(Me.btnWorkEnd)
@@ -303,6 +303,7 @@ Partial Class Form1
Me.Controls.Add(Me.btnLoadBunk)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.btnReset)
Me.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.Name = "Form1"
Me.Text = "Form1"
Me.ResumeLayout(False)
@@ -321,11 +322,9 @@ Partial Class Form1
Friend WithEvents btnWorkEnd As Button
Friend WithEvents btnUnlStart As Button
Friend WithEvents btnUnlEnd As Button
Friend WithEvents btnNextBunk As Button
Friend WithEvents txtCurrBunk As TextBox
Friend WithEvents lblNextBunk As Label
Friend WithEvents txtPrintStart As TextBox
Friend WithEvents txtWorkStart As TextBox
Friend WithEvents txtCurrBunk As TextBox
Friend WithEvents txtPrintStart As TextBox
Friend WithEvents txtWorkStart As TextBox
Friend WithEvents txtUnlStart As TextBox
Friend WithEvents txtUnlEnd As TextBox
Friend WithEvents txtWorkEnd As TextBox