Aggiunto demo VB x lettura rest da nuget

This commit is contained in:
Samuele Locatelli
2024-01-17 18:33:40 +01:00
parent 627b29f06d
commit 7181be9cb6
6 changed files with 290 additions and 3 deletions
+58 -1
View File
@@ -22,10 +22,67 @@ Partial Class Form1
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
components = New System.ComponentModel.Container()
Me.Button1 = New System.Windows.Forms.Button()
Me.lblServTest = New System.Windows.Forms.Label()
Me.Button2 = New System.Windows.Forms.Button()
Me.txtOut = New System.Windows.Forms.TextBox()
Me.SuspendLayout()
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(12, 12)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(75, 23)
Me.Button1.TabIndex = 0
Me.Button1.Text = "Server Test"
Me.Button1.UseVisualStyleBackColor = True
'
'lblServTest
'
Me.lblServTest.AutoSize = True
Me.lblServTest.Location = New System.Drawing.Point(117, 17)
Me.lblServTest.Name = "lblServTest"
Me.lblServTest.Size = New System.Drawing.Size(16, 13)
Me.lblServTest.TabIndex = 1
Me.lblServTest.Text = "..."
'
'Button2
'
Me.Button2.Location = New System.Drawing.Point(12, 51)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(75, 23)
Me.Button2.TabIndex = 2
Me.Button2.Text = "Get Mater."
Me.Button2.UseVisualStyleBackColor = True
'
'txtOut
'
Me.txtOut.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txtOut.Location = New System.Drawing.Point(103, 53)
Me.txtOut.Multiline = True
Me.txtOut.Name = "txtOut"
Me.txtOut.Size = New System.Drawing.Size(685, 184)
Me.txtOut.TabIndex = 3
'
'Form1
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(800, 450)
Me.Controls.Add(Me.txtOut)
Me.Controls.Add(Me.Button2)
Me.Controls.Add(Me.lblServTest)
Me.Controls.Add(Me.Button1)
Me.Name = "Form1"
Me.Text = "Form1"
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents Button1 As Button
Friend WithEvents lblServTest As Label
Friend WithEvents Button2 As Button
Friend WithEvents txtOut As TextBox
End Class