ab.com コミュニティ

すいません。初めてなんですが、質問させてください。

すごく単純なコードなのですが、
メインウインドウに CommandButton1 と ListBox1 を設置しておいて以下のようなコードを組んだ場合、
動作自体は問題ないのですが、ボタンを押下する度に 1000件の文字列の追加が完了する速度が遅くなってしまいます。

コード: 全て選択


Sub MainWnd_CommandButton1_Click()
	' リストボックスのアイテムを消去
	SendDlgItemMessage(hMainWnd, ListBox1, LB_RESETCONTENT, 0, 0)

	' リストボックスに 1000 個のアイテムを追加
	Dim i As Long
	For i = 1 To 1000
		SendDlgItemMessage(hMainWnd, ListBox1, LB_ADDSTRING, 0, "This is Test String " & Str$(i))
	Next For
End Sub

1回目は 0.8秒くらいで 1000件の追加が完了するのに、
10回目は 3.0秒くらいかかるという感じになります。

このような速度劣化が起きないような方法をご存知の方がいましたら教えていただけないでしょうか？

思い当たる事と言えば、Str$をwsprintfに書き換えてみてはどうか？てなあたりです。

before

コード: 全て選択

Sub MainWnd_CommandButton1_Click() 
    ' リストボックスのアイテムを消去 
    SendDlgItemMessage(hMainWnd, ListBox1, LB_RESETCONTENT, 0, 0) 

    ' リストボックスに 1000 個のアイテムを追加 
    Dim i As Long 
    For i = 1 To 1000 
        SendDlgItemMessage(hMainWnd, ListBox1, LB_ADDSTRING, 0, "This is Test String " & Str$(i)) 
    Next For 
End Sub

after

コード: 全て選択

Sub MainWnd_CommandButton1_Click() 
    ' リストボックスのアイテムを消去 
    SendDlgItemMessage(hMainWnd, ListBox1, LB_RESETCONTENT, 0, 0) 

    ' リストボックスに 1000 個のアイテムを追加 
    Dim i As Long,SendBuf[100] As Byte
    For i = 1 To 1000 
        wsprintf(SendBuf,"%s%d","This is Test String ",i)
        SendDlgItemMessage(hMainWnd, ListBox1, LB_ADDSTRING, 0,SendBuf)
    Next For 
End Sub

> とてもそのコードがAB4系でコンパイルできるようには見えないのですが、バージョンはいくつでしょうか？

えーっと、一応コンパイルが可能なことは確認しております。動作もします。
バージョンは 4.24.00 です。

それはともかく、確かに回答をみたところ、自分でも不思議なことをやっていたことに気づきました。
早速試してみたところ、期待通りの動きをしているようです。

ありがとうございました。

よくみると自分の使ってるAB4はAB4.13で、試しにAB4.24で動かしてみると普通に動きました。すみません。

ab.com コミュニティ

リストボックスへ文字列を追加する速度が遅くなる

リストボックスへ文字列を追加する速度が遅くなる

なるほど！