暮れなずむ開発者のメモ

TextBlock にClipboardへのコピー機能を追加する(改訂版)

2012-01-29T00:15:00.003+09:00

前回投稿した「TextBlock にClipboardへのコピー機能を追加する」ですが、
あのコードだと、メモリーは消費するわ、メモリーリークしまくるわで使えないことがわかりました。
ここに、改良版を投稿します

メモリーリークの問題
右クリックで表示しているContextMenuですが、その右クリックを監視している ContextMenuService自体がメモリーリークを起こしているみたいで、OwnerのTextblockが破棄されれもContextMenuServiceに設定されたContextMenuは残っているみたいです。
メモリーの消費
コードを読めばわかると思いますが、TextBlockの配下にContextMenuServiceとContextMenu、その下にMenuItemが作成されます。これらの生成されたインスタンス「TextBlockClipBoardService.ID=""」によって、すべてのTextBlockの子となるので、メモリーの消費量がタダモンではありません。

（実際、設定されたTextBlockをDataGridのCellTempleteに設定したらスクロールが耐えられないほどカクカク）

対応策として

なるべく生成するインスタンスを少なくする
ContextMenuService は諦め、シングルトンのPopupオブジェクトを表示する
メモリーリークをなくす
循環参照を撲滅する。

観点に再作成しました。

で、できたコードは次の通り
MainPage.xaml

<UserControl  x:Class="TextBlockClipboard.MainPage"
             xmlns:sdk="http://schemas.microsoft.com/winfx/2006/xaml/presentation/sdk" 
             xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
             xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
             xmlns:d="http://schemas.microsoft.com/expression/blend/2008"
             xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006"
             xmlns:my="clr-namespace:TextBlockClipboard"
             mc:Ignorable="d"
             d:DesignHeight="200" d:DesignWidth="200"        >

    <Grid>
        <StackPanel>
            <TextBlock Text="TextBlock123456" my:TextBlockClipBoardService.ID=""/>
            <TextBlock Text="あああああああああ" my:TextBlockClipBoardService.ID="" />
        </StackPanel>
    </Grid>
</UserControl>

TextBlockClipboard.cs

using System;
using System.Windows;
using System.Windows.Controls;
using System.Windows.Controls.Primitives;
using System.Windows.Media;
using System.Windows.Media.Effects;
using System.Windows.Media.Imaging;

namespace TextBlockClipboard
{

    /// <summary>
    /// TextBlock の Text 文字列を Clipboard へ コピーするサービス
    /// </summary>
    public static class TextBlockClipBoardService
    {
        /// <summary>
        /// ID 添付プロパティ
        /// </summary>
        public static readonly DependencyProperty IDProperty =
            DependencyProperty.RegisterAttached("ID",
                                                typeof(string),
                                                typeof(TextBlockClipBoardService),
                                                new PropertyMetadata(null, IDPropertyChanged));
        /// <summary>
        /// ID設定
        /// </summary>
        public static void SetID(DependencyObject obj, string value)
        {
            obj.SetValue(IDProperty, value);
        }
        /// <summary>
        /// ID取得
        /// </summary>
        public static string GetID (DependencyObject obj)
        {
            return (string)obj.GetValue(IDProperty);
        }

        /// <summary>
        /// ポップアップ
        /// </summary>
        private static Popup RightPopupMenu = null;
        /// <summary>
        /// ポップアップに表示するTextBlock
        /// </summary>
        private static TextBlock PopupTextBlock = null;

        /// <summary>
        /// Popup 作成
        /// </summary>
        /// <returns>Popup</returns>
        private static Popup CreatePopupMenu()
        {
            PopupTextBlock = new TextBlock();
            PopupTextBlock.FontSize = 12;
            PopupTextBlock.Padding = new Thickness(5, 2, 5, 2);

            var border = new Border();
            border.BorderThickness = new Thickness(1);
            border.CornerRadius = new CornerRadius(5);
            border.BorderBrush = new SolidColorBrush(Colors.Black);
            border.Background = new SolidColorBrush(SystemColors.MenuColor);
            border.Child = PopupTextBlock;

            var grid = new Grid();
            grid.Effect = new DropShadowEffect { Opacity = 0.4 };
            grid.Children.Add(border);
            var popup = new Popup();
            popup.Child = grid;

            popup.Opened += (s, e) =>
                {
                    Popup localPopup = (Popup)s;
                    var text = (string)localPopup.Tag;
                    if (text.Length > 30)
                    {
                        text = text.Substring(0, 30) + " ... ";
                    }
                    PopupTextBlock.Text = "「" + text + "」をコピーします";
                };
            PopupTextBlock.MouseLeftButtonUp += (s, e) =>
                {
                    try
                    {
                        Clipboard.SetText((string)popup.Tag);
                    }
                    catch (System.Security.SecurityException)
                    {
                    }
                    popup.IsOpen = false;
                    e.Handled = true;
                };
            PopupTextBlock.MouseLeave += (s, e) =>
                {
                    popup.IsOpen = false;
                };

            return popup;
        }
        /// <summary>
        /// ID設定(TextBlockに仕掛けを設定)
        /// </summary>
        /// <param name="d"></param>
        /// <param name="e"></param>
        private static void IDPropertyChanged(DependencyObject d, DependencyPropertyChangedEventArgs e)
        {
            var uiTextBlock = d as TextBlock;
            if (uiTextBlock != null)
            {
                if (null == RightPopupMenu)
                {
                    RightPopupMenu = CreatePopupMenu();
                }
                uiTextBlock.MouseRightButtonDown += (sender, ea) =>
                    {
                        RightPopupMenu.IsOpen = false;
                        ea.Handled = true;
                    };
                uiTextBlock.MouseRightButtonUp += (sender,ea) =>
                    {
                        // 表示位置はカーソルがPopupの中へ入るように
                        RightPopupMenu.HorizontalOffset = ea.GetPosition(null).X - 50.0;
                        RightPopupMenu.VerticalOffset = ea.GetPosition(null).Y - 5.0;

                        TextBlock tb = (TextBlock)sender;
                        RightPopupMenu.Tag = tb.Text;
                        RightPopupMenu.IsOpen = true;
                        ea.Handled = true;
                    };
                uiTextBlock.MouseLeftButtonUp += (sender,ea) =>
                    {
                        RightPopupMenu.IsOpen = false;
                    };
            }
            else
            {
                throw new InvalidProgramException("TextBlockClipBoardService は TextBlock のみサポートしてます");
            }
        }
    }
}

画面はこんな感じ

プロジェクト:TextBlockClipboard2.zip

TextBlock に Clipboard へのコピー機能を追加する

2012-01-27T01:46:00.000+09:00

2011/01/29 追記
この方法は、不具合がありました。改訂版は「TextBlock に Clipboard へのコピー機能を追加する(改訂版)」で紹介してます。

とあるお客さんで「TextBlock に表示している文字列を他のアプリへコピーしたいんだけど...」と要求がありました。
Silverlightで作成したプログラムはすでに完成間近。

手間がかからず、短期間で実装したコードを紹介する。

操作は、TextBlockのテキストを右クリックすると、コンテキストメニューが表示され、メニューを選択すると、クリップボードへコピーする。

参考URL:Silverlight で ContextMenu を使ってみる

TextBlockで右クリック
選択すると

MainPage.xamlは

<UserControl  x:Class="TextBlockClipboard.MainPage"
             xmlns:sdk="http://schemas.microsoft.com/winfx/2006/xaml/presentation/sdk" 
             xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
             xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
             xmlns:d="http://schemas.microsoft.com/expression/blend/2008"
             xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006"
             xmlns:my="clr-namespace:TextBlockClipboard"
             mc:Ignorable="d"
             d:DesignHeight="200" d:DesignWidth="200"        >

    <Grid>
        <StackPanel>
            <TextBlock Text="TextBlock123456" my:TextBlockClipBoardService.ID=""/>
            <TextBlock Text="あああああああああ" my:TextBlockClipBoardService.ID="" />
        </StackPanel>
    </Grid>
</UserControl>

TextBlockClipBoardService.cs は

using System;
using System.Windows;
using System.Windows.Controls;
using System.Windows.Media.Imaging;

namespace TextBlockClipboard
{
    /// <summary>
    /// TextBlock の Text 文字列を Clipboard へ コピーするサービス
    /// </summary>
    public static class TextBlockClipBoardService
    {
        /// <summary>
        /// ID 添付プロパティ
        /// </summary>
        public static readonly DependencyProperty IDProperty =
            DependencyProperty.RegisterAttached("ID",
                                                typeof(string),
                                                typeof(TextBlockClipBoardService),
                                                new PropertyMetadata(null, IDPropertyChanged));
        /// <summary>
        /// ID設定
        /// </summary>
        public static void SetID(DependencyObject obj, string value)
        {
            obj.SetValue(IDProperty, value);
        }
        /// <summary>
        /// ID取得
        /// </summary>
        public static string GetID (DependencyObject obj)
        {
            return (string)obj.GetValue(IDProperty);
        }


        /// <summary>
        /// ID設定(TextBlockに仕掛けを設定)
        /// </summary>
        /// <param name="d"></param>
        /// <param name="e"></param>
        private static void IDPropertyChanged(DependencyObject d, DependencyPropertyChangedEventArgs e)
        {
            var uiTextBlock = d as TextBlock;
            if (uiTextBlock != null)
            {
                // TextBlockなら
                ContextMenu menu = new ContextMenu();
                MenuItem menuItem = new MenuItem();
                var img = new Image { Source =  new BitmapImage(new Uri("notecheck32.png", UriKind.RelativeOrAbsolute)) };
                img.Height = 16;
                menuItem.Icon = img;
                menuItem.Click += (menuItemSender, _) =>
                    {
                        // メニューを選択した
                        MenuItem localMenuItem = (MenuItem)menuItemSender;
                        try
                        {
                            Clipboard.SetText((string)localMenuItem.Tag);
                        }
                        catch (System.Security.SecurityException)
                        {
                        }
                    };
                menu.Tag = new WeakReference(uiTextBlock, false);
                menu.Items.Add(menuItem);
                menu.Opened += (menuOpendSender, _) =>
                    {
                        // 左クリックしてメニューが開いた
                        ContextMenu localMenu = (ContextMenu)menuOpendSender;
                        MenuItem localMenuItem = (MenuItem)localMenu.Items[0];
                        var localTextBlock = (TextBlock)((WeakReference)localMenu.Tag).Target;
                        localMenuItem.Header = "「" + localTextBlock.Text + "」をコピーします";
                        localMenuItem.Tag = localTextBlock.Text;
                    };
                ContextMenuService.SetContextMenu(uiTextBlock, menu);
            }
            else
            {
                throw new InvalidProgramException("TextBlockClipBoardService は TextBlock のみサポートしてます");
            }
        }

    }
}

ミソは、65行目でWeakReferenceを使って、相互参照地獄から逃れています。

プロジェクトファイル:TextBlockClipboard.zip

Silverlight4で分離ストレージへ保存

2011-10-22T18:46:00.001+09:00

Silverlight4で分離ストレージに保存する。
データモデルをまるごと、AESの暗号化をして保存する

using System.Xml;
using System.Xml.Serialization;
using System.Security.Cryptography;
using System.Text;

/// <summary>
    /// 保存ストレージ保存用ユーザプロファイル
    /// </summary>
    [XmlRoot("UserProfile")]
    public class UserProfileDataModel
    {
        /// <summary>
        /// ログインユーザ
        /// </summary>
        [XmlElement("LoginUserID")]
        public string LoginUserID 
        {
            get;
            set;
        }
        /// <summary>
        /// 最終操作日時
        /// </summary>
        [XmlElement("LastUpdateDateTime")]
        public DateTime LastUpdateDateTime
        {
            get;
            set;
        }
        /// <summary>
        /// 自動ログインタイムアウト
        /// </summary>
        [XmlElement("TimeoutHour")]
        public int TimeoutHour
        {
            get;
            set;
        }

        // パスワード
        private const string PASSWORD = "Password_Present";
        // ファイル名
        private const string FILENAME = "UserProfile.xml";
        
        /// <summary>
        ///  分離ストレージへ保存
        /// </summary>
        public void SaveProfile()
        {
            var isoStorage = IsolatedStorageFile.GetUserStoreForSite();
            using (isoStorage)
            {
                var isoStream = new IsolatedStorageFileStream(FILENAME
                                                                , FileMode.Create
                                                                , FileAccess.Write
                                                                , isoStorage);
                using (isoStream)
                {
                    var serializer = new XmlSerializer(typeof(UserProfileDataModel));
                    XmlSerializerNamespaces namespaces = new XmlSerializerNamespaces();

                    var aesManage = new AesManaged();

                    using (aesManage)
                    {
                        GenerateKeyFromPassword(PASSWORD, aesManage);

                        CryptoStream cryStream = new CryptoStream(isoStream, aesManage.CreateEncryptor(), CryptoStreamMode.Write);
                        using (cryStream)
                        {
                            namespaces.Add(string.Empty, string.Empty);
                            serializer.Serialize(cryStream, this, namespaces);
                        }
                    }
                }
            } 
        }
        /// <summary>
        /// 分離ストレージから読み込み
        /// </summary>
        /// <returns>null以外:読み込んだユーザプロファイル</returns>
        public static UserProfileDataModel LoadProfile()
        {
            UserProfileDataModel loadUserProfile = default(UserProfileDataModel);

            IsolatedStorageFile isoStorage = IsolatedStorageFile.GetUserStoreForSite();
            using (isoStorage)
            {
                if (!isoStorage.FileExists(FILENAME))
                {
                    //ファイルが存在しない時
                    return default(UserProfileDataModel);
                }

                var isoStream = new IsolatedStorageFileStream(FILENAME
                                                            , FileMode.Open
                                                            , FileAccess.Read
                                                            , isoStorage);
                using (isoStream)
                {
                    // AES 作成
                    var aesManage = new AesManaged();
                    using (aesManage)
                    {
                        // キーとIVを設定する
                        GenerateKeyFromPassword(PASSWORD, aesManage);

                        CryptoStream cryStream = new CryptoStream(isoStream, aesManage.CreateDecryptor(), CryptoStreamMode.Read);
                        using (cryStream)
                        {
                            try
                            {
                                var serializer = new XmlSerializer(typeof(UserProfileDataModel));
                                loadUserProfile = (UserProfileDataModel)serializer.Deserialize(cryStream);
                            }
                            catch (CryptographicException)
                            {
                                //復号化失敗
                                return loadUserProfile;
                            }
                        }
                    }
                }
            }
            return loadUserProfile;
        }

        /// <summary>
        /// パスワードから共有キーと初期化ベクタを生成する
        /// </summary>
        /// <param name="password">基になるパスワード</param>
        /// <param name="aesManaged">対象のAES</param>
        private static void GenerateKeyFromPassword(string password, AesManaged aesManaged)
        {
            //パスワードから共有キーと初期化ベクタを作成する
            byte[] salt = System.Text.Encoding.UTF8.GetBytes("PasswordSalt:More_Than_8_Bytes");
            var deriveBytes = new System.Security.Cryptography.Rfc2898DeriveBytes(password, salt);
            deriveBytes.IterationCount = 1000;

            //共有キーと初期化ベクタを生成する
            aesManaged.Key = deriveBytes.GetBytes(aesManaged.KeySize / 8);
            aesManaged.IV = deriveBytes.GetBytes(aesManaged.BlockSize / 8);
        }
    }

Dell Vostro200 にWindows2003 Server R2 セットアップ

2011-10-13T18:31:00.001+09:00

Dell Vostro200 に Windows2003 Server R2 インストールのメモ
普通にセットアップ
ドライバーは、Dellサイトから XPのドライバーをダウンロード

チップセット
Intelのサウンドドライバ゛ー
RealtekのAudioドライバー

以上をゴニョゴニョしてセットアップでOK

TFS2010 で Silverlightのビルドができない

2011-09-29T18:08:00.001+09:00

TFS2010でSilverlight4のプロジェクトをビルドすると次のエラーになる

C:\Program Files (x86)\MSBuild\Microsoft\Silverlight\v4.0\Microsoft.Silverlight.Common.targets (104): Silverlight 4 SDK がインストールされていません。

検索したところ次のURLに解決策
http://blog.benday.com/archive/2010/04/20/23272.aspx

ビルドを編集して

ビルドの編集

MSBuildプラットフォームを「Auto」→「X86」へ変更すればOK

プロジェクトリソースの画像ファイルをBitmapへ読み込み

2011-05-24T14:19:00.000+09:00

WPF
画像ファイルをプロジェクトに追加する
ビルドアクションは「Resource」
出力ディレクトリーにコピー「コピーしない」

StreamResourceInfo streamInfo = Application.GetResourceStream(new Uri("(サブフォルダ)/画像ファイル名", UriKind.Relative));
backGround = (Bitmap)Bitmap.FromStream(streamInfo.Stream);

VisualStudio 2010 でコピーや貼り付け操作を行うとメモリー不足

2011-01-30T17:53:00.002+09:00

VisualStudio 2010 でコピーや貼り付け操作を行うとメモリー不足が発生する場合があるので、その対策パッチのURLを次に示す。
http://connect.microsoft.com/VisualStudio/Downloads/DownloadDetails.aspx?DownloadID=29729

VisualStudio Blog
http://blogs.msdn.com/b/visualstudio/archive/2010/06/25/patch-available-for-cut-or-copy-displaying-insufficient-memory-error-in-vs-2010.aspx

VS2010のセットアップする毎に探しまくっているので、ここに記す。

WinMargeをTFSのツールとして使用する場合のコマンドライン

2011-01-12T10:38:00.002+09:00

VisualStudio 2010 の TFSで外部ツールとして「WinMarge」を使用する方法

設定場所

[ツール]-[オプション]

[ソース管理]-[Visual Studio Team Foundation Server]を選択後

「ユーザツールの構成」

比較ツール
コマンドには「WinMargeU.exe」を選択
引数「/wl /dl %6 /dr %7 %1 %2」
マージツール
コマンドには「WinMargeU.exe」を選択
引数「/wl /dl %6 /dr %7 %1 %2 /o %4」

------------------------------------
(2011/12/01変更)
比較ツールのコマンドラインは次のように変更したほうが、比較中に右ソースの内容を
変更できていいと思います。
旧
「/wl/wr/dl %6 /dr %7 %1 %2」
新
「/wl /dl %6 /dr %7 %1 %2」

.NET/C# 定義したFile名やメソッド名

2010-12-14T11:30:00.000+09:00

C++でいうところの __FILENAME__

System.Diagnostics.StackTrace st = new System.Diagnostics.StackTrace();

System.Diagnostics.StackFrame sf = st.GetFrame(0);

MessageBox.Show( string.Format("{0}:{1}",sf.GetMethod().DeclaringType.FullName, sf.GetMethod().Name));

MVVM:自分自身のプロパティに設定する方法

2010-11-18T20:16:00.000+09:00

public int FooProperty
{
get
{
      return fooProperty;
}
set
{
       fooProperty = value;
       DispatcherHelper.BeginInvoke(

            System.Windows.Threading.DispatcherPriority.Send

           , new Action(delegate { FooProperty = 100; })

       );
}
}

TreeViewコントロールの不具合

2010-05-21T12:48:00.001+09:00

.Net 3.5までのTreeViewコントロールは追加した項目の最終行が見切れたり表示しない現象が発生します。.Net 4.0では発生しない事を確認しました。

次の様な簡単なテストプログラムを準備します。
(MSDNフォームに投稿したコードと同じです。→MSDNフォーラム)

(1)適当なVisialBasicのWindowsフォームアプリケーションプロジェクトを作成する
(2)Form1.vbをデザインで開き、TreeViewコントロールを配置する(Location=20,20)(Sizeは200,100)
(3)Anchorを「Top,Bottom」に設定する
(4)Form1.vbのコードに次のようにコーディングする

  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) _
   Handles MyBase.Load
   For _i As Integer = 1 To 10
   TreeView1.Nodes.Add(String.Format("{0}", _i))
   Next
  End Sub

実行する

現象の確認

(1)Form1をリサイズすると、「１」～「９」まではスクロールバーが表示してスクロールすれば「１０」が表示されるが、
リサイズしてスクロールバーが消えた時のTreeViewではスクロールによって「１０」を表示することができない。

回避策

次のコードをForm_Loadで実行する

Dim _mi As Reflection.MethodInfo = TreeView1.GetType().GetMethod("ForceScrollbarUpdate", _
Reflection.BindingFlags.Instance Or Reflection.BindingFlags.NonPublic)
_mi.Invoke(TreeView1, New Object() {True})

XML+XSLT→HTML覚え書き

2010-05-20T01:37:00.001+09:00

xsltを使った変換コードを覚え書きとする。

Private m_trnsStyleSheet As Xsl.XslCompiledTransform

   Dim _xStyleSheet As XDocument = XDocument.Parse(My.Resources.stylesheet)
   m_trnsStyleSheet = New Xsl.XslCompiledTransform()
   m_trnsStyleSheet.Load(_xStyleSheet.CreateReader())
   '↑この部分は時間がかかるので初回のみ動作させること

   Dim _strwrtHTML As New System.Text.StringBuilder
   Using _wrtHTML As XmlWriter = _
   XmlWriter.Create(_strwrtHTML, m_trnsStyleSheet.OutputSettings)
   ' XML+XSLT→HTML
   m_trnsStyleSheet.Transform(mXMLElement.CreateReader(), Nothing, _wrtHTML)
   ctlWeb.DocumentText = _strwrtHTML.ToString()
   End Using

XmlWriterでStringBuilderが使えるので、非常に簡潔になった

ListBox : 項目が存在しないエリアを選択しても選択されないように

2010-05-17T11:54:00.001+09:00

なんで.Netのコントロールは、細かい動作に不具合が多いのだろう

ListBox(CheckedListBox)のコントロールの動きについて、項目がListBoxの高さ一杯まで埋まっていない場合、項目がないエリアをクリックすると、選択された動作(SelectedIndexChangedイベント発生)し、違和感がある。
ＶＢ６のコントロールでは、こんな動作しなかったのに....
おかげで、ListBoxを利用した抽出画面にお客さんからクレーム来たよ(泣)

ＶＢ６と同様に項目が存在しないエリアを選択しても選択されないようにするには...

ListBoxコントロールにはクリックした場所からその項目のIndexを取得するメソッド(IndexFromPoint)があります。
これを利用し、継承コントロールを作りました。

Public Class CustomListBox
   Inherits ListBox

   Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
   Dim _blnHandled As Boolean = False

   Select Case m.Msg
   Case &H201, &H202, &H203 'WM_LBUTTONDOWN,WM_LBUTTONUP,WM_LBUTTONDBL
   Dim _ptMouse As Point = MyBase.PointToClient(MousePosition)
   Dim _index As Integer = MyBase.IndexFromPoint(_ptMouse)
   If _index < 0 Then
   _blnHandled = True
   ElseIf _index < Items.Count Then
   ' クリックした位置がリストボックスコンテンツのある範囲か無い範囲かの計算
   Dim _lngContentsHeight As Integer = 0
   Dim _indexSizeCalc As Integer = MyBase.IndexFromPoint(0, 0) '先頭位置のインデックス

   Do While (_indexSizeCalc < Items.Count) And (_lngContentsHeight <= Height)
   _lngContentsHeight += GetItemHeight(_indexSizeCalc) 'コンテンツ高さ計算
   _indexSizeCalc += 1
   Loop
   If (_ptMouse.Y > _lngContentsHeight) Then '?領域外
   _blnHandled = True
   End If
   End If
   End Select

   If (Not _blnHandled) Then '?処理する
   MyBase.WndProc(m)
   End If
   End Sub
End Class

WebBrowser : .Document.Write()は使わない方がよい

2010-05-16T13:02:00.006+09:00

WebBrowserコントロールにテキストを設定する手段として、.DocumenetTextにHTMLテキストを設定する手法が一般的である。

しかし、この方法ではHTMLテキストを設定した直後から DocumentComplete()イベントが発生するまで .DocumentTextは以前の設定された内容になっている

また、DocumentComplete()を待たずに、DocumentTextに連続してHTMLテキストを設定すると、２回目以降に設定したテキストが無視される。

さて、設定した内容を即時反映するにはどうすればよいか？
都合の良いことに Write() というメソッドが存在する。

.Document.OpenNew(False)
.Document.Write( HTMLテキスト )

上記の様にテキストを設定すると、DocumentCompleteイベントが発生しないが、DocumentTextにはWrite()で設定した文字列が設定されている。

喜んで Write() を使うと大変な目に遭う。

HTMLテキスト中にある JavaScriptが実行されない
WebBrowserコントロールが張り付いたFormがフォーカスを奪う

やっぱり DocumentTextプロパティを使うしかないそうだ。

DocumentTextにHTMLテキストを設定してその直後に DocumentCompleteを待つコードを次に示す

<定義部>
   Friend Enum POSTMESSAGE_FLAGS
   PM_NOREMOVE = 0
   PM_REMOVE = 1
   End Enum


   Private Shared Function PeekMessage(ByRef m As System.Windows.Forms.Message, _
   ByVal hWnd As IntPtr, _
   ByVal FilterMin As Integer, _
   ByVal FilterMax As Integer, _
   ByVal RemoveMsg As POSTMESSAGE_FLAGS) As Integer
   End Function

   Private Shared Function DispatchMessage(ByRef m As System.Windows.Forms.Message) As Integer
   End Function

<コード部>

   '
   ' WebBrowserコントロールにテキストを設定する
   '

   Private Sub SetWebbrowserDocumentText(ByVal ctlWeb As WebBrowser, ByVal strValue As String)
   mblnWebWaitForComplete = True

   ctlWeb.DocumentText = strValue

   '完了待ち
   With ctlWeb
   Do Until (.ReadyState = WebBrowserReadyState.Complete AndAlso mblnWebWaitForComplete = False)
   Dim _m As System.Windows.Forms.Message
   ' メッセージループ
   Dim _get As Integer = PeekMessage(_m, IntPtr.Zero, &H400, &HFFFF, POSTMESSAGE_FLAGS.PM_REMOVE Or &HF0000) '入力イベント以外
   Do Until (_get = 0)
   DispatchMessage(_m)
   _get = PeekMessage(_m, IntPtr.Zero, &H400, &HFFFF, POSTMESSAGE_FLAGS.PM_REMOVE Or &HF0000) '入力イベント以外
   Loop
   Loop
   End With
   End Sub

   Private mblnWebWaitForComplete As Boolean = False '完了待ちフラグ

'Webプラウザの完了

Private Sub webKarteEdit_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles webKarteEdit.DocumentCompleted

mblnWebWaitForComplete = False

'以下コード

End Sub

ListBoxがOwnerDrawVariableの時、マウスホイールで逆スクロール対策

2010-05-15T21:27:00.001+09:00

ListBoxコントロールで
DrawMode = Windows.Forms.DrawMode.OwnerDrawVariable
を設定した時、マウスホイールのスクロールが一瞬逆スクロールしている現象の対策

   Private Function HIWORD(ByVal intValue As Integer) As Integer
   If (intValue And &H80000000) = &H80000000 Then
   Return (intValue >> 16)
   End If
   Return ((intValue >> 16) And &HFFFF)
   End Function

Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)

Select Case m.Msg

Case &H20A 'WM_MOUSEWHEEL

Dim _d As Integer = HIWORD(m.WParam.ToInt32())

For _count As Integer = 1 To SystemInformation.MouseWheelScrollLines 'マウスホイールスクロール量(1行ずつ)

Me.TopIndex = Math.Max(0, Me.TopIndex + If(_d < 0, 1, -1))

Me.Invalidate()

Me.Update()

Return

End Select

MyBase.WndProc(m)

End Sub

まぁ、１行ずつスクロールするという事だ。

GDI+でパターンの拡大縮小

2010-05-15T21:20:00.001+09:00

GDI+でパターンの拡大/縮小を行う場合、水平、垂直方向に0.5ドットずれて実行されるので、オフセット値を操作する事

'描画モードをニアレストネイバーに設定します

e.Graphics.InterpolationMode = Drawing2D.InterpolationMode.NearestNeighbor

'ピクセルオフセットを設定します

e.Graphics.PixelOffsetMode = PixelOffsetMode.Half