🚀 go-pugleaf

Je kan .NET Control gebruiken in  een ASP pagina.

Q.

"chxant" <chxant@nospam.yahoo.com> wrote in message
news:c3rcd0$cnk$1@reader08.wxs.nl...
> Hallo,
>
> Het is zowat de eerste keer dat ik dit probeer. Zonder al te veel succes
...
> Ik heb een user control gemaakt en zou die willen gebruiken in een gewone
> form �n in een ASP.NET form.
> De user control tekent wat figuren en tekst gebruik makend van
> System.Drawing.Graphics.
> Als ik niet werk met een user control en alles in de code van de form
steek
> werkt het wel, maar dan is het niet bruikbaar in mijn ASP pagina.
> Dit is de code (heb niet relevante zaken weggelaten):
>
> Public Class uControlTest
>     Inherits System.Windows.Forms.UserControl
>
> #Region " Windows Form Designer generated code "
>
> #End Region
>
>     Private Sub uControlTest_Load(ByVal sender As System.Object, ByVal
> e As System.EventArgs) Handles MyBase.Load
>     End Sub
>
>     Public Sub imgDirect(ByVal percentage As Integer, ByVal legend As
> Array)
>         Dim g As System.Drawing.Graphics
>         g = Me.CreateGraphics
>         Dim brush As System.drawing.SolidBrush
>         brush = New System.Drawing.SolidBrush(Color.Red)
>         Dim test As Single
>         test = 360 * percentage / 100
>         Dim hkn() As Single = {0, test, 360}
>         'clearing and repaintingthe form background with IVORY color
>         g.Clear(Color.Ivory)
>         Dim font As System.Drawing.Font
>         font = New Font("Times New Roman", 15, FontStyle.Bold)
>         Dim i As Integer
>         For i = 0 To hkn.GetUpperBound(0) - 1
>             g.DrawString(legende(i), font, brush, 10, 10 + 10 + i *
> 20)
>         Next
>     End Sub
> End Class
>
> Op mijn form heb ik dan deze control "gesleept". En probeer ik de functie
op
> te roepen op deze manier:
>         Dim myimg As New uControlTest
>         Dim StringArray(1) As String
>         StringArray(0) = "test1"
>         StringArray(1) = "test2"
>         myimg.imgDirect(20, StringArray)
>
> Er is geen enkele fout bij het compileren, maar er wordt niks getekend
> (control is wel zichtbaar, maar er gebeurd niets).
> Wie kan me helpen?
>
> Dank u.
>
>

Ik heb een .Net Control aangemaakt (zie code hieronder). Probleem is
(??) dat je blijkbaar niet on the fly kan tekenen zoals in een form
(met System.Drawings.Graphics).
De control is te zien (heb het een gekleurde achtergrond gegeven),
maar de tekst die ik via g.DrawString schrijf komt niet te voorschijn.

"Kurt Bonne" <kurt@linux.be> wrote in message news:<g3c8c.47570$NN2.3383357@phobos.telenet-ops.be>...
> Je kan .NET Control gebruiken in  een ASP pagina.
> 
> Q.
> 
> "chxant" <chxant@nospam.yahoo.com> wrote in message
> news:c3rcd0$cnk$1@reader08.wxs.nl...
> > Hallo,
> >
> > Het is zowat de eerste keer dat ik dit probeer. Zonder al te veel succes
>  ...
> > Ik heb een user control gemaakt en zou die willen gebruiken in een gewone
> > form �n in een ASP.NET form.
> > De user control tekent wat figuren en tekst gebruik makend van
> > System.Drawing.Graphics.
> > Als ik niet werk met een user control en alles in de code van de form
>  steek
> > werkt het wel, maar dan is het niet bruikbaar in mijn ASP pagina.
> > Dit is de code (heb niet relevante zaken weggelaten):
> >
> > Public Class uControlTest
> >     Inherits System.Windows.Forms.UserControl
> >
> > #Region " Windows Form Designer generated code "
> >
> > #End Region
> >
> >     Private Sub uControlTest_Load(ByVal sender As System.Object, ByVal
> > e As System.EventArgs) Handles MyBase.Load
> >     End Sub
> >
> >     Public Sub imgDirect(ByVal percentage As Integer, ByVal legend As
> > Array)
> >         Dim g As System.Drawing.Graphics
> >         g = Me.CreateGraphics
> >         Dim brush As System.drawing.SolidBrush
> >         brush = New System.Drawing.SolidBrush(Color.Red)
> >         Dim test As Single
> >         test = 360 * percentage / 100
> >         Dim hkn() As Single = {0, test, 360}
> >         'clearing and repaintingthe form background with IVORY color
> >         g.Clear(Color.Ivory)
> >         Dim font As System.Drawing.Font
> >         font = New Font("Times New Roman", 15, FontStyle.Bold)
> >         Dim i As Integer
> >         For i = 0 To hkn.GetUpperBound(0) - 1
> >             g.DrawString(legende(i), font, brush, 10, 10 + 10 + i *
> > 20)
> >         Next
> >     End Sub
> > End Class
> >
> > Op mijn form heb ik dan deze control "gesleept". En probeer ik de functie
>  op
> > te roepen op deze manier:
> >         Dim myimg As New uControlTest
> >         Dim StringArray(1) As String
> >         StringArray(0) = "test1"
> >         StringArray(1) = "test2"
> >         myimg.imgDirect(20, StringArray)
> >
> > Er is geen enkele fout bij het compileren, maar er wordt niks getekend
> > (control is wel zichtbaar, maar er gebeurd niets).
> > Wie kan me helpen?
> >
> > Dank u.
> >
> >