(´д`)ウッ…　VB初心者質問スレ Part15

**エロチカセブン** · NG

**デフォルトの名無しさん** · NG

>>387
おれならこうするな
do while true
r=int(rnd()*200)
if r>=50 and r<=100 then exit do
loop

**デフォルトの名無しさん** · NG

>>398

+ 激しく違う +

**デフォルトの名無しさん** · NG

>>400、401
どうもありがとうございます。
今、Accessでﾃｽﾄﾃﾞｰﾀを1万件作るためのﾐﾆｱﾌﾟﾘ作成中なのです。
　 For i = 1 To 10000
rs.AddNew
rs("Key") = Format(Int(Rnd() * 1000) + 1)
rs.Update
Next i

↑こんな感じでにRnd()はﾙｰﾌﾟの中にあるのでﾙｰﾌﾟはあまり使いたくなくて
質問しました。でも>>394の方法で上手くいきましたけど…
間違ってるのかな??ｳｰﾝ､ﾜｶﾗﾝ。

**デフォルトの名無しさん** · NG

>>403
任意の範囲の整数の乱数を生成するには、次の式を使ってください。

Int((upperbound - lowerbound + 1) * Rnd + lowerbound)

この式では、変数 upperbound には範囲の上限の値を指定し、変数 lowerbound には
範囲の下限の値を指定します。

**デフォルトの名無しさん** · NG

これでも分かんなきゃ人間やめたほうがいいよ。マジで。

**デフォルトの名無しさん** · NG

>>404
ありがとうございます。
今、その方法で取組中です。
たくさんｱﾄﾞﾊﾞｲｽいただけてﾎﾝﾄ感謝です。

>>405
大丈夫です！何とか理解できました(,,ﾟДﾟ)ｷﾞﾘｷﾞｾｰﾌ

すいません、入社したばかりのﾍﾀﾚ女性ﾌﾟﾛｸﾞﾗﾏです。
どうもｱﾘｶﾞﾄございました。

**デフォルトの名無しさん** · NG

>>406
(*´д`*)

NG

>>406

これぐらいカンタンだとレスはたくさんくるよ（ｗ
しかも突込みどころ満載だったし。

**デフォルトの名無しさん** · NG

　ＶＢ初めて３日の初心者です。
　過去スレで一応調べてみたのですが、訊かせてください。
　どうかよろしくお願いします。
　環境はVB7.0です。

　Module1.vbに構造体を以下のように定義したのですが、

Public Structure data
{
Public x As Double
Public y As Double
}
　
　ビルドすると、
「Public class 'Form1' の外にある Friend 型を公開できません。」
　のようなコンパイルエラーが出てしまうのです。」

　構造体を別モジュールで定義したくてこんなことをしているのですが、
外部Moduleで宣言されている構造体を使うには、どのようにしたら良いの
でしょうか？

**デフォルトの名無しさん** · NG

>>409
【老若】VB.net質問ｽﾚ【男女】
http://pc3.2ch.net/test/read.cgi/tech/1025848458/l50

**デフォルトの名無しさん** · NG

でもさ、Rnd使ってると、な～んかいまいちランダムじゃないなぁと思うんだけども
どうでほ。

**デフォルトの名無しさん** · NG

カウントしてみ。ランダムさがよくわかる。
４００回くらいまでは偏るけどね。（０から９までのとき）

**デフォルトの名無しさん** · NG

Randomizeしてないだけとか言うなよ。

**デフォルトの名無しさん** · NG

>>411
Randomizeしても同じ数値が連続したことがあった

**409** · NG

>410
　ごめんなさいわかんないっす…
　（：Ａ；）ハウー

　「作成したモジュールに、フォームのインスタンスを渡す」
　ってところなのでしょうか？

**デフォルトの名無しさん** · NG

shell関数とOpenProcess関数ではどちらの方が
起動時間がはやいんですか？

**デフォルトの名無しさん** · NG

自分でやってみるのもオツなものです

**デフォルトの名無しさん** · NG

>>414 何度もRandomizeしたとか言わないでね。

**デフォルトの名無しさん** · NG

>>414
100回振って、一度も同じ目が連続して出ないサイコロはイカサマです。

**デフォルトの名無しさん** · NG

美容室向けの予約システムを作っているのですが、
どうしてもスケジュール表(時間割)部分の作り方がわかりません。
Gridのコントロールだと時間軸の上に｢10:00｣というような表示ができないのでこまっています。
横が時間軸で縦にスタッフの名前でただ該当の時間がいろで塗りつぶせて
その上にお客さんの情報を書きたいのですが、
どなたかいいやり方教えていただけませんでしょうか。
よろしくお願いします。

**デフォルトの名無しさん** · NG

今どき
VB6で動作想定環境をWIN98にして開発するのは
VBSのHPを作るようなものでしょうか？ｗ

**デフォルトの名無しさん** · NG

>>420
いろいろ方法がありすぎて、、、

>>421
VB6でWin98の何がおかしいのか？

.netでだったら問い詰めても良いけどね。

NG

>>420
表示部は、ラベルを貼りまくってやれ。
表示する中身を管理して表示しまくれ。

もしくは、文化オなんとか社が出してるスプレッドを使うんだな。

**デフォルトの名無しさん** · NG

ドラッグ＆ドロップで質問したいです。
今、ファイル名を指定してそこにあるデータを配列に落としているんですが、
これをドラッグ＆ドロップが行われた時にドロップされたファイルを
配列に落とすにはどうしたらいいんでしょうか？今、使っている命令は
こんな感じです。
Open "D:\data\all.txt" For Input As #1
For i = 1 To Ypixel
For j = 1 To Xpixel
Input #1, MOT(i, j)
Next
Next
Close #1

お願いします。

**デフォルトの名無しさん** · NG

Private Sub Form_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
Open Data.Files(1) For Input As #1
...
Close #1
End Sub

但しFormのOLEDropModeプロパティを1-手動にしとく。

**４２４** · NG

ありがとうございます。試してみます。

**デフォルトの名無しさん** · NG

>>423
そういったOCX等使うと、msiインストーラー作るとき、
OCXやらDLLやらがたくさんアプリケーションフォルダにいれられてごっちゃになるんですがいいほうほうはないでしょうか？

**お茶丸** · NG

じつはiMode用のメール保存閲覧ソフトを作りたいと思うのですが、
有効な情報がなかなか得られません。
もしよろしかったら少しでも結構ですので作成のヒント、
関連する情報など教えていただけないでしょうか？
一方的ですみませんが何卒よろしくお願いします。

**デフォルトの名無しさん** · NG

>>428
一方的もなにも、わけわからんぞ。

・必要と思われる機能の定義
・利用しようと思っているOS、開発環境、アプリ

ぐらいは書け。なるべく具体的に。

**598** · NG

まいった

**デフォルトの名無しさん** · NG

教えて下さい

double型の変数の小数点以下を切り捨てたいのですが
「￥」を使うと、以下の様な場合答えが４になってしまいます。

a=3.99
b = a \ 1

何か方法はありませんか？

**デフォルトの名無しさん** · NG

IntかFix

**デフォルトの名無しさん** · NG

>>432
たすかりました
ありがとうございます

**デフォルトの名無しさん** · NG

VB6 で、フォームの width と height をiniファイルに保存しておいて、
フォームを開くときに保存されていた値を読んでその値にフォームのサイズを変更しておこうとおもって、
Form_Load でiniファイルの値を読んでセットしているんですがうまくいきません。
なにか足りないことでもあるのでしょうか？

**434** · NG

できた。

**デフォルトの名無しさん** · NG

>>432
Int(1.15*100) ではまる罠

**お茶丸** · NG

大変失礼しました(汗)
☆必要な機能
　携帯電話とＰＣをＵＳＢにて接続し、ウインドウズアプリより携帯に対し、メールを送受信したい

☆希望する動作OS
　WindowsＸＰ

☆開発環境
　Ｍｉｃｒｏｓｏｆｔ　ＶｉｓｕａｌＳｔｕｄｉｏ　6.0　のＶＢまたはＶＣ、ＶＪ

☆アプリ
　外部アプリは使用しない

以上です。すみません初投稿なもんで(汗)もしご存知でしたらよろしくおねがいします<(_ _)>

**お茶丸** · NG

追加です
現状として、携帯電話になんらかのコマンドを送出すると、対応した情報
(電話帳データ等)が返ってくるのはわかっています。
どんなコマンドを送出するとメール内容が取得できるのか、またクラスやＡＰＩ
が提供されているのか、当方では力不足で調べられませんでした。

**デフォルトの名無しさん** · NG

>>438
ここは初心者の館だよ。

**デフォルトの名無しさん** · NG

>>438
そんなの機種によって違うんじゃないの？一緒なの？

**４２４** · NG

>>425
うまく取り込めました。ありがとうございました。

**デフォルトの名無しさん** · NG

ヘルプなんですけど、HTMLヘルプ使ってます。
FormとかにHelpContextIDってプロパティーがありますが、この項目は従来のヘルプにしかつかえないんでしょうか？

**デフォルトの名無しさん** · NG

ここってクリスタルレポートとかの質問もありですか？

**デフォルトの名無しさん** · NG

>>443
ありです。

**443** · NG

それではすいません、質問させてもらいます。
詳細に10行だけ出力して改ページしたいんですが、
どこでどういう風にすればよいのかわからないんですが･･･。
ちなみにverは8.5です。

**445** · NG

すいません何に関しての質問か抜けました。
クリスタルレポートに関してです。

**デフォルトの名無しさん** · NG

>>438
そいうものが公開されてないのにはそれなりの理由がある。
ネタじゃなければ今後気をつけなよ。

**デフォルトの名無しさん** · NG

MOVEFILE_WRITE_THROUGHという定数って値なんでしょう？
手持ちのAPI Viewerにのっていないんですが・・

**デフォルトの名無しさん** · NG

>>445
１．明細にサブレポートを使う。
２．10行印刷されるとちょうどページの縦の幅がなくなるように、ページヘッダ、ページフッタなどの高さを調節する。
３．印刷する前のレコードに、10件づつインクリメントする番号を振っておいて、それでグループ化。
など思いつきました。

**デフォルトの名無しさん** · NG

>>448
#define MOVEFILE_WRITE_THROUGH 0x00000008

WINBASE.Hにあった。

**４４８** · NG

お、ありがとございます。
これってようするに8のことですよね？

**デフォルトの名無しさん** · NG

>>448
>手持ちのAPI Viewerにのっていないんですが・・
アホを晒してはいけない....載っていない定数なんていくらでもある
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/fileio/base/movefileex.asp

英語が読めない場合、首を括るなり辞書を引くなりしてくれ

**４４８** · NG

>>452
おうっと。
ありがと。（ｗ

**デフォルトの名無しさん** · NG

すごく大きな数（倍精度浮動小数点数型）が見にくいので
1.23456E+8
というような表示にして出力したいんですがどうしたらいいですか？

**デフォルトの名無しさん** · NG

>>454
Format関数で第二引数"Scientific"指定とかどうかね。

**４５４** · NG

ＭＳＤＮで調べたんですが
Format関数というのがどういうものかわかりませんでした。
具体的な使い方を教えてくれるとありがたいです。
使っているのはVB6.0です。

**デフォルトの名無しさん** · NG

>ＭＳＤＮで調べたんですが
どんな風に調べたんさ。Format関数に辿り着けなかったのかい？
そんなあほな。

イミディエイトウィンドウで下のように打ってみ。
? Format(123.456789, "Scientific")

**４５４** · NG

イミディエイトウィンドウでは確かにできましたが、
プログラムで出そうとしたらエラーが出てしまいました。
double型が入ったsumという変数の値を
Label2.caption = sum
で出したいんですがどうでしょう？

format関数は出てきたんですがｃ言語とか書いてあったので違うかなーと
思っちゃったんです。

**デフォルトの名無しさん** · NG

>>454
どうやったらエラーになるねん。
ヘルプには使用例まで載ってるのに
それでわからん奴にどうやって教えたらええんや？

**デフォルトの名無しさん** · NG

おいおい…

**デフォルトの名無しさん** · NG

>>458
エラーメッセージを正確に引用する。
必要最低限のコードは見せる。
変数に入れた値を示す。
これ質問者の基本。

**454** · NG

エラーメッセージはコンパイル時にでて
　　コンパイルエラー
　　修正候補：式
関係しているコードは
　　sum = ?Format(sum, "Scientific")
　　Label2.Caption = sum
sum　は変数で、整数部分が７～８桁のdouble型が入っています
例えば　70840747.888806　が得られます。

コードの？部分をなくすとコンパイルはできるんですが
有効数字が3桁になっただけで指数表記にはなってくれません。
例えば　70800000　というようにです。

**デフォルトの名無しさん** · NG

>>462
format(num,"0.00E+00")
0の数は自分で好きなように。?ってなんだ？何を読んだ？

**463** · NG

それからformatは文字列を返すんだからね。
気をつけて。

**デフォルトの名無しさん** · NG

うんこ

**454** · NG

チェックのためにsumを一定にしました。コードは
　　sum = 12345678.999999
　　sum = Format(sum, "0.00E+01")
　　Label2.Caption = sum
こんな感じです。

ここで""の中を"0.00E+00"とすると12300000が得られ
""の中を"0.00E+01"とすると1.23E+71が
""の中を"0.00E+03"とすると1.23E+73が
""の中を"0.00E+10"とすると「オーバーフローしました」とでます。
期待している数字は1.23E+07なんですけどどうしたら得られますか？

**デフォルトの名無しさん** · NG

>>466
だからformatは文字列を返すんだって。
dim sumStr as string
sumStr = Format(sum, "0.00E+00")
とかすればいい。
"0.00E+00"　の0は桁数を表しているので
01とか10とかやっても意味がない。

**デフォルトの名無しさん** · NG

sum = Format$(sum, "#.##E+")
だと思う

D · NG

>>462
>sum = Format(sum, "Scientific")
このsumは両方ともDouble型なのでFormat関数で整形してもほぼ同じ値が入るだけです。
この場合左辺はString型で宣言された変数に代入した方がいいと思われます。
あとSumはSQLとData Reportでの予約語なので変数名に使うのもどうかと。
試しに新規のプロジェクトでDim sum as Doubleの宣言をせずに同じｺｰﾄﾞを
入力すると小文字で入力したはずの"s"が"S"に置換されるはずです。

Dim Total As Double
Dim sTotal As String

Total = 70840747.888806
sTotal = Format$(Total, "0.000000000000E+")
Label2.Caption = sTotal
こんなかんじで。
あ、ヘルプの”プロシージャの引数”でSum関数作ってますね。

**454** · NG

>>467
デキターーーーー！！！
ありがとうございます！ものわかりが悪くてすいませんでした。

**デフォルトの名無しさん** · NG

●●●●●●●●「オセロさえ納期内に作れない＝ＯＯ役立たず」祭り●●●●●●●
／|　　　　　　　 |　 |＿＿＿＿_ΦΦΦΦΦΦΦΦΦΦΦ||ΦΦΦ
　 |　　　　　　　 |　 |￣￣￣／|　　　　　　　　　　　　 ||
　 |　　　　　　　 |　 |　　　／／|TTTTTT　　 TTTTTTTTTT||TTTTT
　 |　　　　／＼　|　／|／|／|^^^^^^ |三三| ^^^^^^^^^^^||^^^^^^^
　 |　　　／　／　|／／／／|
　 |　　　／　／ |＿|／|／|／|／|
　 |　／　／　　|文|／／／／
　 |／　／.　＿.|￣|／|／|／　　　　　　　　　Λ＿Λ
／|＼／　／　／　|／／　　　　　　　　　　（＿＿_）
／|　　／　／　／ヽ　　　　　　　　　　　　/〔非OO 〕〕つ
　 |　　　|￣|　 |　|ヽ／l　　　　　　　　　　　｀/二二ヽ
　 |　　　|　 |／|　|__|／　　　Λ＿Λ　　　　 /　/（＿）
　 |　　　|／|　 |／　　　　　（　´∀｀）　　　（＿）　　　 Λ＿Λ
　 |　　　|　 |／　　　　　／/ /　 ^￣］ﾟ　　　　　　　　（｀　　　）
　 |　　　|／　　　　　　　ﾟ/￣￣_ヽ　　　　　　　　　⊂〔〔非OO 〕

**454** · NG

>>468　>>469
いろいろありがとうございます。助かりました。

D · NG

あ、ぼやっとしてたら答えてたのね。
遅すぎました

**445** · NG

>449
返信遅れてすいません、ありがとうございました。
とりあえず今教えていただいたのを実行中です。

**デフォルトの名無しさん** · NG

>>442
使えますよ。

**442** · NG

>>>475
お、そうですか。
なんか
HH_HELP_CONTEXT called without [MAP] section
って表示されたので。
HTMLヘルプの作り方が悪いんでしょうが・・
HTMLヘルプコンパイラみてもどこで設定するのかわからんです。

**442** · NG

できました。
hファイルを作成するんですね。

NG

ListBOX内の一行一行個別に色を設定する方法を教えてください。

**デフォルトの名無しさん** · NG

全く同レイアウトのテーブルAA,BBのレコードをAA→BBに移す時に
↓以外の書き方ありますか？レコード中の全ての項目を下記の様に
代入するように書かないと駄目なのでしょうか？

With rs_bbb
　　　.AddNew
　　　.Fields("field1").Value = rs_aaa.Fields("field1").Value
　　　.Fields("field2").Value = rs_aaa.Fields("field2").Value
　　　.Fields("field3").Value = rs_aaa.Fields("field3").Value
End With

**デフォルトの名無しさん** · NG

>>479
for i=0 to rs_aaa.fields.count -1
.Fields(i).Value = rs_aaa.Fields(i).Value
next

**479** · NG

>>480
ありがとうございます。
そういうやりかたもありましたか

**デフォルトの名無しさん** · NG

テキストをHTMLのタグ形式に変換したいのですが、
「http」or「ttp」or「www」の文字列を発見すると自動的に<a href～>のように
変換する関数のようなものは、ありませんでしょうか？
どなたか、そういったものを公開している情報知りませんか？
環境はVB6.0　SP5です。

例：
【変換前のテキスト】猫のページhttp://www.neko.com
↓
【変換後のテキスト】猫のページ<a href="http://www.neko.com" target="_blank">http://www.neko.com<;/a>

**デフォルトの名無しさん** · NG

windows media player コントロールを使っているのですが、
alt+enterを押すとfullscreenで見れるのですが、
キーを使わずプログラムからfullscreenにする方法はないでしょうか？
また
windows media player　コントロールのヘルプや解説が見つからないのですが、
どこにあるのでしょうか。

**デフォルトの名無しさん** · NG

ASP.NETでWebUserControlを使用した汎用的なツールを作りたいと思っています。
そこで、Webフォームから同画面上のWebUserControlに対して値をわたしたいのですが
どうしたらいいでしょうか？

**483** · NG

自己解決しました。
ヘルプはないのですが、
オブジェクトブラウザでそれらしきものをみつけたので、いけました。
コンポーネントに以下の文を入れました。

MediaPlayer1.DisplaySize = mpFullScreen

**442** · NG

>>482
自分が使ってる奴。あんまよくないかも。
aStr=元の文字列
nTarget=変換したい元の文字列
nChangeTo=返還後の文字列
nOpt=おぷしょん。
Public Function fReplace(ByVal aStr As String, ByVal nTarget As String, nChangeTo As String, Optional nOpt As Integer) As String
Dim oStr As String
Dim nStr As String
Dim nCurPos As Long
oStr = aStr
If Len(oStr) > 0 And Len(nTarget) > 0 Then
Do
nCurPos = InStr(1, oStr, nTarget)
If nCurPos = 0 Then Exit Do
nCurPos = nCurPos - 1
If Not Mid(oStr, nCurPos + Len(nTarget) + 1, Len(nTarget)) = nTarget Or nOpt = 0 Then
nStr = nStr & Mid(oStr, 1, nCurPos) & nChangeTo
Else '改行文字が重なっていたら、改行文字自信に置き換える（nOpt=1の場合）
nStr = nStr & Mid(oStr, 1, nCurPos + Len(nTarget))
nCurPos = nCurPos + Len(nTarget)
End If
oStr = Right(oStr, Len(oStr) - nCurPos - Len(nTarget))
Loop
nStr = nStr & oStr
End If
fReplace = nStr
End Function

**デフォルトの名無しさん** · NG

VB初心者ですが、どなたか教えて下さい。
プログレスバーを使ってファイルの保存状況を表示したいのですが
Label1.Caption = "保存中"
ProgressBar1.Min = 0
ProgressBar1.Max = List1.ListCount
For LoopCnt = 0 To List1.ListCount - 1
SavData = SavData & List1.List(LoopCnt) & vbNewLine
ProgressBar1.Value = LoopCnt
Next
とするとプログレスバーが100％になってから「保存中」と表示されて
しまいます。処理の優先順位みたいなのがあるのでしょうか？
このような場合、どういう風にするのがよいのでしょうか？
環境はVB6 Win2000 です。よろしくお願いします。

**デフォルトの名無しさん** · NG

>>487
Refresh DoEventsあたりか？

**デフォルトの名無しさん** · NG

>>488
できました。
ありがとうございました！（感謝）

**print()** · NG

VBでダウンロード完了のイベントがとれるらしいのだけど、いまいち実装の仕方がわからん

ttp://www2.hos.co.jp/DemoV7/ViewCtrl/c7htmv15.htm#downloaded

に載ってるのだが・・・。どうやるでしょうか？

**478** · NG

ListBOX内の一行一行に個別に色を設定するのはＤｅｌｐｈｉ
などでしかできんのかなぁ～～～

**デフォルトの名無しさん** · NG

>>479
Insert Into BB Select * From AA

というのが一番理想。

**デフォルトの名無しさん** · NG

すいません、ちょっとクリスタルレポートに関してお聞きしたいんですが。
グループヘッダの下にページヘッダを表示したいんだけど、なにか方法はありますか？
イメージ的にはこんな感じにしたいんですけど･･･↓

【グループヘッダー】

　請求先 ○○商事
　　請求商品金額　　　　　消費税　　　　　請求合計額
　１００，０００５，０００１０５，０００

【明細見出し】

　日付　　　　　　　　品名数量　　　　単価金額

【ディテール】

2001/01/01　　　　　　○○○○ 1 100,000 100,000

**482** · NG

>>486様
お返事ありがとうございます。
>>482の書き込み内容と例が悪かったのですが、
http等の頭から問題は最後の文字です。

どこまでをURLとして認識するかが問題でした・・・。
感じとしては、２ちゃんねるの書き込みにURLを含む場合、
あああhttp://www.neko.comいいい
と書き込むと「いいい」の前でURLの認識としては止まりますよね？
他に"("カッコやスペースなんかでもURLの認識が止まると思います。

それをどうやって判断するのか・・・・。
１コずつ全角文字やスペースやカッコがあるかを判断するしかないでしょうか？
それだと、どんな文字でURLの認識が止まるのかを全て把握できなきゃいけないし・・・

**デフォルトの名無しさん** · NG

>>494
URLには絶対に含まれない文字がある（日本語対応とかで多少状況は変わってきつつあるけど）。
単にその文字移行を認識しなければいい。

**デフォルトの名無しさん** · NG

>>494
＞それだと、どんな文字でURLの認識が止まるのかを全て把握できなきゃいけないし・・・
RFC読んでね。

どうでも良いけど使用できる文字の集合とできない集合を把握するなら明らかに前者の方が楽だと思うが。

**482** · NG

>>495様　>>496様
お返事ありがとうございます。

とりあえず、これからRFCを検索して調べてみます。

ただ・・・使用できる文字の集合を把握したら、仮に1000文字だとして、
1000回分、Loop なり If なりで見ていかないとダメですよね？
かなり、厨プログラミング的な質問かもしれませんが・・・

**442** · NG

おっと、ごめんよ。
全然文章読んでなかった（ｗ
文字の比較はLike演算子を使えば楽勝です。多分。
ってかどうやったら1000文字もあるんだ（ｗ

**デフォルトの名無しさん** · NG

>>497
httpから１文字ずつループを回しながらLikeでチェック。
Likeなら範囲指定できるから幾分楽だよ。
　 chrHoge Like "[#-)+-;=?-~]"
って具合かな？
範囲がこれで正しいかは不明(^^; とりあえず実用上は支障無いと思うけど、
RFCをちゃんと調べた方がいいね…。

**デフォルトの名無しさん** · NG

どなたか教えてくだされ～
SetステートメントのHelpに

＞Set ステートメントを使って、オブジェクトへの参照を変数に代入します
と書いてあるのですが、ここで言う"参照"ってメモリのアドレスの事を言っ
ているのですか？それとも他のことですか？
教えてくだされ～!

(*´д`*)ウッ… VB初心者質問スレ Part15

(´д`)ウッ…　VB初心者質問スレ Part15