VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [管理用]

投稿日： 2004/11/18(Thu) 21:13
投稿者： 太一
Ｅメール：
ＵＲＬ：
タイトル： 変数に設定する特定の文字に色を付ける

データベースから取得した値を、変数にデータを設定して
コンボボックスに表示しています。

そこで、変数に設定した特定の文字のみを赤色にして表示
したいのですが、そのようなことは可能なのでしょうか。

DEL_DATE の日付の値をに色をつけたいのですが。

Dim objSess         As Object
Dim objDb           As Object
Dim objDs           As Object
Dim objCol          As Object
Dim str_SQL         As String
Dim I               As Integer
Dim Entry           As String

    データベースから取得処理

    Do Until objDs.EOF
       If Not IsNull(objDs("TO_CHAR(DEL_DATE,'YYYY/MM/DD')")) Then
           Entry = objDs("NAMAE").Value & " (" & objDs("TO_CHAR(DEL_DATE,'YYYY/MM/DD')") & ")"
       Else
           Entry = objDs("NAME").Value
       End If
       Combo1.AddItem Entry, I
       objDs.DbMoveNext
       I = I + 1
    Loop

- 関連一覧ツリー （★ をクリックするとツリー全体を一括表示します）
- 返信フォーム （この記事に返信する場合は下記フォームから投稿して下さい）

- VBレスキュー(花ちゃん) - - Web Forum -