- 締切済み
BackColorをPenの型で使用するには?
- みんなの回答 (1)
- 専門家の回答
みんなの回答
- himajin100000
- ベストアンサー率54% (1660/3060)
Option Explicit On Option Strict On Option Infer Off Option Compare Binary '難しく見えるのは認める。 'が,IDEが何をするのか,ちゃんと考えて調べるかで力の伸びが違うのだ. Class Q5186728 Inherits System.Windows.Forms.Form Private PictureBox1 As System.Windows.Forms.PictureBox Public Sub New() PictureBox1 = new System.Windows.Forms.PictureBox PictureBox1.Top = 0 PictureBox1.Left = 0 PictureBox1.Width = Me.Width PictureBox1.Height = Me.Height AddHandler PictureBox1.Paint, AddressOf Me.PictureBox1_Paint Me.Controls.Add(PictureBox1) End Sub Private Sub PictureBox1_Paint(sender As Object,e As System.Windows.Forms.PaintEventArgs) '質問の本題そのものはここから 'Meはフォーム(Q5186728のクラスのインスタンス)そのもの Dim p As System.Drawing.Pen = new System.Drawing.Pen(Me.BackColor) e.Graphics.Clear(System.Drawing.Color.White) e.Graphics.DrawLine(p,0,0,PictureBox1.Width,PictureBox1.Height) End Sub Shared Sub Main() Dim f As Q5186728 = new Q5186728() f.ShowDialog End Sub End Class
関連するQ&A
- BackColor でてこなかった
vbaで、コマンドボタンをクリックしたら色を変えようと思い、 全てのコマンドボタンに共通で使えるように Me.ActiveControl.BackColor = というコードを打とうと思ったのですが、 Me.ActiveControl. まで打ってBackColor をうとうと、Bだけ打ったら BackColor がありませんでした。 スペルがわからないので、調べて無事打つことはできましたが、 なぜBackColor は出てこないのでしょうか? Me.ActiveControl.BackColor は問題なく実行できました。
- ベストアンサー
- オフィス系ソフト
- 「 MsgBox(Me.BackColor)」がエラーになる。
Form1の背景の色を取得したいので、 Form1のイベントプロシージャーに MsgBox(Me.BackColor) としたところ、図のようなエラーになります。 (引数 'Prompt' は型 'String' に変換できません。) デバッグ開始をする前にビルドしても正常終了になります。 VBAでは全く同じコード を実行してもうまくいきます。 ヘルプも呼んでみたのですがよくわかりませんでした。 どうすればVBでも背景の色コードを取得することができるのでしょうか? よろしくお願いします。
- ベストアンサー
- Visual Basic
- picturebox の BackColor は透明に出来ないのですか?
教えていただきたいことがあります。 [デザイン]上で、picturebox の BackColor を webColor の Transparent(透明) に指定したいのですが "コントロールは透明な背景色をサポートしません。"とエラーが出ます。 BackColor を透明には出来ないのでしょうか? よろしくお願いします。
- ベストアンサー
- Visual Basic
- フォームにBackColorプロパティがない
アクセス2010ですが フォームにBackColorプロパティはあるのに オブジェクトブラウザを見ると、 Form のクラスには DatasheetAlternateBackColor DatasheetBackColor しかないのですが、なぜBackColorプロパティはないのでしょうか?
- ベストアンサー
- オフィス系ソフト
- ペンタブレットのペンを紛失してしまいました。
ペンタブレットのペンを紛失してしまいました。 ペンだけ購入できるのでしょうか? もし出来るのならば、何処で出来るのか教えてください。 型は BAMBOO FUN CTE-450 です
- 締切済み
- その他(PCパーツ・周辺機器)
- Userform Label Backcolor
Userform Label Backcolorの色イメージが意図したものになりません。 どうすればいいか教えて下さい。 UserForm1.Label1.BackColor = RGB(204, 204, 102) UserForm1.Label2.BackColor = RGB(255, 204, 204) を実行したときのUserForm1のLabel1とLabel2の色イメージが Range("A1").Interior.Color = RGB(204,204, 102) Range("A2").Interior.Color = RGB(255, 204, 204) を実行したときのセルA1,A2の色イメージとが随分乖離しています。
- ベストアンサー
- Visual Basic
- MaskEdBox.Enable= False だと、BackColor が効きません
MaskEdBox の Enable を False にして、BackColor を設定すると、 BackColor が、有効になりませんでした。 解決方法を教えて下さい。
- ベストアンサー
- Visual Basic
- vb2005のラベルのBackColorについて
vb入門者なのですが、よろしくお願いします。 2005を使用しているのですが、 ラベルのBackColorを塗りつぶし無しには できないのでしょうか? よろしくお願いします。
- ベストアンサー
- Visual Basic
- ASP.NETでTextBoxのBackColor
ASP.NETのC#でTextBoxのBackColorを変更すると、 BorderStyleやBorderColorも勝手に変わってしまいます。 BorderStyleやBorderColorを変えずに、 BackColorを変更することは可能でしょうか?
- ベストアンサー
- Microsoft ASP
お礼
解決しました。 初心者なんで。^^
補足
ちょっとコードを変更しました。(質問者) Option Strict On 'ゲームキャラクター制作エディター 'VisualBasic2008(無料版) Public Class Form1 Private bt() As PictureBox Const my_color_suu As Integer = 11 Private my_color(my_color_suu - 1) As Color Const kyara_data_suu As Integer = 2500 Private kyara_data(kyara_data_suu - 1) As Integer Private Sub Form1_Load(ByVal sender As Object, _ ByVal e As EventArgs) Handles MyBase.Load Array.Resize(Me.bt, 2500) Dim a, b As Integer : a = 0 : b = 0 For i As Integer = 0 To 2499 Me.bt(i) = New PictureBox() With Me.bt(i) .Name = i.ToString .BackColor = Color.White .Location = New Point(a * 11, b * 11) .Size = New Size(10, 10) End With Me.Controls.Add(Me.bt(i)) AddHandler Me.bt(i).Click, AddressOf Me.bt_Click a += 1 : If a = 50 Then a = 0 : b += 1 Next With Me.ListBox1.Items .Add("Red") .Add("Blue") .Add("Skyblue") .Add("Green") .Add("Yellow") .Add("Orange") .Add("Pink") .Add("Brown") .Add("Gray") .Add("White") .Add("Black") End With ListBox1.SelectedIndex = 0 my_color(0) = Color.Red : my_color(1) = Color.Blue : my_color(2) = Color.SkyBlue my_color(3) = Color.Green : my_color(4) = Color.Yellow : my_color(5) = Color.Orange my_color(6) = Color.Pink : my_color(7) = Color.Brown : my_color(8) = Color.Gray my_color(9) = Color.White : my_color(10) = Color.Black For i As Integer = 0 To 2499 kyara_data(i) = 9 Next End Sub Private Sub bt_Click(ByVal sender As Object, ByVal e As EventArgs) Dim colorName As String = CStr(ListBox1.SelectedItem) CType(sender, PictureBox).BackColor = Color.FromName(colorName) Dim x As Integer = CInt(CType(sender, PictureBox).Name) kyara_data(x) = ListBox1.SelectedIndex End Sub Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged Dim colorName As String = CStr(ListBox1.SelectedItem) If colorName IsNot Nothing Then Me.TextBox1.BackColor = Color.FromName(colorName) End If End Sub Private Sub MyPictureBox1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyPictureBox1.Paint Dim a, b As Integer : a = 0 : b = 0 For i As Integer = 0 To 2499 Dim x As Integer = kyara_data(i) e.Graphics.DrawRectangle(Pens.my_color(x), a, b, a + 1, b + 1) a += 1 : If a = 50 Then a = 0 : b += 1 Next End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click End Sub End Class ☆pensのトコがエラーします。 教えてください。