katamari.wankuma.com

　Live MeshのLive Desktopがアップデートされています。バグフィックスのほか

• 新しいメディアビューワー
• Newsに日付を表示（今までは時間だけだった）

が、新しい機能となっているようです。

　日付は大変助かりますね。クライアントのにも日付付けてほしい。メディアビューワーは、Windows Media Playerっぽかったのが上のようにかわったってことなのかなー？

　あとMacバージョンのLive Meshも更新されています。

（via Live Mesh : Service Update (March 4, 2009)）

　先日（といっても結構たちましたかね）に、Live HotmailでSMTP認証が使えるようになりました。Liveメールを使用している私には特に関係ない話しだったんですが（Live Hotmail=Webメール、Liveメール=メールクライアント）、プログラムからメール送信に使いたいと思って調べてみた。

　公式ヘルプを見たのだけど、わかりにくい！　ニュースとしてはSMTP認証が使える！　ってことが取り上げられていたと思うけどヘルプにはそんなこと書いてなくて、「Microsoft Outlook に電子メール アカウントを追加する」の「POP3 サーバーを使用して Microsoft Outlook に Windows Live Hotmail の電子メール アカウントを追加する」としてちらりとSMTPサーバーのアドレスが書いてあります。

　そんなわけでコードで書くと以下の通り。認証とSSL通信使用がポイントかな？　値を変えるだけでGMailもいけました。ポートは25番ですが、たいていのプロバイダでは使えないと思うので変更が必要です。

Public Shared Sub Send()

    Dim title = "件名"
    Dim body = "本文"
    Dim toAddress = "jz5あlive.jp".Replace("あ", "@") ' 宛先
    Dim fromAddress = "jz5あlive.jp".Replace("あ", "@") ' 差出人

    Dim smtpServer = "smtp.live.com" ' SMTPサーバー
    Dim port = 25 ' ポート番号

    Dim userName = "jz5あlive.jp".Replace("あ", "@") ' Live ID メールアドレス
    Dim password = "*****" ' Live ID パスワード

    Dim encoding = System.Text.Encoding.UTF8
    Dim message As New MailMessage()

    With message
        .SubjectEncoding = encoding
        .BodyEncoding = encoding
        .From = New MailAddress(fromAddress, "ＪＺ５", encoding)
        .To.Add(New MailAddress(toAddress, "ＪＺ５", encoding))
        .Subject = title
        .Body = body
    End With

    Dim client = New SmtpClient() With { _
            .Host = smtpServer, _
            .Port = port, _
            .Credentials = New NetworkCredential(userName, password), _
            .EnableSsl = True}

    client.Send(message) ' 送信
End Sub

　Silverlight 使い始めました。マウスホイールでスクロールできないなんて……。以下、ほとんど文章だけなんでわかりにくいと思いますが。

　DataGridをマウスホイール対応するには、以前kazukiさんが書かれていますね。[C#][Silverlight]DataGridのマウスホイールでのスクロール その２ この方法は選択行を変える方法でしたが、もっと自然な動作させる実装が、Silverlight2.0 - DataGridをホイールマウススクロールに対応させる - PYRO :: Blog にありました。すっごいぬるぬる動くよ！

　後者は、LoadingRowとUnloadingRowイベントにより現在表示されている行の最大と最小のインデックス値を保持しておいて、スクロール時にインデックス±1の行へスクロールするという手法です。

　が、こっちもソートすると、うまく動いてくれませんでした。最初はソートされてもインデックス値が変わらないのかなと思ったのですが、きちんとインデックス値は変わっていました。ソート時に表示されている行だけLoadingRow、UnloadingRowイベントが発生しますが、昇順 or 降順に発生しないので最大と最小の行のインデックス値がおかしくなってしまうっぽい。

　そこで、LoadingRow、UnloadingRowイベントで現在表示されている行のインデックスすべてを保持するように変えてみました。

Private indexs As New List(Of Integer)

Private Shadows Sub OnLoadingRow(ByVal sender As Object, ByVal args As DataGridRowEventArgs)
    If Not indexs.Contains(args.Row.GetIndex) Then
        indexs.Add(args.Row.GetIndex)
    End If
End Sub

Private Shadows Sub OnUnloadingRow(ByVal sender As Object, ByVal args As DataGridRowEventArgs)
    If indexs.Contains(args.Row.GetIndex) Then
        indexs.Remove(args.Row.GetIndex)
    End If
End Sub

　ScrollIntoViewsメソッドで対象の行へスクロールするのだけど、ここで問題が。メソッドにはItemsSourcesにあるオブジェクトを指定するのだけど、IList型にキャストしてインデックス値から導き出すとItemsSource自体はソートされていないので、スクロールした位置にあるオブジェクトを指定できないのね（元のコードはListにキャストしてるけどおなじだよね？ Listってなに？）。

Dim s = DirectCast(ItemsSource, System.Collections.IList)
Dim i As Integer
If mousedelta < 0 Then
    i = indexs.Max + 1
ElseIf mousedelta > 0 Then
    i = indexs.Min - 1
End If

If i < 0 Then
    i = 0
ElseIf i > s.Count - 1 Then
    i = s.Count - 1
End If
Me.ScrollIntoView(s(i), Me.Columns(0))

　ItemsSourceに指定するコレクションとキャストする型を考えればなんとかなりそう！　ってことでたどり着いたのが、CollectionViewModel。よくは読んでいないのだけど、M-V-VMパターンについてのエントリを訳してみた3　原題"CollectionViewModel" から原文に行ってサンプルをダウンロードして該当クラスだけとりだして使ってみると一応動きました（ItemsSourceとキャストにはICollectionView、行数を取得するのにIList型にもキャストして使用）。

　ソートしてもきちんとマウスホイールでスクロールできるのだけど、ものすごいCollectionViewModel生成のところかな？　時間がかかる。150行ぐらいなのだけど、ブラウザが固まってしまう……。ううーむ？　←今ここ。