トップページ⇒tech
988コメント350KB

くだすれVB6.0以前（超初心者向け）

■ このスレッドは過去ログ倉庫に格納されています
0001デフォルトの名無しさん2006/12/08(金) 19:36:45
このスレッドはVBについて、
他のスレッドでは書き込めない超低レベル、
もしくは質問者自身何が何だか分からない質問を勇気を持って書き込むスレッドです。
VB使いが優しくコメントを返しますが、
お礼はVBの布教はしなくてよいので、初心者の救済をお願いします。
0449デフォルトの名無しさん2007/06/14(木) 13:29:28
>>448
お前はあほだな
0450デフォルトの名無しさん2007/06/14(木) 13:47:19
>>449
いやためしと言うのはいいとして
そんな無意味なコードをためしてどうするの？
自分でためしてみた？
0451デフォルトの名無しさん2007/06/14(木) 13:59:27
>>450
キーをちょっとでも押しているとすぐにGetAsyncKeyStateのカウントが増えていくことを確認させるテストだ

無論今は試してないが過去になんども試してる
0452デフォルトの名無しさん2007/06/14(木) 14:01:41
要するに、最初に提示されたコードであると、
キーを押しっぱなしにしていて離した時点で、

GetAsyncKeyState(37) がたとえば 200　とかいう値を返してくる。
そのためこのコードだと、キーを離した後も、あと200回、If文の中の命令をこなすこととなっている
0453デフォルトの名無しさん2007/06/14(木) 14:06:42
>>452
今、試せ。
0454デフォルトの名無しさん2007/06/14(木) 14:39:53
回答するのはわかってる奴だけにしろ
質問者が混乱するような言い合いしてたら意味ないだろ
0455デフォルトの名無しさん2007/06/14(木) 18:29:30
本人はわかってるつもりなんだよ
0456デフォルトの名無しさん2007/06/14(木) 19:32:55
自分でサイト作って仕切ればいい
0457デフォルトの名無しさん2007/06/15(金) 11:53:51
Pin's・・・いやなんでもない
0458デフォルトの名無しさん2007/06/15(金) 12:13:46
>>457
久々にその名前を聞いた
つうか、最近廃れてないか？
0459デフォルトの名無しさん2007/06/16(土) 00:52:38
すいません
Vbはどこでダウソすればいいんでしょうか？
0460デフォルトの名無しさん2007/06/16(土) 01:02:12
Microsoftからダウンロードできます
0461デフォルトの名無しさん2007/06/16(土) 01:04:55
>>460
なんとかスタジオの
どこで何をすればいいのかわかりません＞＜
0462デフォルトの名無しさん2007/06/16(土) 01:32:56
>>461
わからないのならあなたには必要無いって事でしょう
0463デフォルトの名無しさん2007/06/16(土) 02:11:56
本当に欲しいならMSに訊けばいい。
0464デフォルトの名無しさん2007/06/16(土) 02:44:32
制御をOSに戻すってつまりどういう事？
0465デフォルトの名無しさん2007/06/16(土) 03:52:33
日本から出て行け
0466デフォルトの名無しさん2007/06/17(日) 21:54:11
超アホなユーザー定義関数が作れません。
どこが、間違ってるのでしょうか。
Function find1(検索 As Range) As Variant
Dim objRange As Range
Dim target As Variant
target = 検索.Value
Set objRange = Columns("E").Find(target)

find1 = objRange.Value
End Function
0467デフォルトの名無しさん2007/06/17(日) 22:21:42
どんなエラーがあるかすら書かないのか
それから変数に全角文字使ってるが冗談だよな？
0468デフォルトの名無しさん2007/06/17(日) 22:28:56
動作はするのですが、worksheetのセルの
エラーは、＃VALUE!　です。

変数は全角でも、英数字でも同じエラーがでます。
0469デフォルトの名無しさん2007/06/18(月) 12:33:30
>>468
> エラーは、＃VALUE!　です。
この「#VALUE!」ってどういう意味なの？
0470デフォルトの名無しさん2007/06/18(月) 12:38:13
>>466
まるち
http://hpcgi1.nifty.com/MADIA/VBBBS2/wwwlng.cgi?print+200706/07060041.txt
0471デフォルトの名無しさん2007/06/18(月) 20:26:24
>>470
2ｃｈでマルチポストを指摘されるとは。
ネチケット違反ですか？
0472デフォルトの名無しさん2007/06/18(月) 20:29:42
×("E")
○(゜ε゜)
0473デフォルトの名無しさん2007/06/18(月) 20:44:16
マルチだろうが別にどーでもいいけど、ここ以外に活躍する場が無い自治厨。
0474デフォルトの名無しさん2007/06/18(月) 22:05:24
>>471
>469
0475デフォルトの名無しさん2007/06/18(月) 22:08:46
続けるなら向こうでやれ
0476デフォルトの名無しさん2007/06/21(木) 15:45:46
あとあえて荒らしに行ってみるが
変数名に漢字なんて大真面目ですぜ？
0477デフォルトの名無しさん2007/06/21(木) 15:55:04
いいんじゃないのぉ　好きにすればぁ
0478デフォルトの名無しさん2007/06/21(木) 17:36:28
VBならまだいいぜ。
AccessVBAなんか悲劇。
変数にマルチバイト文字使ったサンプルが大量に載ってる本が堂々と教本として売られてる。
メンテさせられる身になると泣けるぜ・・・
0479デフォルトの名無しさん2007/06/24(日) 21:05:20
vb6で、mschartを使って二次曲線を数本表示したいんですが、
>>353と>>363を習ってみたものの、
1本目は書けるんですが、２本目はどう定義したらいいんでしょう？

..raowと.dataを、どう表記したら２本目になるんでしょうか？
0480デフォルトの名無しさん2007/07/06(金) 00:19:14
>>479
同じチャートオブジェクトに二つの系列のデータ突っ込めるか確認した？
0481デフォルトの名無しさん2007/07/15(日) 02:37:14
VB6なんですが、コマンドボタンに画像を貼り付ける方法はありますが、
例えば、丸いボタンを押しているようにすることは出来るのでしょうか。？
0482デフォルトの名無しさん2007/07/15(日) 02:45:17
>>481
出来るけどVBだけいろいろめんどくさい

おとなしくピクチャボックスでやるというのも1つの手段
0483デフォルトの名無しさん2007/07/15(日) 15:01:07
>>482
なるほど。ピクチャボックスですか。
簡単にやってしまうと、丸いボタンの領域を押さなくてもクリックしたことになっちゃいそうですね。
そういうコンポーネントとか売ってないですかね…。
0484デフォルトの名無しさん2007/07/15(日) 15:58:12
DirectShowについて質問したいんですが、ここのスレでいいですか？
0485デフォルトの名無しさん2007/07/15(日) 17:55:23
いいわけねーだろ
0486デフォルトの名無しさん2007/07/15(日) 18:09:28
>>484
たぶん、下のところかと
http://pc11.2ch.net/test/read.cgi/tech/1173535400/

でも、（超初心者用）となっているが…
0487デフォルトの名無しさん2007/07/15(日) 20:30:46
Sub aaa()

Dim a(10) As Integer
Dim i As Integer

a(0) = 32
a(1) = 14
a(2) = 56
a(3) = 15
a(4) = 7
a(5) = 18
a(6) = 102
a(7) = 88
a(8) = 11
a(9) = 57
a(10) = 58
'-------------------
'この間で
'-------------------
For i = 0 To 10
Debug.Print a(i)
Next
End Sub

超初心者質問ですみません。
上のようにa(10)にランダムの数字が格納されていて
これを昇順（若い順）に格納しなおしてから
表示するようなプログラムを作りたいの
ですがどのようなやり方があるでしょうか。。
0488デフォルトの名無しさん2007/07/15(日) 23:18:41
>>487
http://pc11.2ch.net/test/read.cgi/tech/1099112351/590
どっちに回答つければいいのかわからねーっつってんだろ
0489デフォルトの名無しさん2007/07/15(日) 23:50:59
>>487
一旦、小さい数字から別の配列に入れてa()に代入する。
0490デフォルトの名無しさん2007/07/16(月) 00:33:05
>>487
'-------------------
'この間で
Dim t As Integer
Dim j As Long
For i = LBound(a) To UBound(a)
For j = i + 1 To UBound(a)
If a(i) > a(j) Then
t = a(i)
a(i) = a(j)
a(j) = t
End If
Next
Next
'-------------------
0491デフォルトの名無しさん2007/07/16(月) 00:37:24
>>484
おれ２０年以上前にソートのやり方だけをいろいろ書いた本を買ったことがある。今のパソコンは処理が速いからどんなやり方でもおｋ。自分で考えたほうが良い。
0492４９１2007/07/16(月) 00:38:28
>>487だった。スマソ
0493デフォルトの名無しさん2007/07/16(月) 01:22:45
みなさんありがとうございます！！勉強します！！
0494デフォルトの名無しさん2007/07/16(月) 03:10:11
ソート付きリストボックスに放り込んで取り出す、という
のが定石として出ていたこともあった。
0495デフォルトの名無しさん2007/07/16(月) 03:10:50
ねえよ
0496デフォルトの名無しさん2007/07/16(月) 03:16:16
定石というより苦肉の策
0497デフォルトの名無しさん2007/07/16(月) 04:02:57
>>494
それが定石だとしたらお前は世間で言う
ダメVBプログラマの部類だな
頭使えよ
0498デフォルトの名無しさん2007/07/16(月) 09:39:23
オレダメプログラマだったから、よく使っていたよ。
目に見えるからデバッグしやすいんだな、これが。
特に動的に重複した値がやってくるような場合は
SortedをTrueにしたListboxに放り込んでおいて処理してた。
数千件でも速度的に問題なかったよ。
0499デフォルトの名無しさん2007/07/17(火) 05:43:12
100件程度のただの配列ならバブルソートで十分。
1000件以上とか構造体のソートだとクイックソート辺りじゃないと。
簡単に向上出来る部分は済ましておくもんだろ。
つか関数化して処理して　Function BubbleSort(Arr() as Long) as Long()
0500デフォルトの名無しさん2007/07/17(火) 07:04:49
http://kazato.run.buttobi.net/cgi-bin/upload/src/viprpg_tktk0229.png
いまここまで作ったのですが、
テキストボックスに入力したテキストを
OKを押すと同時にファイルに格納するって
いうのはどうやるのですか？
0501デフォルトの名無しさん2007/07/17(火) 07:08:33
>>500
（・∀・）　ｸﾞｸﾞﾚｶｽ
0502デフォルトの名無しさん2007/07/17(火) 08:51:17
>>500
マルチすんな
0503デフォルトの名無しさん2007/07/22(日) 11:37:43
高速に画面に黒を塗りつぶすにはどのようにすればよいでしょうか。
PatBltじゃ対応しないデバイスがあることとかでだめなようなんですが、、、
0504デフォルトの名無しさん2007/07/22(日) 14:53:38
>>503
じゃあとりあえずsetpixelかPSet()かLineかFloodFillか使えば良い
0505デフォルトの名無しさん2007/07/22(日) 19:39:06
>>504
ありがとうございます。助かりました。
0506デフォルトの名無しさん2007/07/22(日) 22:27:17
Rectangle API関数はないの？
0507デフォルトの名無しさん2007/07/23(月) 01:29:33
ExtTextOutが速いとか聞いたことがあるけど
0508佐一2007/07/23(月) 22:27:33
Visual Basic 6.0使っています。
フォーム内のボタンを押して、
Shell("MSACCESS.exe △△△",・・・)から
データベースファイル△△△を起動します。

△△△が起動している間は、
・ボタンを押しても△△△を新たに起動させず
・既に開いている△△△が最前面に来るようにするには、
　（フォームが最背面、フォアグラウンドになればいい）
　どうすればいいのでしょうか？


アプリケーションのハンドルを取得し
setForeground(ハンドル名)
として、アプリのフォームをフォアグラウンドにしようとしましたが
setForegroundの戻り値は、Trueなのに、
ボタンを押しても、既に開かれている△△△が最前面になってくれません。
0509デフォルトの名無しさん2007/07/23(月) 22:34:26
http://pc11.2ch.net/test/read.cgi/tech/1179563617/622
0510デフォルトの名無しさん2007/07/24(火) 09:01:23
マルチポストすぎｗ
http://oshiete1.goo.ne.jp/qa3194308.html
0511デフォルトの名無しさん2007/07/24(火) 09:43:46
Visual Stadio 6.0使っています。
以前はVisual Stadio 6.0をフルインストールした状態のＰＣで使ってた『自作ソフト.exe』を
今回は容量の少ないシリコンディスク（２ＧＢ）のＦＡタイプＰＣで使用したいのですが、
Visual Stadio 6.0をインストールするほど容量が確保できないので、
そのまま『自作ソフト.exe』を起動したところ、アプリケーションエラーが発生し
ソフトが起動しませんでした。
専門書等を見てみましたが
１）メイン及び、監視タスクのパス(フォルダ)位置が、pathに登録されているか？
２）アプリでOCX等が使われてたりすると、アプリのみでは実行できない場合があるため、
　　必要なOCXをそのPCに登録する必要がある。
などと書いてありましたがはっきりいってわかりません

ちなみに、私はビルド（リビルド）ぐらいしか出来ないくらいの知識しかないので、
どなたか教えてもらえないでしょうか？
　
0512デフォルトの名無しさん2007/07/24(火) 09:48:36
>>511
インストーラを作れ
0513デフォルトの名無しさん2007/07/24(火) 09:57:57
つか業務でやってんならわかるだろ？

>ＦＡタイプＰＣ
>アプリケーションエラーが発生し
このOS種類とかエラー内容をかけよ・・・

>>512の言うとおり
ディトリビューションウィザードでも何でも使ってインスコしたら必要なものは入るはず

05145112007/07/24(火) 10:47:00
すいません、初心者というか普通にWordやExcelぐらいしか使えないレベルの人間なので
>>512さんのインストーラの作り方や、>>513さんのディトリビューションウィザードなどといった
ものの使い方作り方が出来ません。
しかもこの『自作ソフト.exe』を作った人が会社辞めてしまってるので、このソフトの中身すら
私には理解できない現状です。
（起動したときの使い方ぐらいしかわからないんです…）

ちなみにＯＳはWindows2000 SP4で、
エラー内容は
「エラーが発生したので。『自作ソフト.exe』を終了します。
プログラムをもう一度開始する必要があります。」
という表示が出てきました。
　
0515デフォルトの名無しさん2007/07/24(火) 10:50:16
とりあえずこれ入れて動かんようならあきらめるがよし。
http://www.vector.co.jp/vpack/filearea/win/util/runtime/
0516デフォルトの名無しさん2007/07/24(火) 12:07:44
ちなみにﾃﾞｽﾋﾞは
スタート メニュー\プログラム\Microsoft Visual Basic 6.0\Microsoft Visual Basic 6.0 Tools
このあたりにあるはず
0517デフォルトの名無しさん2007/07/24(火) 12:09:43
追伸
>>515ので動くとは思うが社外OCXとか使ってた場合はそれだけじゃ動かないので
デストリビューしょんウィザードなんかで依存関係にあるOCX登録してやる必要がある
05185112007/07/24(火) 13:46:11
今気づいたんですが、プログラムデータの拡張子を見たらcppってなってますけど、
これはＶＢじゃなくてＶＣ＋＋ですよね？
板違いみたいなので、ちょっと首くくってきます…

もし、ＶＣ＋＋でも>>515のデータは使えるのでしょうか？
板違いだからどっか行けというのであればここまま消えますね…
　
0519デフォルトの名無しさん2007/07/24(火) 14:46:21
エクセル２０００でブックの１枚目のシートのA3とB5の数値を読み込みたいのですが
エラーが出てこまっています。（型が一致しません）
やってるのは
Dim xlApp As Object
Dim xlBook As Object
Dim xlSheet As Object
Dim intA As Integer
Dim intB As Integer
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open("aaaaa.xls")
Set xlSheet = xlBook.Sheets(1)
intA = xlSheet.Cells(3,1).value
intB = xlSheet.Cells(5,2).value
xlBook.Close
xlApp.Quit
Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing
です。よろしくお願いします。ｍ（＿ ＿）ｍ
0520デフォルトの名無しさん2007/07/24(火) 16:41:32
エラーになったときのセルの値は？
0521デフォルトの名無しさん2007/07/24(火) 17:15:30
そこに入ってるのは必ず数字なわけ？

Dim intA As Integer
　　↓
Dim intA

こうするとどう？
05225192007/07/24(火) 19:45:55
>>520-521
やっとわかりまして、どうやら、Excel２０００だと、セルに数値が入ってても
先頭になんかコントロールコードみたいな１バイト文字がつく文字列で
くることが判明しました。
ですので、先頭の１バイトを捨ててValすることにしました。
本当にありがとうございました。ｍ（＿ ＿）ｍ
0523デフォルトの名無しさん2007/07/25(水) 09:08:08
>Valすることに

らめぇ＞＜
0524デフォルトの名無しさん2007/07/25(水) 09:43:50
まともにParsingしないのか
カンマが入っただけで死にそうだ
05255192007/07/25(水) 12:18:38
>>523 >>524
カンマが入ってしにました。。。orz
しかたがないので、Replaceでカンマを削除してから
Valすることにしました。
0526デフォルトの名無しさん2007/07/25(水) 12:37:28
いいのか？それでいいのか？ｗ

一応いくつかパターン試しておいたほうがいいぞ
あと、意図的に入力したカンマが入るようなことはないのか？
05275192007/07/25(水) 16:16:08
>>526
もう大丈夫です。＾＾
基本的に１セルに１数値なんで。
0528デフォルトの名無しさん2007/08/09(木) 20:13:15
DataFileBufはタブ区切りの文字列です。

さいたま さい川 たま夫
とうきょう ほげ川 ほげ子
おおさか おお山 さか美

このようなデータを

Do While Not EOF(DataFileBuf)
Line Input #DataFileBuf, LineData
LineData2 = Split(LineData, vbTab)
Print #CsvFileMBuf, """" & LineData & """"
Print #CsvFileMBuf2, """" & LineData2(0) & """"
Loop

#CsvFileMBufは↓のように、うまく処理が行えるのですが、

さいたま さい川 たま夫
とうきょう ほげ川 ほげ子
おおさか おお山 さか美


Split関数をかませた#CsvFileMBuf2の結果は↓のように最初の一件しか
処理してくれません。

さいたま


Split関数をかませても最後までデータを処理してくれるようにするには
どのように書き換えたらよいでしょうか？
0529デフォルトの名無しさん2007/08/10(金) 07:35:28
>>528
> Split関数をかませた#CsvFileMBuf2の結果は↓のように最初の一件しか
> 処理してくれません。
”そう書いてるんだから”、ってのは分かってますよね？

というわけで、「処理」とかいう抽象的な表現がコチラ側としてはサッパリ具体的ではないので
それを踏まえて次のように書きます
・Xを処理　→　process(X)

・で、そのコード
Do While Not EOF(DataFileBuf)
Line Input #DataFileBuf, LineData
LineData2 = Split(LineData, vbTab)
Print #CsvFileMBuf, """" & LineData & """"
Print #CsvFileMBuf2, """" & process( LineData2 ) & """"
Loop
0530デフォルトの名無しさん2007/08/10(金) 13:24:41
ファイルの中身が↓のようになっている場合(タブ区切り)

さいたま さい川 たま夫
とうきょう ほげ川 ほげ子
おおさか おお山 さか美

DataFileBuf = FreeFile()
Open ActiveWorkbook.Path & "\" & DataFile For Input As #DataFileBuf

Do Until EOF(DataFileBuf)
Line Input #DataFileBuf, LineData
LineData2 = Split(LineData, vbTab)
Print #CsvFileMBuf, LineData2(0) & " " & LineData2(2) & " " & LineData2(5) & " " & LineData2(6)
Loop

↑のプログラムで、データファイルのEnd of Fileまでループさせるつもりが、
ファイル全体が１つのデータとして扱われてしまう為、１回のループで終わって
しまい、結果は↓のように出力されてしまいました

さいたま たま夫
とうきょう おお山 さか美


改行で１つのデータとして扱い、↑３件のデータが３回ループするように
コーディングしたいのですが、どのように変えたらよいでしょうか？

>>529
お答えありがとうございます。
せっかくお答えいただいたのですが、勘違いしてました。
(Split関数は問題ありませんでした。)
0531デフォルトの名無しさん2007/08/10(金) 20:17:50
ものすごく基本的な気がして調べたんだけど・・・
わからないタスケテ（涙

●環境
・Windows XP (sp2)
・VB 6.0 (sp6)
・標準EXE でプロジェクト作成
・プロジェクト＞コンポーネント＞Microsoft Common Dialog Control チェック
・プロジェクト＞参照設定＞Microsoft Scripting Runtime チェック

で、Form1 にボタンやコントロールを配置して
いくつかコードを書いてプロジェクト保存＞終了しました。
その後、続きをやろうとプロジェクトを開くと、

----------------------
行 67: ｸﾗｽ MSComDlg.CommonDialog(ｺﾝﾄﾛｰﾙ CommonDialog1) はﾛｰﾄﾞされていません。
行 90: ｸﾗｽ MSForms.CheckBox(ｺﾝﾄﾛｰﾙ CheckBoxHeadIgnore) はﾛｰﾄﾞされていません。
----------------------

ログファイルに上記エラーが出て、
Form1 に適用した内容が全く読み込まれなくて困っています（涙
先輩方タスケテクダサイorz
0532デフォルトの名無しさん2007/08/11(土) 01:01:23
>>530
よくわかんないけど、ファイルの中身って、
さいたま[TAB]さい川[TAB]たま夫[改行]
とうきょう[TAB]ほげ川[TAB]ほげ子[改行]
おおさか[TAB]おお山[TAB]さか美[改行]

ってなってんの？まさか

さいたま[TAB]さい川[TAB]たま夫[TAB]
とうきょう[TAB]ほげ川[TAB]ほげ子[TAB]
おおさか[TAB]おお山[TAB]さか美[TAB]

じゃないよね？

>>531
エラーが出てるコントロールはずして、とりあえずセーブ。
もう一回プロジェクトを開いてエラーが出なくなったら、はずしたコントロールを再配置してみては？
0533デフォルトの名無しさん2007/08/13(月) 11:25:07
>>532
ご回答ありがとうございます。
ファイルの中身は

さいたま[TAB]さい川[TAB]たま夫[改行]
とうきょう[TAB]ほげ川[TAB]ほげ子[改行]
おおさか[TAB]おお山[TAB]さか美[改行]

ってなってますね。
秀丸で見てもそうなってます。
05345302007/08/13(月) 11:53:54
>>532

ありがとうございます。
が、解決しませんでした。

それどころか全ての場合において発生したので、なんか根本的な所がダメみたい。
（ボタン１個配置のシンプル構成でも）
0535デフォルトの名無しさん2007/08/13(月) 12:07:21
すいません、改行コードがLFでした。
改行コード「LF」をVBで「CR+LF」に置換する方法ってありますか？

>>532
ご回答ありがとうございます。
ファイルの中身は
0536デフォルトの名無しさん2007/08/13(月) 13:37:28
>>535
replace(hoge, vbLf, vbCrLf)
05375302007/08/13(月) 14:16:19
IDE の使い方をわかってなかっただけでした（汗）

右上のプロジェクトグループ・ツリーをダブルクリックで
Form画面を呼び出せることに気がついて解決。
おさわがせしました。
0538デフォルトの名無しさん2007/08/14(火) 15:14:10
VB6.0でフォーム上にWebページを表示し、表示されたページ内の文字列を
特定条件によって変数に格納する、といった作業をやりたいのですが、
どうやればできますかね？
0539デフォルトの名無しさん2007/08/14(火) 15:53:16
>>538
どこから教えればいいんですかね？
とりあえずWebBrowserコントロールは見つけれた？
05405382007/08/14(火) 17:22:01
>>539
WebBrowserコントロールを使えばよさそうだ、という所まではたどり着いたのですが、
どんなメソッドがあるのか、どのメソッドを利用すればいいのか等がさっぱりわかりません。
ネットで調べてみてもいろんなWebBrowserコントロールの情報が混在していてどれがどれやら…orz
0541デフォルトの名無しさん2007/08/14(火) 17:33:17
>>540
ＩＥｎｏwebbowserコントロールはHTMLDocumentオブジェクトをプロパティ .document で公開してるから
後はそこから調べるといいかも(DOMツリーなのでかなり広い)

情報あるなら使うコントロールの似たような名前で探して、それをやっていけばいいんじゃないかな
05425382007/08/14(火) 20:16:24
>>541
HTMLDocumentオブジェクトまでは何とかたどり着いたんですが、
そこからがどうにもうまくいかんとです。

Set doc = WebBrowser1.Document
If TypeName(doc) = "HTMLDocument" Then
Form1.Caption = doc.Title
value = doc.body
End If

こんな感じじゃあかんのですかね…？
0543デフォルトの名無しさん2007/08/14(火) 20:25:30
ふざけてんの？
0544デフォルトの名無しさん2007/08/14(火) 23:29:59
ＶＢでＲＰＧ作りたいんだけどどうしたらいいか全く検討がつかない。
目標はＤＱです。
とりあえず戦闘画面でも作ってみたい
0545デフォルトの名無しさん2007/08/14(火) 23:47:12
>>544
じゃあ先ずはアタマの中にある戦闘シーンを紙とエンピツでプロットしてみることだな
ソレが嫌なら諦めろ、途中で投げ出しても諦めろ、出来たらまた来い
0546デフォルトの名無しさん2007/08/14(火) 23:53:01
普通に戦闘シーンなんですけどそのキャラに応じて戦闘で使えるコマンドが
違うけどどうしたら同じ場所に違う内容が表示できるかわからない。
ようするに戦闘シーンのたたかう・にげる・じゅもんなんかを表示する
方法がわからないってことです
0547デフォルトの名無しさん2007/08/14(火) 23:54:51
>>546
とっても稚拙な方法も思いつかない？
たとえばMSPaint.exeで書いて、それを紙芝居風に表示するとかも？
0548デフォルトの名無しさん2007/08/14(火) 23:56:18
変なこと言ってる奴がいるけど
とりあえず時間があるならVBで１から作るんじゃなくて、
出来合いのRPGツクールとかで作ってしまうといいと思うよ
■ このスレッドは過去ログ倉庫に格納されています