VB6 コントロールボックス内のインデントについて

質問

VB6でプログラミングをしています。
コンボボックスにDBから取得したデータをセットしているのですが、プルダウンでデータを表示したところ、インデックスがずれてしまいます。
'△=半角スペース
---ソース---
combo.AddItem Left$(Trim(mRs.Fields"CODE").Value) "△△△",12) & "△" & Trim(mRs.Fields("ITEM").Value

---プルダウン表示(実行結果)---
AAA△△△△あいうえお
B123△△△かきくけこ
※ITEMのインデックスがずれてしまう。

ちなみにコンボボックスのフォントはMSゴシックを指定しています。
どなたかプルダウン内の表示を統一する方法について教えて頂けないでしょうか？

回答No.1

Bickyon · ベストアンサー

left$のところですが、mRs.Fields"CODE").Valueに半角空白３個を引っ付けたものを１２文字取り出しているように見受けられます。

この場合、取り出し元の文字列が１２文字未満だとズレますね。
CODEの最大文字列長が１２文字なら、半角空白１２個を引っ付けた文字列から取り出すようにして下さい。
例題を見ると、最大長は４文字のようですから、"△△△"を"△△△△"にすればＯＫなのかも。

お礼

回答ありがとうございます。

ソースですが、スペースは12個入れています。
質問文では省略しています。わかりにくくてすみません。

切り出した文字数をdebug.printでlen$()で表示すると、バイト数は全て統一されているのですが、コンボボックスでみるとずれてしまいます。

回答No.2

imogasi

Mid関数を使う方法もあります。
Pフォントは使わない前提で。
エクセルVBAで結果表示はCellに出してます。
Sub test02()
Dim B(1)
Dim c(1)

a = String(12, "　")
a = StrConv(a, vbWide)
Cells(2, 1) = a & "*" & Chr(10) & a & "*"
B(0) = "東京"
B(1) = "神奈川"
c(0) = "丸の内"
c(1) = "関内"
s = ""
For i = 0 To 1
X = a
Mid(X, 1, Len(B(i))) = B(i)
s = s & X & c(i) & Chr(10)
Next i
Cells(1, 1) = s
End Sub
Mid(X, 1, Len(B(i))) = B(i)の１を省略するとおかしくなる。
Msgbox ではなぜか少しずれる。