🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: be.comp.programming
Article #2543

Re: user control probleem in vb.net

#2543
From: Kurt Bonne
Date: Wed, 24 Mar 2004 08:56
67 lines
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-mail
References: <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