俺にプログラムを教えてみろ！！

>>68
載ってない。

いんかずだよ♪

ちんかす

>>70
その逆を取ってひきすうだろ。引数引数

もう一つがわからん。

ひかくえんざんし
ネタだとしても少しage過ぎ。
もうちょっと控え目にしてくれ。

>>74
おーっ！　ｻﾝｸｽ！

Sub hantei(ByVa1 Index As Integer, _
ByVa1 No As Integer, _
ByVa1 Fname As String)


本どうりに打ってたらなんかここでエラーが出る。本どうりのはずなのに。

なんでだ？

Sub hantei(ByVa1 Index As Integer, _
　　　　　　ByVa1 No As Integer, _
　　　　　　ByVa1 Fname As String)

ん？

半角スペースは省略されるのか？

独り言やめい

>>76　ネタ？
ValがVa1になってるぞ（エルがイチになってるぞ）

ネタにしか見えん

ネタじゃない・・・鬱だ氏のう・・・・・・

とりあえずｻﾝｸｽ。

なんとかミスってやつね。

>>84
何で上げんの？

「１０−２」は？「うーん。。。８！」
「正解！じゃあ１０ｃｍの紐から２ｃｍ切りとると残りの紐の長さは？」
「……。えっ！？ん？うーん…。５ｃｍ？」

>>86
何で上げんの？

次のネタに期待age

>>85,>>87
なんでsageんの？

VBよくしらんのだけど>>77みたいな関数プロトタイプだけで実行できんの？

VB厨発生の起源がここに！！

>>86
1cm & 7cm
2ch & 6cm
3cm & 5cm
4cm & 4cm
....

ディレクトリに希望するファイルが保管されているかどうか調べたいんだけど
普通はどうするの？

Open file_path For Input As #file_id

って、やったらFileが存在しない場合エラーで処理終了…
いろいろ調べたんだけど、Fileが存在しない場合にエラーにしないで処理を続行
させる方法がわからない。
誰かヒントを下さい。

ヒント：調べるだけならオープンしない

♪日本を印度にし〜てしまえっ！
俺にＶＢ教えろ〜
俺にＶＢ教えろ〜・・・

>>92

>2ch & 6cm
ﾜﾗﾀ

on error goto
(VBにあるのか？

　　　　　　　　　　　　　　　　　　　　　　　　　　, 〜〜〜〜〜〜〜〜〜〜〜〜〜､
　　　　　　　　　　　　　　　　　　　　　　　　　（　なんか事務的になったよなぁ…　）
　　　　　　　　　　　　　　　　　　　　　　　　　　` 〜〜〜ｏ〜〜〜〜〜〜〜〜〜'
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 ﾟ　 （（（　）））
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 u （´Д｀ ）
　　／￣￣￣￣￣￣￣￣￣＼　　　　　　　　　　　　　　　　 ./　　　ヽ
　 （　まって〜１さんＬＯＶＥ。　）　　　　　　　　　　　　　　　　し 　　 Ｊ
　　＼＿＿＿　 ＿＿＿＿＿／　　　　　　　　　　　　　　　:::::（＿）（＿）::::
　　　　　　　 .|／
　 　　　　　　　　　　　┌──┬┐　　／￣￣￣￣￣￣￣￣￣￣￣＼
　　　　　　　　　　　　　||￣￣| |　|　　（　 また騙されましたね１さん。　）
　　　 ∧＿∧. 　 　　　||＿＿| |　|　　 ＼＿＿＿　 ＿＿＿＿＿＿＿／
　　　（　　　　）　　　　..|∞∞0 ||~|　　　　　　　　.＼|
　　 /　愛 　.＼　　　|￣￣￣￣|￣|
　　.|　　　　|＼＼　　 ||￣￣￣||￣|　　　　　　　　 .∧＿∧ ))
　　|　　　　|/　＼)..　 ||======||＿|　　 　　　 ./⌒（ ´Д｀ ）　ｱﾊﾊﾊ
　　|　　　　ヽ /　|　　ﾞ ﾞﾞ￣￣ﾞ￣ﾞﾞ　/⌒＼　　 |　|　　　　 (~冫
　　（　（　　　ﾉ(　つ　　　　 　　　　/ /ヽ　ヽ - |　|　 　　/.| |
　　￣￣￣￣￣￣ 　　　　i⌒ヽ__/＿,,,--──＼＼　 /.| | .|
　　　　　　　　　　　　　　　 ＼＿＿＿＿,,,＿＿,,-（_)⌒Y⌒〜

>>94

ヒントありがとうね。
調べてみる、また1日くらいかかると思う。
分からなかったらまたくる。

>>97

Privaste sub File_open_sub()
on error goto File_open_sub_ERR:
　なんたら感たら処理
File_open_sub_ERR:
エラー時の処理
end sub

という感じ使ってる。
でも、これではうまくいかない

100

さて、勉強するかな。

うっひゃーかっこわる〜

> Privaste → Private

ださくてスマソ、只今ディレクトリ内情報を取得するコマンドを
調査中。なかなか検索エンジンにひっかかりません。

>1

ここ借りててイイ？勉強の邪魔なら出て行くけど

>>102
いいよ。

>>102-103
二人とも出ていけ。
もしくはsageでやれ。

>>93=55
Dir

　あんたらMSDN見てないのかい？
サンプルプログラムとか載ってるだろ。

見てるよ、でもうまく引けないよ。
Dirでやっと情報にたどり着けたよ。
File　List　Openじゃ情報はでてこなかったよ

>>105

感謝感激雨あられ、これで前に進めそうです。

なんとなく解ってきた。　ﾑﾌﾌ・・・

なんか眠くなってきた。　昼寝するわ。　

MSDNの↓ヘルプとFileListBoxのListCountプロパティを使って、やっと出来たよ。

-----
' 指定した拡張子を持つファイル名を返します。複数の *.INI ファイル
' が存在すると、最初に見つかったファイル名を返します。
MyFile = Dir("C:\WINDOWS\*.INI")

' 引数を指定せずに再度 Dir 関数を呼び出すと、
' 同じフォルダにある次の *.INIファイルを返します。
MyFile = Dir
-----

作ったソース、おかしな点を指摘してもらえるとうれしいです。

-----
Dim All_file()
Dim i
Dim j

'/ FileListBoxコントロールを使ってファイル数を求めてます /

FileList.Path = "c:\japamedia\cel_img"
j = FileList.ListCount

'/ ファイル数分の配列を宣言します /
ReDim All_file(j)

'/ ファイル名を保管 /

'/ 1つめのファイルだけ先に処理 /
All_file(0) = Dir("c:\japamedia\cel_img\*.*", vbNormal)

'/ ファイル名保管繰り返し /
i = 1
Do Until i > j
All_file(i) = Dir
i = i + 1
Loop

Dirではファイル総数が分からないので、FileListBoxのListCountを使用しました。

全部>>105さんのおかげです。ありがとうございました。

なんかやる気でない。

>1
目的は何だ？
ツールか？ゲームか？
漠然と覚えてもすぐ忘れるだけだと思うが。
どうだ？

＃脅迫してるわけではない...。

>>112
いいかなお嬢さん
世の中には手段の為ならば目的を選ばないという様な
どうしようもない連中も確実に存在するのだ

>113

いいから上げるな

なんかageることに、やけにウルサイ奴がｲﾊﾟｰｲ！

別にいいじゃん・・・

何がいいんだ？

>>115
駄スレをあげると他のスレが沈む。
お分かりか？

　　　| ＼
　　　|◎`｝　>>434　ｺｺﾆｲﾙﾉﾆ ｷﾂﾞｲﾃﾅｲﾅﾝﾃ ｿﾗﾈｰﾖ
　　　|⊂
　　　|


　　　　　♪　　Å
　　　♪　　　／ ＼　　　ｿﾗｿﾗ
　　　　　　ヽ{´◎`;}ﾉ 　　ｿﾗｿﾗ
　　 　 　　　 (　 へ) 　　　ｿﾗﾈｰ
　 　 　 　 　　く 　　　　　　ﾖ



　　　♪　　　　Å
　　　　　♪　／ ＼　　　ﾉﾎﾞﾘｶﾞ
　　　　　　ヽ{;´◎`}ﾉ　　ﾂｲﾃﾈｰﾖ
　　 　 　　　 (へ　 ) 　　　ﾃﾇｷｶ
　 　 　 　 　　　　 >　　　　ﾖ