1001コメント310KB

(´д`)ｱﾊｧ… VB初心者質問スレ Part22

■ このスレッドは過去ログ倉庫に格納されています

0001HTML化チェック済み

NGNG

003220

NGNG

>>29
まさにオールドタイプ。
RDBもほとんど意識して無い。
昔、Accessのマスタテーブルの作成をお願いしたら、
テーブルごとに別ファイルにされた。
「CSVはこうなってるだろ。」と言われたよ。
ｵｲｵｲ、何のためのDBだよと…。

>>30
たぶん永遠に旧ＶＢマンセーのままのような気がする。
ﾄﾞﾄｰﾈﾄは駄作、使い物にならんと言い張って。

0033デフォルトの名無しさん

NGNG

>>31
適当に｢つかったら｣だろ。明示的に解放するのが普通の使い方じゃないか。

おれはRecordset,XMLやFileSysmteObjectは、それ専用のラッパークラスを
作ってる。バージョンの違いもこのクラスの中で吸収できるし、エラーも
大部分吸収できる。

0034デフォルトの名無しさん

NGNG

VB.NETはフォームに貼るだけで使えるActiveXコンポーネントが多そうだから初心者のオレはほしい。カレンダーコントロールとかあるからうるう年の計算とかプログラミングする必要ないし。

0035デフォルトの名無しさん

NGNG

>>34
VB6のDTPickerはダメなん？

0036デフォルトの名無しさん

NGNG

業務系でDTPickerいいよなぁ。古い部分がCalendar使ってたけど・・あれは酷いｗ

003734

NGNG

>>35-36
34の意味はカレンダーのことというより
いろいろなコントロールがVB6よりありそうだなーっということでよろしこ

0038ひきプロ

NGNG

>>33
確かに…。インスタンスの解放をVBに任せる
癖が付いてました。

ラッパークラスって良さそうですね。
何度もエラー処理とか解放とかしてると
いつか間違えてしまいそうだし。

0039デフォルトの名無しさん

NGNG

\hoge\hoge2\hoge3\ というデータがあって、
この通りのフォルダを掘るにはどうしたらいいでしょうか

0040デフォルトの名無しさん

NGNG

shell("mkdir .\hoge")
shell("mkdir .\hoge\hoge2")
shell("mkdir .\hoge\hoge2\hoge3")

0041デフォルトの名無しさん

NGNG

>39
頭からループ回しながら、
Dirで確認して、無ければ掘る。

0042デフォルトの名無しさん

NGNG

俺なら手抜きして on error でエラー処理抜かしちゃうがな。

004333

NGNG

>>38
ですね。Recordsetオブジェクトとか、本にも適当に書かれてることが多いんで
後でリファレンス見て使い方が間違ってたーっていうときにも修正が楽です。
「VB6 Error Coding & Layering」って本からこのやり方にしました。

0044ひきプロ

NGNG

>>43
英語の本ですか(;´Д｀
ラッパークラスについていろいろ検索してみようと
思います。ありがとうございました。

0045デフォルトの名無しさん

NGNG

WebBrowserコントロール上でのマウスクリックをとりたいです。
どうすればいいでしょうか？

004633

NGNG

>>45
SubClass .... かな....

0047968 正規表現が完成した ◆HLRHHB4j46

NGNG

文字列
　あああwww.uploader.com/folder001/いいい
からアドレスらしき文字列を抽出するプログラム。
VBで実際に動かすと
www.uploader.com/folder001/
という文字列を抽出できる。

0048968 ◆HLRHHB4j46

NGNG

'On Error Resume Next
Dim RegEx As Object, Match As Object, Matches As Object
Dim StrPattern, StrSource, Str1 As String
Set RegEx = CreateObject("VBScript.RegExp")
If Err Then
MsgBox "エラー"
Else
'実験用Patternメモ
'"[^a-zA-Z0-9]""[a-zA-Z_0-9]|/""[a-zA-Z0-9]|\.|\&|\%|\=|\/|\+""w+\...+\/.+[^!#-;=?-~]"
StrPattern = "[a-zA-Z0-9]|\.|\&|\%|\=|\/|\+"
RegEx.Pattern = StrPattern '検索パターンを設定
RegEx.IgnoreCase = True '大文字と小文字を区別しないように設定
RegEx.Global = True '文字列全体を検索するように設定
StrSource = "あああwww.uploader.com/folder001/いいい" '検索対象の文字列
Set Matches = RegEx.Execute(StrSource) '検索を実行
Debug.Print "--------------"
Str1 = ""
For Each Match In Matches
Str1 = Str1 & Match
'Debug.Print "一致する文字列が見つかった位置は、" & Match.FirstIndex & " です。"
Debug.Print "一致した文字列は、" & Match.Value & " です。"
Next
Debug.Print "それぞれの文字を結合してURL生成" & vbCrLf & Str1
End If

0049968 ◆HLRHHB4j46

NGNG

↑プログラムおわり
----------------------------
StrPattern = "[a-zA-Z0-9]|\.|\&|\%|\=|\/|\+"
と
StrSource = "あああwww.uploader.com/folder001/いいい" '検索対象の文字列
をいろいろ変えると他の目的にも使える。
StrPatternの値はここを参考にする。
ttp://www.microsoft.com/japan/msdn/columns/scripting/scripting051099.asp

0050デフォルトの名無しさん

NGNG

日本語ドメインの中の人も大変だな

0051968 ◆HLRHHB4j46

NGNG

上のプログラムを実行する前に
Microsoft VBScript Regular Expressions
を参照設定に追加する。

0052968 ◆HLRHHB4j46

NGNG

>>50
前スレまで正規表現ｻﾊﾞｰﾘわからなかったからそれなりに苦労した。

0053968 ◆HLRHHB4j46

NGNG

URLには_もつかわれることがあるので
StrPattern = "[a-zA-Z0-9]|\.|\&|\%|\=|\/|\+"
に|_を追加してみた。
StrPattern="[a-zA-Z0-9]|\.|\&|\%|\=|\/|\+|_"

URLに使われそうな文字が見つかるたびに追加していく。

0054968 ◆HLRHHB4j46

NGNG

つまり、
_を追加したことにより、
www.vb_net/
というようなURLもひろえる。

0055デフォルトの名無しさん

NGNG

>>54
http://member.nifty.ne.jp/moha/rfc/rfc2396j.txt

0056968 ◆ExGQrDul2E

NGNG

>>55
見てきた。その資料より抜粋。
";" | "/" | "?" | ":" | "@" | "&" | "=" | "+" | "$" | "," | "-" | "_" | "." | "!" | "~" | "*" | "'" | "(" | ")"
追加しなければならない文字がたくさんあるなあ。

0057デフォルトの名無しさん

NGNG

6.0のWebBrowserは．ｎｅｔでは何て言うのでしょうか？

0058デフォルトの名無しさん

NGNG

>>57
まだやってるのか・・・
http://www.google.co.jp/search?num=100&hl=ja&ie=Shift_JIS&c2coff=1&q=%22VB.net%22+webbrowser&lr=lang_ja

0059デフォルトの名無しさん

NGNG

>>58
誰もこたえてくれないんで・・・。

0060デフォルトの名無しさん

NGNG

>>39
MakeSureDirectoryPathExists ってAPI

0061デフォルトの名無しさん

NGNG

いまさらなんですが
VBの線描画(Line,Pen)について
実線以外の線(点線,破線など)の
線幅を変更して描画する方法を
教えてください。

0062デフォルトの名無しさん

NGNG

>>61
正攻法 -> LineDDA API

0063デフォルトの名無しさん

NGNG

おまえら質問汁！

0064デフォルトの名無しさん

NGNG

土日は質問少ないんだよなぁ…。ヒマだね。

006561

NGNG

>>62
サンクス.試してみます

0066デフォルトの名無しさん

NGNG

(*´д`*)ｱﾊｧ…

0067デフォルトの名無しさん

NGNG

VB畑でつかまえて

0068デフォルトの名無しさん

NGNG

リーチ一発VB

0069デフォルトの名無しさん

NGNG

少しは目立つように上げるべし！

0070デフォルトの名無しさん

NGNG

いや、馬鹿言語に目立たれるとうざいのでsageてくださいよ

0071デフォルトの名無しさん

NGNG

sendkeysでWindowsキーって送れませんか？

WinampをWindowsキーで操作できるプラグイン入れて、
他のPCからTCP/IPでWinampを遠隔操作できる
ソフトを作りたいんですが。

0072デフォルトの名無しさん

NGNG

>>71
送れますよ。

0073デフォルトの名無しさん

NGNG

>>いや、送れない。

0074デフォルトの名無しさん

NGNG

ｶﾞｰｿ
ミ田キー = "^{ESC}" と思ってたのに、、、

0075デフォルトの名無しさん

NGNG

>>74
"^({ESC}F)" != Windowsキー+F

0076デフォルトの名無しさん

NGNG

VBkey+任意のキー
例：
VBKeyE
VBKeyRight

0077デフォルトの名無しさん

NGNG

失礼します。VB超超初心者です。
ツールバーのボタンにwordなどのように
画像を表示したいのに、できません。
方法はわかるのですが、その画像ファイル（イメージリスト？）を
どこから持ってくるのか全くわかりません。
コンポーネントもざっと調べてみたのですが・・・。
（↑見当違いですか？）
イメージリストがどこにあるか教えてください。
馬鹿らしい質問かもしれませんが、宜しくお願いします。

0078デフォルトの名無しさん

NGNG

>>77
たしか本に載ってた記憶があるが、本が見つからないのでオレには答えられない

0079デフォルトの名無しさん

NGNG

私も超初心者ですみませんが、
getobject(,"InternetExplorer.Application")を使って、
開いてるＩＥを扱おうとすると、
普通のＰＣ内のフォルダにつながっちゃうんですけど、
どうすればいいでしょうか、教えてください。

0080デフォルトの名無しさん

NGNG

>>77
はあまり反応がイクナイ

0081デフォルトの名無しさん

NGNG

>>77
イメージリストは自分でフォームに設置しないといけないです。
Windows Common Controls6.0にあります。

0082デフォルトの名無しさん

NGNG

VBのdeclare functionってやってDLLを利用するとき、DLL側の呼び出し規約は
cdeclを使えますか？stdcallは使えるのですか？VBでは呼び出し規約はどういう
扱いになっていますか？

0083デフォルトの名無しさん

NGNG

>>82
stdcallしか使えないと思ったが…よく覚えてない。

008477

NGNG

>>81
ありがとうございました！！
早速やってみます！！

0085再び77ですみません…。

NGNG

イメージリストを設置するところまでは無事できました！！
でもいざ画像の挿入をしようと思っても肝心の画像
（プリンタとか開いてるフォルダ等の画像）がどこにあるのか・・・
本にはそこまでは書いてなくてわかりませんでした。
一応HDD内は検索してみたのですがありませんでした。
DLとかするものなんですか？

0086デフォルトの名無しさん

NGNG

>>85
CDに入ってますよ

008777

NGNG

>>86
はぁ～やっと見つけました…
本当にありがとうございました！！

0088デフォルトの名無しさん

NGNG

メニューエディタを使ってメニューをつくるときに、
開く
終了
のように縦にメニューを表示させるのはできますが、
開く　終了
のようにメニューバーの中に2つの項目を横並びに配置する方法がわかりません。

0089デフォルトの名無しさん

NGNG

>88

　　　　　　　　　　　　　　　　　　　　,イ^i
　　　　　　　　　　　　　　　　　　 ,イ::::　 l
　　　　　　　　　　　　　　　　　 /::::::::　　 l
　　　　　　　　　　　　　　　　 /:::::::::: 　　｛　　　　　　　／|
　　　　　　　　　　　　　　　／::::::::　　　　　`-､＿　　／::　{
　　　　　　　　　　　　　　/:::::::::::　　　　／　　　　￣　　__ l
　　　　　　　　　　　　　./:::::::::::　　　　　　　　 :::::＼:::...　＼　i
　　　　　　　　　　　　 /:::::::::::　　　　　　　　　 ::::::::::＼::::　、　{
　　　　　　　　　　　　 |:::::::::::.　　　　　　　　　 :::::::::＿ゝ:::　　!
　　　　　　　　　　　　 |::::::::::::. 　　　　）:.`ｰ..＿＿＿_' /:::　　|
　　　　　　　　　　　　 .l:::::::::::::.　　　　　　　　ヽー─フ::　　/ 　　ﾌﾟｯ
　　　　　　　　　　　　　ヽ::::::::::. ＿＿＿　　　　　　　　　 ,/
　　　　　　　　　　　　　＼::／`ｰ---‐^ヽ　　　　　　／
　　　　　　　　　　　　　　　　l:::　　　　　　l 　　　　　/
　　　　　　　　　　＿／,--､l::::. 　　　　ﾉ　　　　　　 l
　　　　　　 ,--､_ノ::　`ｰ'::　　､ﾐｰ---‐,,l　　　　　　　＼
　　　　　 ,/　　　:::　　　　　　 i￣￣　 |　　　　　　　　　＼
　　　　 /:::::::. 　　　　　 l::: 　　l::::::: 　　l　　　　　　　　　　＼
　　　　l:::::::::::.　　 l::: 　　!::　　 |:::::::　　 l　　　　　　　　　　　　＼
　　　　|:::::::::l::::　　l::: 　　 |::　　 l::::: 　　 l　　　　　　　　　　　　　 l
　　　　|::::::::::l:::. 　 }:::　　l:::::,r-----　　ｌ　　　　　　　　　　　　　ｌ
　　　　ヽ::::::::l:::: 　ﾄ:;;;;;;;/-/＿_...........　　/
　　　／＼::::`ー‐'　　／ l＿＿l;;;;;;;;;;;／
　　／　　　`　　　　　　　　　　　／

0090デフォルトの名無しさん

NGNG

>>88
ヘルプ嫁。

0091デフォルトの名無しさん

NGNG

(*´д`*)ｱﾊｧ…

009288 ◆D24s65nhoU

NGNG

>>89-91
ヘルプに載ってないテクニックが必要なようで載っていませんでした。
メニュエディターを開いた後の手順を細かく教えてくれたらうれCです。

0093デフォルトの名無しさん

NGNG

>>92
テクニックって、、、
たとえば
ファイル(F)
　開く
　終了
というようなものを
ファイル(F)
　開く　｜　終了
のような感じにするのでしょうか？

009488 ◆D24s65nhoU

NGNG

>>93
(青いタイトルバー)ソフト名
(灰色メニューバー)開く　終了
としたいんです。

0095デフォルトの名無しさん

NGNG

>>94
ヘルプも真面に読めないのかｽｶﾀﾝ

0096!88

NGNG

>>95
見付けられなかったけど、どのあたりに載っているか教えていただけますか？

0097!88

NGNG

>>94を読み間違っていた...寝よう

0098デフォルトの名無しさん

NGNG

あまりに簡単なので釣りとしか思えんが・・・確かにメニューエディタは
とっつきにくいかもしれないね。

「････」がメニューの階層なのでそれを「←」ボタンで取っ払えばいいってだけ。

009988 ◆D24s65nhoU

NGNG

>>98
ありがとうございます。
開く　終了
と横並びに表示する場合も
メニューエディタでは
開く
終了
と縦に登録していくんだなと気がつきました。

0100デフォルトの名無しさん

NGNG

えっ、釣りじゃなかったのか

0101デフォルトの名無しさん

NGNG

言われてみれば確かに、あのメニューエディタはVBらしからぬ作りだよな・・・

0102デフォルトの名無しさん

NGNG

うむ、VB.NETのメニュー作成方法みたいじゃないと
Visualではないね。

0103デフォルトの名無しさん

NGNG

よろしくお願いします。
汎用機で作成されたデータファイルをExcelに渡す処理を考えています。

汎用機からWindows上に落としてきてきた（この間に文字コードの変換をしています）
テキストファイルの中の、指定した行のiバイト目からjバイトを抜き出す
（その後エクセルに渡す）、という処理で詰まっております。
（この"iバイト目からjバイト"というのは汎用機側の印刷パラメータです。）
対象となる行には数値、日本語が混在しています。i,jは表の項目ですので増加していきます。

Mid,MidB関数で引数にi,jを指定してやればよかろと思っていたのですが、
汎用機側では数値は1バイト、日本語は2バイトで扱っており
Windows上では全て2ﾊﾞｲﾄで扱っているのでこれだと抜き出す時に誤差が生じてしまいます。

で、バイナリで開いて先頭から順次読み込んでやればいいかなと足りない頭で考えたました。
以下、足りない頭で考えたルーチンです。
１．対象行（テキスト）をバイナリで作業ファイルに書き込む
２．作業ファイルをバイナリで指定したバイト数だけ読み込み、配列で宣言したByte型変数に格納

とここまでやったのですが、これを元の数値や日本語に戻すにはどうしたらいいでしょうか
よろしくお願いします。

0104デフォルトの名無しさん

NGNG

超FAQです。
LenBとStrConvでﾄﾞｿﾞ。

0105デフォルトの名無しさん

NGNG

VBでマルチキャストの送受信を行うべく、
With Winsock1
.Protocol = sckUDPProtocol
.Bind 20002
.RemoteHost = "233.0.0.0"
.RemotePort = 20002
End with
と設定して、他マシンからのマルチキャストを受信してるんですけど、
Winsock1_DataArrivalイベントが発生しません。
試しにVCで作ったマルチキャスト送受信プログラムで受信してみるとうまく受信できました。
VBで受信するには他に何か設定が必要なんでしょうか？
ちなみに、この設定のままWinsock1.SendDataで文字列を送信してみたら、
マルチキャストの送信は、できました。

0106デフォルトの名無しさん

NGNG

　ＶＢでＨＰ作ったんですけど、アップロードの仕方が分かりません。
誰か教えてください。

0107デフォルトの名無しさん

NGNG

>>105
私の環境では完璧に動きまする…。
Win2ksp3/VB6sp5。
VBにSPはあてた？ Winsock.ocxにバグあった気がする。

あと、コード中で入れるんじゃなく、プロパティーページで
Bind以外を設定するとどうなる？
なんか別の所で変なことやってるのかもしれないし。

0108105

NGNG

>>107
動きましたか。うちの環境はWin2k　VB6SP5です。
ちょっといろいろ設定見直してみて、また来ます

0109デフォルトの名無しさん

NGNG

>>103
「バイト型配列から日本語含めた文字列への変換」でいいのね。
バイト型配列を「byteArray()」とすると、

Dim strBuf As String
strBuf = StrConv(byteArray(),vbUnicode)

でいけるはず。何も見ないで書いたので綴り間違ってるかも。
ためしてみてちょ。

0110デフォルトの名無しさん

NGNG

マウスカーソルの位置を強制的に固定したいのですが
マウスの位置のプロパティってありますか？

0111デフォルトの名無しさん

NGNG

ClipCursorだったかな

0112デフォルトの名無しさん

NGNG

ごめん
よく調べたらあった。>MouseCol、MouseRow プロパティ

0113デフォルトの名無しさん

NGNG

　　　　　　　／￣￣ヽ　　　　／￣￣ヽ
　　　　　　　l　i'´~｀ヽ｜　　　l　／~｀ヽ |
　　　　　　　ヽ.＼　 ,ﾚ-――-'<、　_ノ /
　　　　　　　　 `‐／＿＿＿＿＿＼- '　　　　　　　　　人＿ﾄ､__ﾉ､_,ヘノ＼_ノヽノ、
　　　　　　　／ ,-､　　　　　 ,-､ヾ､　　　　　　　人/　　　　　　　　　　　　　　　＼＿_
　　　　　　 l　　,..、　　　　 ,..､　　l　　　　＿ノ　　　　　　　　　　　　　　　　　　　　(
　　　　　＿＿l　　i 0｝　,.●、　!0 ｉ　　l＿＿　_)
　　／￣|　| . |　　`~ ／＿__＼｀~´ 　 |　 |　__ノ　絶対に許さんぞ>106!!!!!!!
／　　 |　|　|l　　 ‘-ｲ !_|_!`r’ 　　 !|　 |　ﾉ
＼＼　 |　|.　|`､　　 r{ 　　　ｈ　　 ,/ﾘ　＜　　　　じわじわとなぶり殺しにしてくれる!!!!!!!
　＼＼.|　| 　ヾ＼　ヽ二ﾆ二.ﾉ　／〃　|　 )
､　　＼ﾉ^,ﾆ‐-ｧ￣`ー-----一'￣／　 |　^ヽ
＼　　/／ ,/⌒i､_＼＼＿＿＿__／／　 .|　 |　 ⌒)
　　　{　　 i　　 |　 iヽ`ー-----― '　　 |　 |　　￣ヽヘ/⌒ヽ／＼i'＼へ／⌒Yヽ'^

0114デフォルトの名無しさん

NGNG

ユーザーの環境によっては
Date関数が
2003/02/03
ではなく
2003/2/3
という値を返すことはあるのでしょうか？

0115>>103 です

NGNG

>>104
>>109

レスありがとうございました。
StrConv関数のヘルプは散々見ていたのに、引数のvbUnicodeを見落としていますた。
これからテストしてみます!!!

0116デフォルトの名無しさん

NGNG

>>114
心配ならFormat使え。

0117デフォルトの名無しさん

NGNG

>>114
前提が間違ってるぞ。
そもそもDate関数は文字列を返すものじゃなく、Date型を返すもの。
文字列型へ代入した時の形式は、そのマシンの「地域のオプション」の日付形式の設定に
左右される。決まった形式で欲しいならFormat関数を使うのが吉。

0118114

NGNG

>>116-117
ありがとうございます。
Format関数は使ったこと無いけどマスターしてみます。

0119114 成功しました

NGNG

Format(Date, "yyyy/mm/dd")

0120デフォルトの名無しさん

NGNG

>>117
でも漏れなんかは、N88BASIC時代の人で、Date$とかTime$に慣れてたから
結構そのままやってて、意図しない書式が返ってきたりして面食らったことがあるな。

0121デフォルトの名無しさん

NGNG

アプリケーションにエラーが出ていないか監視したいのですが、
どうやればいいのでしょうか？

0122デフォルトの名無しさん

NGNG

この3つで使われているapigid32.dllってのを、標準のwin32APIに置き換えることはできますでしょうか？
copymovememoryとか、該当しそうなAPIがあるので・・・

Public Declare Sub agCopyData Lib "apigid32.dll" (Source As Any, Dest As Any, ByVal nCount As Long)
Public Declare Function agGetAddressForObject Lib "apigid32.dll" (Object As Any) As Long
Public Declare Function agGetStringFromLPSTR Lib "apigid32.dll" (ByVal src As String) As Long

0123デフォルトの名無しさん

NGNG

>>121
On Error ステートメントか？

>>122
そもそもそのソースがどこから出てきたか説明するのが筋だと思うが・・・
ググッてみたところ、ダニエル・アップルマンの本のおまけでついていたDLLみたいだな。
それら関数の動作の詳細も書かずにできるかどうかと問われてもどうか？って
感じだが、その関数の中でやってるのと同じことをやればできるだろうｗ
一応マジレス。

0124122

NGNG

>123
いやぁ、apigid32.dllは持っているのですが、あまりユーザの環境に入れたくないですよね、余計なDLLは。
というわけで、標準のWin32APIに置き換えはできないかなと思って質問してみました。
ありがとうございます。

0125121

NGNG

>>123
VB6で作成した実行ファイルを起動していると
アプリケーションエラーがでてしまいます。
で、エラーが出たらそのアプリケーションを再起動したいのです。

0126デフォルトの名無しさん

NGNG

http://www.agemasukudasai.com/bloom/

0127デフォルトの名無しさん

NGNG

>>125
なぜそのアプリのバグを取ろうって発想にならないんだろ・・・　(´д｀;)
FindWindowあたりでできそうな気はするが。

0128な

NGNG

>>119
「/」は地域のオプションの区切り記号に置き換えられるので、
それだと期待通りに動作しない場合があります。

Fromat(Date,"yyyy\/mm\/dd") が正解です。

0129114

NGNG

>>128
むぅ。盲点でした。
世界中のVBアプリにこの手のバグがあるような悪寒を感じてしまいました。

0130デフォルトの名無しさん

NGNG

すみません、くだらない質問ですが
あんまり簡単すぎて？探しても記述を見つけられないのでお願いします。

１．Space"$"(number)のように、関数の後ろに"$"が入るのはどういう意味を表していますか？
２．myarry() as integer のように、配列の括弧内が空白というのはどういう意味ですか？

よろしくお願いします。

0131デフォルトの名無しさん

NGNG

>>130
ヘルプ読めばどっちも書いてあると思うが。
関数名に $ がつくのは、返り血を文字列型で返す関数。
$を省略すると、Variant型で返るので、パフォーマンスのためには
$をつけた方がいいとよく言われる。

myarry()のように空白の配列は、動的配列という。
ReDim myarray(256) などのようにして、コード中で配列の要素数を変更
したい時に使う。

■ このスレッドは過去ログ倉庫に格納されています

(*´д`*)ｱﾊｧ… VB初心者質問スレ Part22

(´д`)ｱﾊｧ… VB初心者質問スレ Part22