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

返信する


答えを正確に入力してください。答えられるかどうかでスパムボットか否かを判定します。
BBCode: ON
[img]: ON
[url]: ON
スマイリー: OFF
トピックのレビュー
   

展開ビュー トピックのレビュー: リストボックスへ文字列を追加する速度が遅くなる

by konisi » 2007年6月09日(土) 13:06

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

なるほど！

by まのんとろっぽ » 2007年6月09日(土) 12:42

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

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

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

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

by konisi » 2007年6月09日(土) 12:34

思い当たる事と言えば、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

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

by まのんとろっぽ » 2007年6月08日(金) 22:14

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

すごく単純なコードなのですが、
メインウインドウに 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秒くらいかかるという感じになります。

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

ページトップ