Article View: be.comp.programming
Article #2543Re: user control probleem in vb.net
From: Kurt Bonne
Date: Wed, 24 Mar 2004 08:56
Date: Wed, 24 Mar 2004 08:56
67 lines
3232 bytes
3232 bytes
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.
>
>
Technical Details
Message-ID:
<g3c8c.47570$NN2.3383357@phobos.telenet-ops.be>Path:
arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!news.glorb.com!newsgate.cistron.nl!aotearoa.belnet.be!news.belnet.be!ossa.telenet-ops.be!phobos.telenet-ops.be.POSTED!not-for-mailReferences:
<c3rcd0$cnk$1@reader08.wxs.nl>Show Full Headers
Complete Article Headers
X-Google-Language: DUTCH,ASCII X-Google-Thread: fcea4,715c1287457969c0 X-Google-Attributes: gidfcea4,public X-Google-ArrivalTime: 2004-03-24 00:56:45 PST Path: arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!news.glorb.com!newsgate.cistron.nl!aotearoa.belnet.be!news.belnet.be!ossa.telenet-ops.be!phobos.telenet-ops.be.POSTED!not-for-mail From: "Kurt Bonne" <kurt@linux.be> Newsgroups: be.comp.programming References: <c3rcd0$cnk$1@reader08.wxs.nl> Subject: Re: user control probleem in vb.net Lines: 69 X-Priority: 3 X-MSMail-Priority: Normal X-Newsreader: Microsoft Outlook Express 6.00.2800.1158 X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2800.1165 Message-ID: <g3c8c.47570$NN2.3383357@phobos.telenet-ops.be> Date: Wed, 24 Mar 2004 08:56:44 GMT NNTP-Posting-Host: 212.123.1.32 X-Complaints-To: abuse@telenet.be X-Trace: phobos.telenet-ops.be 1080118604 212.123.1.32 (Wed, 24 Mar 2004 09:56:44 MET) NNTP-Posting-Date: Wed, 24 Mar 2004 09:56:44 MET Organization: Telenet Internet