VB.NET質問ｽﾚ (Part22)

VB.NET質問ｽﾚ (Part22 ..

175:デフォルトの名無しさん
07/07/19 10:13:21
Fromが(アド)@ezweb.nemaharikumaharetaa@ez
Reply-Toが(アド)@ezweb.ne.jp
になっていれば、表示アドは(アド)@ezweb.nemaharikumaharetaa@ez
でも、返信を押せば(アド)@ezweb.ne.jpが出るよ。

176:デフォルトの名無しさん
07/07/19 10:17:27
知的障害者の鼬害質問にも反応したくなるほど暇なら
「VB.NET　(Compact　Framework　1.1)　による
　フォーム派生クラスのデザイン時コントロールの作り方」に
詳しいWebページや本の紹介をして下さいマセヨ。

177:デフォルトの名無しさん
07/07/19 13:29:59
>>175ワーイ！ありがとうございます o(*^▽^*)o
問題は何故テクマクマヤコンの文字が消えるかなんですょ？

>>176知的障害だって言われるなら答えられるよね？知的障害の話だなんて
話をすり替えて逃げないで答えてね!!
解らないくせに(ﾟεﾟ)

178:デフォルトの名無しさん
07/07/19 13:32:31
知的障害のお前の言うことは日本語としておかしいから答える必要もないﾌﾟｰ(ﾟεﾟ)

ｻｯｻﾄｼﾈﾖﾃｲﾉｳ

179:デフォルトの名無しさん
07/07/19 13:40:53
>>177訂正

テクマクマヤコン×
マハリクマハリタ〇

180:デフォルトの名無しさん
07/07/19 13:44:32
>>178答えられない藻前も知的障害と代わり茄子じゃんギャハハ(･∀･)/ヾ～～╋┓ ┣¨┣¨┣¨┣¨┣¨ ┃┃¨╋┓┃┃¨╋┓

181:デフォルトの名無しさん
07/07/19 13:48:13
┃┃¨╋┓┃┃¨╋┓

182:デフォルトの名無しさん
07/07/19 13:50:34
┃┃¨╋┓┃┃¨╋┓

183:デフォルトの名無しさん
07/07/19 14:03:21
Fromが(アド)@ezweb.nemaharikumaharetaa@ez
Reply-Toが(アド)@ezweb.ne.jp

こうなっている場合、返信ボタンを押すと
(アド)@ezweb.nemaharikumaharetaa@ezから
maharikumaharetaが取り払われて(アド)@ezweb.ne.jpがセットされるのではなく、
単純にReply-Toに設定されている(アド)@ezweb.ne.jpがMailToに格納される。
別に文字が消えたわけではない。

該当メールのヘッダをココに貼ってみろ。はっきりするから。

184:デフォルトの名無しさん
07/07/19 14:05:04
表現があやふやだったな。

maharikumaharetaが取り払われて(アド)@ezweb.ne.jpがセットされるのではなく、
単純にReply-Toに設定されている(アド)@ezweb.ne.jpがMailToに格納される。
↓
maharikumaharetaが取り払われて(アド)@ezweb.ne.jpがMailToに格納されるのではなく、
単純にReply-Toに設定されている(アド)@ezweb.ne.jpがMailToに格納される。

185:デフォルトの名無しさん
07/07/19 14:34:35
>>184神降臨ﾟ☆,｡･:*:･ﾟ★o(´▽｀*)/
ありがとうございますm(__)m

単純にReply-Toに設定されている(アド)@ezweb.ne.jpがMailToに格納される。
とありますが

maharikumaharetaはReply-Toに設定されてされていない事になるんですか？

端末は携帯です。どの様な操作をすれば出来ますか？
私自身アドにmaharikumaharetaa@で試みましたがmaharikumaharetaは消えませんでした

186:デフォルトの名無しさん
07/07/19 14:49:05
携帯から直接Reply-toを指定してメールするのは無理。
パソコンからだと、一般的なメーラはReply-toの設定ができるはず。
"(利用しているメーラ名) Reply-to"なんかで検索するといい。
それでReply-toの設定が出来たら、自分の携帯宛にメールをしてみるとよい。
auはReply-toの設定が有効だから、再現できると思うぞ。

187:デフォルトの名無しさん
07/07/19 15:04:29
>>186詳しくありがとうございますm(__)m

私の携帯はＤｏＣｏＭｏなのですがａｕ同様に出来ますでしょうか？

188:デフォルトの名無しさん
07/07/19 15:05:24
気違いの相手をするやつも気違い

189:デフォルトの名無しさん
07/07/19 15:19:09
>>186様感謝致しますm(__)m
>>188デフォルトの名無しさん→気違いのお陰で勉強になったでしょ？
有り難く思いなさい(ﾉ`Д´)ﾉ ■━⊂(･∀･)彡ｶﾞｯ

190:デフォルトの名無しさん
07/07/19 15:47:50
>>188藻前も人から尊敬される様な知識と人格を持ってね！

191:デフォルトの名無しさん
07/07/19 15:55:14
メーラーのReply設定で尊敬する知識か。

世の中、尊敬する人ばかりで大変だなｗ

192:デフォルトの名無しさん
07/07/19 16:08:10
>>191知識と※人格
　　　　　　￣￣
ここ重要ね！ヽ(･∀･)ﾉ

193:デフォルトの名無しさん
07/07/19 16:09:20
よくこんな質問に答える気になったな。

194:デフォルトの名無しさん
07/07/19 16:13:37
>>193お前も初めから知識があったか？今の私同然のはずだょ(^.^)b
教えて頂いた積み重ねが今のお前なだけ(ﾟεﾟ)

195:デフォルトの名無しさん
07/07/19 16:20:10
教えてくださった皆様ありがとうございましたm(__)m

196:デフォルトの名無しさん
07/07/19 16:41:46
>>195
スレチだから今度からこっちで聞くようにね？

ｽﾚﾘﾝｸ(tech板)

197:デフォルトの名無しさん
07/07/19 16:50:56
>>196良いスレがあったんだね！そこ行くよ ☆^(o≧▽ﾟ)o
私専属の先生に任命してあげるからシッカリ教えてね！
m9(･∀･)ﾋﾞｼｯ!!

198:151
07/07/19 22:03:14
>>154
やってみたところ出来ました!!
本当にありがとうございます!!
俺の中で154さんは神様です

ただ子フォームのラジオボタンが、見た目何も変化していないのが気になります。
いまのフォームではラジオボタン１と２がありまして最初は１になるように設定してあります。
先程のやり方でデバッグすると、
本来ならラジオボタン２にクリックされた試行をしているはずなのですが
（実際その試行は行われているんですが）
子フォームのラジオボタンの表示は変化していません。
対応させるにはどうしたらいいのでしょうか。
よろしくお願いします。

199:デフォルトの名無しさん
07/07/19 22:08:59
>>198
あなたのやってることも>>154の回答もうんこ。
Click or CheckedChanged のイベントハンドラ実行したって
もとのラジオボタンにはなんの影響もありませんことよ。
radioButton2.Checked = trueしたらよかっぺ

200:デフォルトの名無しさん
07/07/19 22:23:14
よかっぺｗｗ

お前、結構前からレスしてるよな。
間抜けな回答してた香具師として覚えてるｗｗ

201:デフォルトの名無しさん
07/07/19 22:40:30
>>200
うるせー死ねハゲ

202:デフォルトの名無しさん
07/07/20 01:04:18
(´･ω･｀)ﾏﾏｰﾘいきましょ

203:デフォルトの名無しさん
07/07/20 09:56:31
VB2005って体験版みたいの
どっかから無料でダウンロードできる？

204:デフォルトの名無しさん
07/07/20 10:02:38
Microsoftいってこい
開発ツールのところにあるだろ
それぐらい見てからしゃべれカス
だから馬鹿みたいなくだらない質問するんだろうが！！！！！！

205:デフォルトの名無しさん
07/07/20 10:08:22
そんなぁ、、、、
アスペルガーのあなたに
言われたくありませんよ（藁

206:デフォルトの名無しさん
07/07/20 10:28:27
>>205
スレ違いですこちらへどうぞ

最高に頭の悪い発言をしてくださいｉｎム板（XII）
ｽﾚﾘﾝｸ(tech板)

207:デフォルトの名無しさん
07/07/20 20:18:42
express editionダウンロードしようとおもったら
microsof なんとかIDとやらを取得しろってでた

208:デフォルトの名無しさん
07/07/20 20:30:29
>>207
入門書の付属CDに入ってることも多いよ

209:デフォルトの名無しさん
07/07/20 20:36:09
プログラムの仕方で悩んでいます。
コントロールに値が入力(選択)されているかのチェックに
例外を使ったんだけど、こういう場合は使わない方が良いのかなー。

例:
If TextBox1.Text.Equals("") Then
　　TextBox1.Select()
Throw New Exception("TextBox1が入力されていません。")
End If

210:デフォルトの名無しさん
07/07/20 21:06:43
起動するのに数分間ってなんだよ！

211:デフォルトの名無しさん
07/07/20 22:03:04
ビルド選んだら
「ユーザーはこのアプリの更新をどこで確認するのですか？」
とか余計なこと聞いてきやがった
いいからさっさとコンパイルしろや

212:デフォルトの名無しさん
07/07/20 22:44:27
そうやって自分が馬鹿なのを人や道具のせいにするから君は進歩がないんだよ

213:デフォルトの名無しさん
07/07/21 00:25:07
>>209
それ例外じゃないからメッセージボックスがいいと思うよ。

214:デフォルトの名無しさん
07/07/21 04:52:00
これって６．０みたいに
RAD内で実行、テストするのが
できなくなったの？

なんかデスクトップの「a」ってフォルダ作って
そこの中に発行して、setup.exe実行して
ようやく動作を確認する感じ。

６．０だったらRAD内で動作確認できたよね？

215:デフォルトの名無しさん
07/07/21 06:12:07
>>214
オンメモリでの実行は出来なくなったが、セットアッププログラムまでは作らなくてもいいぞ。
ファイルは作るがIDEから実行できる。

216:デフォルトの名無しさん
07/07/21 06:59:01
・Buttonクラス継承して、自作メソッド「Test」を追加した、MyButtonクラスを作成
・デザイナでボタンを作って、フォームロードの時に「Me.Button1 = New MyButton」を実行
・Button1.AddHandle...で、ButtonのClickイベント「MyEvent」を登録
・MyEventではsenderとeを受け取り、処理内容に sender.Test() を記述

こんな感じでボタンイベントに自作の処理を追加したかったんだけど、ボタンが動かない・・・

ボタンがいっぱいあってどれも同じような処理してるんで、
処理内容が違う部分だけクラスにしてAddHandleをループでまわしてコードへらそうと思ったんですけど・・
そもそもこんな処理をするのはおかしいですか？

217:デフォルトの名無しさん
07/07/21 07:01:26
>>215
そのIDEから実行、のやり方をおしえてくれる？
どこのメニューなのかわからん

218:デフォルトの名無しさん
07/07/21 08:31:03
ストリングのスプリットについて質問です。

Const cString As String = "文字列1" & VbCrLf & "文字列2"
というものがあって、このうち文字列1と文字列2を別々に使いたいので、

Dim sArray() As String
sArray = cString.Split(VbCrLf.toCharArray)

としてみたのですが、結果が
sArray(0) = "文字列1"
sArray(1) = ""
sArray(2) = "文字列2"
となってしまいます。

できればsArray(1)に"文字列2"が入ってほしいのですが、
何が原因なのでしょうか？

219:デフォルトの名無しさん
07/07/21 09:10:23
マニュアル読んでから使えよ。
いや、メソッドの引数に意味くらい調べてから使えよ。

220:デフォルトの名無しさん
07/07/21 09:11:16
>>217
普通に実行すりゃできるのにわざわざ発行してるなんてありえん。
発行のがよっぽどわかりにくいはずだろ。

221:デフォルトの名無しさん
07/07/21 09:32:50
ばかはおまえだ
６なら実行というメニューがあったが
２００５にはない

222:デフォルトの名無しさん
07/07/21 09:34:20
ｗｗｗ

223:デフォルトの名無しさん
07/07/21 09:42:08
ひょっとして本気でデバッグ開始がわからんのか。
VB６つかっててプログラミングは素人じゃないはずなのに。

ツールバーのデバッグ開始ボタンよりも発行を先にやるとは器用なやつだｗ

224:デフォルトの名無しさん
07/07/21 09:48:19
CDでダビングしないと再生できない。
前のはもっと感嘆だったのに。
どういうことだよ
↓
普通に再生すりゃできるのにわざわざダビングしてるって意味わからんｗ
ダビングの方がよっぽどわかりにくいだろ
↓
ばかはお前だ、再生ボタンなんてどこにもないだろ。
↓
いや、右三角ボタン…、普通みなまで言わんでも意味わかるだろ…

225:デフォルトの名無しさん
07/07/21 09:50:02
ヘルプ読んだらわかったわ
実行をデバッグって読んでるのはどういうことよ
責任者呼んでくれる

226:デフォルトの名無しさん
07/07/21 09:54:51
　　∩＿＿＿∩　　　　　　　　｜
　　 | ノ＼　　　　ヽ　　　　　　　|
　　/　　●゛　　● |　　　　　　　|
　 |　∪　　( _●_)　ミ　　　　　　j
　彡､　　　|∪|　　 |　　　　　　Ｊ
/　　　　 ∩ノ ⊃　ヽ
(　＼　／＿ノ　|　 |
.＼　“　　／＿＿|　 |
　　＼／＿＿＿／

227:デフォルトの名無しさん
07/07/21 10:59:34
もう夏厨の湧く季節か…
ちと早くね？

228:デフォルトの名無しさん
07/07/21 11:28:52
>>217
F5

229:デフォルトの名無しさん
07/07/21 14:10:41
環境：vb.net2005 express

タスクトレイにNotifyIconでアイコンを表示させたいのですが、
Windows2000でアイコンがモノクロ表示になってしまいます。
最近買ったVistaのほうではカラーで正常に表示されます。

Windows2000上で発行したEXEとVista上で発行したEXEのどちらを
使用しても、結果は同じです。(Windows2000だけモノクロアイコン）

※もちろん他のアプリのアイコンは正常にカラーで表示されます。

どなたかよろしくお願いします。

230:デフォルトの名無しさん
07/07/21 14:15:29
32Bitアイコン使ってる、ってオチでしょどうせ。
XPより前のOSは32Bitのアイコンには対応してないと思ったけど

231:デフォルトの名無しさん
07/07/21 14:18:37
>>229
2000は16色
XP以降は32bit

232:デフォルトの名無しさん
07/07/21 14:24:48
16色っていつの時代の話よそれw
24bitは普通に使えるよ。

233:デフォルトの名無しさん
07/07/21 15:08:05
>>230-232
ありがとうございました。
ただ@iconというフリーソフトで見る限り、24ビットのようです。
うーん、なんでしょう。
8bit(256色)にして試してみましたが、同じくモノクロ表示です。
ほかに原因等は考えられないでしょうか・・・

234:デフォルトの名無しさん
07/07/21 15:21:55
>>232
>いつの時代の話よそれw
Windows　2000　の時代。
因みに、エクスプローラの問題。

>>233
どーしても気に入らない場合、"TrayNotifyWnd"　の　HWND　から
スレッド探して、そいつにフック。

235:デフォルトの名無しさん
07/07/21 15:38:08
いやWin2kのOS自身のオブジェクトのアイコン（たとえばマイコンピュータとか）
が16色で描かれてると思ってる人初めて見たよw

236:デフォルトの名無しさん
07/07/21 15:49:57
マイコンピュータとか表示してるのは OS じゃなくてシェルである Explorer だけどな

237:デフォルトの名無しさん
07/07/21 16:01:20
>>235
NotifyIconのはなしでしょ。
普通のアイコンはそりゃ24bitだけども。

238:デフォルトの名無しさん
07/07/21 16:06:24
ああすまん調べてみると確かにタスクトレイのアイコンはWin2k以前は16色という
制限があるみたいだね。

全然知らなかったよ。。

239:デフォルトの名無しさん
07/07/21 16:17:37
>>238
何の話をしてるのか解ってなかったんかい！ｗ

240:デフォルトの名無しさん
07/07/21 16:33:09
ﾜﾛﾀ

241:デフォルトの名無しさん
07/07/22 04:01:20
俺用メモ

"文字列"の文字列中で " を使うには　""
ずっと \" だと思っていて時間15分食った。

242:デフォルトの名無しさん
07/07/22 04:48:41
ボタンをおしたら乱数を発生させる、
ってのを作りたいんだが、どうすればいいかな

パスワード生成ソフト。
8桁で、
半角のアルファベットと、
半角の数字が混在したもので、
数字は2つ以上必須。
アルファベットは
2つ以上の半角大文字と
2つ以上の半角小文字が
必ず入ったもの。

243:デフォルトの名無しさん
07/07/22 06:39:20
エラー 1 'ElseIf' の前には、対応する 'If' または 'ElseIf' を指定しなければなりません。
ってでるんだが、指定の方法がわからん
指定なんてできるのか？

244:デフォルトの名無しさん
07/07/22 08:07:51
わかったわ
必ず改行しないとだめなんだわ
改行で識別してるってどんなアホ言語だよ？

245:デフォルトの名無しさん
07/07/22 08:31:51
>>244
Python使いの俺にケンカ売ってんのか

246:デフォルトの名無しさん
07/07/22 10:06:02
>>242
条件に当てはまらなければやり直しでいいんじゃね？
下手な小細工するよりはね

247:デフォルトの名無しさん
07/07/22 10:15:08
>>246
うん。それでいこうとおもうんだ。
で、いま、Rnd（）関数で１－６２の数字を生成させて、
１だったら１
２だったら２
、、、、、、
９だったら９
１０だったら０
１１だったらa
１２だったらb
、、、、、、、
○○だったらz
XXだったらA
△△だったらB
、、、、、、、、
□□だったらZ
ってやろうとおもって、
最初if ,,,then a=1
else if then ,,,,
end if
ってコード書いて、改行入れないと認識されないってのが
わかんなっくて、それで3時間悩んで、いまようやっと
改行入れればいいんだ、ってわかって、それで次は
ifでなくてcaseにしたほうが賢いよね、って思って、
それをいますぐコーディングするか、あるいは
図書館いって紅の豚見るか、本屋いって立ち読みするか、
WoWやるかUOやるか、グーグルで検索してみつけた
大学生のプロブラマーさんにメールだすか、、、、
ってところで悩んでる

248:デフォルトの名無しさん
07/07/22 10:48:58
>>242
要は以下の機能を作れば実現可能じゃないか

(1) Nの中からランダムな一文字を吐くメソッドGetN
(2) Uの中からランダムな一文字を吐くメソッドGetU
(3) Lの中からランダムな一文字を吐くメソッドGetL
(4) Cの中からランダムな一文字を吐くメソッドGetC
(5) 上の各メソッドそれぞれについて2つずつ値を取得し、それらの文字を組み合わせて
　　8文字の文字列を吐くメソッド
(6) 引数にとった文字列中の文字をランダムに並び替えた文字列を吐くメソッド

ここで、
　N: 半角数字の文字の集合
　U: 半角数字と半角英字の大文字の集合
　L: 半角数字と半角英字の小文字の集合
　C: 半角英数字の文字の集合

249:デフォルトの名無しさん
07/07/22 10:49:45
まさかその段階で悩んでるとは思わなかった。
VBなら、そうだな、wchrだったか、chrでも同じだったか
とにかくその辺の関数でどうにでもなる。

文字種別だけifとかで分けて、もしくは足す数値を変えて
chrやらで文字にすればいい。

250:デフォルトの名無しさん
07/07/22 13:33:35

TextBox を単純なログ垂れ流し領域として使いたいのですが、Text プロパティに
文字を追加しただけでは勝手にTOP位置までスクロールしてしまいます。
その直後に最下行へスクロールさせても表示がガタついて上手くありません。

TextBoxの表示位置を変えずに、文字列だけ追記する方法はありませんでしょうか。

通常であれば AppendText を使うのですが、これが実装されていない環境( Compact)
なので････・・・

よろしくお願いいたします。

251:デフォルトの名無しさん
07/07/22 14:25:54
コントロール配置を右寄せかつ高さを自分で決めれるかつAutoSizeするにはどうプロパティ設定したらいいでしょうか？

お願いします

252:デフォルトの名無しさん
07/07/22 14:31:29
日本語でお書き下さい。
またはエスパーを召還してください。

253:デフォルトの名無しさん
07/07/22 21:40:10
>>252
難しかったですか？
簡単に言うと
「AppendText を使わずに、AppendTextと同じ機能を作る方法は？」
です。

254:デフォルトの名無しさん
07/07/22 22:54:50
>>253
いやエスパー召還が必要と思われるのは>>251の方。

>>250は難しそうだね。
Compactって思いのほか制約が多いんだね。
SuspendLayoutもWndProcも使えないんじゃどうやって良いかわからない。

ただ、ログを表示するだけならスクロールバーとラベルを組み合わせて
コントロールを自作すれば済むことのような気もする。

255:デフォルトの名無しさん
07/07/22 22:59:58
ListView の詳細表示とかどうかな？

256:デフォルトの名無しさん
07/07/23 00:18:08
>>254
ListBox

257:デフォルトの名無しさん
07/07/23 09:07:34
プログラムの実行を途中で停止したいのですが・・・

end だとアプリそのものがとまってしまいます
exit sub　にすると呼び出されている関数の場合
もとの式に戻って実行を続けます
その以降の処理だけとめて、
入力待ち状態にしたいのですが
こういう場合はどうすればよいのでしょうか？

258:デフォルトの名無しさん
07/07/23 09:29:47
止めるだけっていうなら
thred.sleep
これでよくね？

259:デフォルトの名無しさん
07/07/23 09:31:08
Thread.Sleep
だたorz

260:デフォルトの名無しさん
07/07/23 09:48:53
>>257
プログラムを実行中止状態にすれば、入力待ち状態にはならない。
VBはイベントドリブンだから、普通に書けば、入力待ち状態だろ。

261:デフォルトの名無しさん
07/07/23 10:12:55
>258

Thread.Sleep だと、指定時間後に制御が戻ってしまいました
スンマセン

>260

まさしくそのとおりなんです
その普通の入力待ち状態に持っていきたいのですが

Sub a
call b()
call c()
end sub

sub b()
exit sub
end sub

上の例でa() を実行した場合にｂ（）の中で
Exit Subを行うと　
呼び出した側のa()に制御が戻るだけですので
c()が実行されます

そうではなくて、b()内でメソッドを実行するだけで
a()の以降の処理も停止する、上の例で行けばc()の処理を
発生させないメソッドはないものかと思案中です・・・。

262:デフォルトの名無しさん
07/07/23 10:17:44
どんな復帰のし方するか知らんが
フラグもってイベントでフラグチェックしてe.Cancel使えばどうなのさ？

263:デフォルトの名無しさん
07/07/23 10:52:03
>>261
フラグはちょっと気持ちが悪い(笑）
Subじゃ無くてFunctionを使って、Returnで値を返して、
条件分岐....

264:デフォルトの名無しさん
07/07/23 11:01:05
その中断の条件が例外として扱ってよい事象なら
例外にしてSub　Aのレベルでキャッチする。
ただ通常の分岐なら使うべきではない。

265:デフォルトの名無しさん
07/07/23 12:28:45
>>261
何か策を弄そう、という発想がこの場合間違い。
そんなことが可能だとして、そんなプログラマの予期を裏切るような
コードが「よいコード」だと思う？

フラグでも何でも使って愚直にやってください。

266:デフォルトの名無しさん
07/07/23 12:53:36
皆様ありがとうございます

dim blnExit as booLean = false

Sub a
call b()
if blnExit = True then Exit Sub
call c()
end sub

sub b()
if ----
----
else
blnExit = True
end if
end sub

てなかんじでフラグたてて毎回チェックさせてみます
アドバイスありがとうございました

267:デフォルトの名無しさん
07/07/23 12:55:00
そんなこといなくちゃいけないんなら素直にメッセージ出してEnableいじればいいんちゃうんかと
もしくはダイアログ出すとか

268:デフォルトの名無しさん
07/07/23 15:21:28
そのフラグは止めろ、まじで。
戻り値とかには出来んの？

269:デフォルトの名無しさん
07/07/23 15:48:08
理由は？

270:デフォルトの名無しさん
07/07/23 16:53:18
sub b
の中で最後にcall c()するようにして、
sub bの中で条件によりexit sub するようにしちゃいかんの？

271:デフォルトの名無しさん
07/07/23 17:05:56
解決してるんだしもういいんではないかと。

272:デフォルトの名無しさん
07/07/24 14:44:35
MessageBox について

MessageBoxで、String型の引数１つだけ指定するShow()を実行したとき、
OKボタンはちゃんと現れてくれたのですが、戻り値を受ける形で記述しないと、
OKボタンを押さない内に、表示と同時に先に進んでしまう、といったことは
あり得るでしょうか？

というか、実はそういう現象になったのですが、以前からMessageBoxって
こうでしたっけ？少なくともVB6以前ではこういう事象は経験したことがなく
ちょっと驚いております・・・。それともこれは記述に依存する仕様なの
でしょうか・・・？

273:デフォルトの名無しさん
07/07/24 15:36:20
>>272
そもそもMessageBox.Show関数に引数1つだけのオーバーロードなんかないと思うが？

274:273
07/07/24 15:38:22
ごめん、今の間違ってた　あるあるｗ

つうか、
MessageBox.Show("hagehage")
これで次へ進むにはOK押さないとすすまないんだが？
うちのフレームワークの場合
ちなみに2.0 SP1

275:デフォルトの名無しさん
07/07/24 15:54:52
>>274

、ですよね、そうであるはずなのですが、どういうわけか
「ボタン押下を待たずに」、先に行ってしまい、MessageBoxだけは残ったまま
という状態となり、後からボタンを押すとMessageBoxは消えてくれるという
変な状態だったのでした。

これって何だったのか・・・。しょうがないので、とりあえずボタンなどの
引数入れて書き直したところ、ちゃんと待つようになりましたが・・・、
こんなことっておかしいですよね？ちなみにこっちも同じFrameworkは同じ
バージョンでした。

276:デフォルトの名無しさん
07/07/24 16:55:25
DataGridViewにデータをバイドさせて使うとき
あらかじめデザイナでカラムを追加し、バインドするカラムの名前をDataPropertyNameを設定していてやる
DataGridView.DataSource=dt

で、バインドさせるとまず正常にバインドされて表示

このあと同じカラム構造の別のデータテーブルをデータソースに入れるときに

Directcast(DataGridView.DataSource,DataTable).dispose
DataGridView.DataSource = Nothing

としたらこの時点でもともと追加していたカラムがColumnコレクションから消えちゃってる・・・

そのあと
DataGridView.DataSource=新しいdt
としたら当然DataGridViewcolumnオブジェクトがないので空のDataGridViewにバインドさせたのと同じ状態に・・・・

この動作は仕様ですか？( ﾟДﾟ)?
テーブルバインドさせる時みんなどうやってんの？

277:デフォルトの名無しさん
07/07/24 16:59:10
「画面のプロパティ」のデザインタブのフォントサイズを取得する方法って
ありますでしょうか？

278:デフォルトの名無しさん
07/07/24 17:03:49
初心者の質問ですみませんが、どなたかお教えください。
WindowsXP + VisualStudio + VB2005 でWindowsアプリを作ってます。
ここで、タスクトレイにアプリを常駐させて、ショートカットキーで
起動したいと思ってます。例えば、UWSCや日本語FEPのように、
他のアプリがアクティブな状態でもショートカットキーで処理を起動
するのが目的ですが、その方法がわからないで困っています。

FormにNotifyIconコンポーネントを追加して、ContextMenuStripを
関連づける方法で、タスクトレイ上でアイコンを右クリックして、
メニューを表示し、その上でショートカットキーで動作させることは
できました。
しかし、メニューをポップアップしていない状態でショートカットキー
を入力しても、処理が起動されません。
ヒントでもいいので、よろしくお願いします。

279:278
07/07/24 18:14:39
RegisterHotKeyを使って、なんとか自己解決できそうです。
お騒がせしました。

280:デフォルトの名無しさん
07/07/24 20:13:50
教えてください！
VB2005EXPRESSである機能をもつフォームを作りました。そのフォームをスタートアップフォームにしたときはちゃんと動くのですが、別のフォームをスタートアップにしてそのフォームを呼び出したときはちゃんと動きません。こんなことってあるのでしょうか？
(詳細続く)

281:デフォルトの名無しさん
07/07/24 20:46:53
(上からの続き)うまくいかない機能とはDATAGRIDVIEWの部分です。
この中にあるマスタのコード入力用列と名称表示用列を作りました。セルの値が変化したときにDATASETの中身をFINDBYで検索し名称列に値をを自動セットする仕組みです。
この名称取得が該当フォームを別のフォームより呼び出した場合のみ動きません。
何か分かる事があれば教えてください。よろしくお願いします。

282:デフォルトの名無しさん
07/07/24 21:29:02
>>277
SystemFonts

>>280
何かの変数の中身が呼ぶ順番に依存してるんだろとしか

283:デフォルトの名無しさん
07/07/24 21:56:07
>282
レスありがとうございます！
仰ているのは例えば変数Ａをフォーム１(スタートアップ)、２(DATAGRIDのある方)で共有していてフォーム１から呼び出した場合はフォーム１が変数Ａの値を書き込んでいるのでその影響を受けるとかいうことですかね？
頑張って調査します。

284:部長
07/07/25 09:43:20
アパッチのアクセスログで、
*.co.jpからのアクセスだけ残して、
他は全部捨てる、ってプログラムを
VBで書こうと思ったんだけど、どんなもんかな？

285:部長
07/07/25 09:44:30
アパッチのアクセスログがこんな感じになってて、
afeda.ocn.ne.jp
awefre.unko.co.jp
fedwa.tinpo.ac.jp
co.jpの行だけ残して
他はみたくないんだよ。できる？

286:デフォルトの名無しさん
07/07/25 09:52:05
For i As Integer = 0 To Me.TextBox1.Lines.Length - 1
If Me.TextBox1.Lines(i) Like "*.co.jp" Then
MessageBox.Show(Me.TextBox1.Lines(i))
End If
Next i

287:デフォルトの名無しさん
07/07/25 10:03:10
VB.NET2005ではじめえEXCELをCOM参照して操作したが・・・

これ試しにOffice97しかはいってないWin2000に入れたらうごかねぇのｗ

こんなエラーが・・・・

保護されているメモリに読み取りまたは書き込み操作を行おうとしました。他のメモリが壊れていることが考えられます。
アプリケーション動作中の予期せぬ例外が発生した為、処理を中断しました。

俺涙目orz

288:デフォルトの名無しさん
07/07/25 10:16:07
COM参照ってなんだっけ？
APIみたいなもんか？

ところでゲイツってCOMとか.NETとか
インターネットで使われる用語をすぐに
ぱくりたがるよね？

289:デフォルトの名無しさん
07/07/25 11:05:28
Javaのpackageのようなものはありますでしょうか？

ソースをパッケージでまとめたいのですが

290:デフォルトの名無しさん
07/07/25 11:08:24
VSインストーラでどうぞｗ

291:デフォルトの名無しさん
07/07/25 11:23:56
namespaceのことじゃね？

292:デフォルトの名無しさん
07/07/25 11:26:41
>>291
おぉ！
たぶんそれです。調べてみます。

293:デフォルトの名無しさん
07/07/25 11:33:12
>>287
バージョン依存のインターフェイスメソッドとか使ってるんじゃね?

294:デフォルトの名無しさん
07/07/25 12:11:40
COM参照した場合ってバージョン固定になったりしないの？

295:デフォルトの名無しさん
07/07/25 12:25:26
レイトバインディング

296:デフォルトの名無しさん
07/07/25 12:30:33
そもそも本当にエクセルを操作していることが原因かどうか怪しいもんだけどねw
俺はまず9割方別の理由だと思う

297:デフォルトの名無しさん
07/07/25 12:38:34
どうも今調べてみたら2007のOffice.Coreを参照してたくさいorz

298:デフォルトの名無しさん
07/07/25 16:42:14
プロシージャ内の変数の宣言するときって、今まで上の方にまとめて書いてたんですが
買った本のサンプルだと使う度にその場所で宣言してるようです。
みなさんどっちですか？

299:デフォルトの名無しさん
07/07/25 16:44:33
スコープによって変える

300:デフォルトの名無しさん
07/07/25 17:51:51
上にまとめるやつきもい

301:デフォルトの名無しさん
07/07/25 22:45:44
上にまとめる意味が分からない

302:デフォルトの名無しさん
07/07/25 22:48:37
>>300-301

もっとやさしく

303:デフォルトの名無しさん
07/07/25 22:52:34
まあ感覚だからね。
うまく例を挙げられないけど、小出しに使う直前に宣言するより
まとめて宣言した方が分かりやすい場合も稀にはあるし。

304:デフォルトの名無しさん
07/07/25 22:53:39
private sub hoge

dim i as long
.
200行の下で使ってるやつすらもここで宣言
.
dim hogehoge as hoge

----延々と200行とか

i = 1
hogehoge = new hoge

end sub

こんな感じじゃね？

305:デフォルトの名無しさん
07/07/25 22:54:23
ただのCの名残だろ
負の遺産

306:デフォルトの名無しさん
07/07/25 22:58:53
カウンタ変数をプロシージャの先頭で宣言する意味はほとんどないわな。
使うたびに一々初期化するぐらいなら、ステートメント内で宣言したほうがすっきり。

307:デフォルトの名無しさん
07/07/25 23:01:38
特に途中で ExitSub とかする場合混乱のもとだな
後で見た時とか、何をどこで使ってるのかもうわけわかめ

経験すれば必要な時に必要なものを宣言するようになると思うんだけど

308:デフォルトの名無しさん
07/07/25 23:02:09
>>306
カウンタ変数って初期化いらなくね？

309:デフォルトの名無しさん
07/07/25 23:05:39
初期値のないカウンタ変数をどう使うんだ

310:デフォルトの名無しさん
07/07/25 23:07:15
エスパー的には
宣言した時点で数値なら0に初期化されてるだろ？　ってことじゃないか？

311:デフォルトの名無しさん
07/07/25 23:12:13
それはただの規定値だよもんね

312:デフォルトの名無しさん
07/07/25 23:13:23
>>311
いや、俺もそう思うんだがｗ

つうか　だよもんね　とかお前かわいいな( ﾟДﾟ)

313:デフォルトの名無しさん
07/07/25 23:15:12
ステートメント内ってなんぞ？

314:デフォルトの名無しさん
07/07/25 23:18:36
読んで字のごとくじゃないか？

315:デフォルトの名無しさん
07/07/25 23:22:24
>>313

ちょwwwwwwwwwwwwwwww

316:デフォルトの名無しさん
07/07/25 23:37:01
VB.NET2003のRichTextBoxの行番号について質問でうす。

通常の機能じゃ無理で
PARAFORMAT2をEM_SETPARAFORMATで使って
SendMessageでなげる
というのを過去スレで見ました。

試してみたのですが、
数字を右寄せにする方法がわからないのですが
ご存知の方がいらっしゃいましたらご教示お願いします。
しかも何故か空白で改行をすると急に番号が振られなくなります。

また、もっと簡単に左側にラベルを配置して
行番号をふるのも試したのですが
フォントを合わせても行間が違うのでズレが生じてしまいます。
これも結局、EM_SETPARAFORMATを使ってRichTextBoxの行間を
狭めるしかないのでしょうか？
行番号もRIｃｈTextBoxを使えば行間の違いはなくなるのですが
行番号を表示するだけの為にRichTextBoxを使うのはなんか気持ち悪いので。

よろしくお願いします

317:デフォルトの名無しさん
07/07/25 23:39:28
>>316
最初の3行しか読んでないけどこれじゃだめなんだっけ？
URLﾘﾝｸ(www.atmarkit.co.jp)

318:デフォルトの名無しさん
07/07/25 23:47:37
残念ながらローカル変数に既定値などというものはない

あ、ごめん規定値だったか…

319:デフォルトの名無しさん
07/07/26 00:01:02
よく覚えてないがC#の話じゃない？
VB.NETはVB6の仕様を一部継承してるからプリミティブ型の値型は
明示的に初期化されない場合既定値になる筈

320:デフォルトの名無しさん
07/07/26 00:26:31
おお！

321:308
07/07/26 00:47:07

dim i as Integer

For i = 0 to 9
Next i

For i = 0 to 99
Next i

だと初期化いらなくね？

322:デフォルトの名無しさん
07/07/26 01:05:12
For がまず真っ先にやることを言ってみろ。

323:308
07/07/26 01:17:16
>>322
まず i に0が代入されて・・・
って初期化は勝手にされるけど

>>306が言った
>使うたびに一々初期化するぐらいなら、ステートメント内で宣言したほうがすっきり。
という言い方から

dim i As Integer

i = 0　　' ※ 一々初期化する　}　この2行をまとめて
For i = 0 to 9　　'　　　　　　　　｝　　For i as Integer = 0 to 9 のほうがすっきり
Next i

っていう書き方してるのかと勝手に想像して
それなら※部分の行いらなくねって言ったわけ。

324:デフォルトの名無しさん
07/07/26 01:23:45
変数を初期化しなかった場合の既定値（2005）

数値型[0]
Char[0]
Boolean[False]
String[Nothing]※
Date[0001年1月1日0:00:00]
Object[Nothing]※

※参照型

これって.NETも一緒じゃないの？
つうか、なにこの浅い議論。

325:デフォルトの名無しさん
07/07/26 01:27:34
つーかC#だと初期化しないとコンパイルエラーだし

326:デフォルトの名無しさん
07/07/26 02:02:01
>>323
カウンタ変数はForステートメントの変数の呼び名で
ForEachやDoLoopで使うループカウンタはカウンタ変数じゃないだろ？ってこと？

327:デフォルトの名無しさん
07/07/26 03:19:25
.NETでは初期化なんてしないし。
初期化を強制してるのはコンパイラだし。

328:デフォルトの名無しさん
07/07/26 09:55:28
VB2005のMySettingで全ユーザ共通で使用しているApplicationDataの値をPGから変更したいんですがいい方法はありませんか？
ApplcationDataじゃなければ各ユーザーごとに違った値になってしまうので嫌なんですが・・・

329:デフォルトの名無しさん
07/07/26 12:24:57
My爺さんはそういう使用法は想定してないと思う。

っていうかMySettingの存在意義が理解できん俺には。
My爺さんなんか使わずに普通にシリアル化使っても手間は変わらないと思うんだけど。。

330:デフォルトの名無しさん
07/07/26 13:56:03
全くの初心者で一通り調べたのですが、わからなかったのでご相談しに参りました。
現在.netでDBはMysql、そしてodbcを用いてデータグリッドにテーブルの情報を表示させたいのですが、
formにデータグリッドを貼り付けて、その後が全くわかりません。

教えてくださいorz

331:デフォルトの名無しさん
07/07/26 14:00:01
１．まずODBCデータソースを作成します。
↓

332:330
07/07/26 14:18:51
その後はなんでしょう？

333:デフォルトの名無しさん
07/07/26 14:19:15
2．フォームに貼り付けたデータグリッドは削除したほうがいいです（あとで自動で作られる）
↓

334:330
07/07/26 14:24:02
了解です、削除しました！

335:デフォルトの名無しさん
07/07/26 14:33:57
で、バージョンを聞こうか？
ここから分岐するｗ

336:デフォルトの名無しさん
07/07/26 14:37:21
３．IDEのサーバーエクスプローラで新しい接続を追加（ODBCから選択）し、新しいデータ接続を追加します。(VB2005 2003は同じかどうか忘れた)

337:330
07/07/26 14:37:22
.netは2003、mysqlは5.0、でございます！

338:デフォルトの名無しさん
07/07/26 14:40:27
４．おもむろに布団を敷きます。
↓

339:デフォルトの名無しさん
07/07/26 14:41:37
あぁ、2003だったのかｗ
もうめんどくさいから

３．ツールボックスのデータからOdbcDataAdapterを選んで対象のフォームに貼り付けるとウィザードが出るので選択しつつ進めていきます

340:330
07/07/26 14:47:16
いまのところ順調です！！

341:デフォルトの名無しさん
07/07/26 14:51:29
5.靴下以外を脱ぎます↓

342:デフォルトの名無しさん
07/07/26 14:54:49
VB 2005でLabelコントロールのテキスト描画をフックする方法を
教えて下さい。

343:デフォルトの名無しさん
07/07/26 15:26:59
>>340
で、今どこまで終わったんだっけ？

344:デフォルトの名無しさん
07/07/26 15:32:11
>>342
OnPaintででも、どこでも好きにしてください

>>340
４．データアダプタの作成が終わったら、そのデータアダプタを右クリックしてデータセットの生成クリッコクリッコします。

345:デフォルトの名無しさん
07/07/27 01:38:51
VB.net でメタクラスってどうやって使うの？

Delphiだとこんな感じでかけたんだけど・・・
TAAAClass = class of TAAA;

346:デフォルトの名無しさん
07/07/27 01:44:40
めた暮らすなんてない
しいて言えばリフレクション方面? Typeとか

347:デフォルトの名無しさん
07/07/27 10:56:36
教えて下さい。
あるパネル内にアクセスキー付きラベル例(&1) があり、パネル外のテキストボックスにあります。
このままですとALT+1キーを押下した場合、フォーカスがテキストボックスに移動しません。
どうすればよろしいでしょうか？

348:デフォルトの名無しさん
07/07/27 11:04:35
データベースからIDや氏名住所などを取得して表示するまではできたんですが
次へボタンを押すと次のデータを表示させていくやりかたを教えてください

349:デフォルトの名無しさん
07/07/27 11:13:11
すみません、助けて下さい。。。

Visual Basic 2005 Express Editionで
timerを使って、設定時間(例えば 11.5秒や30.7秒)毎にカウントを1ずつ増やすプログラムを作っているのですが、
プログラムの表示時間をストップウォッチで計ってみると、プログラム中では19.8秒なのにストップウォッチでは21.67秒だったりとズレが出ています。。。

プログラムは、　timerのintervalを100 変数『i』に0.1を100ms毎に足して、『i』が設定時間と同じになったらカウント『k』に+1を行なうようにしています。
このズレは直せないのでしょうか・・・　
そもそもこのやり方が間違っているのでしょうか？

350:デフォルトの名無しさん
07/07/27 11:20:40
>>347
>あるパネル内にアクセスキー付きラベル例(&1) があり、パネル外のテキストボックスにあります。
日本語でよろしく(´･ω･`)

>>348
取得ってのはDataTableにデータを格納したのか？

>>349
ツールボックスにあるTimerの精度なんてそんもんだ。
別のTimerつかいなされ

351:デフォルトの名無しさん
07/07/27 11:23:15
>>349
Tickイベントで処理を行っていると仮定して、
プログラム1行1行を処理する時間もかかるわけで、
秒数(特にmsec単位)を性格に求めるのは難しいのでは？

352:デフォルトの名無しさん
07/07/27 11:24:22
あるパネル内にアクセスキー付きラベル例(&1) があり、パネルの外にテキストボックスにあります。
このままですとALT+1キーを押下した場合、フォーカスがテキストボックスに移動しません。
どうすればよろしいでしょうか？

これでどう？

353:デフォルトの名無しさん
07/07/27 11:29:36
>>350
他にもtimerあるんですね。。。ちょっと探してみます

>>351
正直0.1sec毎に表示処理とかイロイロやったら遅くなるよなぁ・・・
とは思ったのですがやっぱり影響ありますよね

354:デフォルトの名無しさん
07/07/27 11:41:26
>>353
途中に経過表示などの割り込みを入れる場合や、
インターバルが長い場合はクロックの時刻と組み合わせる。

StartTime　=　DateTime.Now　//　で保存しておいて
一定時間ごとのタイマーイベントで　経過時間　=　DateTime.Now　-　StartTimeを計算。
予定の時間以上経過したかどうか確認。

355:348
07/07/27 11:48:57
>>350
そうです
初期画面はID1のデータの氏名住所などが表示されるようにつくりました

356:デフォルトの名無しさん
07/07/27 11:51:37
>>354
なるほど・・・
その方法で作ってみます。

遅くなりましたが皆さんありがとうございます
知恵をお借りできて本当に助かります m(_ _)m

357:デフォルトの名無しさん
07/07/27 12:06:33
>>355
横れすだが
現在表示させているデータテーブルのインデックスわかってるんなら次へボタン押したときに+1したデータテーブルのインデックスの情報表示させればいいんじゃないかな？
こんな単純な方法じゃ駄目？

358:348
07/07/27 12:18:09
そういうやり方で行こうと思ってます
for文使えばいけますかね？
初心者ですいません

359:デフォルトの名無しさん
07/07/27 12:22:58
ボタンクリックイベントで

IF 表示位置 < DataTable.Rows.Count - 1 THEN
表示位置 += 1
ID = DataTable.Rows(表示位置)(ID).Value
名前 = DataTable.Rows(表示位置)(名前).Value
住所 = DataTable.Rows(表示位置)(住所).Value
END IF

でいいんじゃ？

360:348
07/07/27 13:12:07
>>359
表示位置ってのはTextBox1.Textとかのことですよね
エラーで実行できませんでした

361:デフォルトの名無しさん
07/07/27 13:49:15
すみません、わかる方おられましたら、助言をお願いします。
ちょっと長くなってしまいますが、前提から。

今現在、自分のドキュメント作業をExcelをベースに行っており、
また、ドキュメント作成の効率化を進めようとしています。
そのために、Excel VBAで各種マクロを組み、ショートカットキー
にマクロを登録して各種ユーティリティを起動する方法をとって
ます。
この際、個々に作成されるExcelワークブックに個別に処理を記入
していては、無駄なので、一つのワークブックにマクロ記述を集約
させ、つねにそのマクロ用ワークブックを開いておくことで、別の
ワークブックでもマクロ用ワークブックに記載されたマクロを利用
可能としています。

もともとは、Excelのアプリケーションレベルでマクロを作成して、
ワークブックでの操作をしたかったのですが、Excelにはこの機能
がないために断念したためにこういう構成になりました。

しかし、最近ではマクロが大きくなって動作が重いなど厳しい状態
になっているのと、VBAでは開発効率が悪すぎるので、ここをなんと
かしたいと思ってます。そこで、Visual Studio Tools for Office
を導入したのですが、行き詰まってしまっています。そもそも、こう
いうことが出来るのでしょうが。

つまり、やりたいこととしては、
① Excelのショートカットキーとしてユーティリティが動作する
② 擬似的でもアプリケーションレベルの機能として動く
③ 上記のVisualStudioで開発する
ということです。

助言お願いいたします。

362:デフォルトの名無しさん
07/07/27 13:50:09
>>348
表示位置を管理する変数のことですよ。

Dim iSelectRow As Integer = 0 ' 表示位置
Dim tblData As DataTable ' 住所録

tblDataの中にID、名前、住所が入っているとして

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

IF iSelectRow < tblData.Rows.Count - 1 THEN
' 次の行を選択
iSelectRow += 1
' IDの取得
TextBox1.Text = tblData.Rows(iSelectRow)(0).Value
' 名前の取得
TextBox2.Text = tblData.Rows(iSelectRow)(1).Value
' 住所の取得
TextBox3.Text = tblData.Rows(iSelectRow)(2).Value
END IF

End Sub

363:348
07/07/27 14:30:20
>>362
.Valueを消したら次のデータは表示されるようになりました
その次のデータは表示されません

364:デフォルトの名無しさん
07/07/27 15:01:55
>>363
もう、Accessにリンクテーブル作成して直接開いて、検索や追加編集をやってもらえよ。

それが一番まともになるぞ。

365:デフォルトの名無しさん
07/07/27 15:21:31
>>348
だめだ・・・すべてを聞こうとすんなよ
ちったぁ勉強してからじゃないと話にならん

366:デフォルトの名無しさん
07/07/27 15:34:30
>>348
ああ、思いつきで書いたからね。
正しくは、tblData.Rows(iSelectRow)(0).ToStringだね。

367:デフォルトの名無しさん
07/07/27 15:54:42
>>366
tblData.Rows(iSelectRow)(0).Value.ToStringだ

368:デフォルトの名無しさん
07/07/27 16:06:18
初心者なんだからむしろItemも書いておいてやれよｗｗｗｗ

369:デフォルトの名無しさん
07/07/27 22:43:37
>>352
>テキストボックスにあります

ここが悩ましいんだよ！ｗ

370:名無しさん＠そうだ選挙に行こう
07/07/29 13:18:35
アホみたいな質問かもしれませんが、画像を表示するのに

　　　　Private　Sub　Form1_Load(ByVal　sender　As　System.Object,　ByVal　e　As　System.EventArgs)　Handles　MyBase.Load

　　　　　　　　Dim　g　As　Graphics　=　Me.PictureBox1.CreateGraphics()
　　　　　　　　Dim　bg　As　Image　=　My.Resources.back
　　　　　　　　g.DrawImage(bg,　New　Point(0,　0))

　　　　End　Sub

だと表示されないのに、これを

　　　　Private　Sub　Button1_Click(ByVal　sender　As　System.Object,　ByVal　e　As　System.EventArgs)　Handles　Button1.Click

　　　　　　　　Dim　g　As　Graphics　=　Me.PictureBox1.CreateGraphics()
　　　　　　　　Dim　bg　As　Image　=　My.Resources.back
　　　　　　　　g.DrawImage(bg,　New　Point(0,　0))

　　　　End　Sub

のようにボタンを押したら実行するとちゃんと表示されるんですが何故？
フォームのロードもボタンクリックも同じようにコードが実行されるんじゃないんですか？

次ページ