edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2021-12-06 11:53:02 +01:00
parent 273a0c5b29
commit 9b001e5803
1 changed files with 11 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
SDL/frmMain.vb
View File

@@ -517,19 +517,19 @@ Public Class frmMain
Private Sub btnTest_Click(sender As Object, e As EventArgs) Handles btnTest.Click Private Sub btnTest_Click(sender As Object, e As EventArgs) Handles btnTest.Click
'Form1.Show() 'Form1.Show()
' Dim l As New VERAG_PROG_ALLGEMEIN.cSDL_LKW.GET_LIST_WEB(401462) ' Dim l As New VERAG_PROG_ALLGEMEIN.cSDL_LKW.GET_LIST_WEB(401462)
Dim sdl As New VERAG_PROG_ALLGEMEIN.cSDL 'Dim sdl As New VERAG_PROG_ALLGEMEIN.cSDL
Dim list = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB(401940) 'Dim list = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB(401940)
For Each l In list 'For Each l In list
l.KfzKennzeichen ' l.KfzKennzeichen
Next 'Next
MsgBox(list.Count) 'MsgBox(list.Count)
Dim list2 = VERAG_PROG_ALLGEMEIN.cSDL_LKW.GET_LIST_WEB(401940) 'Dim list2 = VERAG_PROG_ALLGEMEIN.cSDL_LKW.GET_LIST_WEB(401940)
MsgBox(list2.Count) 'MsgBox(list2.Count)
Dim list3 = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB_LKW(401940, list2(0).KfzKennzeichen) 'Dim list3 = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB_LKW(401940, list2(0).KfzKennzeichen)
MsgBox(list3.Count) 'MsgBox(list3.Count)
MsgBox(list3(0).KartenNr) 'MsgBox(list3(0).KartenNr)
End Sub End Sub