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

投稿日： 2006/11/21(Tue) 20:42
投稿者： たけ
Ｅメール：
ＵＲＬ：
タイトル： 選択した色で背景色を変更

タイトルの通り、リストボックスから選択した色で
背景色を変更しようとしているのですが、
BackColor への設定でエラーになります。

プロシージャの呼び出し、または、引数が不正です。
が表示されます。

---------------------------------------
Dim arr_color As New Collection
Private Sub Form_Load()
    List1.Clear
    Call list1_set
End Sub
Private Sub list1_set()
    With List1
        .Clear
        .AddItem "黒", 0
        .AddItem "赤", 1
        .AddItem "緑", 2
        .AddItem "黄", 3
        .AddItem "青", 4
        .AddItem "マゼンダ", 5
        .AddItem "シアン", 6
        .AddItem "白", 7
        .ListIndex = 0
    End With
    arr_color.Add "vbBlack"
    arr_color.Add "vbRed"
    arr_color.Add "vbGreen"
    arr_color.Add "vbYellow"
    arr_color.Add "vbBlue"
    arr_color.Add "vbMagenta"
    arr_color.Add "vbCyan"
    arr_color.Add "vbWhite"
End Sub

Private Sub List1_Click()
    BackColor = arr_color.Item(1)
End Sub
-----------------------------------------------

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

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