æ—¥æœ¬èªžå½¢æ…‹ç´ åˆ†æžã‚¨ãƒ³ã‚¸ãƒ³MeCabã‚’VB2005より利用ã™ã‚‹MeCab0.81ã«ã¯Cより利用å¯èƒ½ãªdllãŒãƒã‚¤ãƒŠãƒªã§ä»˜å±žã—ã¦ã„る。ã“れをDllImportã§å®£è¨€ã—，VBã‹ã‚‰åˆ©ç”¨ã™ã‚‹ã€‚ 以下ã®ã‚µãƒ³ãƒ—ルã¯æ–‡å—列をMeCabã§å½¢æ…‹ç´ 分æžã—，çµæžœã‚’TextBoxã«è¡¨ç¤ºã™ã‚‹ã€‚ãªãŠã‚µãƒ³ãƒ—ルを実行ã™ã‚‹ã«ã¯ï¼ŒMecab0.81ã‚’ã‚らã‹ã˜ã‚デフォルトã®ãƒ•ã‚©ãƒ«ãƒ€ã«ã‚¤ãƒ³ã‚¹ãƒˆãƒ¼ãƒ«ã—ã¦ãŠãå¿…è¦ã§ã‚る。 Imports System.Runtime.InteropServices Public Class Form1 Dim TextBox1 As New TextBox Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'TextBox1 Me.TextBox1.Multiline = True Me.TextBox1.
{{#tags}}- {{label}}
{{/tags}}