我想在flexcell中做一个复选框combox
vb在form_load中
代码如下,复选框是出来了,但是我添加的选项没有出来,跟我没注册有关系吗?
'Grid1.Column(2).CellType = cellComboBox
'Grid1.Column(2).MaxLength = 20
'With Grid1.ComboBox(2)
' .Locked = True
' .Font.Name = "Courier New"
' .AddItem "600001 已定界"
' .AddItem "600002 未定界"
' .AddItem "600003 争议界"
' .AddItem "600004 工作界"
' .AddItem "600009 其他"
'.ListIndex = 1
'End With
'Grid1.Column(3).CellType = cellComboBox
'With Grid1.ComboBox(3)
' .AddItem "1 围墙"
' .AddItem "2 墙壁"
' .AddItem "3 栅栏"
' .AddItem "4 铁丝网"
' .AddItem "5 滴水线"
' .AddItem "6 路涯线"
' .AddItem "7 两点连线"
' .AddItem "9 其他"
'End With
'Grid1.Column(4).CellType = cellComboBox
'With Grid1.ComboBox(4)
' .AddItem "1 左"
' .AddItem "2 中"
' .AddItem "3 右"
'End With
vb在form_load中
代码如下,复选框是出来了,但是我添加的选项没有出来,跟我没注册有关系吗?
'Grid1.Column(2).CellType = cellComboBox
'Grid1.Column(2).MaxLength = 20
'With Grid1.ComboBox(2)
' .Locked = True
' .Font.Name = "Courier New"
' .AddItem "600001 已定界"
' .AddItem "600002 未定界"
' .AddItem "600003 争议界"
' .AddItem "600004 工作界"
' .AddItem "600009 其他"
'.ListIndex = 1
'End With
'Grid1.Column(3).CellType = cellComboBox
'With Grid1.ComboBox(3)
' .AddItem "1 围墙"
' .AddItem "2 墙壁"
' .AddItem "3 栅栏"
' .AddItem "4 铁丝网"
' .AddItem "5 滴水线"
' .AddItem "6 路涯线"
' .AddItem "7 两点连线"
' .AddItem "9 其他"
'End With
'Grid1.Column(4).CellType = cellComboBox
'With Grid1.ComboBox(4)
' .AddItem "1 左"
' .AddItem "2 中"
' .AddItem "3 右"
'End With
解决方案 »
- VB如何连接ORACLE数据库(库所在的机器只能被应用服务器访问到)
- 用VB编程画粗线条时,能不能改变线端头的样式
- 如何将A窗体永远在B窗体的上面?
- Update Sql2000数据的问题,字段的名字有用数字开头的 比如 100码、200码... ...
- 【〓 求教报表高手 〓】
- 急急急!每分钟在线等待!在下是一个初学者,哪位大侠没事,请都在VB中使用API函数的方法!(在PB中使用API有知道)
- 一个天大的消息 .. Microsoft总臷.比乐.盖茨..被人暗杀了
- 抢分呀(1000分)http://expert.csdn.net/Expert/topic/1370/1370389.xml?temp=.8434259
- ”在线播放不下载“,在线播放了后,C:\WIN98\Temporary Internet Files目录下怎么没有
- 线程为何物?请大家帮我搞清这个问题。
- 大家帮我看下,谢谢了,老显示列名无效
- vb存取oracle图片代码谁有?急用。。
Grid1.Cols = 7
Grid1.AllowUserResizing = False
Grid1.BoldFixedCell = False
Grid1.DisplayFocusRect = False
Grid1.ExtendLastCol = True
Grid1.DrawMode = cellOwnerDraw '允许OwnerDraw,在固定行上画小图标
Grid1.Appearance = Flat
Grid1.FixedRowColStyle = Flat
Grid1.ScrollBarStyle = Flat
Grid1.DefaultFont.Name = "Tahoma"
Grid1.DefaultFont.Size = 8
Grid1.BackColorFixed = RGB(90, 158, 214)
Grid1.BackColorFixedSel = RGB(110, 180, 230)
Grid1.BackColorBkg = RGB(90, 158, 214)
Grid1.BackColorScrollBar = RGB(231, 235, 247)
Grid1.BackColor1 = RGB(231, 235, 247)
Grid1.BackColor2 = RGB(239, 243, 255)
Grid1.GridColor = RGB(148, 190, 231)
Grid1.Cell(0, 1).Text = "TextBox"
Grid1.Cell(0, 2).Text = "ComboBox"
Grid1.Cell(0, 3).Text = "CheckBox"
Grid1.Cell(0, 4).Text = "Calendar"
Grid1.Cell(0, 5).Text = "Button"
Grid1.Cell(0, 6).Text = "HyperLink" Grid1.Column(1).CellType = cellTextBox
Grid1.Column(2).CellType = cellComboBox
Grid1.Column(2).MaxLength = 4
Grid1.Column(3).CellType = cellCheckBox
Grid1.Column(4).CellType = cellCalendar
Grid1.Column(5).CellType = cellButton
Grid1.Column(6).CellType = cellHyperLink
Grid1.Range(1, 6, Grid1.Rows - 1, 6).ForeColor = vbBlue
Grid1.Column(0).Width = 0
Grid1.Column(1).Width = 100
Grid1.Column(2).Width = 100
Grid1.Column(3).Width = 70
Grid1.Column(4).Width = 100
Grid1.Column(5).Width = 85
Grid1.Column(6).Width = 150
With Grid1.ComboBox(2)
'.Locked = True
'用一种固定宽度的字体,可以使下拉列表中的项目对齐。
.Font.Name = "Courier New"
'第二列最多只能输入4个字符(MaxLength属性),所以后面的数字部分不会显示到单元格。
'如果要让下拉框看起来象一个表格,可以用制表符"│"替换掉"-",用这种方法可以实现多列的下拉框
.AddItem "AAAA - 001"
.AddItem "AAAB - 002"
.AddItem "ABCC - 003"
.AddItem "ABCD - 004"
.AddItem "BAAA - 005"
.AddItem "BBCC - 006"
.AddItem "CABC - 007"
.AddItem "CABB - 008"
.AddItem "CBAA - 009"
.AddItem "DABC - 010"
End With