VB6でフォントの色を変更するにはどうすればよいですか？

レコードセットの値を表示するコードがあります。値が8000未満の場合は、表示されるテキストの色を変更したいと考えています。私はこれを試みた：VB6でフォントの色を変更するにはどうすればよいですか？

If (recordset(1).Value) < 80000 Then 
    font.color = &HFFEFEF 
End If

しかし、それは動作しませんでした。どうすればいいのですか？

出典

2009-06-29 Gopal

フォントは何を指していますか？どのコントロールを使用してレコードセットの値を表示するのですか？ – Rony

@Gopal、Ravenさんの回答があなたの問題を解決した場合は、回答としてマークしてください（投票エリアの下のチェックマーク） –

8000または80000未満ですか？ –

あなたは、情報を表示する方法を指定しませんが、あなたはテキストボックスを使用している場合、あなたはのは答えるレイヴンするForeColorプロパティ

Text1.ForeColor = &HFFEFEF

出典

2009-06-29 15:41:51 raven

ありがとう、今正しく働いている – Gopal

アドオンを経由して、テキストの色を変更します。

使用することもできます。各条件内のテキストボックス/ラベルの前景色を変更

Text1.ForeColor = vbBlack 

'vbBlack, vbWhite, vbBlue, vbRed, vbGreen, vbYellow, vbMagenta, vbCyan

と

Text1.ForeColor = RGB(255, 0, 0) 'red 

0, 0, 0 - black 
255, 255, 255 - white 
255, 0, 0 - red 
0, 255, 0 - green 
0, 0, 255 - blue 
255, 255, 0 - yellow 
0, 255, 255 - cyan 
255, 0, 255 - magenta

出典

2009-06-30 14:16:44 Secko

は、トリックを行うことがあります。たとえば、整数を入力したいと思い、入力した整数がODDかEVENかどうかを知りたいと思います。

取引は次のとおりです。整数が奇数の場合
、それがEVENであれば、それはラベルに青として表示されます他に、ラベルにREDテキストとして表示されます。

入力数：

例として、これを取るテキスト1
出力：LABEL1

コード：

if (val(text1) mod 2) = 1 then 
     label1 = "ODD" 
     label1.Forecolor = vbRed 
else 
     label1 = "EVEN" 
     label1.Forecolor = vbBlue 
end if

* modが取るために使用されるモジュロ演算子関数でありますtext1の残りの部分を2で割ったものですか？

出典

2013-01-19 16:54:25

VB6でフォントの色を変更するにはどうすればよいですか？

答えて

関連する問題