リストボックス

質問

例えば　例
データベースには
　　　顧客名　　　旧姓

　　　木村　　　　工藤
　　　朝比奈　　　遠藤
　　　李　　　　　福井

っていう風にデータ”３件”が入っていまして、

Dim A As String * 10, B As String * 10
Do While Not rs.EOF
.List1.FontName = "FixedSys"
.List1.FontSize = "9"

LSet A = rs.Fields!顧客名
　 LSet B = rs.Fields!旧姓
.List1.AddItem A & B
rs.MoveNext
Loop

これを実行したらリストボックスには、

木村　　　工藤
朝比奈　　　遠藤
李　　　福井

っていうふうに、見た目的にも悪いので、旧姓側をきちんと頭をそろえたいのですがどうすれば解決しますでしょうか？

LSETを使わないほうがいいのでしょうか？

回答No.2

imogasi · ベストアンサー

ＶＢに限らず、文字列に２項目を縦に揃えるのは、私の経験では２通りのやり方があると思います。ご参考までに。
（１）第１項目（新姓）の文字数を割り出して、一定文字数より引き、その長さのスペースを詰めこむ。その後旧姓をくっ付ける。
c=a & spc(10-lenb(a)) & b
(2)cという一定桁（例えば２０バイト）の文字列を用意する。そしてaとbをcにはめこむ。aは１バイト目から、ｂを１１バイト目からはめこむ。mid$(c,1,lenb(a))=a mid$(c,11,lenb(b))=b
場合によってはＴｒｉｍが必要なケースがあろう。
＃１のご解答のように、半角全角には気をつけましょう。
len,lenb,mid,midbにはややこしいので間違っていたらご免。

回答No.3

taka_tetsu

List1.AddItem A & vbTab & B

のようにTABを入れてみてください。
TABの幅を変えたいときはAPIで設定します。

回答No.1

mnabe

考え方だけ....コードは自分で考えて下さいね。

>.List1.AddItem A & B

　この部分で、
　Aの文字数を数えて、規定の文字数(例えば、データベースのフィールド長)に足りない文字数を、空白(例だと全角文字)追加して、B(旧姓)を付加すれば、見た目ある程度揃います。
　ただし、フォントの問題があるので、多少ずれが生じる可能性があります。それが許せない場合には、リストボックスの使用を止める方向で検討しなければいけません。ちょっとテクニックが必要になります。