在google上面搜到下面的微软的地址，可是看不了

}

private void TextBox1_HandleDestroyed(object sender, EventArgs e)

{

// 登録していた callback の参照を消す

(self.Tag as GCHandle).Free();

}

VB

Private Sub TextBox1_HandleCreated(ByVal sender As Object, ByVal e As EventArgs) Handles TextBox1.HandleCreated

Dim proc As WordBreakProc

proc = AddressOf MyWordBreak

With CType(sender, Control)

" とりあえず Tag プロパティに保存する

.Tag = GCHandle.Alloc(proc)

" callback を登録する

SendMessage(.Handle, EM.SETWORDBREAKPROCEX, 0, proc)

End With

End Sub

Sub TextBox1_HandleDestroyed(ByVal sender As Object, ByVal e As EventArgs) Handles TextBox1.HandleDestroyed

// 登録していた callback の参照を消す

With CType(self.Tag, GCHandle)

.Free

End With

End Sub

のようにする必要があります。

hatayama はオフラインです。最後に活動した時刻: 2005/01/28 17:05:01 hatayama