Vb.net 如何将其转换为DLL

Vb.net 如何将其转换为DLL,vb.net,visual-studio,dll,user-controls,class-library,Vb.net,Visual Studio,Dll,User Controls,Class Library,我想编译一个DLL控件,是一个扩展面板,但我只有类,我不喜欢用类来添加自定义控件,我更喜欢将DLL添加到工具箱中 有人能帮我把它转换成类库DLL控件吗 另外,也许我也需要一个制作类库的指导步骤,这是我第一次尝试 谢谢 Imports System Imports System.Collections.Generic Imports System.ComponentModel Imports System.Data Imports System.Drawing Imports System.Dra

我想编译一个DLL控件,是一个扩展面板,但我只有类,我不喜欢用类来添加自定义控件,我更喜欢将DLL添加到工具箱中

有人能帮我把它转换成类库DLL控件吗

另外,也许我也需要一个制作类库的指导步骤,这是我第一次尝试

谢谢

Imports System
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Text
Imports System.Windows.Forms

Namespace GradientPanel
    Public Partial Class GradientPanel
        Inherits System.Windows.Forms.Panel

        ' member variables
        Private mStartColor As System.Drawing.Color
        Private mEndColor As System.Drawing.Color

        Public Sub New()
            ' InitializeComponent()
            PaintGradient()
        End Sub

        Protected Overrides Sub OnPaint(pe As PaintEventArgs)
            ' TODO: Add custom paint code here

            ' Calling the base class OnPaint
            MyBase.OnPaint(pe)
        End Sub


        Public Property PageStartColor() As System.Drawing.Color
            Get
                Return mStartColor
            End Get
            Set
                mStartColor = value
                PaintGradient()
            End Set
        End Property


        Public Property PageEndColor() As System.Drawing.Color
            Get
                Return mEndColor
            End Get
            Set
                mEndColor = value
                PaintGradient()
            End Set
        End Property


        Private Sub PaintGradient()
            Dim gradBrush As System.Drawing.Drawing2D.LinearGradientBrush
            gradBrush = New System.Drawing.Drawing2D.LinearGradientBrush(New Point(0, 0), New Point(Me.Width, Me.Height), PageStartColor, PageEndColor)

            Dim bmp As New Bitmap(Me.Width, Me.Height)

            Dim g As Graphics = Graphics.FromImage(bmp)
            g.FillRectangle(gradBrush, New Rectangle(0, 0, Me.Width, Me.Height))
            Me.BackgroundImage = bmp
            Me.BackgroundImageLayout = ImageLayout.Stretch
        End Sub

    End Class
End Namespace

我总是使用CustomControlLibrary名称,将程序集名称和默认命名空间设置为您希望dll的名称,然后右键单击项目并选择“添加类”,然后将自定义控件的类代码添加到项目中。此时还可以添加新的UserControl。编译时,它将创建一个dll,您可以通过右键单击工具箱选择“选择项”,然后浏览到已创建的dll来浏览该dll。然后,它会将控件库中包含的控件添加到工具箱中

希望这个链接可以帮助你:谢谢你的评论,问题是我很愚蠢,我试图在一个“类库”项目中这样做,但我需要在一个“Windows窗体控件库”项目中这样做lol,现在一切都好了,再次感谢