Hallo
Ich habe jedoch ein kleines Problem mit einem Code-Fragment. Ich spamme mal
hier ins Mail den ganzen Block rein.
Konvertiert zu C# habe ich dann keine korrekten events deklarationen in der
Klasse:
public event ClickedNext;
public event ClickedPrevious;
public event Finished;
public event Cancelled;
Patrik
>>>>>>>>> CODE
Imports System.ComponentModel
Imports System.Drawing
Imports System.Web.UI.WebControls
Imports System.Web.UI
<Assembly: TagPrefix("codebook.aspnet.vb.Controls", "cb")>
Namespace codebook.aspnet.vb.Controls
<DefaultProperty("CurrentStep"), _
ToolboxData("<{0}:Wizard runat=server></{0}:Wizard>"), _
ParseChildren(False), _
Designer(GetType(WizardDesigner), _
GetType(System.ComponentModel.Design.IDesigner))> _
Public Class Wizard
Inherits System.Web.UI.WebControls.WebControl
Implements IPostBackEventHandler, INamingContainer
Private objContainedObjects As New Hashtable
Private blnIsDesignView As Boolean = False
Private WithEvents objOKButton As New Button
Private WithEvents objNextButton As New Button
Private WithEvents objPrevButton As New Button
Private WithEvents objCancelButton As New Button
Private objWizardPanel As New Panel
Private objButtonPanel As New Panel
Public Event ClickedNext(ByVal sender As Object, ByVal e As EventArgs)
Public Event ClickedPrevious(ByVal sender As Object, ByVal e As
EventArgs)
Public Event Finished(ByVal sender As Object, ByVal e As EventArgs)
Public Event Cancelled(ByVal sender As Object, ByVal e As EventArgs)
<Bindable(True), Category("Appearance")> _
Public ReadOnly Property ButtonOk() As Button
Get
Return Me.objOKButton
End Get
End Property
<Bindable(True), Category("Appearance")> _
Public ReadOnly Property ButtonNext() As Button
Get
Return Me.objNextButton
End Get
End Property
<Bindable(True), Category("Appearance")> _
Public ReadOnly Property ButtonPrevious() As Button
Get
Return Me.objPrevButton
End Get
End Property
<Bindable(True), Category("Appearance")> _
Public ReadOnly Property ButtonCancel() As Button
Get
Return Me.objCancelButton
End Get
End Property
<Bindable(True), Category("Appearance")> _
Public ReadOnly Property WizardPanel() As Panel
Get
Return Me.objWizardPanel
End Get
End Property
<Bindable(True), Category("Appearance")> _
Public ReadOnly Property ButtonPanel() As Panel
Get
Return Me.objButtonPanel
End Get
End Property
<Bindable(True), Category("Data"), DefaultValue(1)> _
Public Property CurrentStep() As Int32
Get
If Not IsNothing(ViewState.Item("currentStep")) Then
Return CInt(ViewState.Item("currentStep"))
Else
Return 0
End If
End Get
Set(ByVal Value As Int32)
ViewState.Item("currentStep") = Value
End Set
End Property
<Bindable(True), Category("Appearance"), DefaultValue(True)> _
Public Property ShowButtons() As Boolean
Get
If Not IsNothing(ViewState.Item("showButtons")) Then
Return CBool(ViewState.Item("showButtons"))
Else
Return True
End If
End Get
Set(ByVal Value As Boolean)
ViewState.Item("showButtons") = Value
End Set
End Property
Private Sub objOkButton_Click( _
ByVal sender As Object, ByVal e As EventArgs) _
Handles objOKButton.Click
RaiseEvent Finished(Me, EventArgs.Empty)
End Sub
Private Sub objCancelButton_Click( _
ByVal sender As Object, ByVal e As EventArgs) _
Handles objCancelButton.Click
RaiseEvent Cancelled(Me, EventArgs.Empty)
End Sub
Protected Sub OnClickedNext( _
ByVal sender As Object, ByVal e As EventArgs) _
Handles objNextButton.Click
CurrentStep += 1
RaiseEvent ClickedNext(Me, EventArgs.Empty)
End Sub
Protected Sub OnClickedPrevious( _
ByVal sender As Object, ByVal e As EventArgs) _
Handles objPrevButton.Click
CurrentStep -= 1
RaiseEvent ClickedPrevious(Me, EventArgs.Empty)
End Sub
Protected Overridable Sub RaisePostBackEvent( _
ByVal eventArgument As String) _
Implements IPostBackEventHandler.RaisePostBackEvent
End Sub
Protected Shadows Sub OnInit( _
ByVal sender As Object, ByVal e As EventArgs) _
Handles MyBase.Init
Me.objPrevButton.Text = "<< Zurück"
Me.objNextButton.Text = "Weiter >>"
Me.objOKButton.Text = "Speichern"
Me.objCancelButton.Text = "Abbrechen"
Me.objButtonPanel.BackColor = ColorTranslator.FromHtml("#cccccc")
Me.objButtonPanel.BorderWidth = Unit.Pixel(1)
Me.objButtonPanel.BorderColor = ColorTranslator.FromHtml("#999999")
Me.objButtonPanel.HorizontalAlign = HorizontalAlign.Center
Me.objWizardPanel.BackColor = ColorTranslator.FromHtml("#ededed")
Me.objWizardPanel.BorderWidth = Unit.Pixel(1)
Me.objWizardPanel.BorderColor = ColorTranslator.FromHtml("#999999")
End Sub
Protected Overrides Sub AddParsedSubObject(ByVal obj As Object)
If TypeOf (obj) Is WizardContainer Then
Dim objStep As WizardContainer = CType(obj, WizardContainer)
Dim strStep As String = objStep.Step.ToString()
If Not IsNothing(objContainedObjects.Item(strStep)) Then
objContainedObjects.Remove(strStep)
End If
objContainedObjects.Add(strStep, objStep)
objStep.Visible = False
Me.objWizardPanel.Controls.Add(objStep)
End If
End Sub
Public Sub CreateChilds()
Me.blnIsDesignView = True
Me.CreateChildControls()
End Sub
Protected Overrides Sub CreateChildControls()
Me.objButtonPanel.Controls.Add(objPrevButton)
Me.objButtonPanel.Controls.Add(objCancelButton)
Me.objButtonPanel.Controls.Add(objOKButton)
Me.objButtonPanel.Controls.Add(objNextButton)
If Not ShowButtons Then
Me.objButtonPanel.Visible = False
End If
Me.Controls.Add(objWizardPanel)
Me.Controls.Add(objButtonPanel)
Dim i As Int32 = 0
For i = 0 To objWizardPanel.Controls.Count - 1
objWizardPanel.Controls.Item(i).Visible = False
Next
If Me.blnIsDesignView Then
ToggleVisibility()
End If
End Sub
Private Sub ToggleVisibility()
If Not IsNothing( _
Me.objContainedObjects.Item(CurrentStep.ToString())) Then
CType(Me.objContainedObjects.Item( _
CurrentStep.ToString()), _
WizardContainer).Visible = True
End If
If CurrentStep < Me.objWizardPanel.Controls.Count Then
Me.objOKButton.Visible = False
Me.objNextButton.Enabled = True
Me.objCancelButton.Visible = True
Else
Me.objNextButton.Enabled = False
Me.objCancelButton.Visible = False
Me.objOKButton.Visible = True
End If
Me.objPrevButton.Enabled = CurrentStep > 1
End Sub
Protected Shadows Sub OnPreRender( _
ByVal sender As Object, ByVal e As EventArgs) _
Handles MyBase.PreRender
ToggleVisibility()
End Sub
End Class
End Namespace
<<<<<<<<<<<<<<
> -----Ursprüngliche Nachricht-----
> Von: Christoph Wille [mailto:[EMAIL PROTECTED]
> Gesendet: Sonntag, 13. November 2005 21:12
> An: [email protected]
> Betreff: Re: [CSharp.net] Brauche vb net zu c# übersetzungshilfe
>
> http://chrison.net/CodeConverterForNET20OnlineAsWellAsOffline.aspx
>
> Und damit sollte die Sache aber gegessen sein...
>
> Chris
>
>
>
> At 08:20 PM 11/13/2005, you wrote:
> >Jetzt kann die Sache alles:
> >
> >http://developer.sharpdevelop.net/codeconvert.net/
> >
> >Und wer will kann den Web Service benutzen.
> >
> >Chris
> >
> >At 07:00 PM 11/13/2005, you wrote:
> >>Ich habe am Konverter ein wenig weitergebastelt:
> >>
> >>http://developer.sharpdevelop.net/codeconvert.net/Convert.aspx
> >>
> >>Jetzt funkt auch VB.NET nach C#. Es fehlt noch Boo, der Web
> Service,
> >>sowie die Dokumentation.
> >>
> >>Chris
> >>
> >>At 03:29 PM 11/11/2005, you wrote:
> >>>Kann mir bitte jemand folgende Zeile auf C# übersetzen?
> >>>
> >>> Private WithEvents objNextButton As New Button
> >>>
> >>>Brauchen wir das WithEvents in C# schlicht und ergreifend
> nicht? Ist
> >>>das hier richtig?
> >>>
> >>> private Button objNextButton;
> >>>
> >>>Vielen Dank.
> >>>
> >>>Ich steh ziemlich auf dem Schlauch, hab ein Beispiel
> gefunden was ich
> >>>nun implementieren will. Das Problem ist halt, dass es um Custom
> >>>Controls geht und da werden Controls per Code aufgebaut.
> Das Thema an
> >>>sich ist neu für mich, deshalb fällt mir das Übersetzen so schwer.
> >>>
> >>>Patrik
>
>
> _______________________________________________
> CSharp.net Mailingliste, Postings senden an:
> [email protected]
> An-/Abmeldung und Suchfunktion unter:
> http://www.glengamoi.com/mailman/listinfo/csharp.net
>
_______________________________________________
CSharp.net Mailingliste, Postings senden an:
[email protected]
An-/Abmeldung und Suchfunktion unter:
http://www.glengamoi.com/mailman/listinfo/csharp.net
