.NET

VisualBasic 2008の新機能 IFが変わった

Mr.T — Thu, 13 Mar 2008 09:51:00 GMT

Mr.Tです、こんにちは。

いや、これはすごい

やってくれたよ、こんなのをサポートしたのね。

ネタ元：http://blogs.msdn.com/vbteam/archive/2008/03/11/if-operator-a-new-and-improved-iif-sophia-salim.aspx

（注意：以下は翻訳ではないですよ）

今までC#、C++などで使えていた3項演算子である（？）は、ショートサーキット評価による演算で、
かなり便利だなぁと思われていたものです。

それが、VBでも利用できるようになりました。すばらしい。

ショートサーキット評価ってのは、簡単にいえば、

True Or (変数A = 変数B)

という式があった場合、変数A=変数Bを評価しなくても、式の結果はTrueになりますから、

わざわざ変数A=変数Bを内部で評価しませんよ、というものです。

逆にいえば、ショートサーキットであれば、Trueパートだろうが、Flaseパートだろうが、「内部で評価されてしまう」

わけですね。

関数IIFだと、ショートサーキットではありません。

使い方は、こうです。

IF（判定式,Trueパート,Falseパート)

もしくは、

IF（Trueパート、Falseパート）

いや、すごいね、3項演算子から、判定式まで省略できるように進化してしまったよ！

#っていうか、ぶっちゃけそこまでいらねー

3項演算については、もうだいたいわかっている機能なんですが、2項演算になってしまったというか、

IF（Trueパート、Falseパート）

なによ、これ？

MSDNで検索。

http://msdn2.microsoft.com/en-gb/library/bb513985(ja-jp).aspx

Boolean 引数を省略するときは、1 番目の引数に参照型または null 許容型を指定する必要があります。1 番目の引数が Nothing と評価されると、2 番目の引数の値が返されます。それ以外のすべての場合は、1 番目の引数の値が返されます。次の例は、この評価がどのように動作するのかを示します。

つまり、判定する式と値が一体化してしまったような形ですね。判定対象はNothingになります。

注意するのが、1番目の引数が参照型もしくは、Null許容型でなくちゃならないってことでしょうか。

#使い道がわからん

ネタ元のコメントには、？が使いたいならC#を使えば？とか、かいてあったり、これイイヨ！とか、賛否両論

な感じですが、私は素直に喜べる機能じゃないかと思ってます。

VB.NETでForループで型推論をしたときのワナ

Mr.T(mrt@wankuma.com) — Thu, 27 Dec 2007 18:12:00 GMT

Mr.Tです、こんにちは。

巷で、祭りになってる(ｵｲ Forループのときの型推論についてです。

VB.NETだけの話で、C#では、絶対におきないんです。なぜって、Varって書くから。

Option Compare Binary
Option Strict On
Option Explicit On
Option Infer On
Module InferSample

    Sub Main()

        For i = 1 To 10
            Console.WriteLine("Mr.Tはコング！")
        Next

    End Sub

End Module

これが型推論が行われているパターン。

Option Compare Binary
Option Strict On
Option Explicit Off
Option Infer Off
Module InferSample

    Sub Main()

        For i = 1 To 10
            Console.WriteLine("Mr.Tはコング！")
        Next

    End Sub

End Module

これが、型推論がおこなわれていないパターン。

変数iは、上がintegerになります。下は、objectになります。

Main内はおんなじです。

ソース見ただけじゃ、わかりません。

ええ、Explicit Onがページ内に指定されていればいいです。指定されていなければ、そのページ内だけじゃわかりません。

こんなの使えん！

そういうわけで、VB.NETでForループじゃ、型推論絶対つかうな派です。

#ごめんなさい、こんな程度しか、まだついていけません。

カンマ区切りで出力

Mr.T(mrt@wankuma.com) — Sun, 28 Oct 2007 02:24:00 GMT

Mr.Tです、こんにちは。

http://blogs.wankuma.com/yaju/archive/2007/10/27/104542.aspx

いや、カンマ区切りであるなら、VB系で忘れちゃならないもんがあると思ひます。

例題のように１次元配列になってるんなら、

Dim TargetData() as String = {"1","2","3"}

System.Console.Write(Join(TargetData,","))

この一行で出てきます。

Joinの引数は、String配列、もしくはObject配列なので、Converterで変換かませばいいわけなんで、

それほど面倒にはならないと思います。

Visual Basic のイベントハンドラの登録でちょっとだけ遊ぶ

Mr.T(mrt@wankuma.com) — Wed, 24 Oct 2007 13:47:00 GMT

Mr.Tです、こんにちは。

ネタ元：Visual Basic でなんとなくイベントとデリゲート　その２。 - イベントハンドラ -

http://blogs.wankuma.com/torikobito/archive/2007/10/24/103755.aspx

刈歩菜良さんのコメント

> Handles Button1.Click, Button2.Click
って、複数イベントをはっつけた時、イベントの発生順序はどうなりますか？

発生順に関しては、AddHandlerで行った場合、その行った順番でイベントが発生します。
addHandler Button1.click addressof Test1
addHandler Button1.click addressof Test2
addHandler Button1.click addressof Test3

この場合は、Test1()→Test2()→Test3()と実行されます。
また、
addHandler Button1.click addressof Test1
addHandler Button1.click addressof Test1
と二回登録した場合は、二回Test1 が実行されます。

さらに、Test1に対して、Handles Button1.cllickと書くと、都合3回実行されることになります。

この状態でRemoveHandler Button1.Click ,addressof Test1を行うと、登録されているものが一つだけなくなります。

~~今度は全く実行されません。~~

~~これは直前に登録されたものを引っぺがすのではなく、全てざっくりなくなります。~~

これは内部でListとして扱われているため、登録されたものが一つだけなくなります。

さて、Handlesで行った場合は、希望通りの実行はされません。

Private Sub C004(ByVal sender As System.Object, ByVal e As System.EventArgs)　Handles Button1.Click
MsgBox("No1")
End Sub

Private Sub B002(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MsgBox("No2")
End Sub

Private Sub B003(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MsgBox("No3")
End Sub

私のマシン、No3→No1→No2でした。

#希望通りに行う方法があるのかどうかはちょっとわかりませんでした。

コンパイル時にAddHandlerのように登録順番が勝手に決められているのであれば、コンパイルしなおせば順番がかわるのか、
と思いきや変化しませんでした。

なんちゅうか、こっちが指定できない順番が、ソースをコンパイルした時点で変更できないような形で出来上がっているような印象です。

#おそらく、ここらへんはとりこびっちさんは「あたりめーだろ」的にスルーしてくれて、
#Hanldlesで指定したときの順番がどうやって決められているか、について追記してくれるに違いない。

#2007/11/27追記間違いがあったため修正

Cast

Mr.T(mrt@wankuma.com) — Thu, 11 Oct 2007 07:06:00 GMT

Mr.Tです、こんにちは。

ちょっと調べ物していたんですが...

変換ということで、TryParse、TryCastという形で、例外ださない方法がありますね。

今、調べたら、すでにひろえむさんが、こんなエントリを...
それは、おいといて。

で、気になったのが、directcastとTryCastの使い分け。
と、そっちも調べたら、じゃんぬさんが、こんなエントリを...
ま、使うならCtypeじゃなくてDirectCastの方が、パフォーマンスもよく、暗黙の型変換しない、ということでお得ってことです。
それは、おいといて。

で、自分の場合、変換できなかった場合ってのはフェッチしたいので、TryCastを使うほうが多いです。

こんなところで例外だしたくねー、ってのもあるんですが、わざわざDirectCastを使うって場合は、「絶対にここじゃ
例外がおきねーよ」という認識があるからこそ、だと思います。

でも、それを保障するのは、ナニをもって例外おきねーと判断すればいいのかとなると、これってテストとかで
こういう値は決して入ってこない、っていう判断からでOKなんでしょうかね？

それとも、もっと別な見方があるんでしょうか？

Optionalをつける時

Mr.T(mrt@wankuma.com) — Wed, 03 Oct 2007 00:24:00 GMT

Mr.Tです、こんにちは。

オノデラさん:http://blogs.wankuma.com/yo/archive/2007/10/02/99154.aspx

のエントリに対して、とりこびっちさんがつけたコメントにビクッと反応。言葉の意味を取り違えている可能性は大ww

わたしはVisual Basic であっても Optional はなんかしっくりきません･･･。

いや、Optionalは、いいものだ...

VB.NETになってから、メソッドのオーバーライドができるようになったので、引数を増やしたり、減らしたりと

いうことができるようになりました。大変、便利なものです。

例えば、絵を描くというメソッドがあった場合、

Private キャンパス as 画用紙

Public Sub 絵を描く（byval 筆　as 絵筆）

　　線を引く(キャンパス, 筆,ここから、ここまで）

end sub

Public Sub 絵を描く(byval 筆 as 絵筆,byval 指定色 as 色)

　　筆.色 = 指定色

　　線を引く(キャンパス, 筆,ここから、ここまで）

End Sub

Optionalを使うと、こんな形ですね。

Public Sub 絵を描く(byval 筆 as 絵筆,optional byval 指定色 as 色 = 赤)

　　筆.色 = 指定色

　　線を引く(キャンパス, 筆,ここから、ここまで）

End Sub

一番違うのは、Optionalの場合、引数に対して最初に初期値を与えないと赤で線が引かれてしまうわけです。

しかし、Optionalの使い方は、オーバーライド的なものと、そういうもんじゃないものがあるような気がします。

例えば、

Public Sub 絵を描く（byval 筆　as 絵筆,Optional 上塗りフラグ as boolean = False）

if 上塗りフラグ then

(1) 　　線を引く(キャンパス, 筆,ここから、ここまで） 'この場合は、下に絵が描かれていても上書き　

else

　　　Dim 線引きエリア as　エリア = キャンパス.エリア取得(ここから,ここまで)

　　　for each 点 in 線引きエリア

　　　　　if 点がすでに塗られてる？= false then

　　　　点を描く(キャンパス, 筆,点）

end if

End Sub

こんな風。これがもし、Optiona 削除フラグみたいなものなら、「線を消す」メソッドをつくりなさいよ、とか
キャンパスの下地色で線を引け、とかいう話になると思います。

Optionalに描画メッセージ（線じゃなく、文字を書く）みたいなものも、だめです。
本来の意味が違うことになってしまうので。

でも、わざわざ上塗りしないメソッドを別につくりたくないです。

そういうのは、絵を描く時に、ちょっと気をつけたらいいことでしょ？

この上のメソッドってのは、実際に絵を描きたいだけですが、すでに絵がある場合は、そこを抜いて

描いていきます。本来の意味は失われていません。

オーバーライドして上塗りフラグをつけてもいいのですが、(1)の部分が、二重になります。上記の例なら一行ですけど

これが複数行になった場合は、結構冗長になりそうな感じがします。

Optionalってのは、「本来のメソッドの意味を失わずに、その機能を細かく制限したいとき」に利用できるVBらしい

機能っていえるのじゃないでしょうか。

.NETで横倍角、縦倍角の文字を表示、印刷する

Mr.T(mrt@wankuma.com) — Mon, 10 Sep 2007 20:04:00 GMT

Mr.Tです、こんにちは。

Ognasさんのエントリ:
http://blogs.wankuma.com/ognac/archive/2007/09/10/95118.aspx

上記のエントリの話は、エスケープシーケンス制御のプリンタに対して、.NETな世界から倍角なFontを発行なんぞ
できるもんか、ということなんでが、じゃあそもそも.NETな世界では倍角ってできないんか、とおもいちょっと作成。

VB.NETで新規プロジェクト作成して、FormにPictureBoxとボタンを一個貼り付け。

Private pSize As Integer = 2
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    Dim g As Graphics = PictureBox1.CreateGraphics()
    g.Clear(Me.BackColor)
    g.ScaleTransform(pSize, 1) '横倍角
    pSize += 1
    Dim fnt As New Font("MS UI Gothic", 20)
    g.DrawString("熊", fnt, Brushes.Black, 0, 0)
    fnt.Dispose()
    g.Dispose()
End Sub

あら簡単。というか、まあ適当なんで。
ScaleTransform(pSize, 1)のところで、サイズを指定しているわけです。というかこの場合だと、絵として表示しなくちゃ
なりませんね。

で、印刷してみようと思い、更にボタン一つ貼り付け。以下がソース全文。

Imports System.Drawing
Public Class Form1

Private pSize As Integer = 2
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim g As Graphics = PictureBox1.CreateGraphics()
        g.Clear(Me.BackColor)
        g.ScaleTransform(pSize, 1) '横倍角
        pSize += 1
        Dim fnt As New Font("MS UI Gothic", 20)
        g.DrawString("熊", fnt, Brushes.Black, 0, 0)
        fnt.Dispose()
        g.Dispose()
    End Sub

Private Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim pd As Printing.PrintDocument = New Printing.PrintDocument

AddHandler pd.PrintPage, AddressOf pd_PrintPage

        If MessageBox.Show("印刷しちゃうぞ？", "確認", MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then
            pd.Print()
        End If

End Sub

    Private Sub pd_PrintPage(ByVal sender As Object, _
         ByVal e As System.Drawing.Printing.PrintPageEventArgs)
        '画像を描画する
        Dim fnt As New Font("MS UI Gothic", 20)
        e.Graphics.ScaleTransform(pSize, 1) '横倍角
        e.Graphics.DrawString("熊", fnt, Brushes.Black, 0, 0)
        '次のページがないことを通知する
        e.HasMorePages = False

fnt.Dispose()
End Sub
End Class

プリンタに対しても、やっぱり画像描画みたいになるんで、横倍角なFontクラス自体は無理。
レイアウト的に、画像として利用できるような（イラストの一部に利用したいとか）なら、できそうな気もしますが
それ以外の使い道はなさそうな気もします。