Article View: be.comp.programming
Article #2542user control probleem in vb.net
From: chxant
Date: Wed, 24 Mar 2004 07:04
Date: Wed, 24 Mar 2004 07:04
56 lines
2921 bytes
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-mailShow 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