:怎样添加一个下拉框到msflexgrid

来源：百度文库 编辑：九乡新闻网 时间：2024/05/03 16:12:53
首先应该建立一个combo1的comboBox控件，作为下拉框的最终实现工具。
(本文来自编程入门网：http://www.bianceng.cn/Programming/vb/200910/11517.htm) Private Sub Combo1_Click()
MSFlexGrid1.Row = MSFlexGrid1.RowSel
MSFlexGrid1.Col = 2
MSFlexGrid1.Text = Combo1.Text
End Sub'Private Sub Combo1_LostFocus()
'Combo1.Text = MSFlexGrid1.Text'End Sub
Private Sub Form_Load()
Combo1.Visible = False
Combo1.AddItem "aaa"
Combo1.AddItem "bbb"
Combo1.AddItem "ccc"
MSFlexGrid1.Cols = 10
MSFlexGrid1.Rows = 10
End Sub
Private Sub MSFlexGrid1_EnterCell()
If MSFlexGrid1.Col = 2 Then
MSFlexGrid1.CellBackColor = vbWhite
MSFlexGrid1.CellForeColor = vbBlue
Combo1.Move MSFlexGrid1.Left + MSFlexGrid1.CellLeft, MSFlexGrid1.Top + MSFlexGrid1.CellTop, MSFlexGrid1.CellWidth
Combo1.Visible = True
'Combo1.Text = MSFlexGrid1.Text
Else
Exit Sub
End If' Combo1.SelStart = 0
' Combo1.SelLength = Len(Combo1.Text)
End Sub
Private Sub MSFlexGrid1_LeaveCell()
'If MSFlexGrid1.Col = 2 Then
MSFlexGrid1.CellBackColor = vbWhite
MSFlexGrid1.CellForeColor = vbBlue
'Combo1.Move MSFlexGrid1.Left + MSFlexGrid1.CellLeft, MSFlexGrid1.Top + MSFlexGrid1.CellTop, MSFlexGrid1.CellWidth
'MSFlexGrid1.Text = Combo1.Text
' Else
'Exit Sub
'End If
End Sub
'Private Sub Combo1_Change()
'MSFlexGrid1.Row = MSFlexGrid1.RowSel
'MSFlexGrid1.Col = 2
'MSFlexGrid1.Text = Combo1.Text
'End Sub
Private Sub Timer1_Timer()
Timer1.Enabled = True
Combo1.Visible = False
End Sub本文来自编程入门网：http://www.bianceng.cn/Programming/vb/200910/11517.htm
怎样添加一个下拉框到msflexgrid C#中为DataGrid添加下拉列表框 怎样把图片添加到主页上 怎样添加新的项目到启动项里面？ 怎样将视频添加到我的博客 怎样给日志添加一个漂亮的《标题》（代码） 修改错误 一个MSFlexGrid控件的使用的例子 在页面添加一个栏目框 照片添加到风景图片 添加到QQ表情 怎样把动画添加到文字中（制作闪字）0 (视频)怎样添加首页 怎样“添加模块” JQuery下拉框与复选框 jQuery对下拉框的一些操作 Jquery取出下拉框的值 怎样把一个1元苹果卖到100万 怎样把一个1元苹果卖到100万 怎样把一个1元苹果卖到100万 怎样把一个1元苹果卖到100万 怎样把一个1元苹果卖到100万！！ 怎样把一个1元苹果卖到100万 怎样把一个1元苹果卖到100万 excel中如何设单元格为下拉选择框，