fpspread控件,我怎么对指定的列的文字加颜色 如题 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 晕, fp_List.ForeColor = &H85500009: 偶有新问题了,我想点击一个按钮能让 fpspread控件里的行全部被选定 锁定?VB我不懂,其它语言中设Enable = flase就可以帮老鼠 UP 我怎么对指定的列的文字加颜色 //Option ExplicitPrivate Sub Form_Load()'指定第2列为红色 Dim i As Integer With Me.fpSpread1 For i = 1 To Me.fpSpread1.MaxRows .Col = 2 .Row = i .Text = "HelloWorld" .ForeColor = vbRed Next i End WithEnd Sub //将第2列选中Private Sub Command1_Click() With Me.fpSpread1 .Col = 2 .Col2 = 2 .Row = 1 .Row2 = .MaxRows .BlockMode = True .Lock = True .LockBackColor = vbBlack End WithEnd Sub 所有的东西参考spread的帮助文件。它本身带有exp,非常容易看懂 谢谢meilian 小李子,莫依 笑谈我的学习路--章立民 关于VB运用GDI+的问题 老马 我难受^^^^^^ vb 扫盲贴! 关于dde的简单问题,解决给分 关于vb的颜色转换和控件大小转换问题 在OCX中怎样才能退出呀? 已得到窗口的hwnd,我想调用窗口里面的子程序,怎么办? 怎样取得file控件选定的内容,是那个属性,急!! 如此多的编程语言VB还有用么? 请教各位高手 菜鸟求助,关于编译原理的一个问题
fp_List.ForeColor = &H85500009:
VB我不懂,其它语言中设Enable = flase就可以帮老鼠 UP
//
Option ExplicitPrivate Sub Form_Load()
'指定第2列为红色
Dim i As Integer
With Me.fpSpread1
For i = 1 To Me.fpSpread1.MaxRows
.Col = 2
.Row = i
.Text = "HelloWorld"
.ForeColor = vbRed
Next i
End With
End Sub
Private Sub Command1_Click()
With Me.fpSpread1
.Col = 2
.Col2 = 2
.Row = 1
.Row2 = .MaxRows
.BlockMode = True
.Lock = True
.LockBackColor = vbBlack
End With
End Sub