vb.net控件制作,VBNET教程-四川平武建站

新聞中心

這里有您想知道的互聯(lián)網(wǎng)營銷解決方案

vb.net控件制作,VBNET教程

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

Public Class UserControl1

成都創(chuàng)新互聯(lián)是專業(yè)的長(zhǎng)葛網(wǎng)站建設(shè)公司，長(zhǎng)葛接單;提供成都做網(wǎng)站、成都網(wǎng)站制作、成都外貿(mào)網(wǎng)站建設(shè),網(wǎng)頁設(shè)計(jì),網(wǎng)站設(shè)計(jì),建網(wǎng)站,PHP網(wǎng)站建設(shè)等專業(yè)做網(wǎng)站服務(wù);采用PHP框架,可快速的進(jìn)行長(zhǎng)葛網(wǎng)站開發(fā)網(wǎng)頁制作和功能擴(kuò)展;專業(yè)做搜索引擎喜愛的網(wǎng)站,專業(yè)的做網(wǎng)站團(tuán)隊(duì),希望更多企業(yè)前來合作!

#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

'滑動(dòng)模式 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

'鼠標(biāo)按下

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

'鼠標(biāo)移動(dòng)

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

'鼠標(biāo)彈起

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 如何做控件

用vs.net創(chuàng)建控件項(xiàng)目，其他的和vb類似...

新建項(xiàng)目-windows 窗體控件庫

如何用VB.NET的知識(shí)制作帶*的文本框控件

添加一個(gè)TextBox控件（比如叫TextBox1）。

類似于Lable控件的功能，你可以修改TextBox控件的Text屬性來達(dá)到目的：

不是在設(shè)計(jì)器里修改，而是在代碼中用“TextBox1.Text="你想要顯示的字符串";”這樣的語句，這樣就可以在程序運(yùn)行時(shí)改變顯示的內(nèi)容。

設(shè)置或者取消星號(hào)，你可以通過代碼修改TextBox1的PasswordChar屬性，跟上面的是類似的：

在其他的控件的事件中比如Button的Click事件中修改——“TextBox1.PasswordChar="";//不顯示***”

“TextBox1.PasswordChar="*（或者任何你想要的字符）";//顯示為***”

至于什么時(shí)候改就完全隨你的意思了。

vb.net自定義控件問題

首先，你已經(jīng)完成的步驟是：

1.新建一個(gè)用戶控件[注意，用戶控件（UserControl）不是自定義控件（CustomControl）]

2.給用戶控件起個(gè)名字（我在此處起名叫 RadioList）

3.在用戶控件上畫一個(gè) GroupBox，命名為 RadioGroup，

并將其 Dock 屬性設(shè)置為 Fill

然后，你需要做的是動(dòng)態(tài)增減控件。

如果你以前用過 VB 6，你可能會(huì)想到控件數(shù)組，

但在此處，你可以直接增刪控件。

具體實(shí)現(xiàn)如下：

4.在 GroupBox 里畫一個(gè) FlowLayoutPanel，命名為 RadioPanel，

將其 AutoScroll 屬性設(shè)置為 True，即自動(dòng)顯示滾動(dòng)條，

并設(shè)置其 FlowDirection 屬性（例如設(shè)置為 TopDown）

這樣就省去了手動(dòng)調(diào)整 RadioButton 位置的麻煩

5.實(shí)現(xiàn)選項(xiàng)的動(dòng)態(tài)增減（以下只是我的思路，你可以發(fā)揮一下）

（十分簡(jiǎn)潔，注釋除外）：

''' summary

''' 創(chuàng)建一個(gè)新的 RadioButton。

''' /summary

Private Function CreateRadio() As RadioButton

Dim NewRadio As New RadioButton

components.Add(NewRadio)

'components 字段由控件設(shè)計(jì)器自動(dòng)創(chuàng)建，

'此代碼目的是使控件在銷毀（Dispose）時(shí)能自動(dòng)銷毀 RadioButton

'詳情參見 RadioList.Designer.vb

NewRadio.Parent = RadioPanel

'設(shè)置容器

AddHandler NewRadio.CheckedChanged, AddressOf RadioButtons_CheckedChanged

'設(shè)置事件處理程序

Return NewRadio

End Function

''' summary

''' 移除已存在的 RadioButton。

''' /summary

Private Sub RemoveRadio(ByVal dest As RadioButton)

components.Remove(dest)

dest.Dispose()

End Sub

'無中生有的 RadioButton 的事件處理程序

Private Sub RadioButtons_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

'在此處設(shè)置選中項(xiàng)的屬性，通過 sender 來確定不同的 OptionButton

'你可以通過將 OptionButton 放在一個(gè)列表，

'如 List(Of OptionButton) 中來像數(shù)組一樣維護(hù)選項(xiàng)的次序

'注意，此處需要判斷 sender 的 Checked 屬性是否為 True

'因?yàn)?Changed 是“改變”，而不是“選中”

'例如：

If DirectCast(sender, RadioButton).Checked Then

SelectedIndex = ...

End If

End Sub

vb.net 窗口控件的制作

把你的控件繼承Panel類，而不要集成UserControl類。

你可以在集成Panel后，往Panel里面加一些你自己的方法或Control來實(shí)現(xiàn)你需要的功能。向里面拖控件的功能則由Panel來控制，你自己就不用管了。