VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト]
[新規投稿]
[新着記事]
[ワード検索]
[管理用]
| 投稿日 | ： 2006/11/21(Tue) 22:55 |
| 投稿者 | ： Starfish |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re: 選択した色で背景色を変更 |
このプログラムには、２つの問題があります。
１．arr_color.Addの前に、.ListIndex = 0でList1_Clickが動いてしまう。
F8キーで、ステップ実行してみてください。
２．BackColor プロパティに文字列をセットしようとしている
こんなのでは、どうでしょうか？
Private Sub Form_Load()
Call list1_set
End Sub
Private Sub list1_set()
With List1
.Clear
.AddItem "黒"
.AddItem "青"
.AddItem "緑"
.AddItem "シアン"
.AddItem "赤"
.AddItem "マゼンダ"
.AddItem "黄"
.AddItem "白"
.AddItem "灰色"
.AddItem "明るい青"
.AddItem "明るい緑"
.AddItem "明るいシアン"
.AddItem "明るい赤"
.AddItem "明るいマゼンダ"
.AddItem "明るい黄"
.AddItem "明るい白"
.ListIndex = 0
End With
End Sub
Private Sub List1_Click()
BackColor = QBColor(List1.ListIndex)
End Sub
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）