Jow folks,
Ik heb een vraag over een upgrade van VB6 naar VB.NET.
Deze code is geschreven in VB6, maar kan niet meer gebruikt worden in VB.NET.
Iemand een idee hoe ik deze code moet updaten naar VB.NET ? Kan er nergens informatie over vinden...
Alvast bedankt voor een reactie ...
Greetz
Ik heb een vraag over een upgrade van VB6 naar VB.NET.
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
| 'If DIGetest = True Then
'For i = 0 To 7
'If imgDIOK(i).Visible = True Or imgDINOK(i).Visible = True Or lblDIReserve(i).Visible = True Then
'Fouttekst = "Problemen met opslaan van resultaten van de digitale ingangen."
'adoTestgegevens.AddNew()
'adoTestgegevens!Projectnr = txtProjectnr.Text
'adoTestgegevens!Testnr = txtTestNr.Text
'adoTestgegevens!Kastnr = Kastnr
'If imgDINOK(i).Visible = True Then adoTestgegevens!Verantwoordelijke = cboDIFout(i).ItemData(cboDIFout(i).ListIndex)
'adoTestgegevens!Tester = cboTester.ItemData(cboTester.ListIndex)
'adoTestgegevens!Datum = DTTestdatum.Value
'adoTestgegevens!IO = "DI" & DIbytenr & "." & i
'If imgDIOK(i).Visible = True Then adoTestgegevens!Status = "OK"
'If imgDINOK(i).Visible = True Then adoTestgegevens!Status = "NOK"
'If lblDIReserve(i).Visible = True Then adoTestgegevens!Status = "RESERVE"
'adoTestgegevens!Opmerking = txtDIOpmerking(i).Text
'adoTestgegevens!Tijdstip = Now
'adoTestgegevens!DatCrea = Now
'adoTestgegevens!UserCrea = UserName
'adoTestgegevens.Update()
'End If |
Deze code is geschreven in VB6, maar kan niet meer gebruikt worden in VB.NET.
Iemand een idee hoe ik deze code moet updaten naar VB.NET ? Kan er nergens informatie over vinden...
Alvast bedankt voor een reactie ...
Greetz