🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: be.comp.programming
Article #2542

user control probleem in vb.net

#2542
From: chxant
Date: Wed, 24 Mar 2004 07:04
56 lines
2921 bytes
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: <c3rcd0$cnk$1@reader08.wxs.nl>
Path: arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!news.glorb.com!newsrout1.ntli.net!news.ntli.net!news2.euro.net!newsfeeder.wxs.nl!newsfeed.wxs.nl!textnews.wxs.nl!not-for-mail

Show Full Headers
Complete Article Headers
X-Google-Language: DUTCH,ASCII
X-Google-Thread: fcea4,715c1287457969c0,start
X-Google-Attributes: gidfcea4,public
X-Google-ArrivalTime: 2004-03-23 23:05:32 PST
Path: arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!news.glorb.com!newsrout1.ntli.net!news.ntli.net!news2.euro.net!newsfeeder.wxs.nl!newsfeed.wxs.nl!textnews.wxs.nl!not-for-mail
From: "chxant" <chxant@nospam.yahoo.com>
Newsgroups: be.comp.programming
Subject: user control probleem in vb.net
Date: Wed, 24 Mar 2004 08:04:55 +0100
Organization: Planet Internet
Lines: 58
Message-ID: <c3rcd0$cnk$1@reader08.wxs.nl>
NNTP-Posting-Host: u81-11-143-229.adsl.scarlet.be
X-Trace: reader08.wxs.nl 1080112352 13044 81.11.143.229 (24 Mar 2004 07:12:32 GMT)
X-Complaints-To: abuse@planet.nl
NNTP-Posting-Date: 24 Mar 2004 07:12:32 GMT
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