如何设置f1book中的单元格的背景色,我用(100分)

L

ld999

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-30

• #1

我的意思是将第一、二列全部设置成另一种颜色。
我的代码是:
procedure TForm1.BitBtn8Click(Sender: TObject);
var
vCellFmt: IF1CellFormat;
begin
f1book61.Sheet := 1;
f1book61.SetFocus;
f1book61.SetActiveCell(1,1);
F1book61.SetSelection(1, 1,20, 2);
vcellfmt:=f1book61.GetCellFormat;
vcellfmt.PatternBG:=rgb(128,128,128);
vcellfmt.PatternFG:=rgb(100,100,100);
运行程序,没有变化,请问应如何设置,请高手指点.

 

L

ld999

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-30

• #2

急

 

L

ld999

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-30

• #3

请帮忙

 

L

ld999

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-30

• #4

会f1book的老师们都上哪了!!!!

 

不

不知道_0909

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-30

• #5

//你试试，颜色搭配需要自己调
f16book1.Sheet := 1;
f16book1.SetFocus;
f16book1.SetActiveCell(1,1);
F16book1.SetSelection(1, 1,20, 2);
f16book1.SetPattern(1,rgb(1,100,1),rgb(1,21,12))或FormatPatternDlg

 

L

ld999

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-30

• #6

TO:不知道_0909
非常感谢你，你已经帮了我两次忙了，我真是佩服极了，
用你的代码，在指定的单元格中填充了颜色，但是其中的表格线却没有了，我如何设置表格线的颜色呢？？
可以告知你的E-mail吗，我可以向你请教。谢谢

 

L

ld999

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-31

• #7

我的问题已经解决，谢谢！！！

 

不

不知道_0909

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-01

• #8

昨天没有上网，我的E-mail:zzb0909@sina.com,多多交流