VB.NET是目前應(yīng)用比較廣泛的編程語言。它在文件處理，移動設(shè)備操作，圖形界面的處理方面都能夠體現(xiàn)強大的作用。那么今天我們就一起學(xué)習(xí)一個其中的應(yīng)用技巧，VB.NET制作圖片按鈕的實際操作方法。

   VB.NET制作圖片按鈕思路：很簡單，就是在一個picturebox控件上放置一個button控件，然后將這個button添加進picturebox上（確保先拖拽picturebox,后拖拽button），設(shè)置這個button的背景色（這個時候是相對于picturebox）為透明。

   Imports System.ComponentModel

   Public Class picturebutton

   Inherits System.Windows.Forms.UserControl

   #Region " Windows 窗體設(shè)計器生成的代碼 "

   'UserControl 重寫 dispose 以清理組件列表。

   Protected Overloads Overrides Sub Dispose（ByVal disposing As Boolean）

   If disposing Then

   If Not

   （components Is Nothing）

   Then

   components.Dispose（）

   End If

   End If

   MyBase.Dispose（disposing）

   End Sub

   'Windows 窗體設(shè)計器所必需的

   Private components As System.ComponentModel.IContainer

   注意：以下VB.NET制作圖片按鈕的過程是 Windows 窗體設(shè)計器所必需的

   可以使用 Windows 窗體設(shè)計器修改此過程。

   不要使用代碼編輯器修改它。

   Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox

   Friend WithEvents Button1 As System.Windows.Forms.Button

   <System.Diagnostics.DebuggerStepThrough（）> Private Sub InitializeComponent（）

   Me.PictureBox1 = New System.Windows.Forms.PictureBox（）

   Me.Button1 = New System.Windows.Forms.Button（）

   Me.SuspendLayout（）
'PictureBox1

   Me.PictureBox1.Name = "PictureBox1"

   Me.PictureBox1.Size = New System.Drawing.Size（136, 40）

   Me.PictureBox1.TabIndex = 0

   Me.PictureBox1.TabStop = False

   'Button1

   Me.Button1.Name = "Button1"

   Me.Button1.TabIndex = 1

   Me.Button1.Text = "Button1"

   'picturebutton

   Me.Controls.AddRange（New System.Windows.Forms.Control（）

   {Me.Button1, Me.PictureBox1}）

   Me.Name = "picturebutton"

   Me.ResumeLayout（False）

   End Sub

   #End Region

   Public Sub New（）

   MyBase.New（）

   該調(diào)用是 Windows 窗體設(shè)計器所必需的。

   InitializeComponent（）

   '在 InitializeComponent（）

   調(diào)用之后添加任何初始化

   Me.Button1.Width = 100 '設(shè)置按鈕的初始大小

   Me.Button1.Height = 23

   Me.Button1.BackColor = Color.Transparent '背景色透明

   Me.Button1.ForeColor = Color.Black

   Me.PictureBox1.Controls.Add（Me.Button1）

   End Sub

   Private m_text As String '設(shè)置按鈕標題

   Private a As Integer

   'Private m_p_w_picpath As Image

   <Description（"picturebox圖片。"）> _

   Public Property p_w_picpath（） As p_w_picpath

   Get

   Return Me.PictureBox1.Image

   End Get

   Set（ByVal Value As p_w_picpath）

   Me.PictureBox1.Image = Value

   Invalidate（）

   End Set

   End Property

   Shadows Property forecolor（）

   As Color

   Get

   Return Me.Button1.ForeColor

   End Get

   Set（ByVal Value As Color）

   Me.Button1.ForeColor = Value

   Invalidate（）

   End Set

   End Property

   Shadows Sub ResetForeColor（）

   Me.Button1.ForeColor = SystemColors.ControlText

   End Sub

   VB.NET制作圖片按鈕的單擊事件

   Event BtnClick（ByVal sender As Object, ByVal e As System.EventArgs）

   Private Sub Button1_Click（ByVal sender As Object, ByVal e As System.EventArgs）

   Handles Button1.Click

   RaiseEvent BtnClick（Me, e）

   End Sub

   控件改變大小時，需重繪控件，以使子控件排位美觀

   Private Sub FileTextBox_Resize（ByVal sender As Object, ByVal e As System.EventArgs）

   Handles MyBase.Resize

   RedrawControls（）

   End Sub
   子控件會自動繼續(xù)容器的Font屬性，所以改變?nèi)萜鞯腇ont屬性時也要重繪控件

   Protected Overrides Sub OnFontChanged（ByVal e As System.EventArgs）

   '讓基控件更新文本框

   MyBase.OnFontChanged（e）

   '重繪控件

   RedrawControls（）

   End Sub

   '重繪控件

   Private Sub RedrawControls（）

   '控件寬度

   Dim width As Integer = Me.ClientRectangle.Width '獲得工作區(qū)寬

   以VB.NET制作圖片按鈕的高度來確定控件高度

   Dim btnSide As Integer = Button1.Height

   Dim btnwidth As Integer = Button1.Width

   If Me.ClientRectangle.Height <> btnSide Then

   設(shè)置控件工作區(qū)的大小

   'Me.SetClientSizeCore（btnwidth, btnSide）

   Me.SetClientSizeCore（width, btnSide）

   '這里使用工作區(qū)的寬是因為：按鈕和picturebox可以調(diào)整寬度

   '上面的語句激發(fā)了嵌套的Resize事件，因此需要立即退出，如果不退出，就會反復(fù)調(diào)用進入死循環(huán)

   Exit Sub

   End If

   調(diào)整子控件的大小

   'Txt.SetBounds（0, 0, width, btnSide）

   'Btn.SetBounds（width - 19, 2, 17, btnSide - 4）

   Me.PictureBox1.SetBounds（0, 0, width, btnSide）

   Me.PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage

   Me.Button1.SetBounds（0, 0, width, btnSide）

   End Sub

   End Class

   VB.NET制作圖片按鈕的相關(guān)實現(xiàn)方法就為大家介紹到這里。B.NET制作圖片按鈕的相關(guān)實現(xiàn)方法就為大家介紹到這里。

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

另外有需要云服務(wù)器可以了解下創(chuàng)新互聯(lián)scvps.cn，海內(nèi)外云服務(wù)器15元起步，三天無理由+7*72小時售后在線，公司持有idc許可證，提供“云服務(wù)器、裸金屬服務(wù)器、高防服務(wù)器、香港服務(wù)器、美國服務(wù)器、虛擬主機、免備案服務(wù)器”等云主機租用服務(wù)以及企業(yè)上云的綜合解決方案，具有“安全穩(wěn)定、簡單易用、服務(wù)可用性高、性價比高”等特點與優(yōu)勢，專為企業(yè)上云打造定制，能夠滿足用戶豐富、多元化的應(yīng)用場景需求。

分享題目：對于在VB.NET如何制作圖片按鈕效果講解-創(chuàng)新互聯(lián)
標題URL：http://aaarwkj.com/article8/cdpiip.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供外貿(mào)建站、微信公眾號、網(wǎng)站制作、網(wǎng)站維護、靜態(tài)網(wǎng)站、App設(shè)計

廣告

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