Ik begrijp je probleem al iets beter. Ik weet niet hoe jij dit oorspronkelijk hebt geschreven, maar dit is bijvoorbeeld de code uit je Lichtkrant procedure en de TextChanged Eventhandler. Het is dit soort code dat reflector uit de assembly kan halen. Alleen vrees ik dat je "VB" code hebt geschreven met option strict off en gebruik makend van late binding en alle VB-compatibiliteits mogelijkheden. De code uit reflector zal er voor jou dan inderdaad vreemd uitzien, gewoon omdat je niet beseft dat de compiler op de achtergrond allerlei conversies moet doen (die de programmeur zelf moet doen met option strict off). Verder worden alle calls die je doet naar functies in de Microsoft VisualBasic namespace omgezet naar dit soort code door de compiler. Beter is dus option strict on te zetten (geen late binding meer) waardoor de programmeur alle narrowing conversies zelf moet doen én alle conversies naar andere types zelf expliciet moet doen. En geen gebruik te maken van de om compatibiliteitsredenen voorziene Microsoft VisualBasic namespace.
Code:
Private Sub lichtkrant()
Begin Sub
Dim text1 As String
text1 = MyBase.Text.Substring(0, 1)
MyBase.Text = _
String.Concat(MyBase.Text.Substring(1, (MyBase.Text.Length - 1)),_
text1)
End Sub
Private Sub txtTaal_TextChanged(ByVal sender As Object, _
ByVal e As EventArgs)
Begin Sub
If (Information.IsNumeric(Me.txtTaal.Text) And _
((StringType.StrCmp(Me.txtTaal.Text, "", 0) = 0) = 0)) Then
Me.ControleTaal(LongType.FromString(Me.txtTaal.Text), _
Convert.ToInt64(Me.nudTaal.Value))
Me.EnableDisableControls
Else
MessageBox.Show("Geef een getalwaarde in")
End If
End Sub
Samengevat: blijkbaar kan je de code uit reflector halen, maar ben je er niks mee.
Best opnieuw maken dus en de code die je uit reflector haalt gebruiken voor consultatie.
<edit>
typo's en:
Verder worden alle calls die je doet naar functies in de Microsoft VisualBasic namespace omgezet naar dit soort code door de compiler
Dit klopt niet.
</edit>
Bookmarks