vb.net自己制作控件 vb通過代碼生成控件

vb.net 控件制作

先生成dataset,然后用datarow裝載dataset的需要編輯的記錄，再把datarow的值賦給textbox的text顯示給用戶編輯，用戶修改后，把textbox的text賦值回給datarow，最后update dataset更新數(shù)據(jù).

創(chuàng)新互聯(lián)專注于沛縣網(wǎng)站建設(shè)服務(wù)及定制，我們擁有豐富的企業(yè)做網(wǎng)站經(jīng)驗(yàn)。 熱誠(chéng)為您提供沛縣營(yíng)銷型網(wǎng)站建設(shè)，沛縣網(wǎng)站制作、沛縣網(wǎng)頁(yè)設(shè)計(jì)、沛縣網(wǎng)站官網(wǎng)定制、微信小程序開發(fā)服務(wù)，打造沛縣網(wǎng)絡(luò)公司原創(chuàng)品牌,更為您提供沛縣網(wǎng)站排名全網(wǎng)營(yíng)銷落地服務(wù)。

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

'滑動(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的知識(shí)制作帶*的文本框控件

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

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

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

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

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

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

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

vb.net 窗口控件的制作

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

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

vb.net自定義控件

mytest1是繼承自什么類，通常應(yīng)該繼承自UerControl，雖然你這樣也能編譯通過，但實(shí)際上沒有任何意義。所以你先改了再說。繼承之后，編譯，工具箱就會(huì)多這么個(gè)控件，拖動(dòng)到Form1上，這樣按鈕下就不用再new了。然后你再來問。

VB.NET 如何做 控件

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

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

文章名稱：vb.net自己制作控件 vb通過代碼生成控件
轉(zhuǎn)載注明：http://muchs.cn/article6/hgepig.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供云服務(wù)器、手機(jī)網(wǎng)站建設(shè)、動(dòng)態(tài)網(wǎng)站、網(wǎng)站導(dǎo)航、做網(wǎng)站、搜索引擎優(yōu)化

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來源： 創(chuàng)新互聯(lián)