C# と VB.NET の質問掲示板

■No8438に返信(kirinさんの記事)

こんにちは。

やりたいこととプログラムの動きが一致していないというか、コードがちょっと
ごちゃごちゃしていてわかりにくいですね。

> Public dirl, angele As String
これだと dirl は Variant 型になりませんか？
 Public dirl As String
 Public angele As String
とそれぞれ宣言したほうがいいでしょうね。

> 'スタートの処理
> Private Sub Command1_Click()
> cot = 1
> Image1.Picture = LoadPicture(Dir1 + fname(cot)) 'イメージを表示
> End Sub
Dir1 と fname が初期化されていないので、ファイルが読み込めないのではない
でしょうか。
っていうか Dir1 ってどこで宣言されているのでしょう。

> Open "C:＼DATA＼OrderData.csv" For Append As #1
> Write #2, list1.Text, _
> list2.Text, _
> list3.Text, _
> Close #2
#1 #2 と直接数字を指定するのは危険です。
FreeFile 関数について調べてみてください。
Open が #1 で Write が #2 というのもおかしな話ですが。
…っとその前に、これってコンパイル通りませんよね？

> Dir1 = "C:＼Documents and Settings＼karalab＼My Documents＼ito＼図形＼0" '表示イメージを読み込みするファイル
> For i = 1 To 100
> fname(i) = Str(i) + ".jpg"
> Next
これだと、fname(i) に入る内容は
 C:＼Documents and Settings＼karalab＼My Documents＼ito＼図形＼01.jpg
 C:＼Documents and Settings＼karalab＼My Documents＼ito＼図形＼02.jpg
のようになったりしませんかね。
 C:＼Documents and Settings＼karalab＼My Documents＼ito＼図形＼0＼1.jpg
としたいのではないかと思いますが…
その前に Dir1 はどこで（略

コードを見ただけでは、ちょっと理解するのは難しそうですので、できればもう
少し詳細に「やりたいこと」を整理してみてください。
それと「うまくいかず」だけだと、どう「うまくいかない」のかがわかりません
ので、これももう少し具体的に書いていただけるとありがたいです。

よろしくお願いします。