請教vb.net怎么制作一個可以作為容器的用戶控件

Public?Class?用戶控件

成都創新互聯公司是一家專注于成都網站制作、成都網站設計、外貿營銷網站建設與策劃設計,會昌網站建設哪家好?成都創新互聯公司做網站,專注于網站建設10余年,網設計領域的專業建站公司;建站業務涵蓋:會昌等地區。會昌做網站價格咨詢:18982081108

Inherits??System.Windows.Forms.Panel

Public?Sub?New()?'初始化

End?Sub?

Private?Sub?用戶控件_KeyDown(sender?As?Object,?e?As?Forms.KeyEventArgs)?Handles?Me.KeyDown

'?……

End?Sub

'……

End?Class

VB.net 如何編寫用戶控件？

Public Class UserControl1

#Region "變量"

Dim Down_Color As Color = Color.Blue

Dim UP_Color As Color = Color.Gray

Dim Mode As Short = 0

Dim flag As Boolean

Dim offset_X As Integer

Dim offset_Y As Integer

Dim Mouse_P As Point

#End Region

#Region "屬性"

'按下顏色

Public Property _DownColor As Color

Get

Return Down_Color

End Get

Set(ByVal value As Color)

Down_Color = value

End Set

End Property

'彈起顏色

Public Property _UpColor As Color

Get

Return UP_Color

End Get

Set(ByVal value As Color)

UP_Color = value

End Set

End Property

'滑動模式 0-橫 1-豎

Public Property _Mode As Short

Get

Return Mode

End Get

Set(ByVal value As Short)

Mode = value

End Set

End Property

#End Region

Private Sub UserControl1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

Me.BackColor = UP_Color

End Sub

'鼠標按下

Private Sub UserControl1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown

Me.BackColor = Down_Color

Mouse_P = e.Location

flag = True

End Sub

'鼠標移動

Private Sub UserControl1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove

If flag = False Then Exit Sub

Select Case Mode

Case 0 '橫向·

offset_X = e.X - Mouse_P.X

If Me.Location.X + offset_X + Me.Width = Me.ParentForm.Width Or Me.Location.X + offset_X = 0 Then

flag = False

Else

Me.Location = New Point(Me.Location.X + offset_X, Me.Location.Y)

End If

Case 1 '豎向·

offset_Y = e.Y - Mouse_P.Y

If Me.Location.Y + offset_Y + Me.Height + 30 = Me.ParentForm.Height Or Me.Location.Y + offset_Y = 0 Then

flag = False

Else

Me.Location = New Point(Me.Location.X, Me.Location.Y + offset_Y)

End If

End Select

End Sub

'鼠標彈起

Private Sub UserControl1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp

Me.BackColor = UP_Color

flag = False

End Sub

End Class

你好，我想請教一下vb.net中怎么調用用戶控件，謝謝！

關于用戶控件的使用，.net與v6環境下是有那么小小的區別。v6環境下的用戶控件編寫后可以直接使用，而在.net環境下，則需要先生成控件庫（dll，應用程序擴展格式），然后再將這個控件庫導入到.net編程環境的工具箱上方可使用。其具體方法如下（以VS 2010，Visual Basic.net 為例）：1、新建項目-Visual Basic-Windows-Windows 窗體控件庫-鍵入控件庫名稱（默認為Usercontrol1）確定；2、設計你的用戶控件，完成后按“F7”進行編譯；3、在該解決方案目錄下找到控件庫擴展（默認為UserControl1.dll），確認項目已經生成。在上三項為控件庫DLL的生成方式，下面是調用方式：4、新建項目-Visual Basic-Windows-Windows 窗體應用程序-確定；5、打開工具箱，以任意一個控件上點擊右鍵-選擇項-.net framework組件-瀏覽-定位到生成的控件庫擴展-確定；6、在工具箱中找到新添加的用戶控件，將其拖至窗體中進行設計。經測，在.net環境下編譯的用戶控件是通用的。也就是說使用Visual Basic.net編寫的用戶控件，也可以在C#工程里使用，反之亦然。這充分體現了.net語言的交互性，在我看來，.net下各種語言能力相當，它們都是作為一種中間語言，編譯出中間代碼。所以，在.net環境下，采用混合編程也未嘗不是一樣提高效率的一種可選的方式。

vb.net如何創建無界面的用戶控件

控件不一定有界面，類也不一定有界面。

以Visual Studio 2012為例

把你的控件封裝到類里面，生成exe或dll，在要調用的項目中，進入工具箱，右鍵任意項，選擇項，在.Net Framework組件中瀏覽到生成的exe或dll，在上面列表中相應的內容，勾選，確定

文章題目：vb.net用戶控件制作,vb 控件
文章位置：http://vcdvsql.cn/article30/heocso.html

成都網站建設公司_創新互聯，為您提供微信公眾號、全網營銷推廣、網站收錄、關鍵詞優化、網站改版、企業網站制作

廣告

聲明：本網站發布的內容（圖片、視頻和文字）以用戶投稿、用戶轉載內容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網站立場，如需處理請聯系客服。電話：028-86922220；郵箱：631063699@qq.com。內容未經允許不得轉載，或轉載時需注明來源： 創新互聯