コンボボックス

[M.S.]

コンボボックスでタイプを「ドロップダウンリスト」にして、
リストに、例えば「あああ」・「いいい」・「ううう」・「えええ」などと表示させ、
「あああ」を選んだら、変数 "a" に「あああ」を代入させるには、
どうすればよいのですか?

わかり難いかも知れませんが、どなたかお願いします。

※ 変数 "a" はファイルパスに使用します。

[雷電]

変更したときに取得するのなら、以下のコードで取得できます。

これであってると思う･･･ [ここをクリックすると内容が表示されます]

参考程度に・・・

[のぶあや]

たぶんそのコードではコンパイルが通りません。

3行目では

コード: 全て選択

Dim a[MAX_PATH] As Byte

と配列で宣言しているので、その時点でMAX_PATH+1バイトが確保されます。
なので7行目の

コード: 全て選択

a=malloc(Length)

は(配列にする場合)要りません。というかたぶんコンパイルエラーになると思います。
(試していないけど・・・でも配列の先頭ポインタってことは型エラーにはならないかも？
どうやらコンボボックスの文字列長を取得してメモリを確保したいようなので、変数型をBytePtrに直します。(配列も消します。)

また7行目の

コード: 全て選択

a=malloc(Length)

ではメモリを確保してはいますが0で初期化されているわけではないのでcallocに変更します。（callocでは自動で0に初期化される）

最後に8行目

コード: 全て選択

a=GetWindowText(hCombo,a,Length+1)

GetWindowTextの第3引数は
「lpString バッファのサイズ（終端の NULL 文字を含む）をバイト単位で指定します。」
とヘルプにあるように確保したメモリのサイズを指定するので、7行目で確保したサイズ(Length)を指定します。

まとめると以下のようになります。

コード: 全て選択

Sub MainWnd_ComboBox1_SelChange()
Dim hCombo As HWND
Dim a As BytePtr
Dim Length As Long

hCombo=GetDlgItem(hMainWnd,ComboBox1)
Length=GetWindowTextLength(hCombo)+1    '文字列長＋1
a=calloc(Length)    'NULL文字を含めた分のメモリを確保
a=GetWindowText(hCombo,a,Length)    '第3引数には確保したメモリサイズを指定
MessageBox(0,a,0,0)
End Sub

ところで余談ですが定数のMAX_PATHはなぜ260なのでしょうか？
Includeディレクトリ内の「api_system.sbp」に以下のように定義されています。

コード: 全て選択

Const MAX_PATH = 260

これだとキリが悪いように思えて仕方ありません。
どうせならキリのいい256にすればいいのにといつも思っているのですがどうなんでしょう？

[7]

GetWindowText()関数を使わない場合です。自分は主にこっちを使っています。

[ここをクリックすると内容が表示されます]

[M.S.]

みなさん、ありがとうございます。

7 さんと、雷電さん (のぶあやさん修正Ver.) のコードでやってみましたが、
どちらもうまくいきません。

7 さんのコードはうまくアイテムの文字を取得できていないだけなのですが、
雷電さん (のぶあやさん修正Ver.) のコードは、
アイテム選択時に、コードの最後の行がデバッグ エラーが出ます。

どうすれば、これらは直るのですか?
お願いします。

[のぶあや]

雷電さんのコードの明らかなバグを直しただけで、確認をしていませんでした。
しかもエディットボックスのつもりでいたりして・・・(死
今回はコンボボックスでしたね。

今回はコピペせずにきちんと書きました（あたりまえ

[ここをクリックすると内容が表示されます]

ほとんど同じですね(というかシンプルすぎて他に書きようがないだけなんだけど

こちらでは両方のコードでちゃんと取得できましたが・・・
一応そちらで書かれたコードと環境を教えていただけませんか？

[雷電]

> 雷電さんのコードの明らかなバグを直しただけで、確認をしていませんでした。
> しかもエディットボックスのつもりでいたりして・・・(死
> 今回はコンボボックスでしたね。
>
> 今回はコピペせずにきちんと書きました（あたりまえ
>

[ここをクリックすると内容が表示されます]

> ほとんど同じですね(というかシンプルすぎて他に書きようがないだけなんだけど
>
> こちらでは両方のコードでちゃんと取得できましたが・・・
> 一応そちらで書かれたコードと環境を教えていただけませんか？

投稿した後に気がつきました。
・・・間違いすぎですね。
SendMessageでは無くて、GetWindowTextのほうでもいけるんですが・・・
僕の環境では、そっちを使ってます。

[7]

> SendMessageでは無くて、GetWindowTextのほうでもいけるんですが・・・
> 僕の環境では、そっちを使ってます。
GetWindowText()関数の場合、バグではないんですけど意図した動きをしないときがあるんですよ。
どういった状況で意図しない動きをするのか、すぐ忘れちゃうんですけど。

[雷電]

＞GetWindowText()関数の場合、バグではないんですけど意図した動きをしないときがあるんですよ。

そうなんですか！？知りませんでした。
コード訂正しようか･･･ばぐったらいやなので

[イグトランス]

今更ですが，MAX_PATHが260なのは勿論ABが決めたことではありません。C/C++でもそうなっています。
Windowsの仕様でパス名は259文字までと定められており，それに文字列の終わりのヌル文字 (\0)を加えて260というわけです。
（Windows NT系では最大で約32,000文字までと制限が緩和されています）

でもなぜ259なのかまでははっきりと知りません。
VFATファイルシステムでは，ファイル名・ディレクトリ名が255文字未満までということも関係していそうです。

サポート技術情報
KB148754 ファイル名は、未満255文字に制限されるように考えられます。
KB405530 [W95]長いファイル名(ロングファイルネーム)の制限について

[M.S.]

> こちらでは両方のコードでちゃんと取得できましたが・・・

今コードを見直したら、7 さんのコードのコピーが、
一行抜けていることに気がつきました。

携帯のフルブラウザで見ていた為、
コピーが手書きとなり、
見逃していました…

こちらのミスでした、すみません…

> 一応そちらで書かれたコードと環境を教えていただけませんか？

今 Windows 95 でやり直したら、
ちゃんと出来ました。

Windows 95 4.00.950 B
AB 4.24.00
＆
Windows XP Professional SP2
AB 5.00.00(CP3)
です。

みなさん、教えていただき、
ありがとうございました。

[ゲスト]

> 今更ですが，MAX_PATHが260なのは勿論ABが決めたことではありません。C/C++でもそうなっています。
> Windowsの仕様でパス名は259文字までと定められており，それに文字列の終わりのヌル文字 (\0)を加えて260というわけです。
> （Windows NT系では最大で約32,000文字までと制限が緩和されています）

そうだったんですか。
以前疑問に思って検索したんですけど結局分からなくて・・・検索の仕方が悪かったのかな。
しかもXPを使っているので260文字以上のパス名も普通に使えてたのでますます「？」になってしまって。
9x系は259文字までという制限があるからなんですね。

些細な疑問に答えていただきありがとうございました。