vb點(diǎn)虐 入門之分組控件：GroupBox控件

我們對控件進(jìn)行分組的原因不外乎三個(gè)

創(chuàng)新互聯(lián)堅(jiān)持“要么做到，要么別承諾”的工作理念，服務(wù)領(lǐng)域包括：網(wǎng)站設(shè)計(jì)制作、成都網(wǎng)站制作、企業(yè)官網(wǎng)、英文網(wǎng)站、手機(jī)端網(wǎng)站、網(wǎng)站推廣等服務(wù)，滿足客戶于互聯(lián)網(wǎng)時(shí)代的桂東網(wǎng)站設(shè)計(jì)、移動(dòng)媒體設(shè)計(jì)的需求，幫助企業(yè)找到有效的互聯(lián)網(wǎng)解決方案。努力成為您成熟可靠的網(wǎng)絡(luò)建設(shè)合作伙伴！

為了獲得清晰的用戶界面而將相關(guān)的窗體元素進(jìn)行可視化分組

編程分組 如對單選按鈕進(jìn)行分組

為了在設(shè)計(jì)時(shí)將多個(gè)控件作為一個(gè)單元來移動(dòng)

在中 有GroupBox Panel TabControl這三個(gè)控件可以實(shí)現(xiàn)上面所提到的三個(gè)分組目的 所以我們稱它們?yōu)榉纸M控件

這三個(gè)控件在功用上十分的相似 特別是GroupBox和Panel控件 只存在一點(diǎn)細(xì)微的差別而已（這個(gè)差別是 只有GroupBox控件可以顯示標(biāo)題 而只有Panel控件可以有滾動(dòng)條） 這里我們就先來了解GroupBox控件的使用

GroupBox（控件組）控件一般是作為其他控件的組的容器的形式存在的 這樣有利于用戶識別 使界面變得更加友好（GroupBox控件相當(dāng)于Visual Basic以前版本的Frame控件） 使用控件組控件可以將一個(gè)窗體中的各種功能進(jìn)一步進(jìn)行分類 例如 將各種選項(xiàng)按鈕控件分隔開

當(dāng)移動(dòng)單個(gè)GroupBox控件時(shí) 它所包含的所有控件也將一起移動(dòng)

在大多數(shù)情況下 對控件組控件沒有實(shí)際的操作 我們用它對控件進(jìn)行分組 通常沒有必要響應(yīng)它的事件 不過 它的Name Text和Font等屬性可能會經(jīng)常被修改 以適應(yīng)應(yīng)用程序在不同階段的要求

GroupBox控件在工具箱中的圖標(biāo)如圖所示

一 GroupBox控件的常用屬性

Anchor和Dock 這兩個(gè)屬性是所有有用戶界面的控件都有的定位屬性 這里就不啰嗦了

Name屬性 標(biāo)識控件的對象名稱

Text屬性 顯示在GroupBox控件右上方的標(biāo)題文字 可以用來標(biāo)識該控件組的描述

Font和ForeColor屬性 用于改變GroupBox控件的文字大小以及文字的顏色 需要注意的時(shí)候 它不單改變GroupBox控件的Text屬性的文字外觀 同時(shí)也改變其內(nèi)部控件的顯示的Text屬性的文字外觀

二 創(chuàng)建一組控件

在窗體上放置GroupBox控件 從工具箱中拖放一個(gè)GroupBox控件到窗體上的合適位置 調(diào)整大小

在屬性窗口中改變GroupBox控件的Text屬性 作為它的標(biāo)題

在GroupBox控件內(nèi)拖放其它需要的控件 例如RadioButton控件

設(shè)置示例 如圖一所示

圖一 用控件組控件對單選按鈕分組

我們在拖動(dòng)單個(gè)GroupBox控件的時(shí)候 它內(nèi)部的控件也會隨著移動(dòng) 以保持和GroupBox的相對位置不變 同理 刪除GroupBox控件時(shí) 它所包含的所有控件也會被刪除掉

當(dāng)我們調(diào)整GroupBox控件所包含的控件的Anchor和Dock屬性的時(shí)候 其參照物將不是Form窗體 而是GroupBox控件了

三 編程添加GroupBox控件以及它所包含的控件

雖然GroupBox控件是在設(shè)計(jì)時(shí)用視圖設(shè)計(jì)布局效果最好 但是無可避免地 很多特殊情況下也是需要在運(yùn)行做添加控件到控件組中的 這里我們就用代碼來完成上圖一界面的繪制

動(dòng)態(tài)添加控件一般需要經(jīng)過下面三個(gè)步驟

創(chuàng)建要添加的控件實(shí)例

設(shè)置新控件的屬性

將控件添加到父控件的 Controls 集合

在Form 代碼的任意位置增加初始化控件的過程InitializeControl（） 代碼如下所示

Sub InitializeControl（）

首先添加Label和TextBox控件

Dim Label As New System Windows Forms Label

Dim TextBox As New System Windows Forms TextBox

Label

Label Location = New System Drawing Point（ ）

Label Name = Label

Label Size = New System Drawing Size（ ）

Label TabIndex =

Label Text = 戶主姓名

TextBox

TextBox Location = New System Drawing Point（ ）

TextBox Name = TextBox

TextBox Size = New System Drawing Size（ ）

TextBox TabIndex =

TextBox Text =

把它們添加到父控件Form 的Controls集合中

Me Controls Add（TextBox ）

Me Controls Add（Label ）

添加三個(gè)GroupBox控件

Dim GroupBox As New System Windows Forms GroupBox

Dim GroupBox As New System Windows Forms GroupBox

Dim GroupBox As New System Windows Forms GroupBox

GroupBox

GroupBox BackColor = System Drawing SystemColors Control

GroupBox Location = New System Drawing Point（ ）

GroupBox Name = GroupBox

GroupBox Size = New System Drawing Size（ ）

GroupBox TabIndex =

GroupBox TabStop = False

GroupBox Text = 性別

GroupBox

GroupBox Location = New System Drawing Point（ ）

GroupBox Name = GroupBox

GroupBox Size = New System Drawing Size（ ）

GroupBox TabIndex =

GroupBox TabStop = False

GroupBox Text = 單元

GroupBox

GroupBox Location = New System Drawing Point（ ）

GroupBox Name = GroupBox

GroupBox Size = New System Drawing Size（ ）

GroupBox TabIndex =

GroupBox TabStop = False

GroupBox Text = 樓層

把它們添加到父控件Form 的Controls集合中

Me Controls Add（GroupBox ）

Me Controls Add（GroupBox ）

Me Controls Add（GroupBox ）

添加RadioButton控件并分別繪制在GroupBox控件內(nèi)

Dim RadioButton As New System Windows Forms RadioButton

Dim RadioButton As New System Windows Forms RadioButton

Dim RadioButton As New System Windows Forms RadioButton

Dim RadioButton As New System Windows Forms RadioButton

Dim RadioButton As New System Windows Forms RadioButton

Dim RadioButton As New System Windows Forms RadioButton

Dim RadioButton As New System Windows Forms RadioButton

Dim RadioButton As New System Windows Forms RadioButton

Dim RadioButton As New System Windows Forms RadioButton

Dim RadioButton As New System Windows Forms RadioButton

RadioButton

RadioButton Location = New System Drawing Point（ ）

RadioButton Name = RadioButton

RadioButton Size = New System Drawing Size（ ）

RadioButton TabIndex =

RadioButton Text = 男性

RadioButton

RadioButton Location = New System Drawing Point（ ）

RadioButton Name = RadioButton

RadioButton Size = New System Drawing Size（ ）

RadioButton TabIndex =

RadioButton Text = 女性

RadioButton

RadioButton Location = New System Drawing Point（ ）

RadioButton Name = RadioButton

RadioButton Size = New System Drawing Size（ ）

RadioButton TabIndex =

RadioButton Text = 二單元

RadioButton

RadioButton Location = New System Drawing Point（ ）

RadioButton Name = RadioButton

RadioButton Size = New System Drawing Size（ ）

RadioButton TabIndex =

RadioButton Text = 三單元

RadioButton

RadioButton Location = New System Drawing Point（ ）

RadioButton Name = RadioButton

RadioButton Size = New System Drawing Size（ ）

RadioButton TabIndex =

RadioButton Text = 一單元

RadioButton

RadioButton BackColor = System Drawing SystemColors Control

RadioButton Location = New System Drawing Point（ ）

RadioButton Name = RadioButton

RadioButton Size = New System Drawing Size（ ）

RadioButton TabIndex =

RadioButton Text = 四單元

RadioButton

RadioButton Location = New System Drawing Point（ ）

RadioButton Name = RadioButton

RadioButton Size = New System Drawing Size（ ）

RadioButton TabIndex =

RadioButton Text = 二樓

RadioButton

RadioButton Location = New System Drawing Point（ ）

RadioButton Name = RadioButton

RadioButton Size = New System Drawing Size（ ）

RadioButton TabIndex =

RadioButton Text = 三樓

RadioButton

RadioButton Location = New System Drawing Point（ ）

RadioButton Name = RadioButton

RadioButton Size = New System Drawing Size（ ）

RadioButton TabIndex =

RadioButton Text = 一樓

RadioButton

RadioButton BackColor = System Drawing SystemColors Control

RadioButton Location = New System Drawing Point（ ）

RadioButton Name = RadioButton

RadioButton Size = New System Drawing Size（ ）

RadioButton TabIndex =

RadioButton Text = 四樓

分別把它們添加到父控件GroupBox的Controls集合中

GroupBox Controls Add（RadioButton ）

GroupBox Controls Add（RadioButton ）

GroupBox Controls Add（RadioButton ）

GroupBox Controls Add（RadioButton ）

GroupBox Controls Add（RadioButton ）

GroupBox Controls Add（RadioButton ）

GroupBox Controls Add（RadioButton ）

GroupBox Controls Add（RadioButton ）

GroupBox Controls Add（RadioButton ）

GroupBox Controls Add（RadioButton ）

End Sub

把上一頁的代碼復(fù)制添加后 把控件初始化過程InitializeControl（）過程添加到Form 的New構(gòu)造函數(shù)中 如下圖二所示

圖二 在New構(gòu)造函數(shù)中添加過程InitializeControl（）

現(xiàn)在按F 運(yùn)行 Form 的窗體控件布局（如下圖三所示）是不是和我們手工布局的圖一的布局是一樣的呢？

lishixinzhi/Article/program/ASP/201311/21749

在VB.NET中實(shí)現(xiàn)文件的拖放

本文介紹了在VB NET中如何實(shí)現(xiàn)接受拖放的文件 即從資源管理器中拖放到應(yīng)用程序中的時(shí)候 自動(dòng)獲取拖放的文件 文中的例子是一個(gè)接受拖放文件顯示文件內(nèi)容的VB NET實(shí)例程序 引言

對于文本格式的文件 我們可以直接拖到記事本中就可以看到內(nèi)容 各種類型的圖片 拖到Photoshop中 就可以直接對其編輯 我們?nèi)绾卧赩B NET開發(fā)的程序也實(shí)現(xiàn)上述效果呢？

思路

我們知道 每一個(gè)Windows的應(yīng)用程序都有一個(gè)消息隊(duì)列 程序的主體接受系統(tǒng)的消息 然后分發(fā)出去（給一個(gè)form 或者一個(gè)控件） 接受者有相應(yīng)的程序來處理消息 在 NET的Form中 默認(rèn)情況下程序是不翻譯這些消息的 也就是說默認(rèn)我們的Class是不加入應(yīng)用程序的消息泵 能不能把我們的Form Class加入應(yīng)用程序的消息泵呢？可以！

在 NET中 任何一個(gè)實(shí)現(xiàn)IMessageFilter 接口的類 可以添加到應(yīng)用程序的消息泵中 以在消息被調(diào)度到控件或窗體之前將它篩選出來或執(zhí)行其他操作 使用 Application 類中的 AddMessageFilter 方法 可以將消息篩選器添加到應(yīng)用程序的消息泵中

于是我們在程序加載的時(shí)候 調(diào)用Application AddMessageFilter（Me） 然而 默認(rèn)情況下一個(gè)Form或者控件是不能接受拖放的文件的 我們調(diào)用一個(gè)WIN API DragAcceptFiles源碼天空 這個(gè)API可以設(shè)置對應(yīng)的控件是否能接受拖放的文件 然后可以用DragQueryFile查詢拖放到的文件列表 也就是拖放文件地具體路徑和文件名

代碼

Imports System Runtime InteropServices

Public Class Form

Inherits System Windows Forms Form

Implements IMessageFilter

API申明

Const WM_DROPFILES = H ? 拖放文件消息

DllImport（ shell dll ） Public Shared Sub DragFinish（ByVal hDrop As Integer）

End Sub

DllImport（ shell dll ） Public Shared Sub DragAcceptFiles（ByVal hwnd As Integer ByVal fAccept As Boolean）

End Sub

DllImport（ shell dll ） Public Shared Function DragQueryFile（ByVal HDROP As Integer ByVal UINT As Integer ByVal lpStr As System Text StringBuilder ByVal ch As Integer） As Integer

End Function

Private Sub Form _Load（ByVal sender As System Object ByVal e As System EventArgs） Handles MyBase Load

Application AddMessageFilter（Me）

DragAcceptFiles（TextBox Handle ToInt True）

End Sub

Function PreFilterMessage（ByRef m As Message） As Boolean Implements IMessageFilter PreFilterMessage

If m Msg = WM_DROPFILES Then

設(shè)置拖放的動(dòng)作

Dim nfiles As Int

nfiles = DragQueryFile（m WParam ToInt Nothing ）

Dim i As Int

Dim *** As New System Text StringBuilder（ ）

Dim sFirstFileName As String 記錄第一個(gè)文件名

TextBox Clear（）

For i = To nfiles

DragQueryFile（m WParam ToInt i *** ）

If i = Then sFirstFileName = *** ToString

TextBox AppendText（ControlChars CrLf *** ToString）

Next

DragFinish（m WParam ToInt ） 拖放完成

顯示文件內(nèi)容

Dim fs As New System IO FileStream（sFirstFileName IO FileMode Open）

Dim sr As New System IO StreamReader（fs System Text Encoding GetEncoding（ gb ））

TextBox AppendText（ControlChars CrLf sr ReadToEnd（） ToString）

fs Close（）

sr Close（）

End If

Return False

End Function

Protected Overloads Overrides Sub Dispose（ByVal disposing As Boolean）

If disposing Then

If Not （ponents Is Nothing） Then

ponents Dispose（）

End If

End If

Application RemoveMessageFilter（Me）

DragAcceptFiles（TextBox Handle ToInt False）

MyBase Dispose（disposing）

End Sub

lishixinzhi/Article/program/net/201311/13043

vb點(diǎn)虐 textbox1選中的文本，拖放到textbox2？

很久沒有上這里了，今天看到了這個(gè)問題，嘗試做了一個(gè)；

本例以源文本框TextBox1全部文字作為拖放文字為例，實(shí)現(xiàn)拖放

1、向一個(gè)窗體中添加兩個(gè)文本框，分別名為TextBox1，TextBox2。注意：把TextBox2控件的AllowDrop屬性設(shè)置成True，這點(diǎn)不要遺漏。

2、完整的代碼如下：

Public Class Form1

Private MouseIsDown As Boolean = False

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

'設(shè)置一個(gè)標(biāo)志以顯示鼠標(biāo)已按下。

MouseIsDown = True

End Sub

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

If MouseIsDown Then

'開始拖動(dòng)（將TextBox1的文本內(nèi)容作為拖放內(nèi)容）。

TextBox1.DoDragDrop(TextBox1.Text, DragDropEffects.Copy)

End If

MouseIsDown = False

End Sub

Private Sub TextBox2_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles TextBox2.DragEnter

'檢查正在被拖放的數(shù)據(jù)的格式。

If (e.Data.GetDataPresent(DataFormats.Text)) Then

'顯示復(fù)制光標(biāo)（表示是拖放行為）。

e.Effect = DragDropEffects.Copy

Else

'顯示不放置光標(biāo)（表示不是拖放行為）。

e.Effect = DragDropEffects.None

End If

End Sub

Private Sub TextBox2_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles TextBox2.DragDrop

'粘貼文本（將拖放內(nèi)容作為TextBox2的文本內(nèi)容）。

TextBox2.Text = e.Data.GetData(DataFormats.Text)

End Sub

End Class