颜色组合框vbnet,画框颜色搭配

VB.NET 如何实现DataGridView里嵌入组合框，具体问题看图

我这里没有VB 只能给你粗略的说一下

利用combo控件的change事件

或者list控件的click事件

来判断datagrid的dataSouce

假如你使用的是数据绑定的话

当然如果数据库不是很庞大(比如几万条甚至几百万条记录)建议你使用ado来写入

那么就更改ADODB.Connect连接的数据库就可以了

相关问答

Q1: vb 组合框

Dim myX()

Dim n As Long

Dim myMin

Private Sub Combo1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

List1.AddItem Combo1.Text

n = n + 1

ReDim Preserve myX(n)

myX(n - 1) = Combo1.Text

If n = 1 Then myMin = Val(Combo1.Text)

If Val(Combo1.Text) myMin Then

myMin = Val(Combo1.Text)

End If

Combo1.Text = ""

End If

End Sub

Private Sub Command1_Click()

Dim x0

Dim i As Long

Dim myStr As String

myStr = Join(myX, ",")

If LenB(myStr) 0 Then

x0 = myX(0)

myX(0) = myMin

Debug.Print x0, myMin, UBound(myX)

For i = 1 To UBound(myX) - 1

If Val(myX(i)) = Val(myMin) Then

myX(i) = x0

Exit For

End If

Next i

List1.Clear

For i = 0 To UBound(myX) - 1

List1.AddItem myX(i)

Next i

End If

End Sub

Private Sub Form_Load()

Combo1.Text = ""

n = 0List1.Clear

myMin = 0

End Sub

Q2: VB中，组合框combobox问题

选择字体颜色的代码如下：

Private Sub Combo2_Click()

Select Case Combo2.ListIndex

Case 0

Text1.ForeColor = vbRed

Case 1

Text1.ForeColor = vbBlue

Case 2

Text1.ForeColor = HC000C0

Case 3

Text1.ForeColor = HFF00

End Select

End Sub

Private Sub Form_Load()

Combo2.List(0) = "红色"

Combo2.List(1) = "蓝色"

Combo2.List(2) = "紫色"

Combo2.List(3) = "绿色"

End Sub

在combobox的click事件中加入Select case结构可以改变颜色。

Q3: VB组合框如何设置简单组合框 需要设置什么属性 除了style=1还需要什么

Excel在日常使用中，经常使用特定的几个条件或选择项就可以实现跳转到特定的下一步操作或实现其它用途，下面用VB组合框设置简单组合框：

1、菜单栏选依次选择视图-工具栏-控件工具箱。

2、在控件工具箱里拖出组合框。

3、双击控件进入VB编辑器，并录入图中语句。

4、按运行子进程在绿色三角键并创建宏名称。

5、返回表格界面查看结果。设置简单组合框成功。

注意事项：

在Visual Basic 6.0中，采用面向对象程序设计方法（Object-Oriented Programming），把程序和数据封装起来作为一个对象，每个对象都是可视的。

Q4: vb.net 组合框的数据源如何设置

dim sql as string="SELECT * from tableA"

dim dtable as new datatable

SqlCmd = New OleDbCommand(sql, SqlConn)

SqlApt = New OleDbDataAdapter(sql )

SqlApt.Fill(dtable)

combobox1.datasource=dtable