C# と VB.NET の質問掲示板

■No38577 (aion さん) に返信

PictureBoxのクリックイベントを生成して、PictureBoxのクリックイベントで色を変える

Me.Controls.Add(pic(i))の↓に追加
AddHandler pic(i).Click, AddressOf PictureBox_Click

Private Sub PictureBox_Click(ByVal sender As Object, ByVal e As System.EventArgs)
　    'senderに、クリックしたPictureBoxがセットされている。
　    DirectCast(sender,PictureBox).BackColor = Color.Red
End Sub

あ、未検証です。

■No43454 (まきお さん) に返信
> コード

Instruction(命令) が Introduction(導入)になっていたり、
「version="1.0" encoding="utf-8"」が
「version="1.0",encording="utf-8"」になっていたり、
引用符が一致していなかったり、
MSXML2 が MAXML2 になっていたり、
xmlNode.appendChild とするべき場所で
xmlDoc.appendChild と書いていたり、
xmlString が宣言されていない(xmStr ならある)など、
他にもいろいろと間違っているようです。


> xmlAttr.NodeValue = "http://www.・・・"　　　←ここでエラーがでます

名前空間を指定するなら、createNode メソッドの方が楽かと。

Set xmlNode = xmlDoc.appendChild(xmlDoc.createNode(NODE_ELEMENT, "root", "http://www.example.com/"))
Set xmlNode = xmlNode.appendChild(xmlDoc.createNode(NODE_ELEMENT, "child", "http://www.example.com/"))
xmlNode.Text = "test"

■No44672 (やまり さん) に返信
> MSDNも眺めたのですが、Count:= でなんばんめ、というのが取れるのを読み取れませんでした・・・
「Replace(Src, "これ", "あれ", Count:=1)」の代わりに、
「Replace(Src, "これ", "あれ", , 1)」や
「Replace(Src, "これ", "あれ", 1, 1)」と書く事もできます。

それと先ほど
>> 汎用的にするなら、gtk2k さんの方法かな。
と書きましたが、下記のようにする必要がありそうです。

Dim ms As MatchCollection = Regex.Matches(strSrc, Regex.Escape(strMatch))
Dim strDst As String
If ms.Count = 0 Then
  strDst = strSrc
Else
  Dim idx As Integer = rnd.Next(ms.Count)
  strDst = strSrc.Substring(0, ms(idx).Index) & strReplace & strSrc.Substring(ms(idx).Index + strMatch.Length)
End If

Regex.Escape は、文字列に『(』などが含まれていた場合への備え、
If 判定は、一回もヒットしなかった場合に対応したものです。


>> Start:=x で、検索開始位置を調整することもできます。
> そんなこともできるんですね。これも使えそうですね。
Start 引数は、（検索回数ではなく）文字位置を表す引数なので、今回の用途では
ここに指定すべき数値を調べるためのコードが、別途必要になりますけれどね。


>> Function(sz) If(Interlocked.Add(n, 1) = 3
> これがちょっとどういう意味かわからないので、
VB のラムダ式では代入文を記述できないので、「n += 1」に相当するコードを、
Interlocked.Add メソッドで代用しています。


ラムダ式だと分かりにくいようであれば、先の Regex.Replace の部分を、
　matchedCount = 0
　ret = Regex.Replace("これとこれとこれとこれ", "これ", AddressOf Matched)
という記述に読み替えてみてください。

これは、
　　文字列中に "これ" が見つかるたびに、Matched メソッドが呼び出され、
　　その箇所が Matched メソッドの戻り値によって置換される
という処理を表しています。

ここでいう matchedCount や Matched は、たとえば下記のように実装されます。

　Module Foo
　　Public matchedCount As Integer = 0
　　Public Function Matched(ByVal m As Match) As String
　　　matchedCount += 1
　　　If matchedCount = 3 Then
　　　　Return "あれ"
　　　Else
　　　　Return "これ"
　　　End If
　　End Function
　End Module


そして上記をラムダ式を使って短く記述したものが、先の
　n = 0
　ret = Regex.Replace("これとこれとこれとこれ", "これ", Function(x) If(Interlocked.Add(n, 1) = 3, "あれ", "これ"))
というわけです。

もうほとんどできてるので、頑張ってというのは774RRさんも
おっしゃっている通り。
なので、そことは別の部分でアドバイス。
分かりやすいプログラミングみたいな話かな。

今の処理構造はおおざっぱに以下のような感じですよね。
(行数減らすために改行位置変えてます)
while (true)
{
    if (menu == "e") {
        (いろいろ処理1)
        break;
    } else {
        (いろいろ処理2)
    }
}

このうち、(いろいろ処理2)は実際にwhileのループで行いたい
処理であり、(いろいろ処理1)はこの処理を行ったらbreakで
ループを抜けます。

> Console.WriteLine("終わるにはeを入力");
のコメント風に言うなら、
(いろいろ処理1)は終わった後にやりたい処理なわけです。

なので、直感的に書くなら、
while (true)
{
    if (menu == "e") {
        break;
    } else {
        (いろいろ処理2)
    }
}
(いろいろ処理1)

とするだけで、読みやすいコードとなります。