VB リッチテキストボックス 色指定

Question

リッチテキストボックスの文字をランダムに指定することはできますか？
例えばあか，あお，みどりのうちどれかをクリック毎にランダムに表示させたいです．
アドバイスをお願いします．

Answer 1

普通、赤を押したら赤、青を押したら青にするの一般的だと思うのですが。。、
質問の内容から色をランダムにするのか、赤、青、緑の3色をランダムにするのかが
わからなかったので、両方記載しておきます。（文字ではなく、フォームの色を変更していますので
コード参考にアレンジして頂ければと思います）

色をランダムにする方法

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim rnd As Random = New Random
        Dim red As Integer = rnd.Next(256)
        Dim green As Integer = rnd.Next(256)
        Dim blue As Integer = rnd.Next(256)
        Me.BackColor = Color.FromArgb(red, green, blue)

    End Sub

赤、青、緑の3色をランダムに判定する方法

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        ' Random クラスの新しいインスタンスを生成する
        Dim rnd As New System.Random()

        ' 0 以上 2 未満の乱数を取得する(0,1,2がランダムに判定される)
        Dim iResult As Integer = rnd.Next(2)

        If iResult = 0 Then
            Me.BackColor = Color.Red '0の時は赤
        ElseIf iResult = 1 Then
            Me.BackColor = Color.Blue '1の時は青
        ElseIf iResult = 2 Then
            Me.BackColor = Color.Green '2の時は緑
        End If

    End Sub

Comments

[IkumiFukiishi]

ありがとうございます．
上のコードでリッチテキストボックスの色がランダムに変わるようになりました．
しかし，赤色，青色，緑色の３色でランダムにしたいのですが，微妙な色合いがランダムにでてしまい，うまくいきません．．．

[Qoo]

微妙な色合いってなんでしょうか？
どのように実装して、なぜそうなったのかもわからないので
ソースコードを載せるなりして頂く方が良いと思います。

[IkumiFukiishi]

すみません．
以下コードです．
Public Class Form1

Private Sub colorword1()
Dim a() As String = New String() {"あか", "あお", "むらさき"}
Randomize()
Label1.Text = a(Math.Floor(3 * Rnd()))
RichTextBox1.Text = a(Math.Floor(3 * Rnd()))
RichTextBox1.SelectionAlignment = HorizontalAlignment.Center
End Sub
Private Sub colorword2()
Dim rnd As Random = New Random
Dim red As Integer = rnd.Next(255)
Dim green As Integer = rnd.Next(255)
Dim blue As Integer = rnd.Next(255)
RichTextBox1.ForeColor = Color.FromArgb(red, green, blue)
End Sub

Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Me.Timer1.Interval = 1000 * 2
Call colorword1()
Call colorword2()
End Sub
Private Sub Form1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseClick
Select Case e.Button
Case Windows.Forms.MouseButtons.Left
Call colorword1()
Case Windows.Forms.MouseButtons.Right
Call colorword1()
End Select
End Sub
Private Sub Button1_MouseDown()
Me.Timer1.Start()
Call colorword1()
End Sub

Private Function RGB(p1 As Integer) As Color
Throw New NotImplementedException
End Function

Private Function RGB(p1 As Integer, p2 As Integer, p3 As Integer) As Color
Throw New NotImplementedException
End Function

End Class

[IkumiFukiishi]

赤、青、緑の3色をランダムに判定する方法
で書いてくださったコードを見落としていました．
こちらでできました！
ありがとうございます．

[Qoo]

一応コメントしておきます。

Dim red As Integer = rnd.Next(255)
Dim green As Integer = rnd.Next(255)
Dim blue As Integer = rnd.Next(255)

ここでそれぞれの色をランダムに取得しているので
赤、青、緑以外も判定されてしまいます。
赤、青、緑の3色で良いなら下記のような感じになると思います。

ご参考まで。

Private Sub Form1_Activated(sender As Object, e As EventArgs) Handles Me.Activated

'フォームがアクティブになるタイミングでタイマースタート
Me.Timer1.Interval = 1000 * 2
Me.Timer1.Start()

End Sub

Private Sub colorword1()

'あか、あお、みどりをランダムに取得
Dim a() As String = New String() {"あか", "あお", "みどり"}
Randomize()

Label1.Text = a(Math.Floor(3 * Rnd()))
RichTextBox1.Text = Label1.Text

If Label1.Text = "あか" Then
RichTextBox1.ForeColor = Color.Red '0の時は赤
ElseIf Label1.Text = "あお" Then
RichTextBox1.ForeColor = Color.Blue '1の時は青
ElseIf Label1.Text = "みどり" Then
RichTextBox1.ForeColor = Color.Green '2の時は緑
End If

RichTextBox1.SelectionAlignment = HorizontalAlignment.Center

End Sub

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick

'タイマーのインターバルごとに再取得
Call colorword1()

End Sub

Answer 2

リッチテキストボックスで使えるプロパティの詳細は以下URLで確認できます。

→ RitchTextBoxプロパティ

ランダムに色を変えたいのか、"あか","あお","みどり"の文字をランダムにテキスト表示したいのかがわかりませんが、関連しそうなプロパティは下記の５つくらいでしょうか。

・ForeColor:テキスト全体の文字色の設定
・BackColor:テキストボックスの背景色の設定
・SelectionColor:テキスト内で範囲選択中の文字の文字色の設定
・SelectionBackColor:テキスト内で範囲選択中の文字の背景色の設定
・Text:テキスト表示する文字列の設定

見当違いでしたらすみません。

Comments

[IkumiFukiishi]

文字の色をランダムに変えたかったです。
ありがとうございます。