VB程序中如何設(shè)置字體顏色？在VB6中，字體大小可以通過設(shè)置對象的字體屬性來設(shè)置，字體顏色可以通過設(shè)置forecolor屬性來設(shè)置。例如，下面的代碼可以將文本框中的字體設(shè)置為“隸書”字體大小為28點，

VB程序中如何設(shè)置字體顏色？

在VB6中，字體大小可以通過設(shè)置對象的字體屬性來設(shè)置，字體顏色可以通過設(shè)置forecolor屬性來設(shè)置。例如，下面的代碼可以將文本框中的字體設(shè)置為“隸書”字體大小為28點，字體顏色設(shè)置為紅色私有子命令1_uuClick（）Text1。字體大小=1。字體名稱=“隸書”文本1。Forecolor=vbredend sub

私有子工作表uuSelectionChange（ByVal目標(biāo)范圍）

如果目標(biāo)。計數(shù)&那么gt 255Target.Font.Color=IIf（Target.Font.Color=Vbblack，vbred，Vbblack）

結(jié)束sub

在錯誤上方，使用以下命令：

專用子工作表uuSelectionChange（ByVal目標(biāo)作為范圍）

如果目標(biāo)。計數(shù)> 255和目標(biāo)。計數(shù)

末端接頭