VB.net 如何綁定許多button和數(shù)組

vb.net里沒有像vb那樣的控件數(shù)組。也就是說復(fù)制控件后粘貼沒有提示你是否創(chuàng)建控件數(shù)組。

站在用戶的角度思考問題，與客戶深入溝通，找到烏魯木齊網(wǎng)站設(shè)計(jì)與烏魯木齊網(wǎng)站推廣的解決方案，憑借多年的經(jīng)驗(yàn)，讓設(shè)計(jì)與互聯(lián)網(wǎng)技術(shù)結(jié)合，創(chuàng)造個(gè)性化、用戶體驗(yàn)好的作品，建站類型包括：網(wǎng)站設(shè)計(jì)制作、網(wǎng)站設(shè)計(jì)、企業(yè)官網(wǎng)、英文網(wǎng)站、手機(jī)端網(wǎng)站、網(wǎng)站推廣、域名與空間、網(wǎng)站空間、企業(yè)郵箱。業(yè)務(wù)覆蓋烏魯木齊地區(qū)。

你可以試驗(yàn)下面的代碼。

Form1.Designer.vb 設(shè)計(jì)器中的窗體代碼如下，上面有六個(gè)button。最右邊的用來改變前5個(gè)地text：

Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated() Partial Class Form1

#Region "Windows フォーム デザイナによって生成されたコード "

System.Diagnostics.DebuggerNonUserCode() Public Sub New()

MyBase.New()

'この呼び出しは、Windows フォーム デザイナで必要です。

InitializeComponent()

End Sub

'Form は、コンポーネント一覧に后処理を?qū)g行するために dispose をオーバーライドします。

System.Diagnostics.DebuggerNonUserCode() 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 フォーム デザイナで必要です。

Private components As System.ComponentModel.IContainer

Public ToolTip1 As System.Windows.Forms.ToolTip

Public WithEvents Command2 As System.Windows.Forms.Button

Public WithEvents _Command1_4 As System.Windows.Forms.Button

Public WithEvents _Command1_3 As System.Windows.Forms.Button

Public WithEvents _Command1_2 As System.Windows.Forms.Button

Public WithEvents _Command1_1 As System.Windows.Forms.Button

Public WithEvents _Command1_0 As System.Windows.Forms.Button

Public WithEvents Command1 As Microsoft.VisualBasic.Compatibility.VB6.ButtonArray

'メモ: 以下のプロシージャは Windows フォーム デザイナで必要です。

'Windows フォーム デザイナを使って変更できます。

'コード エディタを使用して、変更しないでください。

System.Diagnostics.DebuggerStepThrough() Private Sub InitializeComponent()

Me.components = New System.ComponentModel.Container

Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components)

Me.Command2 = New System.Windows.Forms.Button

Me._Command1_4 = New System.Windows.Forms.Button

Me._Command1_3 = New System.Windows.Forms.Button

Me._Command1_2 = New System.Windows.Forms.Button

Me._Command1_1 = New System.Windows.Forms.Button

Me._Command1_0 = New System.Windows.Forms.Button

Me.Command1 = New Microsoft.VisualBasic.Compatibility.VB6.ButtonArray(Me.components)

CType(Me.Command1, System.ComponentModel.ISupportInitialize).BeginInit()

Me.SuspendLayout()

'

'Command2

'

Me.Command2.BackColor = System.Drawing.SystemColors.Control

Me.Command2.Cursor = System.Windows.Forms.Cursors.Default

Me.Command2.ForeColor = System.Drawing.SystemColors.ControlText

Me.Command2.Location = New System.Drawing.Point(235, 176)

Me.Command2.Name = "Command2"

Me.Command2.RightToLeft = System.Windows.Forms.RightToLeft.No

Me.Command2.Size = New System.Drawing.Size(65, 25)

Me.Command2.TabIndex = 5

Me.Command2.Text = "Change"

Me.Command2.UseVisualStyleBackColor = False

'

'_Command1_4

'

Me._Command1_4.BackColor = System.Drawing.SystemColors.Control

Me._Command1_4.Cursor = System.Windows.Forms.Cursors.Default

Me._Command1_4.ForeColor = System.Drawing.SystemColors.ControlText

Me.Command1.SetIndex(Me._Command1_4, CType(4, Short))

Me._Command1_4.Location = New System.Drawing.Point(16, 176)

Me._Command1_4.Name = "_Command1_4"

Me._Command1_4.RightToLeft = System.Windows.Forms.RightToLeft.No

Me._Command1_4.Size = New System.Drawing.Size(93, 25)

Me._Command1_4.TabIndex = 4

Me._Command1_4.Text = "Command1"

Me._Command1_4.UseVisualStyleBackColor = False

'

'_Command1_3

'

Me._Command1_3.BackColor = System.Drawing.SystemColors.Control

Me._Command1_3.Cursor = System.Windows.Forms.Cursors.Default

Me._Command1_3.ForeColor = System.Drawing.SystemColors.ControlText

Me.Command1.SetIndex(Me._Command1_3, CType(3, Short))

Me._Command1_3.Location = New System.Drawing.Point(16, 137)

Me._Command1_3.Name = "_Command1_3"

Me._Command1_3.RightToLeft = System.Windows.Forms.RightToLeft.No

Me._Command1_3.Size = New System.Drawing.Size(93, 25)

Me._Command1_3.TabIndex = 3

Me._Command1_3.Text = "Command1"

Me._Command1_3.UseVisualStyleBackColor = False

'

'_Command1_2

'

Me._Command1_2.BackColor = System.Drawing.SystemColors.Control

Me._Command1_2.Cursor = System.Windows.Forms.Cursors.Default

Me._Command1_2.ForeColor = System.Drawing.SystemColors.ControlText

Me.Command1.SetIndex(Me._Command1_2, CType(2, Short))

Me._Command1_2.Location = New System.Drawing.Point(16, 96)

Me._Command1_2.Name = "_Command1_2"

Me._Command1_2.RightToLeft = System.Windows.Forms.RightToLeft.No

Me._Command1_2.Size = New System.Drawing.Size(93, 25)

Me._Command1_2.TabIndex = 2

Me._Command1_2.Text = "Command1"

Me._Command1_2.UseVisualStyleBackColor = False

'

'_Command1_1

'

Me._Command1_1.BackColor = System.Drawing.SystemColors.Control

Me._Command1_1.Cursor = System.Windows.Forms.Cursors.Default

Me._Command1_1.ForeColor = System.Drawing.SystemColors.ControlText

Me.Command1.SetIndex(Me._Command1_1, CType(1, Short))

Me._Command1_1.Location = New System.Drawing.Point(16, 56)

Me._Command1_1.Name = "_Command1_1"

Me._Command1_1.RightToLeft = System.Windows.Forms.RightToLeft.No

Me._Command1_1.Size = New System.Drawing.Size(93, 25)

Me._Command1_1.TabIndex = 1

Me._Command1_1.Text = "Command1"

Me._Command1_1.UseVisualStyleBackColor = False

'

'_Command1_0

'

Me._Command1_0.BackColor = System.Drawing.SystemColors.Control

Me._Command1_0.Cursor = System.Windows.Forms.Cursors.Default

Me._Command1_0.ForeColor = System.Drawing.SystemColors.ControlText

Me.Command1.SetIndex(Me._Command1_0, CType(0, Short))

Me._Command1_0.Location = New System.Drawing.Point(16, 16)

Me._Command1_0.Name = "_Command1_0"

Me._Command1_0.RightToLeft = System.Windows.Forms.RightToLeft.No

Me._Command1_0.Size = New System.Drawing.Size(93, 25)

Me._Command1_0.TabIndex = 0

Me._Command1_0.Text = "Command1"

Me._Command1_0.UseVisualStyleBackColor = False

'

'Form1

'

Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)

Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font

Me.BackColor = System.Drawing.SystemColors.Control

Me.ClientSize = New System.Drawing.Size(312, 213)

Me.Controls.Add(Me.Command2)

Me.Controls.Add(Me._Command1_4)

Me.Controls.Add(Me._Command1_3)

Me.Controls.Add(Me._Command1_2)

Me.Controls.Add(Me._Command1_1)

Me.Controls.Add(Me._Command1_0)

Me.Cursor = System.Windows.Forms.Cursors.Default

Me.Location = New System.Drawing.Point(4, 23)

Me.Name = "Form1"

Me.RightToLeft = System.Windows.Forms.RightToLeft.No

Me.Text = "Form1"

CType(Me.Command1, System.ComponentModel.ISupportInitialize).EndInit()

Me.ResumeLayout(False)

End Sub

#End Region

End Class

’==========================================

Form1中的代碼如下：

Friend Class Form1

Inherits System.Windows.Forms.Form

Private Sub Command2_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command2.Click

Dim i As Object

'按鈕標(biāo)題數(shù)組。

Dim cArr() As String = New String() {"A", "B", "C", "D", "E", "F", "G"}

For i = 0 To Me.Command1.Count - 1

Me.Command1(i).Text = cArr(i)

Next

End Sub

End Class

vb.net中的combobox數(shù)據(jù)綁定問題

使用SelectedIndexChanged事件

Private Sub cbxBigDept_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

dim strBM as string

strBM=cbxBigDept.selectedValue ' 獲得當(dāng)前大部門名稱

Dim myConn as SqlConnection = new sqlconnection(".......")

myConn.Open()

Dim myCmd as string = "select 小部門 from 小部門表 Where 大部門='" strBM "'"

Dim myAdapter as SqlDataAdapter = new SqlDataAdapter(myCmd,myConn)

Dim myDataSet as DataSet = new DataSet

myAdapter.Fill(myDataSet)

Me.cbxSonDept.DataSource = myAdapter.Table(0)

Me.cbxSonDept.ValueMember = "小部門"

myConn.Close

End Sub

祝你成功！

vb.net中關(guān)于combobox數(shù)據(jù)綁定的問題

源碼給你，采納 不謝

等下，我好想發(fā)現(xiàn)了什么 你是想用comb 控件來顯示列數(shù)據(jù)？

這有點(diǎn)不切實(shí)際

用datagridview控件來顯示吧（舉個(gè)例子給你 excel 表）

dim xb as excel.workbook

dim xp as excel.application

dim column as long

Dim index As Integer = DataGridView1.Rows.Add()

xb=xp.workbook.open("你的excel數(shù)據(jù)表")

column=xb.columns.count

for j as integer= 1 to column

if xb.rows.cells(1,j)=comb1.selectedvalue then

DataGridView1.Rows(index).Cells(j - 1).Value = xp.rows("1").Cells(j - 1).Value

xb.close(true)

xp.close(true)

xb=nothing

xp=nothing

采納后可以追問

VB.NET中怎麼用代碼實(shí)現(xiàn)DataGridview的數(shù)據(jù)綁定?

一般來說：連接數(shù)據(jù)庫這一塊都做成DLL，這樣方便

在配置文件app.config中加入

//m_SqlPath

存放SQL語句的XML文件

Dim

sqlHelper

As

New

SQLHelper("LotDBConnection")

Dim

sqlRead

As

New

ResourceHelper

Dim

ht

As

New

Hashtable

Dim

strSQL

As

String

Try

'設(shè)置SQL文參數(shù)

ht.Clear()

ht.Add(ColumnName.USER_ID.ToString,

Trim(Me.txtUserID.Text))

ht.Add(ColumnName.USER_NAME.ToString,

Trim(Me.txtUserName.Text))

'數(shù)據(jù)查詢

strSQL

=

sqlRead.GetSQLSentence("GetUserList",

m_SqlPath,

ht)

ds

=

sqlHelper.ExecuteDataSet(strSQL)

If

ds.Tables(0).Rows.Count

=

Then

MessageBox

.Show

("數(shù)據(jù)不存在");

Else

'數(shù)據(jù)綁定

dgvUserMeisai.DataSource

=

ds.Tables(0)

End

If

Catch

ex

As

Exception

MessageBox

.Show

(ex.Message

);

Finally

sqlHelper

=

Nothing

sqlRead

=

Nothing

ht

=

Nothing

End

Try

vb.net動(dòng)態(tài)添加控件，并且綁定了一些事件，這些事件只能對最新生成的控件做修改，之前生成的無法修改

比如說這樣添加的計(jì)時(shí)器：

Dim Timer1 As New Timer

你要在合適的地方開始，比如窗體Load事件中，這樣：

Timer1.Interval = 1000 '單位毫秒，1000毫秒＝1秒

Timer1.Enabled = True '啟用計(jì)時(shí)器

然后在代碼窗口上方下拉列表里選擇Timer1的Tick事件，自動(dòng)添加代碼：

Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick

End Sub

這是計(jì)時(shí)器觸發(fā)的事件，每秒觸發(fā)一次，在這里面輸入循環(huán)判斷是否有日程即可。提示：你可以用Now對象獲取當(dāng)前的日期和時(shí)間。

.net技術(shù)：C#.NET與VB.NET區(qū)別

1、.NET是一個(gè)平臺，一個(gè)抽象的平臺的概念。

.NET平臺其本身實(shí)現(xiàn)的方式其實(shí)還是庫，抽象層面上來看是一個(gè)平臺。

本人理解的.NET核心就是.NET Framwork。

.NET Framework包括兩個(gè)關(guān)鍵組成元素：

a.Common Language Runtime，公共語言運(yùn)行時(shí)（CLR）-提供內(nèi)在管理，代碼安全性檢測等功能

b..NET Framework Class Library，.NET框架類庫（FLC）-提供大量應(yīng)用類庫，提高開發(fā)效率

學(xué)習(xí).NET Framework 是所有.NET 開發(fā)人員都必須的，否則開發(fā).NET程序永遠(yuǎn)都是停留在‘外功’的招式，NET Framework 是.NET開發(fā)高手的‘內(nèi)功’修行之一?！?/p>

2、C#是一個(gè)程序設(shè)計(jì)語言，僅僅是一個(gè)語言。

程序設(shè)計(jì)語言僅僅是為了方便開發(fā)人員和計(jì)算機(jī)溝通的工具，雖然C#語法相對C和C++要多一些，但是相對來看C#語法都比較固定，這樣使用起來卻都很容易。我認(rèn)可一位朋友說的，C#的語法更嚴(yán)謹(jǐn)！

這里回過來看看.NET和C#的關(guān)系，不得不提的是.NET程序的執(zhí)行過程。

C#符合.NET CLR中的公共語言運(yùn)行規(guī)范。CLS:common language specification，當(dāng)然所有的.NET Language都是符合這個(gè)規(guī)范的例如：VB.NET、XAML和C++/CLI....等等。

VB.NET封裝的程度更加高一些。比如可以很容易的使用集合類型。而到了C#就不得不寫一個(gè)類，實(shí)現(xiàn)IList,ICollection和IEnumerable接口，然后再寫方法。這樣也就用C#實(shí)現(xiàn)了一個(gè)功能和VB.NET一樣的集合類。也就是說，用VB.NET是半路出家，C#是從頭開始。當(dāng)然這也決定了在設(shè)計(jì)時(shí)的思路。

C#需要符合.NET CLS，是因?yàn)?NET CLR和JAVA 虛擬機(jī)類似，有一個(gè)中間語言共機(jī)器來執(zhí)行。所有不同語言的.NET代碼在執(zhí)行前會被編譯成同樣的中間語言(MSIL)，所以所有.NET支持語言都必須符合符合CLS規(guī)范。

P.S：如果做.NET 3.0 XAML開發(fā)的朋友，可以嘗試下ildasm.exe看看XAML的應(yīng)用程序，會發(fā)現(xiàn)原來XAML其實(shí)很簡單。 　

3、ASP.NET是一個(gè)網(wǎng)站開發(fā)的技術(shù)，僅僅是.NET框架中的一個(gè)應(yīng)用模型。

網(wǎng)站欄目：vb.net后期綁定的簡單介紹
本文地址：http://jinyejixie.com/article10/heppdo.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供搜索引擎優(yōu)化、企業(yè)建站、小程序開發(fā)、軟件開發(fā)、移動(dòng)網(wǎng)站建設(shè)、標(biāo)簽優(yōu)化

廣告

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