ボタンの境界線をバックカラーの色と同じにしたい への返答
投稿で使用できる特殊コードの説明。(別タブで開きます。)
以下の返答は逆順(新しい順)に並んでいます。
投稿者 shu (社会人)
投稿日時
2011/6/29 16:35:00
Text が""なら
ForeColor = BackColor
でいいです。
ForeColor = BackColor
でいいです。
投稿者 さなだ丸 (社会人)
投稿日時
2011/6/29 15:28:59
U_button(i).BackColor = Color.Gray でいいんじゃないの？
そういうことと違うの？
そういうことと違うの？
投稿者 豊臣レオ (その他)
投稿日時
2011/6/29 00:19:42
プロパティーを直接いじると、できるんですけど。
コード化の処理がわかりませんのです。
コード化の処理がわかりませんのです。
投稿者 豊臣レオ (その他)
投稿日時
2011/6/29 00:17:22
チュートリアルの迷路を実験中です。
ｺｰﾄﾞでボタンの境界線をバッカラーと同じ色にしたい。
あるいわ、境界線を見えなくする。
ｺｰﾄﾞでボタンの境界線をバッカラーと同じ色にしたい。
あるいわ、境界線を見えなくする。
Option Explicit On
Option Infer Off
Option Strict On
'VisualBasic2010
Public Class Form1
'パネルの宣言＆インスタンス
Dim U_panel As New Panel With {
.Dock = DockStyle.Fill,
.BorderStyle = BorderStyle.Fixed3D
}
'ボタンの宣言
Const U_button_suu As Integer = 3
Dim U_button(U_button_suu - 1) As Button
Sub U_button_set()
For i As Integer = 0 To U_button_suu - 1
'ボタンのプロパティの設定
U_button(i) = New Button With {
.Size = New Size(U_button_data(i * 4), U_button_data(i * 4 + 1)),
.Location = New Point(U_button_data(i * 4 + 2), U_button_data(i * 4 + 3)),
.Text = "",
.BackColor = Color.SkyBlue,
.FlatStyle = FlatStyle.Flat
}
'ボタン（i）のインスタンス（実体化）
Me.Controls.Add(U_button(i))
Next
End Sub
'ボタンの配置、大きさのデータ
'配列量は4倍｛X位置、Y位置、サイズX、サイズY}
Dim U_button_data() As Integer = {
30, 30, 50, 70,
150, 20, 200, 30,
200, 50, 400, 100
}
Public Sub New()
' この呼び出しはデザイナーで必要です。
InitializeComponent()
' InitializeComponent() 呼び出しの後で初期化を追加します。
With Me
.Size = New Size(650, 650)
.Text = "迷路"
.FormBorderStyle = Windows.Forms.FormBorderStyle.FixedToolWindow
.BackColor = Color.Gray
End With
U_button_set()
End Sub
End Class
ボタンの境界線はナカナカ消えないんで、次のステップに行くことにしました。
解決できそうな意見があれば、気楽に気長に待ってますんでヨロシク。