Aggiunto dummy project

2019-11-11 13:55:57 +01:00
parent be9e64f90e
commit 83dfb79888
13 changed files with 682 additions and 12 deletions
@@ -83,20 +83,26 @@ Public Class Form1
    'Dim getFirstBunk = ComLib.prodGetFirstBunk()
    ' ho un bunk coi suoi pannelli...

-    Label1.Text = $"Trovato il bunk {currentBunk.BunkId} costituito da {currentBunk.SheetList.Count} pannelli"
+    If (currentBunk Is Nothing) Then
+      ' non ho un current bunk
+      Label1.Text = "non ho trovato nessun bunk corrente"
+    Else

-    ' salvo bunk corrente
-    txtCurrBunk.Text = currentBunk.BunkId
+      Label1.Text = $"Trovato il bunk {currentBunk.BunkId} costituito da {currentBunk.SheetList.Count} pannelli"

-    ' visualizzo btn nextBunk
-    btnNextBunk.Visible = True
-    lblNextBunk.Visible = True
-    lblNextBunk.Text = "..."
+      ' salvo bunk corrente
+      txtCurrBunk.Text = currentBunk.BunkId

-    ' popolo il selettore dei fogli...
-    cmbSheet.DataSource = currentBunk.SheetList
+      ' visualizzo btn nextBunk
+      btnNextBunk.Visible = True
+      lblNextBunk.Visible = True
+      lblNextBunk.Text = "..."

-    updateDataButtons()
+      ' popolo il selettore dei fogli...
+      cmbSheet.DataSource = currentBunk.SheetList
+
+      updateDataButtons()
+    End If

  End Sub