Fejl kan ikke finde C.Value i System.Windows.Forms.Control
Jeg har denne kode som er lavet i Visual Basic 6. Når jeg konvertere den og åbner den i Visual Studio 2008 kommer den med en fejl fordi at den ikke kan finde C.Value i System.Windows.Forms.Control. Hvad skal jeg gøre. På forhånd takPublic Sub SaveIni()
Dim i As Short
Dim C As System.Windows.Forms.Control
WriteIniString("FileId", "therm")
On Error Resume Next
For Each C In frm_thermometer.Controls
WriteIniString("frm_thermometer." & C.Name & ".caption", C.Text)
'UPGRADE_WARNING: TypeOf has a new behavior. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="9B7D5ADD-D8FE-4819-A36C-6DEDAF088CC7"'
If TypeOf C Is System.Windows.Forms.CheckBox Or TypeOf C Is System.Windows.Forms.RadioButton Then
'UPGRADE_WARNING: Couldn't resolve default property of object C.Value. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
If C.Value Then
WriteIniString("frm_thermometer." & C.Name & ".value", CStr(1))
Else
WriteIniString("frm_thermometer." & C.Name & ".value", CStr(0))
End If
Else
'UPGRADE_WARNING: Couldn't resolve default property of object C.Value. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
WriteIniString("frm_thermometer." & C.Name & ".value", C.Value)
End If
Next C
On Error GoTo 0
End Sub
End Module
