トップページ⇒tech
985コメント293KB

v（･∀-）b VBプログラマ質問スレ(6.0以前) Part25

レス数が950を超えています。1000を超えると書き込みができなくなります。
0001デフォルトの名無しさんNGNG
VBの質問スレです。

前スレはこちら
　　Part16 http://pc3.2ch.net/tech/kako/1034/10343/1034302532.html
　　Part17 http://pc3.2ch.net/tech/kako/1036/10361/1036154952.html
　　Part18 http://pc3.2ch.net/tech/kako/1038/10381/1038103769.html
　　Part19 http://pc3.2ch.net/tech/kako/1039/10398/1039859691.html
　　Part20 http://pc2.2ch.net/tech/kako/1041/10418/1041879465.html
　　Part21 http://pc2.2ch.net/tech/kako/1044/10440/1044028945.html
　　Part22 http://pc2.2ch.net/tech/kako/1046/10463/1046354784.html
　　Part23 http://pc2.2ch.net/tech/kako/1047/10477/1047743187.html
　　Part24 http://pc2.2ch.net/test/read.cgi/tech/1050151126/

VB.net関連スレ
【老若】VB.net質問ｽﾚ【男女】 (Part2)
http://pc2.2ch.net/test/read.cgi/tech/1043629429/

Win32 API関連スレ
Win32API 質問箱 Build10 (979)
http://pc2.2ch.net/test/read.cgi/tech/1047819779/

心得
壱．質問する前に過去ログにも目を通してみる。
弐．質問する前に MSDN などで調べてみる。
参．VBScript もこのスレでＯＫ。
四．インストーラーなどの質問もＯＫ。
五．荒らしは相手しない。
六. VB情報募集中。
七. VB.NETはスレ違い
0002デフォルトの名無しさんNGNG
　　Part 1 http://piza2.2ch.net/tech/kako/968/968328471.html
　　Part 2 http://piza2.2ch.net/tech/kako/990/990793224.html
　　Part 3 http://piza2.2ch.net/tech/kako/1000/10005/1000523122.html
　　Part 4 http://pc.2ch.net/tech/kako/1006/10069/1006922992.html
　　Part 5 http://pc.2ch.net/tech/kako/1010/10106/1010624646.html
　　Part 6 http://pc.2ch.net/tech/kako/1013/10138/1013844542.html
　　Part 7 http://pc.2ch.net/tech/kako/1015/10158/1015836357.html
　　Part 8 http://pc.2ch.net/tech/kako/1018/10187/1018794901.html
　　Part 9 http://pc.2ch.net/tech/kako/1020/10208/1020830472.html
　　Part10 http://pc.2ch.net/tech/kako/1022/10221/1022127528.html
　　Part11 http://pc.2ch.net/tech/kako/1024/10243/1024380249.html
　　Part12 http://pc3.2ch.net/tech/kako/1026/10266/1026642565.html
　　Part13 http://pc3.2ch.net/tech/kako/1029/10292/1029241786.html
　　Part14 http://pc3.2ch.net/tech/kako/1030/10309/1030947162.html
　　Part15 http://pc3.2ch.net/tech/kako/1032/10327/1032706491.html
0003デフォルトの名無しさんNGNG
>>1
スレ立て早すぎるだろ
00041NGNG
>>3
いやー。ごめん。このところ、このホストでは立てられませんって
出てから、またダメだろと思ってたら立てられちゃった。
0005デフォルトの名無しさん NGNG

　　　　　けつが離れねぇー！！！！！！誰かボスケテｰ！！！！！
　￣￣￣￣∨￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣∨￣￣￣￣

　 　　　　　∧＿∧　 　　　　　　　　　　　　　　　　　　　　　 　∧＿∧
　　　　　　（´Д｀illl.）　　　　／￣￣ヽ（（（ ）））/￣￣＼　　 　（.illl´Д｀)
　　　　　　　　i　i⌒＼＿_ノ　　　　 ノ）*´∀｀（ 　　　　　ヽ＿／⌒i　i
　　　　　　　　ヽヽ ヽ　　　　　　 ／/（∪　∪）ヽ＼ 　　　　　 丿 /./
　　　　　　　　　））　）-─／　／／ 　| 　|　 |　　＼＼　＼─（　（（
　　　　　　　 　ヽヽ　ヽ／　／／　　 （＿）＿） 　　 ＼.ヽ　ヽ 　ヽヽヽ
　　　　　　　　　（（(_ノ（　（　< 　　　　　　　　　　　　　.>.）　 ）　.（_)）)
　　　　　　　　　　 　　ヽ　ヽ ヽ　　　　　　　　　　　／／..／
　　　　　　　　　　　 　　＼ ＼＼　　　　　　　　..／／ ／
　　　　　　　　　　　　　(⌒_(⌒__ヽ　　　　　　　/__⌒)_⌒)
0006デフォルトの名無しさんNGNG

　　　　　　　　　　　　　　　 　　　　　　　　　　　　　 （　(　　(.　）　　　　　　　
　＠''^~^''＠''^~^''＠　　　　　　　　　　　　　　　 -＠''^~^''＠ .　　　　　　　
(∴ﾟ;)四(;ﾟ･）（∴ﾟ;)四(;ﾟ･）　　　　　　　.´,.:::（（∴ﾟ;)四(;ﾟ･）
（ ⊃⊃⊂ 　　）　 　　　　　　　　　　　　　　 i ヾ<_∪~~~_,.ン |　　　　　　　
　(,,,/"(,,,,)(,,,/"(,,,) 　　　　　　　　　　　　　　　l　　　　￣....:;:彡|　　　　　　　
　　　　　　　　　　　　　　 　 　 　 　 　 　 　 　}　　. . ...::::;:;;;;;彡{　　　　　　　
　　　　　　　　　　　＠''^~^''＠　 　 　 　 　 　 ｉ　　　.. ...:::;;;;;彡|　　　　　　　
　　　　　　　　♪〜 （∴ﾟ;)四(;ﾟ･）
　 　 　 　 .　　 } 　.. .....:::;::;:;;;;彡{~^''＠　　　　　　　
　　　　　　　　　 , ⊂ ~~~~~ ⊃、　 ＠''''^^~^^''''''＠　. .:.::;:;;;彡j四(;ﾟ･)　　　　　　　
.　　　　　　 　 . '　　.　　　　;　.丶　　(ﾟ;)四(;ﾟ･≡ﾟ;)四(;ﾟ･)？...,:;:;:=:彳⊂ノ　　　　　　　
.　　　　　 　 ,:´　.　　　　'　　　 ' ｀、　　　 (⊃ ⊂)、..　....::::;;;ジ　　　　　　　
　　 　＠''^~^''＠　　　■■■^~^''＠　　　(__)__)　　 ￣￣　　　　　　　
　　 (( （ 　　（∴ﾟ;)四).　　■■■■（　 y ）))`'丶.、　　　　　　　　　　　　　　
.　 '´ 　 （ 　　⊃　 ＠''^~^''＠　（,,,)(,,,）::::::::::...`.:　　　＠''^~^''＠''^~^''＠
　i 　 　 （,,,,)(,,,,）_,._.（(∴ﾟ;)四(;ﾟ･)　.,,__,.,..ノ.::::::::: 　　!　 (( ((∴ﾟ;)四(;ﾟ･）(∴ﾟ;)四(;ﾟ･)）
.　ヽ、 　 　　　　　　/　　⌒ヽ　　　　　　　　　,:　　　　（ ∩∩⊃▲⊂）
　　　 `=ー--、....,,,（人＿_つ_つ,,,,,... --‐=''´　　　　　　 (,,,)(,,,) (,,,)(,,,)
　　　　　 ｀`" '' 'ー───‐―‐' ''' "´　　　　　　　　　　　　　　　　　　

0007デフォルトの名無しさんNGNG
マスオの国から＠２００３〜帰郷〜
マスオ降臨中！！！！！！！！！！！！！！！jjvvvvvvvvvvvvvvvvvvjjjjjjjjjjj！！！！！！！！！！！！！！！

　　　　　　　　　　　　　　　　　　　　　　／⌒ヾ⌒ヽ.
　　　　　　　　　　　　　　　　　　　 　／　　　丿　 ..ヾ
　　　　　　　　　　　　　　　　　　　／　　 。 人　　　 ）
　　　　　　　　　　　　　　　　　　（。...。_ .ノ 。ヾ。...丿
　　　　　　　　　　　　　　　　　 　(　_　. 　.. ﾉ　　 )
　　　　　　　　　　　　　　　　　　/　　　　 　 　/
　　　　　　　　　　　　　　　　 　/　ノ し　　　/
　　　　 三￣￣￣￣＼　　　　/　）　と　 　/
　　　　　/　　＿＿＿＿|　.　 /　　　　　　/
　　　　 /　　＞　　　　　|　　 /　　　 　　/
　　　　/　　/　⌒　　⌒ |　　/　　　　　/
　　　　|＿/---(・)--(・) |　 /　 　　　/
　　　　|　(6　　　　つ　 ｜ /　 ..　　/　／ どうやら！！！！！！！！！！
　 　 　|　　　　＿＿＿ ｜/　 　.　/　　＜俺は増殖するらしい！！！！！！！
　　　　＼　　＼＿/　／　/　　　/　　　　＼＿＿＿＿＿＿＿＿＿
　シコ　　＼＿＿_／　　 /　　　/
　　　　　　/　　　　 ＼　/ .　　/
　シコ　　（　）　ﾟ　ﾟ/＼ゝ 丿.../
　　　　　　＼ ヽ､ （　 / 　⊂//
　　　　　　　 ＼　ヽ /　⊂//
　　　　　　　 （　＼つ　　/
　　　　　　　　|　 |Ｏ○ノ ＼
　　　　　　　　|　 |　　　　＼ ＼
　　　　　　　　|　 ）　　　　　|　 ）
　　　　　　　 /　/　　 　　 /　/
　　　　　　 /　/　　 　 　 ∪
　　　　　　 ∪
0008デフォルトの名無しさんNGNG
　　　　　　　　　　　 　 　　 　＿　＿　　　　 ∧＿∧ ,・　'　　.’ 　　　　　　　　　　　　　　,/⌒丶
　　　　　　　　　　∧　　_　- ― ＝￣　￣　（ 　　　）　　,∵　_” 　　　　　　　　∧＿∧/ 　ﾍ, 丶
　　　　　　　　　,　-''￣　　　　＿＿――＝ｒ _／ ／"―_ - ,, ＿ __ ,,___　　 ,/（´∀｀　） ／　i.　i　￣￣
　　　　　　　　／　　　-―　￣￣　　　 |　ｙ'⌒　　⌒i:＿ ― ＿ 　　　　""~i 　j 　 　__,/　　勿/　──
　　　　　　　/　　　ノ　　　　　　　　　　|　　／　　ノ ｜ ー" ─ "" -- ,,,__　丶　丶　,,/
　　　　　　/　　, ｲ ）　　　　　　　　　　, ー' 　／´ヾ_ﾉ　・、 - ;　； 　　-　　イ,ヽ　ヽ/ 　　　
　　　　 　/　 　_,　＼　　　　　　　　／　,　　ノ 　　　　　　　　　　　　　　 ,/　 .,丶　丶 　────
　　　　 　|　　/ ＼　 `､　　　　　／　／ ／ 　　　　　　　　　　　　　　　　ヽ,__,/　ヽ 丿 　 ＿＿＿＿
　　　　 　ｊ　 /　　ヽ 　|　　　　／　／　,' >>1　　　　　　
　　　　／　ノ　　　｛ 　　　　／　 ／| 　| 　
0009デフォルトの名無しさんNGNG
age
0010デフォルトの名無しさんNGNG
結局こっちつかうの？
0011デフォルトの名無しさんNGNG
ここが本スレでよろしいか？
0012デフォルトの名無しさんNGNG
こちらへどうぞ。

(*´д`*)ｱﾊｧ… VB初心者質問スレ(6.0以前) Part25
http://pc2.2ch.net/test/read.cgi/tech/1052756106/
0013デフォルトの名無しさんNGNG
たまにスクロールバー（HScrollBarとか）がフォーカスを奪ったまま返してくれない（？）
自体が起こるのですが、これって回避できませんか？
原因もよくわからないです。

いっかいスクロールバーをいじると、他の部品をクリックしてもフォーカスが移りません。
一見フリーズしたかのように見えます。
で、タスクバーから最小化したり他のウインドウに切り替えたりすると、
フォーカスが帰ってきます。

こんな感じになる症状がたまにでます。
0014デフォルトの名無しさんNGNG
VBだから
vb
v()b
v（）b
v（∀）b
v（･∀-）b
なわけだね？
0015デフォルトの名無しさんNGNG
>>14
しつこいんだよ
0016デフォルトの名無しさんNGNG
age
0017デフォルトの名無しさんNGNG
QRコードを生成するVBのソースを紹介して
0018なNGNG
>>13
TabStop=Falseにして、フォーカスを取らないようにするとかどうでしょう。
0019デフォルトの名無しさんNGNG
Dirで指定Path内のフォルダをループ列挙している最中に、
探しているフォルダがあったら、さらにそのフォルダ内にaaaというフォルダがあるか
またチェックしたいのですが、このaaaフォルダ探索用にDir使いたい所ながら
そこで使ってしまうと、最初に書いたDirループが崩れちゃうし、ってことで困ってます。

こういう場合のチェックの仕方を教えて下さい。
0020デフォルトの名無しさんNGNG
必死だな(ｹﾞﾛ
0021デフォルトの名無しさんNGNG
>>19
配列にDirの結果を突っ込むとかして、Dirのループが
重複しないようにするしかない
0022デフォルトの名無しさんNGNG
>>19
FileSystemObjectを使うって手もある。
APIでもいいけど。

# つーかなんで、APIみたいに検索途中の情報持たせるようにしなかったんだろうなぁ？
0023デフォルトの名無しさんNGNG
ｼﾞｴﾝだな(ｹﾞﾗ　
0024デフォルトの名無しさんNGNG
VBでゲームを作ろうと思っているんですけど、
APIとDirectXではどっちが作りやすいですか？
というか、そもそもDirectXってVBで使えるんですか？
0025デフォルトの名無しさんNGNG
>>24
どんなゲームを作りたいの？　
0026デフォルトの名無しさんNGNG
>>24
> というか、そもそもDirectXってVBで使えるんですか？
使えます。

VBはCOMのReleaseとか面倒な部分を自動でやってくれるので、
C++より簡単です。
0027デフォルトの名無しさんNGNG
困ってます・・・
ディストリビューションウィザードでパッケージを作ったのですが
PCによってはインストールに失敗することがあります。
どうやらXPで日本語ユーザー名の場合その症状が起きるみたいなんですが
同様の症状が起きた方で、回避策を見つけた方おりませんか？
0028デフォルトの名無しさんNGNG
>>27
Visual Studio Installerつかえ
0029デフォルトの名無しさんNGNG
>>27
http://www.microsoft.com/japan/windowsxp/guide/support/whitepaper/downloads/exApp_Migration_to_winxp.doc
0030デフォルトの名無しさんNGNG
ある年のある月が何日あるかって、どうやって調べたらいいですか？
0031デフォルトの名無しさんNGNG
>>29に1バイト文字のユーザを作成してインストールと書いてあるけど、
環境変数のTEMPとTMP(だったっけ？)を一時的に変更してから
インストールする方法もある。

TEMPとTMPを適当なフォルダに変更してSetup.exeを実行する
バッチファイルを作るだけでＯＫ
0032デフォルトの名無しさんNGNG
>>30
使い方を聞いてるの？　それとも自分でコード書きたいの？
0033デフォルトの名無しさんNGNG
>>30
その翌月の１日の前日を調べればいい
003424NGNG
>>25
特に決めてないですけど、ノベルゲームとかRPGとか2Dシューティングとかです。
>>26
使えるんですね。Direct3Dも使えるでしょうか？
使えるなら3Dシューティングあたりも作ってみたいです。
0035デフォルトの名無しさんNGNG
それすら分からん状況でなんでVBチョイスやねん、と。
0036デフォルトの名無しさんNGNG
いいじゃん、別に。
0037デフォルトの名無しさんNGNG
>>34
工学社からDirectX8 + VB関係でいっぱい本が出てるから、
それ読んで勉強汁！
0038デフォルトの名無しさんNGNG
VBで3Dってマトモな速度で動くんかよ！？

と煽ってみるテスト

サンプル動かしてみたけど結構普通に動いているよ。

と自己レスしてみるテスト。
0039デフォルトの名無しさんNGNG
>>27
http://homepage2.nifty.com/sak/w_sak3/doc/sysbrd/vb_e01.htm
0040デフォルトの名無しさんNGNG
>>38
そのサンプルｳpｷﾎﾞﾝﾇ
0041デフォルトの名無しさんNGNG
>>38
3Dってマシンパワー食いそうに見えて（実際そうなんだけど）、
重い処理の部分はGPUが処理するから、あんまりVBだから
遅いってことはないよね。
ただ、俺はフライトシミュレータ作ったけど、ランドスケープの
メッシュデータを用意するのはやっぱ遅かった。
データセットし終わって、動き出したら早かったけどね。

0042デフォルトの名無しさんNGNG
>>40
DirectX SDKに入ってるよ。
0043なNGNG
>>27
http://www.microsoft.com/japan/support/kb/articles/416/5/85.asp
0044デフォルトの名無しさんNGNG
>>43
リンク切れ(？)
俺の知っているあれだとは思うんだが。
0045なNGNG
>>44
あれ?こっちの環境だと見えるんですが。
こっちだとどうでしょう。
http://support.microsoft.com/default.aspx?scid=http://www.microsoft.com/japan/support/kb/articles/416/5/85.asp

まあ、内容的には >>39 と被ってるんですが。
0046デフォルトの名無しさんNGNG
関数の引数を入力しようとしたとき等にでるヒントが出なくなりました。
Msgbox(
の、カッコまで売った時にポップアップされたりするあれです。
なんかの拍子に設定を弄ったのかも弄られたのかもわかりません。
どうやったら戻せますか？
0047デフォルトの名無しさんNGNG
>>46
「ツール」「オプション」の「自動クイックヒント」とかのあたりじゃね？
0048デフォルトの名無しさんNGNG
>>46
ソースがぐちゃぐちゃでVBがソースの解析できない場合に起ります。
0049デフォルトの名無しさんNGNG
>>47
自動クイックヒントなどはチェックついてました。
すると>>48かもですかね。
005044NGNG
>>45
げっ。言語の優先順位が日本語じゃないと表示されない･･･。

ＭＳ。よけいなことすんなーーー。


設定でページがかわるのはWindows Updateぐらいだと思っていたよ。
違う意味で勉強になった。
0051デフォルトの名無しさんNGNG
あ、違うプロジェクト開いて試してみたらちゃんと出ました。
ソースがぐちゃぐちゃみたいです。
ありがとうございました。
0052デフォルトの名無しさんNGNG
>>49
そういうときは、コンパイル。
0053デフォルトの名無しさんNGNG
おれは「開始」使わない。常に「完全コンパイル後に開始」。「開始」がVB
プログラマーの質を落としている一因の気がする。
0054デフォルトの名無しさんNGNG
俺も完全コンパイル後に開始を使うくちだが、
結局EXEにする時はコンパイルされるわけで
あんまり関係ないんじゃない？
0055デフォルトの名無しさんNGNG
>>53
なんで?
0056デフォルトの名無しさんNGNG
いつでも客や上司に見せられるように。
0057デフォルトの名無しさんNGNG
>>53
俺もそう。開発途中でこまめに問題が発見されて解決されていくのと、
最後にexeにする段階になって一気に問題噴出、あわててゴソッと
直したのだったら、どっちが品質がマシか・・・　って考えると、
やっぱり多少コンパイル時間は食うとしても、毎回コンパイル後に実行をする
クセをつけておきたいと思う。
0058デフォルトの名無しさんNGNG
>>57
っていうほど、時間も取られないしね。
005927NGNG
>>29 >>31 >>39 >>43
アリガトウございました。
Setup1.frm の Form_Loadをカスタマイズする方法を試してみます。
反応が早くて感激しました。
0060デフォルトの名無しさんNGNG
>>30
こんなんどう？
DateDiff("d", "2003-05-01", "2003-06-01")
0061デフォルトの名無しさんNGNG
こっちにしとけ。
Day(DateSerial(2003,5+1,0))
0062デフォルトの名無しさんNGNG
VBは死滅するって本当でつか！？
0063デフォルトの名無しさんNGNG
VB.NETになるだけ。
0064デフォルトの名無しさんNGNG
>>62
ほんとでつ。でも、あと数年は生き延びまつ。
0065デフォルトの名無しさんNGNG
死滅したところで、優秀なVBプログラマならJava厨とは違い、速やかに他の言語に移行できると思うけどな。
0066デフォルトの名無しさんNGNG
フォームのBorderStyleを2（可変）にしたまま、
タスクバーには表示させないように出来ますか？
0067デフォルトの名無しさんNGNG
>>66
ITaskBarList の DeleteTab で好きなように消せる。
が、自分でタイプライブラリを書かなきゃならんので、初心者向け
ではないわな。
0068デフォルトの名無しさんNGNG
>>66
ShowInTaskBar

>>65
別に優秀なやつならVBプログラマでもJavaプログラマでも
他言語に移行できるでしょ。
0069デフォルトの名無しさんNGNG
VBPG=優
JavaPG=劣
0070だ ◆a.ZhoqQtfc NGNG
初心者な質問でごめんなさい。
大学の授業でVBとエクセルをリンクさせて使っています。
そこで、１０つほどのセルに数字(0から100まで)を入力して
その中の最大値を表示するプログラムをつくっています。

ですが、どうしてもわかりません。誰か教えてください、お願いします。
0071デフォルトの名無しさんNGNG
>>70
それはVB(VBA)でやらなきゃならないのか？
なんつーんだっけ、エクセルのセルの中に入れる式で
事足りる問題な気がするが。
0072デフォルトの名無しさんNGNG
>>70
ネタだよな？
007370NGNG
>>71
>>72

ネタではありません。
授業で作れって言われました。
VBで作らないとダメみたいです。

よろしくお願いします

0074デフォルトの名無しさんNGNG
>>73
んで、どこまで書いたんだ？
0075デフォルトの名無しさんNGNG
VBA・・か？
んなもんつかわんでもできるけど。
0076デフォルトの名無しさんNGNG
なんかな〜。いくつもやり方あるんだけど。
VBとエクセルがど〜リンクしているの？って感じだし。
ってそれあまり関係ないともいえるし。
どういう仕様で作ればいいかわからんし。
その授業の目的がなんかよ〜わからんし。
どの程度の知識を今もっているのかって気になるし。
なんか答えにくいなぁ。
0077デフォルトの名無しさんNGNG
76に禿同。70は今書いたとこまででも晒してみ。
0078デフォルトの名無しさんNGNG
VBAの練習とかなのかなぁ。
0079デフォルトの名無しさんNGNG
経営とかだとやるみたいよ。
0080デフォルトの名無しさんNGNG
>>79 そんなこと今は関係ない。
0081デフォルトの名無しさんNGNG
つーか、内容はいいとして、日本語をもうちょい勉強したほうがいい　＞70
釣りに見られても無理ないぞ。
0082デフォルトの名無しさんNGNG
てか宿題なら自分でやれと。
端から人にさせる気じゃん。
0083デフォルトの名無しさんNGNG
>>70
どこまでできるの？
一つのセルに数字を入れてそれを表示させることはできますか？
二つのセルに数字を入れて大きい方を表示させることはできますか？
三つのセルに数字を入れて一番大きいのを表示させることはできますか？
　　　　　　　　　　　　　：
　　　　　　　　　　　　　：
１０つのセルに数字を入れて大きい方を表示させることはできますか？
~~~~~
じゅっつて．．．　とーつか？
0084デフォルトの名無しさんNGNG
とりあえず70のレスを待ちましょう。
0085デフォルトの名無しさんNGNG
エクスプローラスタイルアプリ作ってます。
左ツリービューのノードクリックで右領域にいろいろ画面を切り替えてます。
たくさんピクチャボックスをデザインしてその中にコントロールいろいろ貼り付けて
その１つのピクチャボックスを１ページという概念で
ひたすら切り替えて表示する仕組みにしてます。
デザイン時１フォームのコントロール限界の２５５個に達してしまいました。
それで動的にコントロール配置するしかないか…と思ってます。
set cnt = Me.Controls.Add("VB.TextBox","txtHoge")をひたすらやって
各プロパティいぢくるのは果てしなく面倒なので
たとえば他フォームのピクチャボックスをまるごとそのまんまコピーとかしたい
んだけどできないすかね。または他のスマートな方法とか…
0086デフォルトの名無しさんNGNG
>>85
コンテナにしたPictureBoxを丸ごとコピーするって事かね？
ユーザーコントロールにするのがいいんじゃないの
0087デフォルトの名無しさんNGNG
age
0088__NGNG
　 ∋8ノノハ.∩
　　 川o・-・）ノ　＜先生！こんなのがありました！
http://www.yoshiwara.susukino.com/moe/hankaku03.html
http://yoshiwara.susukino.com/moe/hankaku10.html
http://www.yoshiwara.susukino.com/moe/hankaku08.html
http://yoshiwara.susukino.com/moe/hankaku09.html
http://www.yoshiwara.susukino.com/moe/hankaku06.html
http://yoshiwara.susukino.com/moe/hankaku05.html
http://www.yoshiwara.susukino.com/moe/hankaku01.html
http://yoshiwara.susukino.com/moe/hankaku02.html
http://www.yoshiwara.susukino.com/moe/hankaku08.html
http://yoshiwara.susukino.com/moe/hankaku04.html
0089デフォルトの名無しさんNGNG
>>86
っていうか、85ってユーザーコントロールそのものだよね。
0090デフォルトの名無しさんNGNG
>>89
ピクチャーボックスにコントロール貼り付けてコンテナ化しただけだろ？
0091デフォルトの名無しさんNGNG
>>90
一番単純なユーザーコントロールじゃん
009285NGNG
>>89
そうです
ピクチャボックスをコンテナにしてバンバン
.visible を切り替えてるんです

今考えてるのが
デザイン専用フォームでデザインしてフォームをセーブ
その frmDesine.frm のテキストは
Begin ブロック　と　End ブロックで各コントロールのプロパティが
はさまれたテキストなんで
テキストを AWK かなんか（漏れPerl使えない）て
整形して
このテキストをｺｰﾄﾞモジュールにコピペして
動的配置ｺｰﾄﾞを生成するっつうのを考えてる
漏れはアフォでせうか？

ちなみにユーザーｺﾝﾄﾛｰﾙ作ったことないっす。
やってみる価値はありそうかねぇ。
0093デフォルトの名無しさんNGNG
>>92
規模によりけりじゃない？テキストボックス３つくらいだとおれも似たような
ことやってるよ
0094デフォルトの名無しさんNGNG
教えて、エラい人！
プロジェクト内でモーダルフォームが開かれているかどうかを判定する方法は有るのでしょうか？
0095デフォルトの名無しさんNGNG
どういう処理よ。
0096デフォルトの名無しさんNGNG
>>94
よくわからんが、For Each で App.Forms をまわして
調べればいいんではないかい
0097デフォルトの名無しさんNGNG
TextBoxをマウスで右クリックしたときの
ポップアップメニューが出ないようにするには
どうすればいいんですか？
0098デフォルトの名無しさんNGNG
右クリック自体禁止するといいよ。
0099デフォルトの名無しさんNGNG
>>97
右クリックが来たときにTextBox.EnabledをFalseにして戻すか、
サブクラス化してWM_CONTEXTMENUを揉み消すか。

前者のほうが簡単だけど、後者の方が完璧にできる。
0100デフォルトの名無しさんNGNG
>97
もしかしてポップアップメニューを出さないのが目的じゃなくて、ポップアップメニューコマンドを実行させたくないっていうのが目的なんじゃねぇーの？

0101デフォルトの名無しさんNGNG
・・・そして誰もいなくなった。
010270NGNG
亀レスすいません。

とりあえず、最低点、最高点の問題は解決しました。
次の問題も不明なんで、よろしくお願いします。

=========================問題==========================
Ex.1 条件判断

下記の学籍番号をセルA1〜A10、試験の点数をセルB1〜B10に入力し、優、良、可、不可を判断して
C列に表示せよ。ただし、優は80点以上、良は70点以上、可は60点以上とする。

学籍番号　　点数
1 75
2 92
3 63
4 48
5 95
6 82
7 68
8 56
9 62
10 71
=========================問題終了==========================
これは簡単なので、できました。
010370NGNG
続きです。
=========================問題==========================
Ex.2
優、良、可、不可を取った学生の学籍番号を、それぞれD列、E列、F列、G列に表示せよ。
その際、上から順に詰めて表示すること

=========================問題終了==========================

この問題がわかりません。
上から順に詰めて表示でなければできましたが、
つめて表示する方法がわかりません。

よろしくお願いします。
0104デフォルトの名無しさんNGNG
> 次の問題も不明なんで、よろしくお願いします。

> 10 71
> =========================問題終了==========================
> これは簡単なので、できました。

不明なのか？ できたのか？ 何を聞きたいのだ？（ｗ
0105104NGNG
途中までしか見てなかった。>>104は無視してくれ。
0106bloomNGNG
http://homepage.mac.com/ayaya16/
0107デフォルトの名無しさんNGNG
※末承諾広告
スタッフは皆様の生活を応援します
１万円〜１００万円まで１５分で審査
（１００万円以上のご融資も可能）
完全自社貸付なので安心してご利用いただけます

お申し込みは
0120-39-4400
携帯からもＯＫ！
インターネットは
http://www.staff-japan.com


迷ったらまずお電話ください
必ずお力になります。
0108デフォルトの名無しさんNGNG
>>103
> 上から順に詰めて表示でなければできましたが、
どういう風にやって出来たの？
0109デフォルトの名無しさんNGNG
102のコードを晒せ
011070NGNG
とりあえず、>>102までのコードを晒します。

Dim b As Integer
If Cells(b, 9) >= 80 Then
Cells(b, 10) = "優"
Else
If Cells(b, 9) >= 70 Then
Cells(b, 10) = "良"
Else
If Cells(b, 9) >= 60 Then
Cells(b, 10) = "可"
Else
Cells(b, 10) = "不可"
End If
End If
End If
End Sub

です。汚いコードですいません。
011170NGNG
問題文と自分のセルの場所が少し違うので、コードもおかしいです。
セルの場所は気にしないで下さい。
011270NGNG
最低点、最高点のコードがわからなくなってしまいました。
友人に教えてもらったときは覚えていたのですが・・・・
最低点、最高点のプログラムもお願いします。
0113デフォルトの名無しさんNGNG
>>112
答えを聞くだけじゃなくて、ちゃんと考えような。
でないと自分のものにならないよ。
0114_NGNG
　 ∧＿∧
　（　・∀・）/＜　こんなのみつけたっち♪　
http://www.hiroyuki.zansu.com/hankaku/jaz03.html
http://hiroyuki.zansu.com/hankaku/jaz10.html
http://www.hiroyuki.zansu.com/hankaku/jaz08.html
http://hiroyuki.zansu.com/hankaku/jaz09.html
http://www.hiroyuki.zansu.com/hankaku/jaz06.html
http://hiroyuki.zansu.com/hankaku/jaz05.html
http://www.hiroyuki.zansu.com/hankaku/jaz01.html
http://hiroyuki.zansu.com/hankaku/jaz02.html
http://www.hiroyuki.zansu.com/hankaku/jaz07.html
http://hiroyuki.zansu.com/hankaku/jaz04.html
011570NGNG
>>113
ご指摘の通りです。
それからしばらく考えまして、たとえばaとbの変数を用いて、

a=0
For b=1 to 10
If cells(b,1)>a then
cells(11,1)=a
next b

これえでA1からA１０までの最低点がでると思ったのですが、どうもうまくいきません。
なぜでしょうか？よろしくお願いします
0116デフォルトの名無しさんNGNG
>>115
最初に、
　　a = 0
としてるだろ？ってことは、0点未満しか見ないじゃん。
0117116NGNG
違った（スマソ

おれなら
a = 100 ' 最低点
For b=1 to 10
If cells(b,1)<a then
a = cells(b,1)
End If
next b
cell(11,1) = a
0118デフォルトの名無しさんNGNG
>>112
てか教えてもらったプログラム理解してなかったのかよ。意味ねぇし。
それにプログラムは一気に完成させる必要はない。
この場合だとまず一人だけをDEFG列どれかに分類するプログラムを作る。
その次にforとかでループさせて全員分類できるプログラムを作れば良い。
人に教えてもらうだけだったらはっきし言ってプログラムに限らず勉強してる意味なし。
就職とかにしても徐々に大学名じゃなくて実力主義の傾向になってきてるから
行き当たりばったりの勉強で20年30年先どうなっても知らんぞ。
0119デフォルトの名無しさんNGNG
WINSOCKコントロールでインターネットを介したパソコン同士を通信するにはどうすればいいんじゃ！教えてけろ（特にアドレスの指定の所）普通にIPアドレスを入れてもだめなんじゃろ？
0120デフォルトの名無しさんNGNG
>119
アドレス変換ってのがわかんねーんだったらﾈﾄﾜｸを勉強しろよﾊｹﾞ。
0121山崎渉NGNG
（＾＾）　　
0122デフォルトの名無しさんNGNG
ユーザーコントロール内の処理で自身のユーザーコントロールを
表示、非表示にしたいのですが、どうすればいいでしょうか？
Visibleプロパティでは扱えないしShowとかのメソッドがあるわけでもなくて
途方にくれてます。具体的に言うと表示メソッド内で
メソッドからの引数でちょっとした処理とユーザーコントロールの表示処理を行いたいのですが…。
0123デフォルトの名無しさんNGNG
>>122
無いものは作る。
0124デフォルトの名無しさんNGNG
>>123
無いものは作る。ってShowメソッドをですか？
私にはそのShowメソッド内で表示処理のプログラムが想像すらつかないのですが、
よろしければ教えていただけないでしょうか？
0125122NGNG
>>122=>>124です。失礼しました。
0126デフォルトの名無しさんNGNG
>>122
自分自身を見えなくしたいだけ？
Width = 0
Height = 0
じゃ済まないの？
0127デフォルトの名無しさんNGNG
アドレス変換ってどうやんの？それっぽいサイトが見つからなくてわからないんだ。いいサイト知ってたら教えてけろ
0128デフォルトの名無しさんNGNG
>>127
たとえば何をやりたいんだい?
0129デフォルトの名無しさんNGNG
＞＞128
用途の事であれば、チャットをできるようにしたいんよ。とにかくネットワークはあんまり詳しくないからアドレスをどういれればいのかわからん〜。ぜひおせーて
0130デフォルトの名無しさんNGNG
>>129
IPなら
Winsock1.Connect "127.0.0.1", 1234
で繋がるしURIとかなら
Winsock1.Connect "hoge.hoge.com", 1234
で繋がるし。
というか、本屋へ行ってネットワークの基本的な事を勉強してからにしておくれ
0131デフォルトの名無しさんNGNG
VB6以前のVB製ソフトはウイルス並の扱いですが何か？
0132デフォルトの名無しさんNGNG
>>131
ヌヒが心配せずとも、いずれ消え去るわけだからほっときやがって下さい。
0133デフォルトの名無しさんNGNG
〉〉130
まじサンキュー！ちなみに1234って何なん？
0134デフォルトの名無しさんNGNG
チャットってなんだ？IRCかメッセンジャーか？
0135デフォルトの名無しさんNGNG
>133
だから、ヘルプくらいは読みなさいとお母さんがいつも言ってるでしょう。
0136デフォルトの名無しさんNGNG
おれの彼女はUnix使いだから，子どもできたらほんとにそういうこと言うんだ
ろうな。ヘルプじゃなくてmanだろうけど。
0137デフォルトの名無しさんNGNG
≫135
ごめんググったけどわかんなかった。俺の力不足や。ちなみにグローバルアドレスを入れなきゃいけないんでしょ？
0138_NGNG
　 ∧＿∧ 　　
　（　・∀・）/＜　こんなのみつけたっち♪　
ttp://www.yamazaki.90.kg/hankaku/hankaku04.html
ttp://yamazaki.90.kg/hankaku/hankaku10.html
ttp://www.yamazaki.90.kg/hankaku/hankaku09.html
ttp://yamazaki.90.kg/hankaku/hankaku08.html
ttp://www.yamazaki.90.kg/hankaku/hankaku06.html
ttp://yamazaki.90.kg/hankaku/hankaku05.html
ttp://www.yamazaki.90.kg/hankaku/hankaku01.html
ttp://yamazaki.90.kg/hankaku/hankaku02.html
ttp://www.yamazaki.90.kg/hankaku/hankaku07.html
ttp://yamazaki.90.kg/hankaku/hankaku04.html
0139デフォルトの名無しさんNGNG
>>137
もうやめろ。まじで。
0140デフォルトの名無しさんNGNG
アドレス変換ってNATのこといってるんだろ
>>130は無知
0141デフォルトの名無しさんNGNG
エクスプローラの検索ダイアログで、
FNDファイルとして検索条件を保存することができます。
ただ検索ダイアログを開くだけならば拡張子FNDのファイルを無理矢理作ればいいんですが、
「TEST.TXTを検索する」といったようなFNDファイルを
VBで作ることはできるんでしょうか？
ご存じの方がいらっしゃいましたら、ご教示ください。
よろしくお願いします。
0142デフォルトの名無しさんNGNG
>>137
ぐぐったけど出なかったって・・・検索の仕方もわからないのかよ。
無理だよ、あきらめな。
どうしてもってんだったらシャドウペンギン調べてみ。
これ以上の質問却下、シャドウペンギン見つけられないってのも却下、
読んで理解できないならVBごとやめれ。
プログラム能力ゼロだから。
0143デフォルトの名無しさんNGNG
VBは何でもできる最強のツールですね
0144デフォルトの名無しさんNGNG
>>143
うむ
0145デフォルトの名無しさんNGNG
最強かどうかは決して肯定できないなあ。
0146デフォルトの名無しさんNGNG
どっちかってーと、最兇ってかんじ？
0147 ◆VBGo3bjTdQ NGNG
質問どぞ
0148デフォルトの名無しさんNGNG
VB4を初めて使った時は、なんじゃこのオモチャは
やっぱVCじゃないと使い物にならん　と思ったけど、
VB5、6へと進化したことや、マシン自体の速度向上によって
遅さがある意味解消されたことで、VBってけっこう使えるﾔｼと
認識が変わってきた。
最強のツールとは思わんが、悪いツールじゃないな。
0149デフォルトの名無しさんNGNG
>>137
ttp://www.microsoft.com/japan/developer/library/VBCon98/vbconusingwinsockcontrol.htm
0150デフォルトの名無しさんNGNG
せめてマスタリングTCP/IPくらいは読んでくれ
0151デフォルトの名無しさんNGNG
>>148
禿胴。「VBで開発？マジですか」なんて言ってたのが一昨年。Pentium800Mhzあたり
が普及しだしてからは「おおっ！こりゃ楽チン」てな感じで積極的に使ってる。
で、いよいよ客先でもVB.NETが普及し始めたと・・・ﾒﾝﾃﾄﾞｳｽﾝﾉ(鬱
0152デフォルトの名無しさんNGNG
検索キーワードが思いつかないのでここで質問させてください。
フォームをリサイズするときにこれ以上小さくできないという縦横のサイズは設定できますか？
今やってる方法が、リサイズの時にそのサイズが指定サイズ以下のときは指定サイズに戻すよう設定するプロシジャを書いているのですが、
これですと、リサイズの最中にはどこまでも小さくできるのですが、マウスから手を離したときにウィンドウが指定サイズに戻るので、
若干不自然です。どこかのソフトではマウスをドラッグしても、途中でマウスポインタが動かなくなるようなソフトがあるとおもいますが、
それをVBでやる方法を教えてください。よろしくおねがいします。
0153デフォルトの名無しさんNGNG
>>152
ウィンドウをフックしてメッセージ揉み消し。「サブクラス化」とかでぐぐれ
0154デフォルトの名無しさんNGNG
FAQだね
0155デフォルトの名無しさんNGNG
>>152
サブクラス化とMINMAXINFO構造体だな
0156デフォルトの名無しさんNGNG
サブクラス化なんてCでは日常茶飯事なんだけどねー
0157デフォルトの名無しさんNGNG
>153

>155

ありがとうございます。調べてきまんもす
0158デフォルトの名無しさんNGNG
>>156
（´･∀･`）ﾍｰ ｿﾚﾃﾞ？
0159デフォルトの名無しさんNGNG
>>158
無意味に大変
0160デフォルトの名無しさんNGNG
>154

FACKだね
0161デフォルトの名無しさんNGNG
>>158
v（･∀-）b ｳﾗﾔﾏｼｲﾀﾞﾛ
0162デフォルトの名無しさんNGNG
>>160

ＦＵＣＫだろ
0163デフォルトの名無しさんNGNG
サブクラス化が悪いとは言わん
つーか、やらないとできないこともあるしね
でも覚えたてでうれしくて、しなくても済むことまで
面白がって（かっこつけて？）使ってるﾔｼを見ると、
なんだかゲンナリする・・・・
0164デフォルトの名無しさんNGNG
>>163
デバッグで死ぬ思いさせたれ。
0165デフォルトの名無しさんNGNG

>163
サブクラス化しないで
>152
をやる方法は？
0166デフォルトの名無しさんNGNG
ない
0167デフォルトの名無しさんNGNG
ぴったりのページ
http://fumiyuki-web.hp.infoseek.co.jp/tech/tech005/
0168デフォルトの名無しさんNGNG
なんだｼﾞｴﾝかよ。
0169163NGNG
>>165
その場合はサブクラス化しかないよ
あるいは、サブクラス化を行う市販OCX、ユーザーコントロールの貼り付け。
俺はこういう用途用に、サイズ制限用ユーザーコントロールを自作して、
それ貼り付けるだけでリサイズ制限できるようにしてある。
0170デフォルトの名無しさんNGNG
v（･∀-）b
0171デフォルトの名無しさんNGNG
すみません、多分すっごい基礎・・というかガイシュツな質問かもしれませんが教えてください。

小数値でで、23.3（23時間30分を表す値）を
23.5という小数値に変換したいのです。
計算式を考えているのですが、どうもいい方法が思いつかなくて。。。

何かスマートでいい方法があればご教授下さい。
0172デフォルトの名無しさんNGNG
２０倍する。INT。あたりがヒントでできないか。
0173デフォルトの名無しさんNGNG
１．小数部を取り出す。
２．X/6で完了。
0174デフォルトの名無しさんNGNG
うまい
0175172NGNG
あ、勘違いした。ｽﾏｿ。
0176デフォルトの名無しさんNGNG
小数を整数に変換後、また小数に変換するのは大変危険です。


Dim a As Double
Dim b As Long
Dim c As Double

For a = 0.01 To 1 Step 0.01
b = a * 100
c = b / 100
If Str(a) <> Str(c) Then
MsgBox "なんじゃこりゃー"
End If
Next
0177176NGNG
あれ？
なんか違う
0178デフォルトの名無しさんNGNG
>>176
>大変危険
それを回避する方法はさんざんｶﾞｲｼｭﾂなわけだが。
0179デフォルトの名無しさんNGNG
B = Fix(A) + (A - Fix(A)) * (5 / 3)
A は変換前、 B は変換後
間違ってたらスマソ。
0180デフォルトの名無しさんNGNG
>>152
http://homepage3.nifty.com/salv/hp-old/03pc/vb/03vbpg005.htm
これを少し弄るだけで出来る
0181122NGNG
>>126
あ、そうか。そんな単純な事でよかったんですね。
有難うございました＆スレ汚しｽﾏｿ。
0182sageNGNG
winsockコントロール使って確認君にアクセスしようとしたらできませんでした。
普通のページならちゃんと読み込めるのに。
cgiとかそういうのにはうまくアクセスできないんでしょうか？
0183デフォルトの名無しさんNGNG
>>182
んなわきゃない
0184デフォルトの名無しさんNGNG
みなさんすまんかった。
自分なりに調べてグローバルIPに変換して、それで接続してみた。けどだめみたい。
ファイヤーウォールに蹴られてるんかな？それとも片方がLANの中のやつでどれもグローバルIPがいっしょだからだめなんかな？
みんなにはくだらんかもしれんけどおねがい！教えて。
0185デフォルトの名無しさんNGNG
>>184
RFCくらいは知っててやってる？
原因追求のやり方とかわかっている？
TELNETで手動で取ってくるくらいはできる？
0186デフォルトの名無しさんNGNG
>>185
レス番ちがった。185は182宛てね。
0187デフォルトの名無しさんNGNG
>>184
プログラム組む前にネットワークの勉強をしろ。
本屋行け。
0188デフォルトの名無しさんNGNG
>>184
まずは、テクニカルエンジニア（ネットワーク）の資格でも取れ。
話はそれからだ。
0189デフォルトの名無しさんNGNG
>>187-188
なにを偉そうに・・・
0190デフォルトの名無しさんNGNG
>>189
わかってるならこたえてやれよ。
0191デフォルトの名無しさんNGNG
>>189
しょうがないだろ。VBとは関係ない話なんだから。
0192デフォルトの名無しさんNGNG
>>184
とりあえずLAN内ならうまくいくんだね？
だったらマジでVBの話じゃないからネットワークを勉強してくれとしかいえないだろう。
LAN内で動かないならまずそこで動くようにしよう。
0193デフォルトの名無しさんNGNG
>184
ttp://www5e.biglobe.ne.jp/~aji/3min/
を隅から隅まで読んだ後に再度質問してくれ。
0194デフォルトの名無しさんNGNG
msdn、過去ログ、一応目を通し、ググったりもしたんですが、
既出だったら、すいません。

コンパイル環境：VB6.0、DriectX7.0、OS：Windows98
実行テスト環境：DirectX8.0a、OS：WindowsXP

DirectDraw の SetForeColor と、DrawText で、文字表示するプログラムなのですが、
Windows XPだと、すべて 黒 で表示されてしまいます。
原因はなんでしょうか？

下らない質問かもしれませんが、どなたか、教えて下さい。
0195デフォルトの名無しさんNGNG
VBで画像ビューワーを作ってるんだが、
テキストボックスにファイル名を入れて開くというコマンドボタンを押したら表示するという簡単な物なんだが、
開くボタンを押す以外にも、
ファイル名を入力→「エンターキー」「タブキー」を押しても画像を表示させるにはどうしたらいい？

0196デフォルトの名無しさんNGNG
>>195
サブクラス化
0197195NGNG
>>196
Subプロシージャを作って、keyPressで制御すればいい？
0198デフォルトの名無しさんNGNG
>>196
その程度のことでサブクラス化する必要は全くない
0199デフォルトの名無しさんNGNG
FormのプロパティーのTagって、何に使うもんなん？msdn見ても今市つかみ所
がない
0200デフォルトの名無しさんNGNG
>>199
たとえば、テキストボックスで文字列が変更されたときに、
Me.Tag = "変更されました"
なんて入れておくわけだ。

そんで、QueryUnload で Tag の値を確認して、「変更されています。保存しますか？」
てな感じの確認メッセージを出す、と。

漏れがよく使うのはこれかな。
0201199NGNG
>>200
それって、内部変数を持たせちゃいかんの?プロパティーを使う必要性があまり
感じられないんだけど、利点はあるんけ？
0202デフォルトの名無しさんNGNG
>>201
内部変数はそのフォームだけの情報。
Tagはすべてのフォームに共通して存在する情報。
って使い分けるとか。
0203デフォルトの名無しさんNGNG
>>202
えっ？
0204デフォルトの名無しさんNGNG
意見がないなら口をださない。
0205203NGNG
>>204
いや、「Tagてすべてのフォームで共通するの？」て聞きたかったんだけど。
IDEで初期状態で設定した値は共通するだろうけど。
0206デフォルトの名無しさんNGNG
>>205
聞きたいことは正確に聞け。

同じ値って意味じゃないぜ？
フォームのCaptionはすべてのフォームがもっている情報だろ？
でも内部変数は作ったフォームだけが持っている情報だろ？
0207203NGNG
>>206
なんじゃ、そんな意味で言ってたのか。ｽﾏﾝ
Tagプロパティの値を複数のフォームで共通して使いまわせる
って意味で言ってんのかと思った。
どのフォームでも必ずTagプロパティがあるって言いたかったわけね。
0208デフォルトの名無しさんNGNG
>>200
もちろん、内部変数でもいいんだけど、外から見たいときってあるよね。
大昔のVBって、プロパティの自作ができなかったんじゃなかったっけ。

どちらにせよ、（VB.NETでは一回削除されたし）古い仕組みにはちげーねー。
0209デフォルトの名無しさんNGNG
大昔っていつのVBだ？ VB5からしかろくに知らんからそれよりも前か。
0210199NGNG
>大昔のVBって、プロパティの自作ができなかったんじゃなかったっけ。
激しく納得した。そういうことね。
0211182NGNG
telnetでアクセスしたけどダメだったんですよ。
os win2k
open www.ugtop.com 80
GET /spill.shtml HTTP1.0
ってやったら404not foundで。
ブラウザならwww.ugtop.com/spill.shtmlでアクセスできるんですが・・・
どうなってるんでしょうか
0212182NGNG
↑
訂正
GET /spill.shtml HTTP/1.0　ね。
ちなみにGET / HTTP/1.0 だと英語のページになるし・・・
ん〜
0213デフォルトの名無しさんNGNG
-- 終了 --
0214デフォルトの名無しさんNGNG
>>211
バーチャルホストを使っていると思われ。
HTTP/1.1でHostヘッダを使用したら取得できたよ。
0215デフォルトの名無しさんNGNG
0216211NGNG
おー、サンクス>>214
できました。
Hostヘッダが必要だったんですね。
ヘッダなしでやってたよ
0217デフォルトの名無しさんNGNG
ここのスレタイ、目潰しされて笑ってる…不気味な奴。
0218デフォルトの名無しさんNGNG
ウインクだろ。
つーか顔AAが気に入らないからって重複スレあげる奴ウゼー
0219デフォルトの名無しさんNGNG
0220インストーラー作りたいさんNGNG
VBで作ったアプリのインストーラーを作りたいのです。
*.ｖｂｐを指定して作成することが出来たような気がしたのですが、
どうやってやればよいのでしょうか？
0221デフォルトの名無しさんNGNG
VBで作ったアプリをインストールするなんて迷惑なだけだからやめとけ。
0222　NGNG
以下のスペックのパソコンを使用してるのですが、このパソコンで使用できる
ビジュアルベーシックのバージョンていくつまででしょうか？

ＣＰＵ　　ペン２の３５０Ｍhz
メモリー　120Ｍ
ＯＳ 　　　ＷＩＮ９８

ＭＳのＨＰいったのですが、ＮＥＴしか載ってなくて確認できませんでした・・。
0223デフォルトの名無しさんNGNG
>>222
.NETつかえよバーカ
0224195NGNG
誰か>>195のヒント下さい・・・。
明日提出なんで・・・。
0225あNGNG
>>224
ファイル名を入力するテキストボックスのキーダウンイベントで
押されたキーがtabかenterなのかを判断して
もしそうなら開くボタンと同じ処理。
0226デフォルトの名無しさんNGNG
tabが拾えるなんて聞いたこと無いぞ
0227デフォルトの名無しさんNGNG
>>220
ディストリビューションウィザードか
Visual Studio Installerを使う
0228あNGNG
>>226
キーダウンなら拾えるが？


>>224
'開くボタンの処理
Private Sub OPEN_BTN_Click()

End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)

Select Case KeyCode
Case vbKeyTab, vbKeyReturn
Call OPEN_BTN_Click

Case Else
End Select

End Sub
0229224NGNG
>>225
キーダウンイベントって、キープレスの事ですよね？
0230デフォルトの名無しさんNGNG
>>226
フォーム上のすべてのコントロールのTabStopをFalseにすれば拾える。
という裏技みたいな方法もあるが、通常はフォーカスが移ったときと
考えるべきかな？ 元の仕様が分からんのだが。
0231あNGNG
>229
キー「ダウン」！！！！！！！
0232224NGNG
>>228
>>231
ありがとうございます〜。
キーダウンって参考書に載ってないんで・・・。
ＶＢ初心者なんでスミマセン・・・。
0233224NGNG
>>228
これだと、エンターを押した場合は画像開けるのですが、
タブの場合だと、開くボタンにカーソルが移るだけになってしまうんですが、どうすれば
タブキーでも画像を開けるようになるんですか？
0234デフォルトの名無しさんNGNG
>>233
「>>230」！！！！！！！！
0235あNGNG
>233
Case vbKeyTab, vbKeyReturn
なのにエンターキーだと
Call OPEN_BTN_Click
が呼ばれてタブキーだと呼ばれない？
そんなはずはない。
もう一度よく確認。

フォーカスが移動するのは別問題。
テキストボックスのExitイベントで抑止できる。
0236あNGNG
スマソ、VBにexitはないみたいだ
0237デフォルトの名無しさんNGNG
VB4.0という古いやつがあるのですが。
これを使って株の自動注文システムみたの
くめないでしょうか？

具体的にはIEの注文画面のある特定の数字を拾い
この数字が既定の値、または変位がいくつになった時に
自動で株注文をボタンをクリックし自動で買う数量
や損切りの額などを入力し注文をだすというものです。

じつは今結構勝っていまして、この手法を是非自動化したい
と思いまして聞いたのです。
もねがいします。
0238224NGNG
>>235
さっきのやつをそのままコピペして、
OPEN_BTN_ClickのとこだけCommand1_Clickに変えただけなんですが無理でした。
0239224NGNG
>>236
では、どうすればいいんですか？
0240デフォルトの名無しさんNGNG
>>237
がんがってプログラムを作ってウプしてください
それでこのスレのみんながお金持ちになれば
あなたは英雄です
0241あNGNG
>>239
漏れが作ってみて大丈夫だったのでソースうぷした。
試してみてくれ。
http://www.puchikomi.net/php-bin/uploader/datafile/puchikomi441.zip
0242２３７NGNG
>>240
レスありがとう。
ではVB4.0で自動注文は可能とみてよろしいですか？
プログラムさえ出来れば言語は簡単なほうがいいと思ったのと
今手元にある言語はそれしか無かったもので
質問しました。

しかし仮に出来るとしても、説明書ないから難儀しそう・・


0243224NGNG
>>241
ありがとうございます〜。
それを作りたかったんです〜。
ただ、スクロールバーを付けると、やはりタブでは開けなくなってしまいます。
かといって、TabStopをFalseにするわけにもいかないので・・・。
（教授のexeはきちんとタブで開く＆移動する）
もう少し、頑張ってみます。
0244あNGNG
＞243
すまん、わからん。
サブクラス化しかないと思う、、が、
>198いわく、他に方法がらしい。
気になるので方法希望！
0245　NGNG
>>237

おなじこと考えている人がいてびっくりしました。
しかも私もちょうどＶＢ４を持っています。
もし良かったら一緒に開発しません？
連絡下さい[email protected]

↓これ私ｗ
>>http://pc2.2ch.net/test/read.cgi/tech/1051882835/606
0246デフォルトの名無しさんNGNG
そんなこともできないVBってうんこすぎ
0247デフォルトの名無しさんNGNG
>>237
>>245

VB4 には、インターネット関連の機能は含まれていなかったはず。
となると、Winsock やら Inet やらの API を使うか、その辺のコンポーネントを
探してこなくちゃならない。

あと、当然 https になるんだろうけど、その辺の実装が↑でできるのか
わからん。
0248デフォルトの名無しさんNGNG
>>237
プログラム売買？
禁止されてなかったっけ？
0249248NGNG
あった、あった。一応大丈夫だけど気をつけたほうがいいと思う

プログラム売買
様々な投資基準を基にした一定の条件で、
売り買いの判断をするようにプログラムを組んだコンピューターで株式を運用することをいい、
東証は｢一度に行う25銘柄以上の売買｣に報告義務を課している。
この売買を行う際に、コンピューターから一度に多数の銘柄が発注されることが多いので、
単純なコンピューターによる売買と同一視されることがあるが必ずしもそうではない。
また、同じ意味で｢システム売買｣という言葉を使う向きもあるが適当ではない。
0250224NGNG
>>244
あまりにもわからんから、教授にメールしたところ
「TextBox の LostFocus イベントハンドラを作成します。その中味は『開く』
ボタンがクリックされた」時の動作をする（呼び出す）だけ。」
と返信が来たんだが、さらにわからんようになっちまった・・・。
0251　NGNG
>>247
げ、そうなんですか・・・。
ではＶＢのバージョンいくつからなら、インターネット対応してるのでしょうか？
>>237のようなことが出来るのはバージョンいくつからでしょうか？

>>248
いや、禁止されてなかった・・・はず・・・なような・・・・。
0252デフォルトの名無しさんNGNG
ネタか？なぜにVB4.0？素直に.NET逝かんかい。ｺﾞﾙｧ！
0253デフォルトの名無しさんNGNG
>>250
あー、なるほど。
tabキーを押すとフォーカスが移り、LostFocusイベントが発生する。
そのイベントプロシージャを作って
そのプロシージャ内にファイルのロードの処理しろって事。
フォーカスとか分からんかったら自分で調べれ。すぐ分かるだろうから。
0254デフォルトの名無しさんNGNG
>>250
フォームのほうでタブを横取りして適当なメッセージをTextBoxに投げれば？
0255デフォルトの名無しさんNGNG
つーかLostFocusだとマウスクリックでフォーカスが移動した時どうすんだろ。
フラグ立てるのかもしれないけど汚いなあ。
0256デフォルトの名無しさんNGNG
>>255
まぁ宿題だしな。
作成じゃなくてプログラムを考えるのが主目的な訳で。
0257デフォルトの名無しさんNGNG
そうやってVB厨が大量生産されるわけだな。
0258デフォルトの名無しさんNGNG
んなわけない。
0259デフォルトの名無しさんNGNG
>>258
そう思いたいんだよねｗ
0260あNGNG
>250
なーんだ。
LostFocusでいいのか。

>254
Tabキーが押された時はそもそも押されたということ自体通知されない。

>255
試してみたけど、
MouseDownや、押されたボタン等のイベントよりも先に、
LostFocusが発生するのでフラグの立てようが無いのでは？
ボタンをクリックした時、フォームでMouseDownを先に
とらえることもできなかった。

>256
事実教授もそういう考えでこんな問題考えたんでしょうねぇ。
真剣に考えてものすごくあほらしく思えます。
0261224NGNG
やべえ・・・。全然わかんねえ・・・。
明日学校休むか・・・。
0262あNGNG
>261
教授はこうさせたいんでしょうねぇ。。

Private Sub TEST_TXT_LostFocus()
Call OPEN_BTN_Click

End Sub
0263あNGNG
>262
自己レス。
でもそれなら開くボタン自体
必要なくなるような気もする。。
ファイルオープンダイアログみたいな
パスを読み出して表示されるボタン等が
あるとも考えにくいし。。
0264デフォルトの名無しさんNGNG
つうか、教授の問題のだしかたにも問題があるな。
0265デフォルトの名無しさんNGNG
まあ、教授の考える仕様なんてこんなもんだ。
0266224NGNG
だめだ・・・。
いくらテキスト読んでもわかんねえ・・・。
明日は学校休みます。
0267デフォルトの名無しさんNGNG
フックしろよ馬鹿ども。VBじゃできないとでも言うのか？
0268デフォルトの名無しさんNGNG
まぁ、フックでもできるな。VBでもローカルフックはできるわけだし。
でも、フックでやるような内容じゃないと思うよ。
0269デフォルトの名無しさんNGNG
>>267は恥をかいた。
0270デフォルトの名無しさんNGNG
ACTIVEX.EXEのデバッグを行なおうと、実行させておいて、他のプロジェクトから呼び出そうとすると、
クラスはオートメーションまたは予測したインターフェースをサポートしていませんというエラーが出てしまいます。
前はできていたのになぜでしょうか？
0271デフォルトの名無しさんNGNG
http://java.sun.com/
0272デフォルトの名無しさんNGNG
フォーカスが移動する前にタブを奪うのが普通だろ？
0273Defaultの名無しさんNGNG
CommandのTabIndexをTextの次にして
CommandのGotFocusにピクチャー開く処理を記述するとか。
0274デフォルトの名無しさんNGNG
こんな糞仕様却下だろ
0275デフォルトの名無しさんNGNG
>>224は絶対に分かろうとしていない罠。
0276デフォルトの名無しさんNGNG
宿題系の質問になると糞仕様を叩くのは必然なのか

漏れも糞仕様だと思うけどね。
0277194NGNG
質問が糞すぎて、返事がないのか、
わかる人が居ないのか、どちらでしょうか？(´･ω･｀)

前者なら、追い出して下さい。
0278デフォルトの名無しさんNGNG
基本的なことかと思いますが質問させてください。

年齢計算のコードを書いているんですが、
どうもうまくいきません。
知り合いから、365.25で割る方法とかも聞いたのですが、
これだといわゆる「●年目」の値が表示されてしまい
満年齢の計算が出来ません。
何かいい方法があれば教えてください。
よろしくお願いします。
0279デフォルトの名無しさんNGNG
>>278
DateDiffとか？
0280278NGNG
すみません・・・/365.25の式であってました・・

式をみたら、Ｉｎｔ関数使うはずが,間違えてＣｉｎｔ関数使っていました（死

癖って怖いですね・・・


というわけで、お騒がせしました。


>>279
お答えありがとうございます。
Datediffですね。
この関数も別の方法として調べてみます。
0281デフォルトの名無しさんNGNG
知っている方教えてください。

i-mode　って　VBScript　使えないんですか？
aspとVBScriptのセットで画面作成を行うつもりだったのですが・・・
0282デフォルトの名無しさんNGNG
本当にクライアント側スクリプトが必要か、もう一度考え直せ
0283デフォルトの名無しさんNGNG
>282
はい、if文駆使した場合分けとか、エラーハンドリングもVBScriptだし。
レジストリ情報取得DLLなど使う場面がありまして、どうしても必要なんです。
0284デフォルトの名無しさんNGNG
面白くない
0285デフォルトの名無しさんNGNG
>>283
それはサーバー側の話じゃないんか？それともネタか？
0286デフォルトの名無しさんNGNG
IE for i-mode を作れば解決だ。
0287283NGNG
>285
すみません。なにしろVBScriptを扱うのもi-modeも初めてでして、手探り状態なんです。
しかし、みなさんの意見をみてるとi-modeで表示するhtmlやaspではVBScriptソースは利用できないと考えてよろしいのでしょうか？
0288デフォルトの名無しさんNGNG
>>277
レスの催促は慎みましょう。ここは解答スレではありません。よって全ての質問に
答える義務はありません。
0289デフォルトの名無しさんNGNG
>>277
どうしてもレスが欲しい質問はこちらへ

VB超初心者スレ
http://pc2.2ch.net/test/read.cgi/tech/1047222540/

ただし書き込みは必ずsageですること
0290デフォルトの名無しさんNGNG
>>287
i-modeの仕様くらい、探して読もうよ。
どこにあるんですかなんて言わないでくれよ？
0291デフォルトの名無しさんNGNG
>>290
で、どこにあるの？
0292デフォルトの名無しさんNGNG
>>287
ASPはサーバー側で動くものだから見るほうがimodeだろうがPCだろうが
関係ないよ。よってVBScriptでもOK。
そのVBScriptで吐き出すHTMLがimode用のchtmlという規格に
あったものじゃなきゃだめだよ。
0293デフォルトの名無しさんNGNG
>>287
ネタなのか？それともi-modeはWindowsで動いてるとでも思っているのか？
0294283NGNG
>292さん
なるほど。そういう事だったのですか、初心者にご丁寧に教えていただきありがとうございました。
0295デフォルトの名無しさんNGNG
>>294
292は間違ってるよ。VBScriptっていえば普通はクライアント側で動かすことだ。
0296デフォルトの名無しさんNGNG
おっと、292の間違い。
0297デフォルトの名無しさんNGNG
と思ったらあってた
0298デフォルトの名無しさんNGNG
>295
ASP触った事無いんだったら素直にそう言えばいいのに・・・
0299デフォルトの名無しさんNGNG
ってかVBScriptの場合，クライアント、サーバーどっちでも使えるんでは？
0300デフォルトの名無しさんNGNG
すいません質問させて下さい
VB6で下記のロジックを動かすと
year は2002のまま
year2は2004となってしまうのですけど何故かわかりません
どなたかご教授願えませんでしょうか？




dim year as integer
dim year2 as integer

year = 2002
year2 = 2003


yaer = year + 0.5
year2 = year2 + 0.5


0301デフォルトの名無しさんNGNG
>>300
小数部の.5を整数に丸めるときに、最も近い「偶数」にするらしい。
(なぜこういう仕様なのかは不明)
Int関数を使えば、小数部切捨てになるよ。
0302300NGNG
>>301
ありがとうございます。
私も調べてみましたところFix関数を使うのがベターだということが
わかりました
http://www.gwork.com/magazine/issue/vb0007.htm

もうすぐ海が見える寂しがり屋達の伝説さワンナイトカーニバルファンファン
0303300NGNG
最後の行は本文と関係ありません。
失礼しました。
0304デフォルトの名無しさんNGNG
もうすぐ海が見える寂しがり屋達の伝説さワンナイトカーニバルファンファン
0305　NGNG
過去にすでに質問したのですが、もう一度質問します。
以下のようなプログラムを組みたいのです。ＶＢ６で可能でしょうか？

あるアプリケーションの特定の数字を拾い、この数字が既定の値、
または変位がいくつになった時に、ＩＥなどのブラウザで自動で
株注文を出す（ボタンをクリックし自動で買う数量や損切りの額
などを入力する）。

よろしくお願いします。
0306デフォルトの名無しさんNGNG
>>305
あるアプリケーションによる
0307　305NGNG
>>306

レスありがとうございます。
アプリケーションによるとのことですが、どんなアプリなら可能でしょうか？

私が予定しているアプリケーションはマーケットスピードというものですが、
大丈夫でしょうか。
0308デフォルトの名無しさんNGNG
>>307
可能な可能性は高いが今すぐ君ができるレベルではないと思われる。
0309　305NGNG
>>307

どのようなやり方をすればいいのでしょうか？
軽くやり方のヒントだけでも教えてもらえると助かるのですが。
0310デフォルトの名無しさんNGNG
死ね>>1
0311デフォルトの名無しさんNGNG
ＶＢで開発した自アプリケーションをホットキーで起動させたいのですが
なかなか参考になるようなサンプルソースが見つかりません。
どなたかご存知の方がいらっしゃいましたら
ＵＲＬを教えていただけませんでしょうか？
よろしくお願いいたします。
0312デフォルトの名無しさんNGNG
ショートカットのプロパティからどうぞ。
0313デフォルトの名無しさんNGNG
SetCursorPos+mouse_event->SendMessageへの置換で途方に暮れています。

別アプリの複数の特定座標をクリックする、というものなのですが、ポインタの移動が上手く行きません。過去ログのpart19の>450近辺を参考にしているのですが、クリックは出来ましたがポインタが動かないんです。
ウィンドウハンドル取得->SendMessage(ウィンドハンドル, WM_LBUTTONDOWN, 0, 座標)
というステップだけでは駄目なのでしょうか?
031417NGNG
お願いします >>17
0315デフォルトの名無しさんNGNG
>>311
>>312、それとも、自分で登録した Hotkey？ 後者なら、WM_HOTKEY を
サブクラス化したウィンドウプロシージャで取ることになるね。

>>313
そのメッセージは、押したということを示すだけで、マウスカーソルが移動するわけ
ではないよ。ということで、置換できないね。

>>314
QRコードってことは2次元バーコードか。ってことは、その仕様を調べて実装
するしかないんじゃないかな。結構簡単そうに見えるけど、きちんと読み込める奴
を作るのは面倒だと思う。コンポーネントを探したほうがいいんじゃない？
031617NGNG
>>314
どうも！そうですデ○ソーが作った二次元バーコードのことです
オレも簡単だと思ってたが実際は数学の専門的な知識が必要なのよ
やってやれんことはないと思うがそこまで時間をかけられん
フリーの DLL なんかもあるがバイナリデータを扱えるものとなると高額でな
ソースどっかにありゃそれ参考にしてと考えていたんだが。。。
031717NGNG
スマソ >>315 だったな鬱
0318311NGNG
俺のネットでのﾆｯｸﾈｰﾑはｾﾞﾌﾞﾗﾏﾝ！！
ﾖﾛｼｸ!!
ちんこぉぉぉぉーーーーーーーーーーーーーーっ
ちんっっこっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっｘっっっっっっっっっっっっっっっっっｃ
0319デフォルトの名無しさんNGNG
>>1
死ね
0320313NGNG
>315
Σ(´く_｀ ) ﾅﾝﾄ!!
それではSetCursorPos+mouse_event->SetCursorPos+SendMessageにするしか無い、といことですか?
SendMessageの第4引数の座標というのは何を示しているのでしょうか?
0321デフォルトの名無しさんNGNG
>>320
クリックされた位置でしょ？
// horizontal and vertical position
って、ヘルプに書いてあるよ。
0322デフォルトの名無しさんNGNG
なんか荒れてるな。多分向こうの>>1が向こうのスレに移動させたいんだろうが。
いっそのこと一思いに向こうのスレ削除依頼出すか。
0323デフォルトの名無しさんNGNG
>>316
他の簡単なヤツにかえるっていうオプションはなし？
0324狂信的アﾊｧ信者NGNG
　　　　　ﾘ,;;;;;;:: ;;;;;:: ;;;;; ::;;;;;; ＼　　　　　　 人 从
　　　　　(彡ﾉり／ﾘﾉ" ﾐ;;;;;;,,,.. ゝ　　　　　） あ （
　　　　　);;; ヾ､;;;;...__,,　　）;;;;;;;; ヾ　　　　） お （
　　　　　i:::) ` ;;ー--､`　〈;;;;;;;::;;; i　　　） お （
　　　 i　i::/ 　 ^:::::::..　i　 ,ll/ﾆi ;; l　　 ） /　（
　　　 i　l ヾヽ''　　　　ﾟ　　 )）ﾉ;; /　 ） っ　（
　　i　|　 | iにﾆ`i,　　　　 (_／i;;; |　　） !!　（
　　|　|　 ! ｀ｰ‐'"　　　 ／　　ゞ:l　　つ (⌒
　　i　l|　 ! "￣ 　,,,. ／,;　　　 ﾐi　　　　　　|l
　　|　|i　 ヾ二--;‐'　,;;　,;　　　ﾐ　||i　il　　 i|
　　|　ll　 ＿|彡"　 ,'　;　／'￣＾￣''''＼　　||
　　l ,..-'"　 〈　　　 ;　／　　　　　　　　ヽ
　／　 ､,　＼)　　,,.-/　　　　　　　　　　　`i
　　　　 `　　ﾐｰ,;;'　,l　　　　　　　　　　　　 l
　　　　/　　 ;; /　 .|　　　　　　　　　　　　　|
　　 ヾ/　　　 ,i'　　ﾄ　　　　　　　　　　　　　|
　　　'i　　　　 '　　/ﾞ`　　　　　　　イ　　　　!
　　 ,;;|o;　　　i|　 /　　　　　　　　 ヲ　　　　/
　　,;;人,,_　　 ﾊ /　　　　,　　　　 /　　　　 ﾘ
　‐''"⌒ヾ:;' /'ﾞ i　　　　/　　　　/ﾐ　　　　ﾐ!
　　　　　　＼ ,/　　 '';;　　　　／　ゞ　　　　i
　　　　　　　 ヽ　　　,　　　 ,ﾉ _,,;:'　　　　　,i
　　　 /　　Y　　＼　'　　 ,;;/　_,.;:'　　　　　l
　　;;'　　　　l　　 :. ＼　　 /　　　　　　　　/
　　 i　　　::　i　　 ''::. ＼ /　　　　　　　 ,;;ｲ
　　 ;;　　　.　 l　　　`'::. ヾ,　　　　　　　 ';/ |
0325デフォルトの名無しさんNGNG
向こうは超初心者の次スレにすればいいんだよ
0326デフォルトの名無しさんNGNG
# If ... Then ...#end ifを使おうとしています。
#Constディレクティブを、モジュール内だけでなく、プロジェクト全体でパブリックな値として
宣言したいのですが、方法がわかりません。
「VB public コンパイル定数」「VB public ディレクティブ」などで検索してみたのですが、
モジュール内での定義しか見つかりませんでした。

プロジェクト全体でパブリックなコンパイル定数はどうやって定義するのでしょうか？
0327デフォルトの名無しさんNGNG
>>326
プロジェクトの情報はもちろんプロジェクトにある。
「プロジェクトのプロパティ」→「実行可能ファイルの作成」→「条件付コンパイル引数」
コマンドラインからコンパイルするときは/dオプション
0328デフォルトの名無しさんNGNG
>>326
プロジェクト->Project1
から「実行可能ファイルの作成」タブいって条件付コンパイル引数で
bDebugMode = -1
のように記述する
0329デフォルトの名無しさんNGNG
最近、VBを勉強し始めたのですが
sendinputの使い方がよくわかりません
サンプル等を検索してみたのですが
それでも、ピンときませんでした。

たとえば、ハンドルの取得は無視して座標10，20を左クリックする場合は
どのよーなコードになるのでしょうか？
よろしくお願いします。
0330デフォルトの名無しさんNGNG
>>329
こんなんどう？
ttp://www.bcap.co.jp/hanafusa/VBHLP/SendInput.htm
0331326NGNG
>>327
>>328
ありがとうございました｡
0332デフォルトの名無しさんNGNG
>>330
レスありがとです。
そのソースも、見てはいたのですが
難しすぎて・・・・。
sendinput自体のパラメタに何が入るのかが
いまひとつ分かりませんでした。
うーん、本屋さんで参考になるものでも探してきます
ありがとでした。
0333デフォルトの名無しさんNGNG
>>332
っていうか、何がしたいんけ？もしC++とか知ってるなら，VB上でwin32apiバリ
バリをやるよりC++でやったり、VBでも他のやり方があるかもよ。
0334デフォルトの名無しさんNGNG
ACCESSに作成したテーブルから
.. SELECT * FROM uriage WHERE uriagebi = "05/20"
としてデータを読み出し
.. hizuke = rs!uriagebi
のように参照できるのですが、別のテーブルも参照したく
.. SELECT * FROM uriage INNER JOIN kokyaku WHERE uriagebi = 05/20
として同じように
.. hizuke = rs!uriagebi
すると「要求された名前、または序数に対応する項目がコレクションで見つかりません。」
とエラーになります。

正しい参照方法を教えてください。

0335デフォルトの名無しさんNGNG
>>334
"" (ダブルクォーテーションなし）でレコードセット返ってきてるの？
0336デフォルトの名無しさんNGNG
>>335

.. SELECT * FROM uriage INNER JOIN kokyaku WHERE uriagebi = "05/20"
の間違いでした

0337デフォルトの名無しさんNGNG
>>336
で、問題解決したのか？それともまだ問題は残っているのか？
0338デフォルトの名無しさんNGNG
>>337

まだ解決してません。

.. hizuke = rs!uuriage.riagebi
とかへんなこといろいろやってますが
参照できません。

0339デフォルトの名無しさんNGNG
>>338

.. hizuke = rs!uriage.uriagebi
のまちがい・・・
0340デフォルトの名無しさんNGNG
1. SQLは正しい？
-> Access で実行してみる
2. rs にはレコードセットはセットされてる？
-> Debug.Print (rs Is Nothig) で True なら、 rs がない
3. 件数は？
-> Debug.Print rs.EOF でTrue なら、 データがない
4. フィールド名はただしいか？
rs.Fields(0).Name とかでフィールド名をみてみ
(rs!hoge は使わないほうがいいらしい）
0341デフォルトの名無しさんNGNG
http://yahooo.s2.x-beat.com/linkvp/linkvp.html
0342デフォルトの名無しさんNGNG
>>334
ON がなくていいの？
0343デフォルトの名無しさんNGNG
>>334
そのエラーから察するにSQL文に問題あり。
[uriagebi]テーブルと[kokyaku]テーブルのフィールドはどうなってんの？
0344デフォルトの名無しさんNGNG
>>340
「!」で繋ぐのってVB4や5で一般的だったのかな？
最近の書籍やリファレンスでは見かけないのだが。
それともVBAなんかでよくやんのかな。

とりあえず遅いんだよね。

>>334
とりあえず日付囲むなら"より'のほうがよくない？Jetだと#だっけ？
で、SQLへん。INNER JOINの使い方おかしいんじゃない？

0345デフォルトの名無しさんNGNG
>>340
他のフィールドは取り込めることがわかりました
ふたつのテーブルで同じフィールド名（uriagebi）をもっているものがダメなようです。

>>342
すみません。　実際にはＯＮはあります。ココでは省略してました。

>>343
同じフィールド名のときは特別な記述方法があるのでしょうか？

>>344
「！」でつなぐ方法が初心者用ＶＢの本に載っていたので。
他のいい方法があったら教えてください。

0346デフォルトの名無しさんNGNG
話は変わるが
>>344
Jetでの日付は #12/31/1999# の形が一番無難だっけ。他のDBとあわせるなら
'1999-12-31' だったっけ。
0347デフォルトの名無しさんNGNG
>>345
rs.Fields("tablename.fieldname").Value
0348デフォルトの名無しさんNGNG
>>345
省略してるときは，わかるようにしといてくれ。 ... とか (省略)とか
0349デフォルトの名無しさんNGNG
http://laguz.gaiax.com/home/vb_net
ここに行って勉強しな
0350デフォルトの名無しさんNGNG
SQLを学びなさい。
0351デフォルトの名無しさんNGNG
>>347
ばっちりできました！
ありがとうございます。

解決です。
今後、「ｒｓ！」をやめて、「rs.Fields("tablename.fieldname").Value」でいきます

>>348
すみませんでした。

>>349
もっと良さげなところを教えてください。
0352デフォルトの名無しさんNGNG
>>344
「!」が使われていたのは、多分ACCESSの古い仕様のなごりだと思われます。
以下ACCESS1.1のヘルプからのコピペ。


識別演算子

識別演算子 ! と . (ピリオド) は、識別子の構成要素どうしの関係を表します。
演算子 ! のあとには、必ずユーザー定義によるアイテム名 (ユーザーが作成した
フォーム、レポート、コントロール、フィールドなど) を指定してください。演算子 . (ピリオド) の
あとには、通常、プロパティ名を指定します。

演算子 . (ピリオド) を使って、フィールドの値を参照することもできます。その場合、
フィールドが格納されているテーブル名を入力し、そのあとに演算子 . (ピリオド) と
フィールド名を入力します (例：Customers.Address)。演算子 . (ピリオド) を使って、
SQL ステートメントのフィールドの値を参照することもできます。Access Basic の
モジュールでは、演算子 . (ピリオド) を使ってメソッドが参照できます。


ちなみにVB4.0のヘルプには、コード最適化のテクニックとして以下の記述があります。


レコードセットのフィールドを参照する場合は“!”演算子を使用する
Recordset オブジェクトのフィールドを参照するときは、次のように演算子“!”を使用します。

rstEmployees![First Name]

この方法は、フィールド名をかっこで囲むよりも高速です。

rstEmployees("First Name")
0353デフォルトの名無しさんNGNG
>>351
349は単なる広告だろ、たぶん。
0354デフォルトの名無しさんNGNG
VBでjpegやgifなどの画像ファイルから
画像サイズ（幅、高さ）を取得する方法を教えて下さい。
0355デフォルトの名無しさんNGNG
>>354
  with TPicture.Create do
  begin
    LoadFromFile('C:\WINDOWS\winnt.bmp');
    ShowMessage('幅'+IntToStr(Width)+' 高さ'+IntToStr(Height));
    Free;
  end;

UsesにJpegを追加するとJpeg対応になる。
その他多種の形式に対応するならSusieプラグイン等を使うと良い。
0356デフォルトの名無しさんNGNG
>>355
それはVB6じゃないだろ、、
0357デフォルトの名無しさんNGNG
.net？
0358デフォルトの名無しさんNGNG
>>354
バイナリで開いて、数値を取得する。
ただし、jpegは固定位置じゃない。

非表示のimageコントロールに読み込むという手抜きワザもあるけど。
0359デフォルトの名無しさんNGNG
Dim objPicture as Picture
Set objPicture = LoadPicture (strFileName)
Debug.Print objPicture.Width

とかでできなかった？ gifはできないと思うけど
0360デフォルトの名無しさんNGNG
質問です。

過去にActive Report 1.0で作られたデザイナで参照されているのがDAO 3.51らしく、
本体プロジェクトの参照をDAO 3.6に変更してもそれが変わっていないようなのです。

本体でACCESS2000のmdbを読み込んでいる部分（OpenDatabase）でエラー
「データベースの形式 'xxx.mdb' を認識できません。」
が出ていたので試しに参照をDAO 3.6に変更したら修正されたのに、同様にデザイナで
OpenDatabaseしている部分ではエラーが出る。

という症状なのですが、このデザイナの参照しているDAOを変更する事は可能でしょうか？

それとも、別な原因があるのか、ご存知の方いたらご教授願います。


環境は、Win2000sp3、VB6.0sp5です。よろしくお願いします。
0361デフォルトの名無しさんNGNG
>>354
構造の解説サイト見つけてバイナリで取得が一番スマートだと思う。
0362デフォルトの名無しさんNGNG
>>361
そりゃそうだが、VBプログラマでそれができるのがどれほどいるか、、
0363デフォルトの名無しさんNGNG
VBのクラスってのがよく分からんのだけど
解説してるサイトってない？
0364デフォルトの名無しさんNGNG
>>362
VBプログラマかどうかなんて関係ないだろ。
0365デフォルトの名無しさんNGNG
ToolTipで改行表示するにはどうすればいいのでしょうか？
0366デフォルトの名無しさんNGNG
コードエディタウィンドウである文字列を一時的に色付けする方法があれば教えて
0367デフォルトの名無しさんNGNG
>>366
シンタックスエラーを出せば赤くなりますが、何か？
0368デフォルトの名無しさんNGNG
>363
ttp://homepage1.nifty.com/CavalierLab/lab/vb/clsmdl/
とかは？

>VBのクラスって
って事は、他言語のクラスはわかるって事？
んな訳無いか。
ま、解説ページを読むのもいいが、クラスを理解するには
ひたすら使ってみるのが一番だぞ。
0369366NGNG
>>367
変数名とかプロシージャ名とか値とかの特定の文字列だけを色付けしたいのです
行ならブレークポイントでもブックマークでもかまわないですし
0370デフォルトの名無しさんNGNG
>>366
ツール -> オプション -> エディタの設定
0371366NGNG
>>370
説明不足で申し訳ないです
色付けしたいのはひとつの文字列のみです
たとえば変数名 'lngHoge' とか
0372デフォルトの名無しさんNGNG
無理。
ありかが知りたいだけなら適当にCtrl+Fで検索しる。
0373デフォルトの名無しさんNGNG
>>371
VB以外のエディターを使ってください
0374366NGNG
>>372-373
やはりそういう機能はないようですね
アドインでもあればと思ったんですが...
あきらめるとします
皆様どうもでした
0375デフォルトの名無しさんNGNG
Excelの編集で複数行のセルをコピーして、TrueDBGridにCtrl+Cで、
セルを壊さずに貼り付けることは出来るのでしょうか？
知っておられる方がいらっしゃれば方法を教えて頂けないでしょうか？
よろしくお願いします。
0376デフォルトの名無しさんNGNG
VB標準のコントロールの一覧みたいなのってどっかにあります？MSDNみても
コントロールのスクリーンショットまであるようなのは見当たらないんだが
(とくに、どのプロパティーを変えると見た目がかわるか知りたい)
0377デフォルトの名無しさんNGNG
>>376
標準コントロールの見た目って
3D→2D、枠線の色、背景の色、文字の色くらいしか変えられないかと。
0378デフォルトの名無しさんNGNG
>>377
TreeViewとかListView、FlexGridとかがあればかなり助かるんだが
0379デフォルトの名無しさんNGNG
>>345
VBの本って，間違っていないけどあまり薦められないことが平気で書かれてる
ことが多い。
0380デフォルトの名無しさんNGNG
VBでフォームの最前面表示などを制御する為に
API関数「SetWindowpos」を使用し、開発を行っております。
ところが、コンパイルしたプログラムを客先に納品したところ
フォームが全く表示されなくなってしまいました！！
こちらの環境では全く問題なく動作します。
試しに客先に「SetWindowpos」をコメントにしてコンパイルし直した
ものを送ってみた所、うまく動いたとのこと．．．
ちなみにForm_Activateイベントで行っています
どなたかこのような体験のある方、いらっしゃれば
宜しくお願いいたします。
0381デフォルトの名無しさんNGNG
>>380
APIの宣言時に、客先では存在しないパスを指定してるとか？
0382デフォルトの名無しさんNGNG
こちらの環境あちらの環境を語らないおまえが本気で回答を聞きたがっているとは到底思えない
0383デフォルトの名無しさんNGNG
開発環境を客先に合わせていない奴が悪い
俺んとこでは 客先＝IE5 で、こちらをIE6に上げたとたんにADODCが使えなくなった
原因はわかったもののIEはバージョンダウン不可。（つーかコンポーネント類は戻せない）
なんで俺はOSから入れなおしたぞ。
そんなわけでOfficeも2000にはしてない。
Exl2000必須の開発を頼まれた時にはインストールだめと言って別PCは都合してもらった
0384デフォルトの名無しさんNGNG
' ここから*************************
Dim objPrinter as Printer

Set objPrinter = Printer

Set Printer = objPrinter '' ＜ここで型が一致しないエラー発生
' *************************ここまで

はダメで、

' ここから*************************
Dim objPrinter as Printer

For Each objPrinter as Printers

If objPrinter.DeviceName = strPrinterName Then '' strPrinterNameはプリンタ名の入った変数。
Exit For
End If

Next

Set Printer = objPrinter '' ＜似たようなことしてるのに、これはＯＫ。
' *************************ここまで

はセーフなんだけど。
どうして初めのソースはダメで、
後のソースの最後の行がエラーになるのか理解できない。
何かご存知のかた、一手ご教授。
0385デフォルトの名無しさんNGNG
>>383
VMWareとかバーチャルPCとか買えばー
凄く便利だよ
0386デフォルトの名無しさんNGNG
よろです。

EXCEL200+VBAなんですが、
リストボックスコントロールに横方向のスクロールバーってつけられますか？
長いテキストをAddしたいんですが、ケツの部分が隠れて見えないんですよ・・・
0387デフォルトの名無しさんNGNG
>>383
IEごとこでADODCを変えるMSも悪い
0388デフォルトの名無しさんNGNG
>>380
単純に動作環境が違うんでないか?
オーエスの違いで
サポートされてるAPI関数が異なる場合がある
0389デフォルトの名無しさんNGNG
>384
ahoか。型に代入できるわけねえだろ
0390デフォルトの名無しさんNGNG
>>384
おれも詳しくはしらんが、
最初の Set objPrinter = Printer で、 objPrinter と Printer は Printer
オブジェクトと呼ばれるもののアドレスを参照するようになる。そして、
Printer に Printer オブジェクトのアドレスを参照させることは出来ない。

次の Set Printer = objPrinter では、objPrinter は別物。Printers コレク
ションの中のひとつなので、全く別のアドレスを参照している。このアドレス
を渡しても、Printerオブジェクトの方のアドレスは変わらない。
0391デフォルトの名無しさんNGNG
Set Printer = New Printer
0392デフォルトの名無しさんNGNG
ちゅうか、客先で環境限定できないならVB使うな。
または、この環境以外保障しないと仕様で言い切れ。

この辺だけだよな、.netでましになった点って。
0393デフォルトの名無しさんNGNG
＞この環境以外保障しない

それだ！
0394デフォルトの名無しさんNGNG
あるオブジェクト変数が既に使われているか知るにはどうすればいいんでしょうか？
if ObjVar <> Nothing とかやってもエラーになります
0395デフォルトの名無しさんNGNG
>>394
例外を取る関数を作るのが早いかと。
関数内でその変数にアクセスして、Objectが初期化されていないというエラーが返るかどうか判断。

IsNULLとIsEmptyがこれに関して機能しないのてつらいよな。
0396デフォルトの名無しさんNGNG
>>394
If Not ObjVar Is Nothing Then
0397デフォルトの名無しさんNGNG
>>384
つまり、最初の
Set objPrinter = Printer
では、いわゆる Printer オブジェクトを参照していて、 Printer オブジェクト
に Printer オブジェクト を参照させるのは「型が一致しません。」というエ
ラーになるらしい。ためしに、
Set Printer = Printer
ってやったら同じエラーでたし。
0398デフォルトの名無しさんNGNG
マジな話、なんでVB厨ってキモイ配色にしたがるの？
0399デフォルトの名無しさんNGNG
俺もVB厨だが、それは謎。
コマンドボタンに色付けようという発想が分からん。
0400デフォルトの名無しさんNGNG
>>398-399
高校で単位とるだけの為にBASICの授業受けたが、先生から「自分なりに
変えてみれ」と言われると初心者はコードをいじるのが怖いらしく色設定と
コントロールの大きさを変えてばかり。

ラベルのフォントをMSゴシックの12pt太字とかにするなよ…
0401デフォルトの名無しさんNGNG
printerオブジェクトで文字列を縦書きしたいんだけど、どうすればいいですか。
たとえば名前とかを

西村ひろゆき

じゃなくて、

　　西
　　村
　　ひ
　　ろ
　　ゆ
　　き

みたいに。
0402デフォルトの名無しさんNGNG
　 ＿＿
　|　ヽ_ |_|
　|　,'￣| |
　 ￣￣
　-→|-
　　/
　─┼
　　 　、
　　,--'
　（
　　｀‐-,
　　　　
　|　 　　|
　ヽノ＼|
　＿＿
　 　／
　＋-＋
　ヽ_ ノ
　, 、
　|　|_|_|_
　 　 | |

ええっと、こうやって寝かせるのではないです。
純粋な縦書きで。
0403デフォルトの名無しさんNGNG
君の人生、努力する所を間違ってはいないか。
0404デフォルトの名無しさんNGNG
>>403
どういう事ですか？
簡単に実現できる事なのかしら。
0405デフォルトの名無しさんNGNG
>>403
ﾜﾛﾀ
0406403NGNG
>>405
ガイドラインの住人がいるとは知らず…
0407405NGNG
>>406
ばれたΣ（´Д｀ｽﾞｶﾞｰﾝ

方法は知らない。ごめんね
0408デフォルトの名無しさんNGNG
>>14-15
0409デフォルトの名無しさんNGNG
おまいらおもろい
0410デフォルトの名無しさんNGNG
で、縦書きは・・。
一文字ずつ下にシフトさせながら書いていくしかないのかしらん。
なんかすごいブサイクな方法な気がする。
0411デフォルトの名無しさんNGNG
ガイドライン板からきますた（ｗ

>403
Printerオブジェクトに対してグラフィックメソッドを使って文字出力する手法が
なかったかいのう？ちょとうろ覚え＆手元に環境がないので自信がないけど、
座標を直接指定して文字をOutPutするの。適当でｽﾏｿ
0412411NGNG
×>403
○>401
0413デフォルトの名無しさんNGNG
ガ板からきますた．

>>401
lfEscapementで日本語ページをぐぐってみて．一番上に答えが．
0414デフォルトの名無しさんNGNG
http://that.2ch.net/test/read.cgi/gline/1053362736/312
>312 ：水先案名無い人 ：03/05/24 18:35 ID:Z4KTa1zh
>改行が多いって言われたのでリンクのみ。
>
>v（･∀-）b VBプログラマ質問スレ(6.0以前) Part25
>http://pc2.2ch.net/test/read.cgi/tech/1052627913/401-404

ここで晒されてるのか。
0415デフォルトの名無しさんNGNG
VB6.0です。
文字列"a b c d e f"があって、それをスペースで区切り文字１つごとにある処理をしたいのです。
splitして配列を１個ずつ処理しようと思ったのですが、配列の長さがわからない（毎回変わる）ためうまくいきません。
配列の要素の数を知る方法か、それ以外の方法でうまくいく方法を教えてください。
0416デフォルトの名無しさんNGNG
>>415
splitを自作して動的配列に入れるとか。
0417デフォルトの名無しさんNGNG
>415 UBound()
0418デフォルトの名無しさんNGNG
>>415
Dim s
For Each s In Split("a b c d e f")
Debug.Print s
Next
0419 NGNG
すいません。ＶＢ初心者です。
ＡＣＣＥＳＳのテーブル定義の画面のようなものを作りたいと思ってます。
で、ＳＰＲＥＤを使わずに、sheet上でコンボボックスやチェックボックスを
配置したいのですが、良い方法はありませんか？
0420デフォルトの名無しさんNGNG
VBにもDelphiのコントロールグリッドみたいのがあれば・・・
0421デフォルトの名無しさんNGNG
VBで常駐のプログラムを作成して、パソコンの使われてない処理能力だけを使って計算させる。みたいな事はできますか？
0422デフォルトの名無しさんNGNG
>>421
常駐とはサービスプログラムのことか？単なる起動させた状態のことか？
0423デフォルトの名無しさんNGNG
>>420
ちょっと違うけど、データリピータでどう？

>>421
CPU使用率を見ながら処理すればいいんでない？
0424このテンプレいいねNGNG
VB ASP → JSP
VB MTS → EJB
VB ADO → JDBC
VB ADSI → JNDI
VB DCOM → RMI IIOP
VB MSXML → JAXP
VB SOAP Toolkit → JAXM
VB MSMQ → JMS
VB CDO → JavaMail 　
0425デフォルトの名無しさんNGNG
>>424
VBがいかにすごいかわかるね。
0426デフォルトの名無しさんNGNG
>>421
スレッドの優先度を下げては？
0427デフォルトの名無しさんNGNG
>>425
どこが凄い？
VBはvariant型がいやな感じ
0428デフォルトの名無しさんNGNG
てかJSPをASPと比較しようとしている時点で終わってる。
ASPはカスタムタグが貧弱だし。
0429デフォルトの名無しさんNGNG
〉〉422
サービスプログラムとは何でしょうか？
〉〉423
それは考えたんですけど、たとえばループで何かの計算をする時に、どうすればCPUへの負荷を落とせますかね？
あと、CPUの使用率を得る方法でWINTOP.VXDのは知ってるんですけど、APIでやる方法はありませんか？なかなか見つからなくて
0430デフォルトの名無しさんNGNG
>>424
> VB MTS → EJB
ここが非常に引っかかる。EJBはクラス継承が使えないと話にならないフレームワークが
沢山あるしVBでは継承が使えない。

継承が使えなくてはVB MTSは貧弱ではないかと。
0431デフォルトの名無しさんNGNG
>>429
426は無視ですか
0432デフォルトの名無しさんNGNG
そういう言い方すっと余計無視される罠。
0433デフォルトの名無しさんNGNG
「スレッド」がわからんだけだろ？
0434デフォルトの名無しさんNGNG
「スレッド」って何ですか？
0435デフォルトの名無しさんNGNG
氏んでください。
0436デフォルトの名無しさんNGNG
>>427
バリアント型さえつかわなければいいけど。

バリアント型は楽でいいからって容赦なく使う人がいるから。

VBは簡単にプログラムを作れてしまえるだけに
汚いソースコードを大量に生産できてしまう危険性がある。
0437デフォルトの名無しさんNGNG
仕事では使わないよ。
面倒なソース例出せとかそんな時は使うけど。
0438デフォルトの名無しさんNGNG
プロパティのUseMnemonicというのが今一つわからないので教えていただけませんでしょうか？
＆を使ってアクセスキー定義するってどういうことなんでしょうか？
0439デフォルトの名無しさんNGNG
〉〉426
すいません見逃してました。スレッドはわかるのですが、優先度を下げるというのはどうやるのですか？
0440デフォルトの名無しさんNGNG
MIDIの事で・・
ストリーム形式の曲ってどうやって保存するんでしょうか？
右クリック禁止のところのソースを見る方法は知ってるけど。
0441デフォルトの名無しさんNGNG
>>440
VBに何か関係あんの？
0442440NGNG
>>441
板違いでしたか・・スイマセン。
こういう事はどこに質問すればいいんでしょうか？

0443デフォルトの名無しさんNGNG
PC初心者
http://pc2.2ch.net/pcqa/
0444デフォルトの名無しさんNGNG
Win2k で、VB6 + SP5 の、ListViewコントロールを使ってるんですが、

ListSubItems(1).ForeColor = vbBlue

と、設定しても、なぜか青に表示されません。（黒になる）
これを、青以外の、vbGreen、vbRed、vbYellow など他の色はすべて表示されます。
なぜ青だけだめなのでしょう？VBのバグでしょうか？
0445デフォルトの名無しさんNGNG
DBからデータを読み込んでExcelファイルに書き込みしたいと思っています。
データに改行を含んでいると次のセルへ改行されてしまいます。
１セルに改行コードを含む文字列を書き込むようにするのはどうすればいいですか。
[alt]+[return]の改行コードがあるんですか。
0446デフォルトの名無しさんNGNG
>１セルに改行コードを含む文字列を書き込むようにするのはどうすればいいですか。
>[alt]+[return]の改行コードがあるんですか。
馬鹿にも程度ってもんがあるだろ！
0447デフォルトの名無しさんNGNG
>>445
LF だけじゃなかったっけ、たしか
0448_NGNG
http://homepage.mac.com/hiroyuki43/hankaku_b01.html
0449デフォルトの名無しさんNGNG
うん、Excelのセル内ではvbLfが改行コード。
0450デフォルトの名無しさんNGNG
Excelやなんかのように、「ガワ」のウインドウの中に
小さなウインドウ（ブック）が開くようなのはどうやったら作れるのですか？
0451デフォルトの名無しさんNGNG
>>450
MDIのことだな、多分。
0452デフォルトの名無しさんNGNG
>>450
あんたもスゲー人だな。
0453デフォルトの名無しさんNGNG
>>451
ありがとうございます。
調べてみます。

>>452
？？
0454デフォルトの名無しさんNGNG
あるコマンドボタンがどのコンテナに属しているかを知るには、
やはりフレームなどをドラッグしてみて、それにつられてボタンも移動するかどうかで見分けるしかないんでしょうか？
0455デフォルトの名無しさんNGNG
申し訳ありませんが、印刷のことで質問させてください。
都合により、ＴｒｕｅＴｙｐｅフォントをプリンタに１８０度回転させて上下逆にした状態で印刷する必要があるのですが、そのようなことは可能でしょうか？
0456デフォルトの名無しさんNGNG
>>455
CreteFontのEscapeMentを1800かな（ためしてないが）
0457デフォルトの名無しさんNGNG
>>456
なんでMを大文字にする? escapementって一語だぞ。
0458デフォルトの名無しさんNGNG
>>454
大昔ではフォームソース見て包含されているか見て編集していたんだが、今のはどうかな？
テキスト形式で吐ければ何か判るんじゃないの。
0459454NGNG
>>458
.frmファイルを見たら
Begin VB.Frame Frame1
Begin VB.CommandButton Command1
End
End
というふうにフレームの入れ子になってるのがフレームに属してるボタンだとわかりました。
0460460NGNG
オンラインハイスコアみたいなのを作ろうと思うのですが、
どういう風にしたらいいでしょうか？

Open ステートメントかまたはそれと同じように
Web上にアップロードしたファイルから読み込むとか出来るますか？
0461デフォルトの名無しさんNGNG
>>460
perlかなんかでサーバーサイドに集計プログラム作って、
そのcgiにスコアの引数を送受信する形になってくるだろうな。
むろん、暗号化して。
0462460NGNG
わかりました、ありがとうございます。
少ない知識で暗号化もがんばってみます
0463デフォルトの名無しさんNGNG
構造体と動的配列に関する質問です。

構造体
type Atype
　b() as integer
end type
をつくっといて

dim a() as Atype
redim a(2)　　　←a()のサイズを2に(これは問題ない)
redim a(1).b(3)　←a(1)に属するb()のサイズを3に

とすると、二つめのredimもa()に対するものとして受け取られてしまい、
b()のサイズを変更できません。
どうしたらこの状態でb()のサイズを操作できるでしょうか?

この方法でなくても、これと同じことができればよいのですが。
0464デフォルトの名無しさんNGNG
>>463
？？？
その書き方で動きましたが。
0465デフォルトの名無しさんNGNG
VBもいいけど無料でゲットできるDelphiへの移行も考えてみなよ。

ベクターのDelphiのダウンロードページ
http://www.vector.co.jp/soft/win95/prog/se205882.html
VBからDelphiへの移行を支えてくれるサイト
http://www.wwlnk.com/boheme/
0466デフォルトの名無しさんNGNG
Delphiって仕事では使わないからなー
0467デフォルトの名無しさんNGNG
ADOでAddNewでもSQL Insert文をExecuteでも
連続して大量に行おうとすると
メモリをどんどん消費してしまいます

コネクションを切った時点でメモリを開放するようなのですが
途中で開放したり
メモリを消費しないようにする方法はあるのでしょうか？
0468デフォルトの名無しさんNGNG
>>467
ADOを使わないっていうのが一つの手かも
0469デフォルトの名無しさんNGNG
VBの開発なんだが、ファイルのアーカイブを行うのってどういう手段がある？
0470デフォルトの名無しさんNGNG
>>468
DAOですかね。ちょっと、ADOを指定されてて、まいったなぁ。

再現コードです。ループでメモリがどんどん消費されます。MSGBOXのところで、いったんコネクションを切るとメモリが開放されます。
大量のデータをDBに登録したいとき、みなさんだとどうやりますか？

Private Sub Command1_Click()
Dim fso As New FileSystemObject
Dim cat As New ADOX.Catalog
Dim cn As ADODB.Connection
Dim rs As New ADODB.Recordset
Dim i As Long

Call cat.Create("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & mdb & ";Jet OLEDB:Engine Type=5;")
Set cn = cat.ActiveConnection
cn.Execute "CREATE TABLE XXX(a CHAR(10),b CHAR(10),C CHAR(10),D CHAR(10),E CHAR(10));"
rs.Open "XXX", cn, adOpenKeyset, adLockPessimistic

For i = 0 To 999999
rs.AddNew Array("a", "b"), Array(Format(i, "000000"), "000000")
If i Mod 10000 = 0 Then
MsgBox "refleshしたい"
End If
Next i
End Sub
0471_NGNG
http://homepage.mac.com/hiroyuki43/jaz07.html
0472デフォルトの名無しさんNGNG
>>470
接続プールを使う。
0473472NGNG
あんま意味無いか
0474デフォルトの名無しさんNGNG
Delphiの企業向けの仕事ってあるの？
0475デフォルトの名無しさんNGNG
>>474
ある
0476bloomNGNG
http://homepage.mac.com/ayaya16/
0477デフォルトの名無しさんNGNG
>>472
接続プールって知らない。
ありがとう。それも調べてみるね。
0478デフォルトの名無しさんNGNG
最近VBの仕事が少ないと聞くけど、
delphiほど少なくはないんでしょ？
0479デフォルトの名無しさんNGNG
仕事ならDelphiよりVBだろうけど、VBはこの先先細りだからねえ。
Delphiでなくとも今のうちからC#かなにか覚えておいたほうがいいよ。
0480472NGNG
>>477
470のような場合だと意味ないはず。
0481デフォルトの名無しさんNGNG
>>480
調べてみた。うん、関係ないか。

コネクションを切っても、即効でつなぎなおすとメモリは開放されないんです。
コネクションを切ったあとにMSGBOX出して１秒ぐらいあけて閉じれば
メモリは開放されるんです。

非同期でやってるわけでもないのに、いったい何をキャッシュしてるんだろう。
しばらく毎にアイドリングしなければだめなのかな。
オプションやプロパティーの設定で回避できるものなのか調べてるけど、さっぱりです。
0482デフォルトの名無しさんNGNG
もともとメモリなんてすぐ解放されるもんじゃないだろ。
メモリ管理もろくすっぽやってないDOSとかならともかく。
0483デフォルトの名無しさんNGNG
>>482
そうですが、大量のDB登録で
メモリスワップまで発生してパフォーマンスが落ちては問題ですし
途中でコネクションを閉じてアイドリングさせる方法以外に
もっとスマートでオフィシャルな開放方法があるんじゃないかなと思いまして。

ADOって、連続してレコードを追加する際は、合間に休ませろ
なんて仕様なんでしょうか
聞き方が悪いのかgoogleさんは答えてくれないし、困りました。
0484デフォルトの名無しさんNGNG
どうでもいいけど、リフレッシュのスペルはrefreshだ。
0485デフォルトの名無しさんNGNG
>>484
もう、げんなりですよ。
0486デフォルトの名無しさんNGNG
>>483
ADOのことはよく知りません。
0487デフォルトの名無しさんNGNG
ADOで十万件のINSERTじゃ、どうやっても遅いのは仕方ないんじゃなかろうか。
サーバー側でスクリプトやストアド組むのはダメなの?
0488デフォルトの名無しさんNGNG
>>487
ええと、サバクラじゃなくて、ローカルアプリケーションの内蔵DBといった用途でして
スピードは問題ないんですよ、メモリをなぜか消費してしまうと。

で、今、adLockBatchOptimisticでrs.BatchUpdateにしたら、ぜんぜんメモリ食わなくなりました。
しかも速度もアップ。Batchでまとめるほうがメモリ食わないんでうすね。

そんなわけで、とりあえず、解決しました。いろいろありがと＞みなさん
0489デフォルトの名無しさんNGNG
お邪魔します。
あのぉー、どこに質問したらいいのか分からない
くらいもしかしたら初歩的な質問かもしれないの
ですが、、、（汗）
自分でサイトを作っているのですが、
リンクを張って、普通にページに飛ぶのではなくて
小さい小窓のようなウィンドウが開くように
するにはどうしたら良いのでしょうか？

スレッド違いだったらホントごめんなさい。
どなたかよろしくお願いします。。
0490デフォルトの名無しさんNGNG
>>488
あ、嘘。追加されてなかった。
エラーも出ないのかな？？？？
0491デフォルトの名無しさんNGNG
>489
goto http://pc2.2ch.net/hp/
0492デフォルトの名無しさんNGNG
>>490
エラーの場合，エラーが出るはず。UpdateBatchの前にUpdateしてる？
0493デフォルトの名無しさんNGNG
UpdateBatchのサンプルくれ
0494デフォルトの名無しさんNGNG
On Error GoTo ErrH
If (rs.ActiveConnection Is Nothing) Then
Set rs.ActiveConnection = cn
End If

Call cn.BeginTrans
rs.Fields(flagName).value = "1"
Call rs.Update
Call rs.UpdateBatch
Call cn.CommitTrans

Set rs.ActiveConnection = Nothing
Exit Function
0495デフォルトの名無しさんNGNG
レコードセット使わず、ConnectionかCommandだけでやったらいかが？
0496470NGNG
493 494 は私ではないです。

>>492
メインで書いてるコードではエラーが起きない
AddNewのあとにはUpdateしてる

小さいシンプルなコードで書いたらエラーでました。

ちょっと、大きなコードのほうは別のエラーも入っていそうなので、
ちょっと精査してます。
0497デフォルトの名無しさんNGNG
>>495
ええとですね、Connection.Execute で SQL Insert文を連続発行しても、メモリが消費されてしまうんですよ。
で、スピードはAddNewの方が圧倒的に早いのでそっちでためしています。
ですが、メモリの問題がクリアできるなら多少遅くともExecuteでSQL投げます。
0498470NGNG
　Const mdb As String = "c:\tmp.mdb"
　Dim cat As New ADOX.Catalog
　Dim cn As ADODB.Connection
　Dim rs As New ADODB.Recordset
　Dim i As Long

　Call cat.Create("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & mdb & ";Jet OLEDB:Engine Type=5;")
　Set cn = cat.ActiveConnection
　cn.Execute "CREATE TABLE XXX(a CHAR(10),b CHAR(10),C CHAR(10),D CHAR(10),E CHAR(10));"
　rs.Open "XXX", cn, adOpenKeyset, adLockBatchOptimistic
　
　For i = 1 To 999999
　　rs.AddNew Array("a", "b"), Array(Format(i, "000000"), "000000")
　　rs("c") = "cccc"
　　rs.Update
　　If i Mod 1000 = 0 Then
　　　rs.UpdateBatch
　　End If
　Next i
0499デフォルトの名無しさんNGNG
>>497
Execute のオプションに adExecuteNoRecords を付けてる？
0500499NGNG
付けてないみたいだね。
0501470NGNG
>>499
あ、新情報ありがとうございます。調べてみます。
0502470NGNG
Call cat.Create("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & mdb & ";Jet OLEDB:Engine Type=5;")
Set cn = cat.ActiveConnection
cn.Execute "CREATE TABLE XXX(a CHAR(100),b CHAR(100),C CHAR(100),D CHAR(100),E CHAR(100));", , adExecuteNoRecords

For i = 0 To 999999
　cn.Execute "INSERT INTO XXX VALUES( '" & Format(i, "000000") & "', 'b', 'c', 'd', 'e' );", , adExecuteNoRecords
Next i

これでも、どんどんメモリが消費されてしまうんです。
0503デフォルトの名無しさんNGNG
VB で、自プロセスの消費メモリ容量ってどうやって調べるのでしょうか？
0504デフォルトの名無しさんNGNG
消費してるメモリってDB側なんじゃ
0505デフォルトの名無しさんNGNG
>>503 隣でタスクマネージャ起動
0506デフォルトの名無しさんNGNG
win2kならprocess viewer 立ち上げる方法しか知らない。

細かいけど，Formatは遅いから1000000回のループだと別の方法の方が
いいと思われ。
0507470NGNG
>>504
DB側だと思うけど(JETエンジンのDLL?)
タスクマネージャだとVB6.EXEが増大してます。
0508470NGNG
>>506
Right$("000000" & i, 6) って感じでしょうか。まぁ、これは実際には使わないコードだし、DBのパフォーマンスからみればチリのようなものかと。
0509デフォルトの名無しさんNGNG
今までメモリの消費量なんて気にしたことなかった。
いったい何件追加するの？
DBはAccessなんですよね？
大丈夫ですか？
0510デフォルトの名無しさんNGNG
っていうか、mdbで100万件はMSの保証値を大きく超えてるな
0511470NGNG
>>509　>>510
ん、まぁそう判断してあきらめるのを、どの辺りでするかといったところですかね。
どう判断した場合、何回かごとにコネクションを切断して、数秒アイドリングさせるといったことが必要になります。
できれば避けたいと思っています。
もう少し探してみます。
0512470NGNG
>>510
１００万件というのも、場合次第なのですが
レコードサイズもフィールド数も大きいので
メモリの消費量も大きくなるみたいです。
先ほどのコードのCHAR(10)ってのをCHAR(100)にすると、がんがんメモリ食います。
0513デフォルトの名無しさんNGNG
>>470
Connection を使わずに Recordset をダイレクトに開く・・・
0514デフォルトの名無しさんNGNG
なぜにADOX？
0515470NGNG
>>513
試してみます。

>>514
あー、MDBを生成する為です。なにか問題あったりするのでしょうか。
VBに触れて５ヶ月、まだまだわからない定石だらけでして。
0516デフォルトの名無しさんNGNG
これで作ったmdb。うちのAccessだと開けない・・・
データベースの形式 <ファイル名> を認識できません。(Error 3343)
0517470NGNG
ところで、ふつうADOを扱うときは
コネクションを頻繁に切断するものなのでしょうか？
たくさんInsertをしたりするアプリケーションを掻いたことのある人
どうしてましたか？
0518470NGNG
>>516
MDBのバージョンかしら。
Microsoft.Jet.OLEDB.4.0 のところを下げたら見えるかも。
当方Accsess2000で開けています。
0519470NGNG
>>513
rs.Open "XXX", "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & mdb & ";Jet OLEDB:Engine Type=5;", adOpenKeyset, adLockPessimistic
ってしても、案の定なんら変わらなかったです。
0520デフォルトの名無しさんNGNG
>>518
うちとこAccess97やけん。おかしいと思った、いつもはOLEDB.3.51やもん
やっぱDAOやな。俺はそれしかしらん。
ADOには泣かされた経験多々，がんがれ
0521470NGNG
>>520
どうしてもADOだめならDAOもやってみるよ
なんか、コネクション切れば開放されるとか言ったけど
それも違ってたよ、開放されたようにみえて開放されてませんでした
再開したら同じとこまで戻っちゃう。
0522デフォルトの名無しさんNGNG
>>521
今ダオってみてるけど。桁が違うだけでリークされちまう・・鬱　ビルゲイツのバカやロウ！
0523470NGNG
>>522
そうですかぁ。DAOはさわったことなかったので、調べつつやってみてますけど
気力が・・・。
こつこつ、ひとつづつ、つぶしていきます。
0524デフォルトの名無しさんNGNG
>>517
それは接続プール。
cn.Closed
とすると、実はWindowsが裏でしばらくの間保持していてくれる。つぎにコネ
クションを張ったときにはこのプールされた接続を使う。
0525470NGNG
>>524
なるべく、メモリを消費しないようにするにはどうしたらよいのでしょう？
アプリケーションを再起動しないとだめなんでしょうか？
0526デフォルトの名無しさんNGNG
vbsでDOSプロンプトから入力する方法を教えて下さい
> test.vbs
> メッセージを入力して下さい ← これが表示される
> xxxx ← 値を入力する

ソース側で値を受け取る方法も教えて下さい
よろしくお願いします
0527長文御無礼NGNG
'一応DAO貼り。環境が違うので保証しがたいです。
'メモリ使用はワークスペースのサイズで、一度膨れたサイズは再利用されてる様子。
'（一回目Cancel→弐回目Cancel として動きを確認 排他制御やインデックスは別問題としてほしい）
'とりあえずうちとこの三勝設定　Microsoft DAO 3.51 Object Library のみ
Private Sub Command1_Click()
Dim db As Database: Dim rs As Recordset: Dim td As TableDef: Dim I As Long
Dim rc As Integer
On Error GoTo eHandle
Set db = Workspaces(0).CreateDatabase(Format(Now(), "HHNNSS") & ".mdb", dbLangJapanese)
Set td = db.CreateTableDef("XXX")
td.Fields.Append td.CreateField("A", dbText, 10)
td.Fields.Append td.CreateField("B", dbText, 10)
td.Fields.Append td.CreateField("C", dbText, 10)
db.TableDefs.Append td
Set td = Nothing
Set rs = db.OpenRecordset("XXX")
For I = 0 To 999999
rs.AddNew
rs.Fields(0) = Format(I, "000000"): rs.Fields(1) = "000000"
rs.Update
If I Mod 10000 = 0 Then
rc = MsgBox("refleshしたい", vbYesNoCancel + vbDefaultButton2)
If rc = vbCancel Then
Exit For
ElseIf rc = vbYes Then
End If
End If
Next I
Exit Sub
eHandle:
MsgBox Err.Description, vbMsgBoxHelpButton, , Err.HelpFile, Err.HelpContext
End Sub
0528デフォルトの名無しさんNGNG
>>526
http://www.roy.hi-ho.ne.jp/mutaguchi/wsh/install.htm
0529デフォルトの名無しさんNGNG
ttp://homepage2.nifty.com/inform/vbdb/daoado.htm
0530470NGNG
>>527
ああ、とても助かります。ありがとうございます。

で、DAOも駄目なのかぁ。。。さてと。どうしようかなぁ。
0531デフォルトの名無しさんNGNG
まだやってんのか、これ…
0532470NGNG
>>531
すんません、なんかFAQネタかと思うぐらいシンプルなのに
はまってしまったようで・・・
0533デフォルトの名無しさんNGNG
>>532
ｵﾏｴが言うな
0534526NGNG
>>528-529
有難うございます。
inputboxでpop upからの入力は分かりますが
DOSのコマンドプロンプトからの入出力が分か
りません
お手数ですがお願いします
0535デフォルトの名無しさんNGNG
【PC版】Ever17-the out of infinity【大失敗作】
http://www2.bbspink.com/test/read.cgi/erog/1053601941/
0536デフォルトの名無しさんNGNG
VBでスレッドの優先度を落とすのはどうすればいいのですか？VCならそれっぽいのがあるのですが・・・。VBでは見つかりません。
0537470NGNG
>>533
なんで気を悪くされたのか、わかりません。
簡単な問題そうに思えたのに、意外と難しかった。
と思っています。
0538デフォルトの名無しさんNGNG
>>536
VCでのそれっぽいやり方を晒せや。それが可能かどうか答えが返ってくるだろ。
0539デフォルトの名無しさんNGNG
--------●○●別れさせ屋●復讐代行業務●○●----------

●騙された・裏切られた・弄ばれた・逃げられた・捨てられた・
相手に誠意が無い・異性問題・家庭内暴力・不倫疑惑解明・人間関係・金銭トラブル★
●　 http://www.blacklist.jp/i　【ファイルにコピーして開いて下さい】
別離工作・情報収集・トラブル対策・ボディガ―ド・等々！
●真剣にお悩みの方、安心してご相談下さい。解決へ導きます★
□■各種データ・電話番号調査・住民票・戸籍謄本など調査■□
ジャンプしない場合にはファイルにＵＲＬをコピーして開いて下さい★☆★
●　 http://www.blacklist.jp/i　 ●別れさせ屋・特殊工作・調査全般
● 　http://www.blacklist.jp/ 　 ●復讐代行・人生相談・駆け込み寺
--------------------------
リンク⇒　http://okudaira.co.jp　殺人事件簿!!!●●●
●リンク広告主大募集・詳しくは復讐屋まで!!!
0540470NGNG
http://support.microsoft.com/default.aspx?scid=kb;en-us;124709
これかな
0541526NGNG
vbsを右クリして”コマンドプロンプトで開く”でやっても
pop upが出ます。
cuiで入出力をやりたいんですが．．．。
0542デフォルトの名無しさんNGNG
>>541
他の言語つかえ。
0543デフォルトの名無しさんNGNG
VBでエラーが発生したとき、その発生した行を特定する方法ってありますかね？
0544526NGNG
>>542
できないんですか。分かりました。
有難うございます。
0545デフォルトの名無しさんNGNG
>>543
EXEになってたら行もなにもあったもんじゃないだろ?
0546543NGNG
>545
確かにそのとおりなんだけど・・・・

On Erorr goto ×××でエラートラップして、エラー内容と発生した関数をログに
落とすようにしてるんだけどさ、「どの行でエラーになったか」までが把握できたら
いいなあと思ったわけなんですわ。それで皆様のお知恵を借りたいな、と。
0547デフォルトの名無しさんNGNG
>>543
erl
0548543NGNG
>547
昔のBASICにはあったけど、VBにもありましたっけ？
ヘルプでは出てこなかったので・・・・（ ´･ω･)　
0549デフォルトの名無しさんNGNG
>>544
日本脳園 - Visual Basicアプリケーションによる標準入出力の利用−VBScriptの併用
http://homepage2.nifty.com/nihon-nouen/programming-stdinout.htm
0550デフォルトの名無しさんNGNG
>>548
インタプリタとコンパイラを同じように見られてもな。
0551デフォルトの名無しさんNGNG
>>547
ヘルプには載ってない。疑うより、試してみろ。
0552543NGNG
>550
そりゃ解ってんだけどさー（ ´･ω･)　

>551
ありがとう。当たって砕けてみるっす。
0553526NGNG
>>549
有難う！試してみます！！
0554デフォルトの名無しさんNGNG
>>553
Dim str
WScript.echo("メッセージを入力して下さい")
str = WScript.StdIn.ReadLine
WScript.echo(str)
0555526NGNG
>>554
有難うございます（涙
0556デフォルトの名無しさんNGNG
>>552
http://www.kit.co.jp/vbit/randTalk02.htm
0557デフォルトの名無しさんNGNG
タスクバーに表示されるアイコンで
XPのWindowsUpdateのような吹き出しのメッセージを表示させたいのですが
吹き出しを作り右隅に表示されることはできたのですが、そのプログラムの
アイコンから吹き出しがでてるようにすることができません。アイコンの
座標がわかれば出来ると思うのですが、方法がわかりません。どなたか
教えてください。
0558デフォルトの名無しさんNGNG
>>557
それ俺もしりたーい。
ソースくれくれ
0559デフォルトの名無しさんNGNG
ブロック崩しを作っていて、球（picture1)を跳ね返す台（picture2)ありますよね。
球が台に当たれば跳ね返すという判定がわかんないんだけど
どうすればいいのでしょう？アホっぽい質問で申し訳ないんだけども(;´Д｀)
0560デフォルトの名無しさんNGNG
http://homepage3.nifty.com/coco-nut/
( o^∇^)ﾍ_□~~~~~~‡~~~~~~□_ヾ(^ｰ^*) ｲﾝﾀｰﾈｯﾄ♪
http://jbbs.shitaraba.com/computer/2364/
0561デフォルトの名無しさんNGNG
>>559
http://www.geocities.co.jp/SiliconValley/2530/vbblock.html
http://pc.2ch.net/tech/kako/1004/10048/1004855513.html
0562デフォルトの名無しさんNGNG
>>546
各行ごとに lngLine = lngLine + 1 として、エラートラップでそれを吐き出
せば？
0563デフォルトの名無しさんNGNG
>>464
463です。この書き方で動いてました。
何か勘違いしてました。どうもありがとうございます。
ちなみに、こういう配列は｢ジャグ配列｣といってVB.netには
実装されているみたいですね。
0564デフォルトの名無しさんNGNG
>>562
下らんネタ言ってないで真面目に答えてやれよ。
行番号をつけるにはawkでも使うと楽。
Sub Main()
On Error GoTo ErrorHandler
100 Debug.Print 1 / 0
Exit Sub
ErrorHandler:
MsgBox Erl & " " & Err.Description
End Sub
0565470NGNG
VBでADO+MDBのように使えるローカルアプリケーション用のデータベースってありますか。
MySQLにはたしか内蔵用のライブラリもあったような。。。
DLLにしてAPIコールすれば使えるのか試してみよ・・・。
0566デフォルトの名無しさんNGNG
>>565
MSDEとか？
http://www.microsoft.com/japan/msdn/vstudio/msde/genfaq.asp
0567デフォルトの名無しさんNGNG
VBのコメントの ' を付け消しするボタンってショートカットキーありますか
0568デフォルトの名無しさんNGNG
Shift+7
0569デフォルトの名無しさんNGNG
>>567
ツールバーに「編集」を表示し、ツールバーをユーザ設定状態にし、
コメントブロック、非コメントブロックを右クリックしてボタンのテキストを表示して、
名前に(&C)とか入れるとALT+Cをショートカットとして使えるようになる。
0570デフォルトの名無しさんNGNG
>>543
金をかけてもいいなら DevPertner とかいうソフトがそんな機能持っている気がする。
0571山崎渉NGNG
　　　 　∧＿∧
ﾋﾟｭ.ｰ　(　　＾＾ ） ＜これからも僕を応援して下さいね（＾＾）。
　　＝〔~∪￣￣〕
　　＝ ◎――◎ 　　　　　　　　　　　　　　　　　　　　　山崎渉
0572デフォルトの名無しさんNGNG
>>568
不覚にも試してしまった
0573デフォルトの名無しさんNGNG
>>572
不覚すぎ
0574デフォルトの名無しさんNGNG
クラスのコピーってどうやって作んの？
0575デフォルトの名無しさんNGNG
クリレポ（8.5）のスレありませんか？
0576_NGNG
http://homepage.mac.com/hiroyuki43/hankaku/jaz08.html
0577デフォルトの名無しさんNGNG
>>574
インスタンスのことか？
0578デフォルトの名無しさんNGNG
>>577
インスタンスのことかどうかはよくわからないのですが
自分自身のコピーを作り一部のプロパティを変更して
最終的にグローバルなコレクションに追加したいのです
もちろんコピー元のクラスもこのコレクションのメンバです
しかし普通に代入すると元の値まで変わってしまうようで

見当違いなこと考えてるのかも知れませんが
0579デフォルトの名無しさんNGNG
＞インスタンスのことかどうかはよくわからないのですが
レスもらったら、まず調べてから次のレスしる。
0580デフォルトの名無しさんNGNG
>>569
ありがとうございます。
設定はできたけど、なんか動きませんでした。
いろいろ試してみます。
0581デフォルトの名無しさんNGNG
>>578
その話し振りだと、クラスのこと理解してないね。クラスの勉強をしたらどう？
0582デフォルトの名無しさんNGNG
>>578
memcpy
0583デフォルトの名無しさんNGNG
>>557
できましたよー
NOTIFYICONDATA構造体を新しくして
NIF_INFOでMODIFYすればいいみたいですよ。

tnd.uFlags = NIF_INFO;
lstrcpy(tnd.szInfo, "aaa");
tnd.uTimeout = 15000;
lstrcpy(tnd.szInfoTitle, "AAA");
tnd.dwInfoFlags = 1;
Shell_NotifyIcon(NIM_MODIFY, (NOTIFYICONDATA *)&tnd);
0584デフォルトの名無しさんNGNG
新しい構造体の定義はこちら
http://yokohama.cool.ne.jp/chokuto/urawaza/struct/NOTIFYICONDATA.html
0585デフォルトの名無しさんNGNG
Berkeley DB をVBで使えますでしょうか？
どこかにラッパーでCOMになってるようなものがあったら教えてください
0586デフォルトの名無しさんNGNG
>578
=演算子をオーバーライドしてください。
0587デフォルトの名無しさんNGNG
クラスモジュールって、どういう時に使ってる？
共通的な処理でもないのに徹底的に処理をクラスモジュール化したPGMあるんだけど、
こんなのってどうよ？
追っかけきれん。
0588デフォルトの名無しさんNGNG
初心者で申し訳ございませんが、是非皆さんの知恵をお貸しくださいませ。
ランダムアクセスファイルで検索機能をつけたいのですが、１つだけ検索結果を
表示することができるのですが、複数の場合（住所が東京で複数ある）
For i = i To LOF(filenum) \ Len(Address)'レコード全部読み込む
Get #filenum, i, Address　　　　　
If Address.Name Like (strtemp & "*") Then '.Nameとstrtempを比較
rcNo = i　'検索条件にヒットしたレコード番号を取得
End If
Next i
Get #filenum, rcNo, BihinType　'取得したレコード番号のデータを取得
複数検索条件と一致した時にどうすればすべてのレコード番号を取得できますか？
すみませんが、よろしくお願いします。
0589デフォルトの名無しさんNGNG
>>588
動的配列使うえばー
0590デフォルトの名無しさんNGNG
うえばー
0591デフォルトの名無しさんNGNG
>587
共通処理かどうかは、クラスモジュールにするかどうかとは関係ない。
オブジェクトにすべき物をクラスに分割する。
静的分析に関しては、
[憂鬱なプログラマのためのオブジェクト指向入門]でも読め。
0592デフォルトの名無しさんNGNG
>>587
> 共通的な処理でもないのに徹底的に処理をクラスモジュール化したPGMあるん
> だけど、こんなのってどうよ？

VB.Netでは、標準モジュールもクラスの特別な例だそうだから、おんなじ
じゃない？おれが作るプログラムは大体標準モジュールはほとんどない。
0593デフォルトの名無しさんNGNG
スタートレックファン集まれ
皆でドンドン盛り上げましょう。
スタートレックファンの証明・・
http://tv.2ch.net/test/read.cgi/tv2/999144896/l50
0594リアル消防XNGNG
三本の棒が立っている。
この三本の棒の一番左の棒には下が一番大きな輪
上が一番小さな輪がくなるようにはめてある。
この輪を全て中心の棒に移動させる訳だが、それにはルールがあり
・一度にひとつの輪しか移動できない。
・必ず下に大きな輪が来るように移動させなければならない。

10 LET X=2
20 PRINT X-1;"枚"
30 PRINT 2^X-1
40 LET X=X+1
50 GOTO 20
END
0595リアル消防XNGNG
とやると、49枚あたりからうまく表示されないんだよな〜
0596デフォルトの名無しさんNGNG
スレタイ嫁よ。
0597デフォルトの名無しさんNGNG
>>594
M-x hanoi
0598デフォルトの名無しさんNGNG
あるコントロールのツールチップをポップアップさせる方法ありませんか？
マウスカーソルを上に持ってくるとかは無しで
0599デフォルトの名無しさんNGNG
上にラベル表示させる。
0600デフォルトの名無しさんNGNG
>>598
APIでメッセージ送る。具体的な方法はぐぐれ。2000件ほどヒットする。
0601デフォルトの名無しさんNGNG
ｸﾞｸﾞｯたんならアドレス貼ってやればいいのに。
0602デフォルトの名無しさんNGNG
印刷はどんな方法使ってますか？
どれが一番いいと思いますか？

0603デフォルトの名無しさんNGNG
>>602
プリンタ使わないときついだろ、やっぱ。
0604デフォルトの名無しさんNGNG
漏れもプリンタだな。
0605デフォルトの名無しさんNGNG

≡ ∧＿∧　 ∧＿∧　　
≡( # ｀Д´)⊃ ）Д｀） >>603
≡/つ　 /　 ⊂　⊂/
0606デフォルトの名無しさんNGNG
>>605
＿＿＿　　　　ﾋﾞｼ!
￣￣　 ∧＿∧　ﾋﾟｼ!!　 ∧＿∧
￣￣　<丶｀∀´>　☆　（#）´Д｀）
ー　　ノ⌒つ　ﾉ⌒て〕☆ﾉ　#　 ⌒つ
　　 （　´　／￣￣　　／#　　　ﾉ´
　／ )　　）＿＿　　/　／＼　く
　〆　レ '￣　　　 レ´　　　し´
やりやがったな！そりゃそりゃ
0607デフォルトの名無しさんNGNG
>>606
チョン氏ね
0608デフォルトの名無しさんNGNG
csvファイルに出力する方法で
A列、B列の順に出力したいです。
xx.WriteLine(a b)
aとbの間に何を入れればいいでしょうか。当方office2000です。
初歩的な質問ですみません
0609あNGNG
>608
xxx.WriteLine(a &"," &b)
カンマ
0610デフォルトの名無しさんNGNG
クソ初心者な質問をさせてください。

VBプログラムを配布したのですが、実行環境に必要なファイルが
ないと怒られるので起動できません。

とりあえずVBの標準ランタイムなどもふくめ、必要なdllやらocxやらを
exe本体と同じフォルダに置いたらいいんでしょうか？
system32の中とかあまりいじりたくないので・・・。

よろしこおながいすます。
0611デフォルトの名無しさんNGNG
>>610
Side-By-Sideを使うなら、それでOKです。ただし、レジストリへの登録は、
すでに同じCOMコンポーネントがあるなら、それを上書きしてはなりません。

Side-By-Sideを使わないのなら、それは不可能です。
0612デフォルトの名無しさんNGNG
>>587
そのプロジェクトはオブジェクト指向でつくられたんだろう。君はOOPをしらないよう
だから、へたに手を出さないほうがいいよ。手続き型しか知らない人がオブジェクト
指向でできてるものをいじると、せっかくのオブジェクト指向を壊すから。
0613デフォルトの名無しさんNGNG
オブジェクト指向なんていらないと思われ
0614デフォルトの名無しさんNGNG
>>613
自分ができないだけでしょ
0615デフォルトの名無しさんNGNG
　ピクチャーボックスの中に置いたテキストボックスやラベルをそのまま印刷する方法を教えていただけますか？
　printpictureでは、画像しか印刷されず、何も映らないんです。
0616デフォルトの名無しさんNGNG
printscreen
0617デフォルトの名無しさんNGNG
　すいません、>>615のものです。form自体はプリントアウトしたくないんです。あくまでピクチャーボックスの中だけをプリンターで出力したいんです。
0618デフォルトの名無しさんNGNG
>>617
Ａ案
１．もう一つ，裏に同サイズのピクチャ(p2)を用意する（Vis=False，AutoRedraw=True）
２．さらに，テキストのコピー用にピクチャ(ptxt)を用意する（Vis=False，AutoRedraw=True）
ptxt.FontName = text1.FontName
ptxt.FontSize = text1.FontSize
ptxt.Print text1.Text
p2.Picture = p1.Image
p2.PaintPicture ptxt.Image, text1.Left, text1.Top
Printer.PaintPicture p2.Image
Printer.EndDoc
３．ボックスの境界線とかが居るならそれは自分で書く。

Ｂ案
１．ＡＰＩ，GetWindowDCとBitBldを定義
BitBlt p2.hDC, 0, 0, 100, 100, GetWindowDC(text1.hwnd), 0, 0, &HCC0020
p2.Refresh
0619デフォルトの名無しさんNGNG
>>618
　ひとまずAでやってみます。ご丁寧にどうもありがとうございました。
0620デフォルトの名無しさんNGNG
ADOのRecordsetのFieldsで、フィールドがあるかどうかはどうやってわかります？

If (rs.Fields("FieldName") Is Nothing) Then

ではダメなので、For で rs.Field(i).Name = "FieldName" で判定しているん
ですが、もっとかっこいいやり方がないかと。
0621デフォルトの名無しさんNGNG
あるかないか分からない状況って何？
0622デフォルトの名無しさんNGNG
SELECT * FROM hoge
したときにあるかどうかわからん、みたいな状況です。
0623デフォルトの名無しさんNGNG
答１
　For Each fldWk In rs.Fields
　　If fldWk.Name = "hogege" Then
　　　Msgbox "I't so cool!!"
　　　Exit For
　　End If
　Next

答２
　基本設計を見なおせ
0624デフォルトの名無しさんNGNG
答２ﾜﾗﾀ

後々の事考えると、こっちが有力だろうな。
0625デフォルトの名無しさんNGNG
>>623
>答1
既にやってます。

>答2
たんなる SELECT * なら基本設計見直すべきところでしょうが、DBスキーマを
見るモジュール作ってるんで。
0626デフォルトの名無しさんNGNG
＞既にやってます。
十分かっこいいだろ、まだ不服なのか？
0627デフォルトの名無しさんNGNG
>>626
620でそれ以外にといってるのに、あえてその方法を出してくるところが
わからん。
0628デフォルトの名無しさんNGNG
>>620
フィールドの構成を取得したいなら SQLDMO を使え。
0629デフォルトの名無しさんNGNG
SQLDMOを使ったところで同じことだろう。もう少し考えてから発言しろ。
0630デフォルトの名無しさんNGNG
失礼します。
Inetコンポーネントで、FTPサーバからファイルを取得するプログラムを
作ってるんですが、相手がUNIXのためEUCで取得してしまうので（？）、
改行コードが消えてしまい、その後のファイルから１レコードづつ
配列に格納する部分で、データが１レコードに全部収まってしまいます。

ファイル取得時に改行コードが消えない方法を教えていただきたいのですが。
よろしくお願いします。
0631デフォルトの名無しさんNGNG
>>630
俺も似たようなやつ作ってるんだが
一旦　ローカルにＦＴＰしたファイルを
ＶＢで改行コード　リプレースする処理作ってるぞ
0632デフォルトの名無しさんNGNG
>>630
Unixの改行コードは LF (ちなみに、Winは　CR + LF、マックは CR)だから、
置換すれば？
0633デフォルトの名無しさんNGNG
>>631
>>632

ありがとうございます。
一度置換するクッションをいれればよかったですね。

やってみます。
ありがとうございました。
0634_NGNG
http://homepage.mac.com/hiroyuki43/hankaku10.html
0635デフォルトの名無しさんNGNG
ASCIIモードで転送できないのかい？
WinInet.DLLなら指定できるが。
0636デフォルトの名無しさんNGNG
お初です。

前から疑問だったのですが、VBで作成した EXE はリターンコードを
返せないのしょうか??
0637デフォルトの名無しさんNGNG
ExitProcessで返せるよ
0638デフォルトの名無しさんNGNG
>>637

おっしゃる事は分かるのですが、VBの中でExitProcessは
やっぱまずいと思います。
VBでも END を実行する訳ですよね。
0639デフォルトの名無しさんNGNG
>>638
じゃあ、無理
0640デフォルトの名無しさんNGNG
>>638
イヤなら他の方法考えたら？
CでVBのプログラム呼んで、VBプログラムを監視し、
VBは終了際に特定のファイルを作成
Cプログラムはそれを読んでリターンコード作成。
（あほらしいか）
0641638NGNG
やっぱり、それしか無いですかね。
ちょっと、だるいですね。
0642デフォルトの名無しさんNGNG
>>609
どうも有難う。
ここは親切なインターネットですね
0643610NGNG
>611

Side-by-Side というのですね。初めて知りました。
とりあえずキーワードを頼りに調べながら、実際にやってみます。
ありがとうございました！
0644デフォルトの名無しさんNGNG
標準モジュールの宣言セクションで変数を宣言した場合は
Privateで宣言してもどのFormからも利用できる変数になってしまうのでしょうか？
0645デフォルトの名無しさんNGNG
>>644
ならないと思うけど・・・
0646644NGNG
>>645
ありがとうございます。
0647610NGNG
すんません、あと１つ。
必要なコンポーネント（ディストリビューションウィザードとかでくっ付け
られるファイル）を、ぜーーんぶexeに入れてしまうことってできます？
0648デフォルトの名無しさんNGNG
そういうのはコンポーネントと言わんような
0649デフォルトの名無しさんNGNG
>>610
そういうツールが海外のものであったりするけど、日本語環境で
うまく動くかは不明。

基本的にはできないって考えたほうがいいよ。
0650デフォルトの名無しさんNGNG
>>610
VBのフリー・シェアウェアが嫌悪される理由その１
0651デフォルトの名無しさんNGNG
Delphiﾏﾝｾｰ
0652デフォルトの名無しさんNGNG
すいません質問させていただきます

FF F4 BC
のバイナリデータを
BC F4 FF
にしたいのですが
BC 81 45
になってしまいます。
なぜでしょうか？

プログラムはこんな感じです
Dim Strbuff As String
Dim FileNo1 As Integer
Dim FileNo2 As Integer
FileNo1 = FreeFile
Open "rp" + ".txt" For Binary Access Read As #FileNo1
FileNo2 = FreeFile
Open "rp2" + ".txt" For Binary Access Write As #FileNo2
Strbuff = String(3, Chr(0))
Get #FileNo1, 1, Strbuff
Strbuff = StrConv(Strbuff, vbFromUnicode)
Strbuff = MidB(Strbuff, 3, 1) + MidB(Strbuff, 2, 1) + MidB(Strbuff, 1, 1)
Strbuff = StrConv(Strbuff, vbUnicode)
Put #FileNo2, , Strbuff

Close #FileNo2
Close #FileNo1
0653デフォルトの名無しさんNGNG
'F4BC を１文字として認識してるね。バイト操作ならバイト型がいいでしょう
Private Sub プログラムはこんな感じです()
Dim FileNo1 As Integer
Dim FileNo2 As Integer
Dim rb(1 To 3) As Byte
Dim wb(1 To 3) As Byte
Dim I As Byte
FileNo1 = FreeFile
Open "c:\temp\a.tmp" For Binary Access Read As #FileNo1
FileNo2 = FreeFile
Open "c:\temp\b.tmp" For Binary Access Write As #FileNo2
Get #FileNo1, 1, rb
For I = 1 To 3
wb(4 - I) = rb(I)
Next I
Put #FileNo2, , wb
End Sub
0654デフォルトの名無しさんNGNG
>>652
できました。
ありがとうございます
0655デフォルトの名無しさんNGNG
>>653だ間違えました
0656デフォルトの名無しさんNGNG
0657デフォルトの名無しさんNGNG
>>656 サブクラス化するしかない
0658647NGNG
レスさんくす。

>648
dllとかocxの集まりですよね。コンポーネント類とでも言ったらいいのかな。

>649
なるほど、VBでは基本的にはできないと。
そうなると例えば、exeとテキストファイル（INIとか）だけを解凍して使わせる
アプリはVB以外ってことでしょうか。

>650
確かにいろいろ調べていくうちに面倒に思えてきました。
http://www.galliver.co.jp/writing/vmx/sxs2k/
とかにside-by-sideについて詳しく書かれてるけど、う〜むって感じ。
0659デフォルトの名無しさんNGNG
こんにちは。

今VBでメールの送受信をしたいと思っています。
（常時稼動のシステムがエラーを起こしたとき、携帯のメール宛
に報告を行いたいから）

そこで現在　下調査中ですが
酒井法雄氏のサイトより
http://www.int21.co.jp/pcdn/vb/noriolib/vbcomp/6/vbcomp6/vbcomp6.html
>Internet Controls Packは、32bitのInternet用ActiveX コントロール集である。
>ActiveXコントロールはOCXだから、VB, VC++, Access などで利用することができる。比較的上位のプロトコルに合わせて作成されているので、WinSock APIやプロトコルに対する詳しい知識はなくてもなんとかなってしまう。さらに、フリーライセンスである。

なんて素敵なものが！！(SMTP,POPコントロールも付いてる）
そこでそのコントロールパックを入手したいのですが、見つからなくて困ってます。

提供してある場所をご存知であれば教えていただけないでしょうか？
また、検索で見つけられたかたは？
どのようにして見つけられたか後学の為、合わせて教えてもらえれば幸いです。

＃WinSock作ろうとしていた矢先にこれを知り、是非しようしたいなぁ
0660デフォルトの名無しさんNGNG
>659

http://asia.cnet.com/downloads/pc/swinfo/0,39000587,39028269s,00.htm

"Internet Controls Pack"でぐぐったら普通に見つかったけど？
「日本語のサイト」限定で検索してた、もしかして？
0661デフォルトの名無しさんNGNG
>>660
ぎくっ！日本語サイトだけを見てました。

660のサイトですが、同名ですが別のソフトウェアみたいです。

重い腰を挙げて、現在英語ページも検索対象として探すと
発見できたみたいですが、本家でもなく・・・なんとなくダークな感じの
ページで本当にダウンロードしていいのか躊躇しています。
http://webm43ac.ntx.net/files.html
だって血だらけの人間のアイコンがあるページだし。。。。
今、本家MSサイトで探してます。
0662デフォルトの名無しさんNGNG
>>659
関連情報
ttp://www.asahi-net.or.jp/~ai2h-ykmz/tech/mail_sys.htm

VB6ならWinSockコントロールとかがあるでしょ。
0663659NGNG
度々です。

MSのInternetControlsPackは以前　ベータ公開されていたものを
>>660の会社に移籍したそうです。
現在、MagnetSoftwareが開発、サポートしています。
ただMSが公開していたバージョンには搭載されていたPOP、SMTP機能が
MagnetSoftwareバージョンでは削除されており、ガーンって感じです・・・

やっぱり、VBでメールを使うのって（Outlookは使わないで）
WinSockで組むのが定番なのでしょうか？
0664659NGNG
ありゃ、ほんとだ、Microdoftのって書いてあったね。こっちも早とちりしますた、ｽﾏｿ

メールの送受信だけならそんなに難しくもなかった・・・・・はずだよ。たしか。
0665664NGNG
ご、ごめん、漏れは>660だ。本物の>659氏ごめんよおぉぉ
0666デフォルトの名無しさんNGNG
>>659
BASP21が(・∀・)ｲｲ!!よ
0667デフォルトの名無しさんNGNG
MFCのMAPIをＶＢから呼び出して使えないかなあ？
0668659NGNG
>>665
ちょっとビックリしました(＾＿＾)

>>666
ありがとうございます。BASP21は以前ASPで使用したこともあり
前向きに検討しています。
現在、ライセンス情報を確認してます（やったー　業務利用OK）
おそらく、BASPを使用する方向になりそうです。
皆さん、ありがとうございました。
0669デフォルトの名無しさんNGNG
えと、Access⇒VBのノウハウなどが書いてあるWebPageとか、ご存知ありませんか？
多分同じような経験をした方は多いと思いますので、まずは先人の知恵に縋ろうと思います(^^;

さしあたって問題なのがDBグリッド（データシートビュー）とあの多機能なコンボボックス(^^;の移植だと
アタリを付けているのですが、やはりBOCあたりのコントロールを使ったほうがカンタンでしょうか？

他にも「ここは気をつけれ！」という部分があればご指摘ください。よろしくお願いいたします。
0670デフォルトの名無しさんNGNG
>>669

> 「ここは気をつけれ！」

(1) エラー処理には神経使わないとダメ。

・Accessだと、エラー時は実行中のスレッドが停止するだけだが、VBで適切な
　エラー処理ルーチンが記述されていないと、プロセスが落ちる。

・VBでは通常、実行ファイルしかお客に再配布しないので、メッセージやログ
　の文言でエラーの原因がわかりやすいように配慮をしないとエラー原因の追求
　& 解明が困難。

(2) 同名のクラス(例: TextBox、ComboBox)、メソッド、プロパティでも、Access
　　とVBで仕様が違う場合がある。なまじ経験があると、確認を怠る場合があり、
　　危険。

他の留意点は次の人、どうぞ。
0671669NGNG
>>670
アドバイスありがとうございます。その後中身を洗い出している最中なのですが、
結構複雑（Accessのカンタンさにモノを言わせた画面(^^;)）が多いので、あまり
クリティカルでない部分はプロジェクト（.adp）を併用しなければならないかも、
と考えております。

……プロジェクトの事って、「ビジネスsoft」で聞いたていいのかなぁ？(^^;
0672デフォルトの名無しさんNGNG
(3)実行前にファイルを保存（Ctrl+S）する癖をつけたほうが(･∀･)ｲｲ!!
　やべっ、無限ループ・・修正内容あぼ〜ん！
0673デフォルトの名無しさんNGNG
Ctrl+Breakで止まるよ
0674デフォルトの名無しさんNGNG
入力と出力でファイルを開きたいんですが、出力先のファイルが
他のアプリで開かれているか調べる方法はありませんか？
今は、OpenステートメントのOutputで開いているんですが、
他アプリが排他制御で開いていると On Error GoTo になってしまうもので。
何かいいやり方がありましたらよろしくお願いしますm(__)m
0675デフォルトの名無しさんNGNG
>>674
ん？ On Error でエラートラップできるならそれでいいんでないの？
0676674NGNG
>>675さんレスどうもですm(__)m
あまりよく分かっていないのですが、On Error は自分の予想外のエラーの為だと思っていました。
できれば入力と出力ファイル別にエラーメッセージを分けたいのですがm(__)m
0677デフォルトの名無しさんNGNG
>>676
Err.Number（だっけ？）でエラー番号を調べれるし
On Error goto 0 でエラートラップの範囲も指定できる
多分やりたいことは On Error で十分トラップ可能と思われ。
0678デフォルトの名無しさんNGNG
On Error Resume/Goto を使い分けるのがプロ
On Error 禁止で挑むのが匠
あえてOption Explicit も禁止で挑むのがDQN
0679デフォルトの名無しさんNGNG
>>677

可能性のあるエラーコードの種類が多い局面ほど、知識と経験とセンスが問われる。
発生し得るエラーが一種類しかない状況なら、初心者でも新人でも対応は容易。
0680デフォルトの名無しさんNGNG
ファイルが開けないなどの、実行時に発生するエラーを捕らえるにはOn Errorを使う。
これ以外の方法では捕らえられないし、On Errorを使うのはごく普通の話。

余談
C言語などでは関数の戻り値でエラーをチェックするが、エラー処理が煩雑になる、
エラーチェックをしなければエラーであってもそのまま処理が続行されるなどの問題があり、
VBではそれが改良されて実行時エラーが発生する方式になっている。
C++、C#、VB.NETなどではtry-catchを使用する。これはさらに改良されており、
エラー情報がエラー番号、エラーメッセージだけでなく、任意のオブジェクトになっている。
0681デフォルトの名無しさんNGNG
>>680

> C++、C#、VB.NETなどでは

Delphiは無視でつか？
0682デフォルトの名無しさんNGNG
「など」と書いてあるだろ。いちいち出てこなくていいよ。
0683デフォルトの名無しさんNGNG
>>678
ワラタ
0684デフォルトの名無しさんNGNG
エラートラップでもいいが、674はFileSystemObjectとかでなんとかならん
かったっけ。
0685デフォルトの名無しさんNGNG
> On Error 禁止で挑むのが匠
タダの馬鹿だと思うぞ。
C++等で言えばtry禁止か？
0686デフォルトの名無しさんNGNG
>>684
VB(VBS)のライブラリを使っている限り、エラーは実行時エラーになります。
APIを使えば旧式の「戻り値でチェック」が使えます。
それだけのためにわざわざ面倒なことをする必要はないけど。
0687デフォルトの名無しさんNGNG
>>685
ネタなんだとおもうぞ
0688674NGNG
>>677-680さん
>>674 = 676です
Err.Number 55 で出来そうです。エラー番号があるのを知りませんでした。
どうもありがとうございましたm(__)m
0689デフォルトの名無しさんNGNG
>>688
Err.Descriptionでエラーメッセージが分かるぞ。
ユーザーフレンドリーなエラーとしては使えんが、デバッグ用ならOK。
あと、Err.Raiseで好きなエラーを作成・発生させられる。
これも一緒に覚えておこう。
0690674NGNG
>>689さん
ありがとうございます
MSDN見て勉強してみますm(__)m
0691デフォルトの名無しさんNGNG
InetでTXTファイルをUNIXのFTPサーバにPUTしようとしているのですが、
自分のローカルでS-JISからEUCに変換して
PUTしても、行の最後に＾Ｍがついてしまいます。
これは、どうやったら消せるでしょうか？

初心者質問で申し訳ありません。
0692デフォルトの名無しさんNGNG
>>691
改行コードだろ、多分。WindowsはCR+LFだから、CRを消してLFだけにする。
0693デフォルトの名無しさんNGNG
DataComboについて質問させていただきます。

DataComboのドロップダウンリストの横幅を変更したいのですが
下記のソースの様にAPIのSendMessageを使用しても、変更する事
が出来ません。
通常のComboBoxは上記のAPIを使用して変更できるのですが、DataComboは
無理なのでしょうか？
それとも別の方法で変更することが可能なのでしょうか？
ご存知の方がいましたら、教えてください。

環境
VisualBasic6.0(SP5)
Microsoft DataList Controls6.0(SP)(OLEDB)

*****標準モジュール****************************************************
'API宣言
Declare Function SendMessage Lib "USER32" Alias "SendMessageA" _
(ByVal hWnd&, ByVal wMsg&, _
ByVal wParam&, ByVal lParam&) As Long
'定数
Public Const CB_SETDROPPEDWIDTH = &H160

*****フォームモジュール*************************************************
Private Sub Form_Load()
Call SendMessage(Combo1.hWnd, CB_SETDROPPEDWIDTH, 500, 0)

Call SendMessage(DataCombo1.hWnd, CB_SETDROPPEDWIDTH, 500, 0)
End Sub
0694デフォルトの名無しさんNGNG
>>685
不用意に適用するのは駄目だろ。

保守性は下がるしエラー原因の特定が困難になる。

ちゃんとログを残しながらトラップしてれば良いけど・・・


0695デフォルトの名無しさんNGNG
USBで繋げた複数のＨＤを自動的にフォーマットを行ったり、
ボリュームラベルを変更したりするようなソフトは作ること可能ですか？
0696デフォルトの名無しさんNGNG
>>695
楽勝
0697デフォルトの名無しさんNGNG
>>696
５つぐらい繋げたＨＤのパーティションを分けることも可能ですか？
0698デフォルトの名無しさんNGNG
楽勝
0699デフォルトの名無しさんNGNG
>>698
なるへそ。
ありがと〜。作ってみます。
0700デフォルトの名無しさんNGNG
>>695
Shell "format ドライブ"
SetVolumeLabel（）

>>697
かなり難しいと思う。DeviceIoControl で IOCTL_DISK_SET_DRIVE_LAYOUT で
できそうではあるけどね。
0701ageNGNG
にゃん
0702デフォルトの名無しさんNGNG
VB糞だな
0703デフォルトの名無しさんNGNG
>>702
何をいまさら？
0704デフォルトの名無しさんNGNG
,
0705karenNGNG
VB6.0で画像のヒストグラフ書きたいんですけど
よくわかりません。
とる込むところまではできているんですけど
この後、どうすればいいのですか？
0706デフォルトの名無しさんNGNG
取り込むってなんだよ、プログラミング用語でいってくれ。
0707デフォルトの名無しさんNGNG
>>705
とる込むって何を？
まぁPictureBoxでLineやPsetメソッドなんかを使って描画して
SavePictureでbmpで出力。
0708デフォルトの名無しさんNGNG
激初心者なのですが、
誰か暇で心麗しいシトがいたら宿題教えてください。
おながい致します。

＊フィボナッチ数列を任意の項数まで求める事のできるプログラムを
　<For~Next文>を使って作る。
　求める項数はテキストボックスを使って入力する。


　
0709デフォルトの名無しさんNGNG
>>708
潔いな
0710デフォルトの名無しさんNGNG
>>708
で、どこまでやったんだ？
0711デフォルトの名無しさんNGNG
>>700
ありがとー
ボリュームラベルの変更は出来たよ！
でもやっぱ、パーティションの変更はよく分からん（ ´･ω･)
今回はフォーマットとラベル変更で勘弁してやら−ヽ(`Д´)ﾉ
0712デフォルトの名無しさんNGNG
標準ＥＸＥのプロセスの優先度をＡＰＩで下げた場合、そのプログラムから
呼び出されるＡＣＴＩＶＥＸ．ＥＸＥの優先度はどうなるのでしょうか？
くだらない質問ですいません。
0713デフォルトの名無しさんNGNG

VBのメッセージ出力のような、表示したいメッセージの番号を組み合わせて
(1,2,4で、1,2のメッセージを表示したい時は3というような)
作るパターンの関数を作りたいのですが、これで良いのでしょうか？

Function test(int_ChkNo)

　arr_Data = Array(1,2,4)

　For i=UBOUND(arr_Data) to 0 Step -1

　　If(int_ChkNo >= arr_Data(i)) Then

　　　Select Case arr_Data(i)

　　　　Case "1"

　　　　Case "2"

　　　　Case "4"

　　　End Select

　　　int_ChkNo = int_ChkNo - arr_Data(i)

　　End If

　Next

End Function
0714デフォルトの名無しさんNGNG
>>713
ビットごとにAnd取ったら？
0715713NGNG
>>714 簡単で結構ですので詳しくお願いしまする
0716デフォルトの名無しさんNGNG
「簡単で結構」≠「詳しくお願い」
0717デフォルトの名無しさんNGNG
ﾜﾛﾀ　　
0718デフォルトの名無しさんNGNG
さげろ

.NETスレほど注目されてねーんだよ
勘違いやろーども














こぴぺ推奨
0719デフォルトの名無しさんNGNG
>>715
const MSG_A = 1
const MSG_B = 2
const MSG_C = 4

という形で宣言しておき、

If value and MSG_A Then
End If
If value and MSG_B Then
End If
If value and MSG_C Then
End If

という形で使う。
0720デフォルトの名無しさんNGNG
>>719 続き
ビット演算は基本的テクニックだから、覚えておいたほうがいいぞ。

10進の1 が 2進の0001
10進の2 が 2進の0010
10進の4 が 2進の0100

10進の3(1+2)だと、0011になり、0001、0010のどっちでもヒットする、ってわけだ。
わかりづらかったら、電卓で変換しながら試してみるといい。
0721デフォルトの名無しさんNGNG
VisualBasic6.0ってXPでも動きまスカ？
0722直リンNGNG
http://homepage.mac.com/yuuka20/
0723デフォルトの名無しさんNGNG
>>721
動くよ。いくつかの問題はあるけどね。
0724デフォルトの名無しさんNGNG
>>723
レスありがとうございます。
問題とは具体的にはどういったものでしょうか？
0725デフォルトの名無しさんNGNG
msのnewsgroupの過去ログに詳しい情報があった。

開発環境が固まるとか、Formatでの丸めが違うとか、等幅フォントの扱いが
違うとか、そんな感じ。
0726デフォルトの名無しさんNGNG
>>725
調べてみます。本当にありがとうございました。
0727 NGNG
Enterキーを入力すると編集モードになるコントロールがある場合
プログラムで編集モードに入る方法を教えて頂けませんか？
厨房な質問ですいません
0728デフォルトの名無しさんNGNG
>>727
たとえばどんなコントロール？ 普通、なんらかのインターフェイス(メソッドとか
プロパティね)を用意してると思うんだけど。

そういうのがないなら、keybd_event()とかで、Enterを送っちゃうとか。
0729　NGNG
>>728
スプレッドシートみたいなものです。
メソッドやプロパティにもないようなので困っています。

>そういうのがないなら、keybd_event()とかで、Enterを送っちゃうとか。
ありがとうございます。試して見ます。
0730デフォルトの名無しさんNGNG
>>729
だから、どのコントロールか書けっての。
もしかしたら、すごく詳しい人がいるかもしれねーべ。
0731　NGNG
それが他の人が作ったコントロールなんです(^^;
0732デフォルトの名無しさんNGNG
>>731
じゃ、作った人に聞くしかないね。
0733713NGNG
>>719-720
レスありがとうございます。
僕の作ったやつは必ず値の大きい方から表示されていたのですが、
それも一気に解決できました！
助かったです。
勉強になりました。
詳しいお答えありがとうございましたm(_ _)m
0734デフォルトの名無しさんNGNG
時々意味不明に悩まされています。
例えばステータスバーのちょい上にCommandボタンを置いて実行すると、
時々ボタンがステータスバーに半分以上隠れちゃうのです。なぜなんでしょうか
またどうすればいいのでしょうか。
それと、テキストボックスでエンターキーを押すと次のテキストにフォーカス
を移ろうとしても、なぜかコマンドボタンが実行されてしまいます。よく
わからないのですがこれは仕様なんでしょうか？ボタンのコントロールを作っ
て使えば大丈夫くさいんですけど。原因が知りたいと思います。
0735デフォルトの名無しさんNGNG
>>734
意味不明に悩まされました。
0736デフォルトの名無しさんNGNG
ﾆﾎﾟﾝｺﾞ ｼｬﾍﾞｯﾃ ｸﾀﾞｻｰｲ
0737デフォルトの名無しさんNGNG
>>731
ユーザーコントロールでいじくれるなら自分で改造すれば？
0738デフォルトの名無しさんNGNG
>>734
ｼ ﾂ ﾓ ﾝ ﾉ ｲ ﾐ ｶﾞ ｶ ｲ ﾄﾞ ｸ ﾃﾞ ｷ ﾏ ｾ ﾝ
C:\>□
0739727NGNG
>>728

keybd_eventでクリアできました。
ありがとうございました。
0740デフォルトの名無しさんNGNG
>>734
マウスでプログラミングすることなんかにたよってるからそうなるんだよ。
0741デフォルトの名無しさんNGNG
ボタンを押したら画面が切り替わるのは
どうやったらいいのですか？
例えば、最初に名前入力させて
実行ボタンを押すと問題がでるみたいに
したいんですけど…
0742デフォルトの名無しさんNGNG
>>734
ステータスバーはコンテナではないので、その上にコントロールは置けない。
なので、コントロールの上下関係に気をつける必要がある。

Enterでボタンが実行される件は、デフォルトボタンになっていないか確認すれ

>>741
フォームをShowすれ
0743デフォルトの名無しさんNGNG
なんでＶＢにはSenderないんだYO!
わざわざクラスで作るかYO!
この糞プログラムめ！
Delphiﾏﾝｾｰ
ｽﾏｿ、自分に知識のない香具師の愚痴ですた。
0744デフォルトの名無しさんNGNG
>>743
VB.NETに移行しる
0745デフォルトの名無しさんNGNG
>>743
VBとスクリプトぐらいしか知らん者ですが、Senderってなんですか？
0746直リンNGNG
http://homepage.mac.com/yuuka20/
0747デフォルトの名無しさんNGNG
>>745 なはっなはっ
0748デフォルトの名無しさんNGNG
Sender偉い！Sender偉い！
0749デフォルトの名無しさんNGNG
GP-IB通信ついて、おすすめサイトを教えてくれ
0750デフォルトの名無しさんNGNG
naha naha naha!!!!
0751デフォルトの名無しさんNGNG
>>749
GP-IBボード/カードのサイトがいいよ。
0752デフォルトの名無しさんNGNG
Senderオブジェクトが好きなDel厨よ、
ならば次から作るVBプログラムは全部コントロール配列にしる。
0753デフォルトの名無しさんNGNG
Senderオブジェクトって何？
0754デフォルトの名無しさんNGNG
結局ここには説明できるまともなDel使いはこないのか、、
0755デフォルトの名無しさんNGNG
>>753
イベントプロシージャを呼び出したコントロール。ボタンのクリックイベントなら、
クリックされたボタンが入ってる。

VB.NETでは、Delphiと同様にSenderが利用できる。
0756デフォルトの名無しさんNGNG
前と同じような事を書き込んでしまうのですが、アウトプロセスの
ＡＣＴＩＶＥＸ.ｅｘｅの優先度を下げるにはどうすればよいのでしょうか？
0757693NGNG
だれか教えてくらはい〜>>693
やはり普通のコンボボックスではないと駄目なのでしょうか？
0758デフォルトの名無しさんNGNG
pointメソッドでPicture1の色情報を得て次に何をしているのかが
わかりません。
HFFってのは色を表しているのだと思うんですが、、、
どなたか教えてください。

For j = 0 To 199
For i = 0 To 199
k = Picture1.Point(i, j) And &HFF
hist(k) = hist(k) + 1
Next
Next
0759デフォルトの名無しさんNGNG
>>757
やって駄目なら無理でしょ。

>>758
色は表してない。いわゆる、「アンドを取る」ってやつだね。
ビット演算について学ぶとよし。
0760デフォルトの名無しさんNGNG
まともなVB厨がんばってるか？
ときどき糞スレたてるVB厨を矯正してくれよ
0761デフォルトの名無しさんNGNG
VBの質問じゃないかもしれないですが
MDBファイルをADOで触ってます
ACCESSでいう「テーブルのレイアウト」というのを、VBから設定することは出来ますでしょうか？
0762デフォルトの名無しさんNGNG
>>761
ADOXを調べてみては？
0763デフォルトの名無しさんNGNG
>>758
赤の輝度を取得している。
AND &HFF00 で緑
AND &HFF0000 で青
0764デフォルトの名無しさんNGNG
(´-｀).｡oO(VB知らんけど、&H000000FFって書かなくていいんだ・・・）
0765デフォルトの名無しさんNGNG
picture1とpicture2の画像を重ね合わせて表示する方法ってありますか？
0766デフォルトの名無しさんNGNG
>>765
ありますが、どんな結果が望み？
透明色とかアリ？
0767デフォルトの名無しさんNGNG
＞７６６
もちろんありです。
0768デフォルトの名無しさんNGNG
>>767
方法を言い出せばうんざりするほどある
VB標準の機能で自力で描画、TransparentBlt、DIB、DirectXまで。

てきとーにやりたいならTransparentBltをお勧めする。
IE5以降が入ってないと使えない上にリソースリークするらしいがな。
0769デフォルトの名無しさんNGNG
テキストボックスの途中に文字列を挿入ってできますか？
[abcghi]→[abcdefghi]みたいな感じに
cとgの間クリックしたらそこにクリップボードから貼り付けみたいな
0770デフォルトの名無しさんNGNG
>>768
一番すすめちゃだめなのぢゃんｗ
0771デフォルトの名無しさんNGNG
765です。
いろいろありがとうございます。
もう少しがんばってみます。
0772デフォルトの名無しさんNGNG
例えばテキストボックスでform1で入力させた文を
form2に持ってく方法ありますか？
0773デフォルトの名無しさんNGNG
>>772
ふつーにやればできるが。
0774sageNGNG
form1.text1.text1とか頭にフォーム名つける
0775デフォルトの名無しさんNGNG
>>769
クリックイベントに
Text1.SelText = "ほげほげ"
みたいなイメージ？
0776デフォルトの名無しさんNGNG
勝手に補足。対象のインスタンス名がform2の場合は、form2でいいが
インスタンス名が別ならそのインスタンス名をつけること。

例
Dim form2instance As Form2
Set form2instance = New Form2
なんてコードならform2instance.text1.textという風になる。
0777デフォルトの名無しさんNGNG
777
0778デフォルトの名無しさんNGNG
>>774
ほんとありがとうございます。
初心者でとりあえず、某書のビギナー編を買ったんですが載ってなくて…
ググっても見たんですけど、vbのいいHPがなかなか見つからなくて苦労してました。
0779デフォルトの名無しさんNGNG
すいません、vb使ってるとよく馬鹿にされるので他の言語に移行したいのですが、
無理ですか？
0780デフォルトの名無しさんNGNG
>>779
2ch以外で馬鹿にされることはないだろ
0781デフォルトの名無しさんNGNG
>>779
がんばって移行してちょうだい
0782デフォルトの名無しさんNGNG
>>780
プロなら職場でも思いっきり馬鹿にされるだろ
0783デフォルトの名無しさんNGNG
すいません、2chができる前から良く馬鹿にされていました。
VC++などにも挑戦したのですが、挫折したので何かもうちょっと
簡単なものないですか？
0784デフォルトの名無しさんNGNG
馬鹿にされる要素に気づけ
0785デフォルトの名無しさんNGNG
>>783
C++Builderは結構いいと思うよ
Javaもいいね
0786デフォルトの名無しさんNGNG
http://www.geocities.co.jp/SiliconValley/5944/bookback/bbv15.htm
プログラミング関係
> [Q] たか子さん
> 今度はSQLが走る部分で、
> 実行時エラー”3706”プロバイダが見つかりません
> というエラーが出てしまいます
> SQLの部分はMicrosoft.Jet.OLEDB.3.51;を
> 使っています
> どうもADOのエラーらしいのですが

> [A] アルシャーネさん
> 憶測で書くならば最初のＶＢ５．０の端末へのインストール時のエラーは
> 上位バージョンから下位バージョンへのインストールの為にうまくインス
> トールされなかったことが考えられます。
> 次のＶＢが入ってないほうの端末の場合では、
> プロバイダが見つからないということなのでインターネットへのアクセスに
> 失敗していると思われます。それでは、ダ　フストリェーチャ
>
> ＰＳ：ＡＤＯではなくＤＡＯの間違いでは？（苦笑）
0787デフォルトの名無しさんNGNG
>>778
vbの本でいいのはなかなかない。vbの構造上解説しにくいのかもしれない。
0788_NGNG
http://homepage.mac.com/hiroyuki43/jaz09.html
0789動画直リンNGNG
http://homepage.mac.com/hitomi18/
0790デフォルトの名無しさんNGNG
>>783
馬鹿にするのは馬鹿だから。大抵無知な学生が理由もなしに言っているだけだから気にするな。
たしかに出来ないことはあるがそれは馬鹿にすべき要素じゃなく適材適所ってだけの問題。
プロの世界じゃ普通に使われる。
(入社時期なんかなまじ知識つけた奴がVBを馬鹿にして恥を書く姿がちょこちょこ見られる（ｗ)

もちろん他の言語「も」使えるのは当然なんで他の言語を勉強するは当然いい。
ただ、VC++でウインドウをもったアプリを作ろうとすると、C++とともに複雑なMFCを理解しなければ
ならないので挫折しやすい。コンソールアプリからちまちまとやるか、GUI作成がVBと同じ
RAD系の言語、C++BuilderやJavaやMS製ならC#なんかがいいだろう。
(VB.NETもオブジェクト指向なんでいいんだが、名前で馬鹿にする程度の奴には理解不能なんで
やっぱり馬鹿にするかもしれない。馬鹿は放置すればいいだけなんだが。)

>>787
こんな本いいと思うよ。構造上解説しにくいなんて勘違いが直るかもね。

Visual Basicによるビジネスアプリケーション開発
- オブジェクト指向設計で作る３層C/Sアプリケーション -
http://www.rational.co.jp/products/books/bk_19.html

あとVBを作ったのはマイクロソフトなんでマイクロソフトの本もなかなかいいと思う。
ただ俺は買っていなくて本屋で立ち読みする程度なので具体的に進めることが出来ない。
MSDNライブラリ(ヘルプ)で十分だしね。本じゃないけど。

ただどの言語にも当てはまるけど初心者むきでいい本ってのは少ないな。
VBは良くも悪くも「作るための言語」なんで勉強には向かないかも。
プログミングで必要なことってのはどの言語でも通用するから
違う言語の本でも読んでみるのもいい。
0791デフォルトの名無しさんNGNG
>>790
VB6までは構造（言語仕様）的には問題が結構あると思うがな。たとえば、Form
がクラスでもあり暗黙的にインスタンスになってるところ。説明しづらいったら
ないね。そこまで辿り着けば君のいうとおりだと思うよ。


個人的にお勧めは
Visual Basic 6: Error Coding and Layering
http://www.amazon.com/exec/obidos/tg/detail/-/0130172278/qid=1054690288/sr=8-1/ref=sr_8_1/102-0723294-1391308?v=glance&s=books&n=507846

プログラマのメモ帳
http://www.gj.il24.net/~nakasima/

>初心者むきでいい本ってのは少ないな
いい本以前に、VBの場合間違ってることが平気で書かれてるのが問題だ。
0792あぼーんNGNG
http://homepage.mac.com/hiroyuki43/jaz09.html
0793デフォルトの名無しさんNGNG
>>778
Codegruやplanet-source-code.comなんかで他人のソースみてみるのもいいかも
0794デフォルトの名無しさんNGNG
VB5でInetコントロールを使用したあと、１分ほどフリーズするんですが、
なにが原因ですか？
Inet1.Cancelもやりましたがダメでした。
0795デフォルトの名無しさんNGNG
スイマセン
vbでGetSettingっていう特定のレジストリキーを操作する関数があるんですが
あれって　制限とかあります？
例えばDWORDの値だとエラーが発生するんです。
今　ＶＣで同じレジストリを流用してるんだけど　ＶＢ側でエラーになってます
0796７９５NGNG
あげさせてください　すいません
0797デフォルトの名無しさんNGNG
vbってリジストリいじれるのはあそこだけじゃなかったっけ？
0798７９５NGNG
>>797
はい　ヘルプをみてるとそのようです
ただその使用出来る値の型もREG_SZのみっていうとさすがに
辛い感じです
0799動画直リンNGNG
http://homepage.mac.com/hitomi18/
0800デフォルトの名無しさんNGNG
>795
そのDWORDって値をVB側では何の型で宣言してんの？
0801７９５NGNG
>>800

型をinteger にしていたので　エラーになってたみたいです
variantに変更したら解決されました　ありがとうございます
0802７９５NGNG
とおもったんですが　やっぱり駄目みたいです
0803デフォルトの名無しさんNGNG
DWORDはVBで言うLong
0804７９５NGNG
long も　ダブルもチャレンジしてみましたが
プロシージャの呼出が不正ですのエラーがでちゃいます
0805デフォルトの名無しさんNGNG
>>804
素直にAPIで読めば？
0806デフォルトの名無しさんNGNG
うむ。APIでやってみたらできた。あたりまえか。
0807７９５NGNG
そうします。ありがとうございました。
0808デフォルトの名無しさんNGNG
Debug.printは書き残したまま本番用exeファイルをつくってしまってかまわないのでしょうか？
0809デフォルトの名無しさんNGNG
かまわないけどその分パフォーマンスが落ちるかも知れない。
0810808NGNG
>>809さん
ありがとうです。
0811デフォルトの名無しさんNGNG
ちょっと質問なんですが、ＷｉｎｓｏｃｋコントロールでＴＣＰでは普通に送れていた
データがプロトコルをＵＤＰにしたら、「データグラムはバッファより大きい
ため切り詰められます」と出るようになってしまいました。内容はそのままんま
なのかもしれませんが、これを解決するにはやはり小出しにして送るしか
ないのでしょうか？やはりこれがプロトコルの違いなんですか？
0812デフォルトの名無しさんNGNG
>>811
ただ小出しにするだけじゃだめだよ。
届く順番も送った順番で届くとは限らないし
同じデータが2回届くかもしれない。
そういう制御をやってくれてるのがTCPだから。
UDPにするならその辺も考えないとね。
まあ、そんなの気にしなくていいデータならいいけど。
0813デフォルトの名無しさんNGNG
>>809
ん？　Debugってコンパイル時に除かれるんじゃないの？パフォーマンスは
落ちないと思うが
0814デフォルトの名無しさんNGNG
>>813
除かれないよ。
0815デフォルトの名無しさんNGNG
Win98以降とVB5で使えるFAX送信OCXを探しています
STARFAXが有名ですがこれはVBで作ったFAXアプリを使う
PC全てにSTARFAXをインストールしないといけないのですよね
そうではなくVBアプリと一緒に配布可能なやつが欲しいのですが
NetMan for FAX以外で何かありますか？
0816デフォルトの名無しさんNGNG
>>814
VB6のドキュメント（プログラミングガイド p.602）によると

アプリケーションをコンパイルして実行可能ファイル(.EXE)を作成すると、
Debug.Print ステートメントは自動的に削除されます。 ... ただ
し、Debug.Print の引数に関数呼び出しを使っていると、そのDebug.Printは自動
的には削除されません。 ...

ってことだ。たぶんオブジェクトのメソッドやプロパティーも削除されない。
0817816NGNG
>VB6の ...
VB4.0のドキュメントだった
0818デフォルトの名無しさんNGNG
>>813
VBにそんな最適化機能はない。
もっとも、落ちるパフォーマンスなんて大した事無いし、
Debug.Printを取り除いた事による生産性の低下の方が怖い。
0819デフォルトの名無しさんNGNG
もともとのパフォーマンスがたいしたことない











と言ってみる
0820デフォルトの名無しさんNGNG
>>819
で、元々のパフォーマンスの低さが、Debug文を利用した場合とそうじゃない場合の
差異にどのような関係があるのか？とマジレスしてみる。
0821デフォルトの名無しさんNGNG
Debug.Print を除くことは最適化とはいわないが
0822動画直リンNGNG
http://homepage.mac.com/hitomi18/
0823デフォルトの名無しさんNGNG
条件付コンパイルも知らないヴァカどもが集う糞スレはここでつか？
0824デフォルトの名無しさんNGNG
条件付コンパイルとDebug.Printは違うんだが
0825デフォルトの名無しさんNGNG
>>824
消さずに条件付コンパイルで無効化汁と言ってるんだが。
行間が読めないヴァカは死んでくれ。
0826デフォルトの名無しさんNGNG
>>821
確かに、除くことが確実に良いわけじゃないしな。
Debug.Printに副作用を持つ関数が含まれている。
たとえば、関数にフォームのCaptionを変える命令が含まれている場合。
Debug.Printを行うのと行わないのでは処理が違ってしまう。
こっちの方がパフォーマンスの問題なんてちっぽけだと思ってしまうほど重要。

最適化ってのは処理は変わらないから勝手に書き換えたりするわけだが、
Debug.Printのように処理が変わって勝手に取り除くのがまずい場合は、
取り除くかどうかは仕様によるとしかやりようがないだろう。

ちなみにDebug.Assertの方はコンパイルすると消えるという仕様だね。
で、コンパイルすると消えるようにしたい場合は条件付コンパイルを使うわけだ。
0827デフォルトの名無しさんNGNG
デバッグなんてしないにこしたことはない
0828デフォルトの名無しさんNGNG
>>826
Debug.Print があるかないかでプロパティーが変わるっていうのは Debug.Print
の使い方としておかしくないか？
0829デフォルトの名無しさんNGNG
>>818
落ちるパフォーマンスは場合によるよ。この例だと取り除かれない場合、一分も遅くなる。
Debug.Print foo()

Function foo()
　'データベースとかに接続して'大量のデータ読んで
　'値を得るのに1分かかる代わりにスリープ
　Sleep(60000)
　foo="ok"
End Function
0830デフォルトの名無しさんNGNG
>>825
816にあるとおり、変数の出力だけならDebug.Printはコンパイラが勝手に無視し
てくれる。それをわざわざ #If hogehoge Then なんてするのは馬鹿らしい。
0831デフォルトの名無しさんNGNG
プロパティの出力は消してくれない。
だから、Fields("NAME").Valueとかも消されない。
勘違いするなよ。
0832デフォルトの名無しさんNGNG
>>831
それは816でガイシュツ
0833デフォルトの名無しさんNGNG
何げにつかってたDebug.Printだけど、うまく使うには奥が深いな
0834デフォルトの名無しさんNGNG
引数もデバッグプリントだとたぶん自動削除されないうえに無限ループになるかもしれない。
Debug.Print (Debug.Print)
0835デフォルトの名無しさんNGNG
コマンドボタンを押すと画像が500msecだけ
出したいんですけど、Timerとかやっても
うまくいかず、秒間隔ならできるんですけど…
うまい方法はですか？
0836デフォルトの名無しさんNGNG
>>835
ありますよ。
0837デフォルトの名無しさんNGNG
>>836
よかったら教えて下さい。
0838デフォルトの名無しさんNGNG
ADOでAccess97形式のMDBはSeek出来ないものなのでしょうか？
0839デフォルトの名無しさんNGNG
>>834
なんでやねん！

Debug.Printは戻り値を返さない上にたとえ返したとしても(略


それよりか、ｲﾐﾃﾞｨｴｲﾄウインドウで、do:loopと書いてエンターを押すと･･･。
0840デフォルトの名無しさんNGNG
>>838
本によるとRecordsetのOpenメソッドの第4引数で adCmdTableDirect をつかうと
できるとある。

rs.Open "TableName", cn, adLockPessimistic, adCmdTableDirect
rs.Index = "PrimaryKey"
rs.Seek 12, adSeekFirstEQ

この方法はJet以外には使えないので、移植性を考えると使わないほうが
いいらしい。
0841デフォルトの名無しさんNGNG
>>839
つづきの文をどうぞ↓
0842デフォルトの名無しさんNGNG
>>841
http://www.google.co.jp/search?q=%E3%81%8A%E5%89%8D%E3%81%8C%E8%A9%A6%E3%81%97%E3%81%A6%E6%9B%B8%E3%81%8D%E8%BE%BC%E3%82%81%E3%81%93%E3%81%AE%E3%83%8F%E3%82%B2%EF%BC%81&ie=UTF-8&oe=UTF-8&hl=ja&btnG=Google+%E6%A4%9C%E7%B4%A2&lr=lang_ja
0843デフォルトの名無しさんNGNG
>>841
839はただいまPCの再起動中です
0844デフォルトの名無しさんNGNG
初心者むけのVBのサイトってないですか？
検索してもパソコンスクールの宣伝だったり閉鎖中だったりでなかなか見つからなくて。
0845デフォルトの名無しさんNGNG
テキストボックスにスクロールバーがついたやつで
そこに入力されてる文字の最後尾までスクロールさせてくる
みたいな方法ありますか？
0846デフォルトの名無しさんNGNG
>>844
サイトより本買った方がいい
0847デフォルトの名無しさんNGNG
>>845
Text1.SelStart = Len(Text1.Text)
0848デフォルトの名無しさんNGNG
>>845
Text1.SetFocus
SendKeys "^{END}"
0849デフォルトの名無しさんNGNG
>>846
金無いっす。・ﾟ・(つД｀)・ﾟ・
0850845NGNG
>>847,>>848
ありがとうできました！
0851デフォルトの名無しさんNGNG
>>848
{}があるということはC言語？？？
0852デフォルトの名無しさんNGNG
３桁の数字を001、002みたくレコードに連続で番号をふっていくようなこと
できる？
0853デフォルトの名無しさんNGNG
>>835
できたら、835を教えて下さい…
0854デフォルトの名無しさんNGNG
>>853
どんなふうにうまくいかんのだ。
0855デフォルトの名無しさんNGNG
フォーム Load
　Timer1.Enabled = False
　Timer1.Interval = 500
コマンドボタン Click
　Picture1.Visible = True
　Timer1.Enabled = True
タイマー Timer
　Picture1.Visible = Flase
　Timer1.Enabled = Flase
0856438NGNG
part24のスレでもありましたが、
ダブルクオーテーションの"をテキストボックスに表示したいです。
どうやったら"を表示できるでしょうか？
""　や　"""　や　"　としてみても、うまくいかないです。
0857デフォルトの名無しさんNGNG
>>755
というか、
Java作ったのがDelphiつくってC#つくったんだろ？
0858_NGNG
http://homepage.mac.com/hiroyuki43/2ch.html
0859デフォルトの名無しさんNGNG
>>856
""""
0860デフォルトの名無しさんNGNG
>859
できました。ありがとうございます。
0861デフォルトの名無しさんNGNG
>>855
ありがとうございます。助かりました。
0862>>811NGNG
>>812
具体的に小出しにするにはどうすればいいのでしょうか？バイト型で宣言
した変数にデータを代入しても、それをどうやって分割して送ればよいか
わかりません。よろしければ他のどなたかでもいいので教えてやってく
ださい。
0863デフォルトの名無しさんNGNG
>>862
すなおにTCPつかいなされ
0864デフォルトの名無しさんNGNG
>>852
意味が分からん。00を頭につけたいのか？そうだとしたら
コードを書く方が「圧倒的に」良いが、Format$(var, "000") でもできる。
Format$は癖があるので勧めない。
0865>>811NGNG
>>863
それもそうなのですが、いろいろ事情があって、２つのプロトコルを用いた
結果を比較したいのです。面倒でしょうが教えてください。
0866デフォルトの名無しさんNGNG
>>865
分割して、ヘッダ（ユーザー定義のね）にシーケンシャル番号を振っておき、
取得した側で組み立てればいいんでないの。
0867デフォルトの名無しさんNGNG
>>790
話を蒸し返すようでｽﾏﾝが、vbが馬鹿にされるのには理由がある。
本当はvbというか、vbしか使えないﾔﾂの事なんだけど。

と、いうか馬鹿にしたくなるよね。VBｵﾝﾘｰPGのソース見てみればな。
前どっかのスレでも話題になったけど、論理演算さえも知らないヤツが何人もいたし･･･

それに、フリーソフトとか見てもVB製の優秀なソフトを見た事がない
0868デフォルトの名無しさんNGNG
>>855
だからなにがうまくいかんのだ。
0869デフォルトの名無しさんNGNG
>>865
素人にUDPは使いこなせない。
そもそもTCPもあやしいな。あんたの場合。
0870動画直リンNGNG
http://homepage.mac.com/hitomi18/
0871デフォルトの名無しさんNGNG
┌───────────────────
│あ、どうもｽｲﾏｾﾝ、お騒がせしますた･･･
└───v───────────────
　　　　 ／⌒＼　っ　　 ／＼
　　　　/'⌒'ヽ　＼ っ／＼　 |
　　　 （●．●）　）／　　　|:　|　すぐ連れて逝きますんで･･･
　　　　 >冊/　 .／　　　　 |: /
　　　/⌒　　 ミﾐ　＼　　　〆
　　 /　　　／　|::|λ|　　　 |
　　 |√7ミ　　 |::|　 ﾄ、　　 |
　　 |:／　　　　V＿ハ　　　|
　 ／| i　　　　　　　　 |　∧|∧
　　　и .i　　　　　　Ｎ　/⌒ ヽ）　←>>867
　　　 λﾍ、|　i　.ＮV　 |　　 | |
　　　　　　Ｖ＼Ｗ　　　（ 、　∪
　　　　　　　　　　　　　 |｜ |
　　　　　　　　　　　　　 ∪∪

0872_NGNG
wavファイルを録音、波形表示したいのですが
情報を下さい。
現在やりたいのはマイクを使っての音声録音です。
mci〜を使えば録音自体は出来るようなのですが
波形の表示もしたいのです。
0873直リンNGNG
http://homepage.mac.com/yuuka20/
0874デフォルトの名無しさんNGNG
>>867
MIDIStationなんかどーよ
0875デフォルトの名無しさんNGNG
>>872
これ嫁↓
ttp://www.cqpub.co.jp/hanbai/books/36991.htm
0876872NGNG
>>875
情報ありがとうございます。
良さそうなので早速買ってみます。
0877動画直リンNGNG
http://homepage.mac.com/hitomi18/
0878デフォルトの名無しさんNGNG
Win32 DLL の 〜A と 〜W
ANSI と UNICODE だそうだが
結局どう使い分けんの？
〜A しか使ってないんだけど
0879デフォルトの名無しさんNGNG
>>878
API呼び出しの際に、自動的にANSI変換がかかるから、A の方だけでおっけー。
どうしても W が使いたければ、バイト配列でどーぞー。
0880878NGNG
>>879
ありがと
これで安心して 〜A を使えるよ
0881>>811NGNG
>>866
もう少し具体的に方法を教えていただけないでしょうか？無理でしたら
そういった事を扱っているサイトでもいいです。お手数ですがよろしくおね
がいします。
>>869
そうかもしれませんが、あなたにそんな事を言われる筋合いはありません。
0882デフォルトの名無しさんNGNG
>>881
何故そこまでしてUDPにしたいのですか？
UDPの特徴はわかってるでしょうから、不具合ないように使えばいいだけですのに。
0883デフォルトの名無しさんNGNG
PictureBoxのフォントの色を指定するにはどうすればいいですか？
0884デフォルトの名無しさんNGNG
ソースをコーディングしたパソコンから違うパソコンに移して
起動したところ、コンボボックスのコントロールに埋め込んだリストが
読み込めなくてエラーになりました。
何でなんでしょうか？
環境は両方ともXP+VB6(SP5)です
0885デフォルトの名無しさんNGNG
「文全体の終端」を示す記号はありませんでしょうか？
「行の終端」はCHr(&HD)があるというのに・・・。
EOFかなとも思うのですが、少し違うような気がします。
どなたか教えて下さい。
0886デフォルトの名無しさんNGNG
>884
移し方が悪い。ソースディレクトリごっそり移せば動くはず。
0887デフォルトの名無しさんNGNG
>>883 .ForeColor を変えれ
>>884 .frx もコピれ
>>885 0 れ
0888デフォルトの名無しさんNGNG
ファイルを移動する関数っていうのはないんでしょうか？
今はFileCopyした後にKillしてるんですが、でかいファイルだと時間がかかります
0889デフォルトの名無しさんNGNG
>>888
APIにSHFileOperationがあります。
CやDelphiならそれ以上の速度のルーチン作れるのにﾌﾟﾌﾟﾌﾟ
0890デフォルトの名無しさんNGNG
>>888
Shel "move"
0891デフォルトの名無しさんNGNG
>>888
Scripting.FileSystemObject を使うのが簡単。
あと dos command で move を呼び出すのもありかな。
0892デフォルトの名無しさんNGNG
>>888
MoveFileってその名もずばりのAPIがあった
0893デフォルトの名無しさんNGNG
>>889
結局API呼び出すだけなんだから、速度は同じでは？
もしかしてAPI知らなかった？
0894デフォルトの名無しさんNGNG
リンクをたどって画像収集するプログラムを作ろうと思っていますが、
どこかに参考になるいいサンプルのソースはないでしょうか？
0895デフォルトの名無しさんNGNG
>>894
そこはかとなくスレ違い
0896デフォルトの名無しさんNGNG
>>894
ttp://www.google.co.jp/images/hp0.gif
こういうのを自動採集する気か？（藁
0897デフォルトの名無しさんNGNG
>>893
メモリを多く使えば高速にコピーできるけどそういう事じゃないの？
0898デフォルトの名無しさんNGNG
コピーじゃなく移動だろ。ファイル管理情報を書き換えることになる
移動ならなんの処理使おうが速度に大差ないと思うな。
（ディスクが異なればコピーと変わらないことは解ってるよな？）
0899デフォルトの名無しさんNGNG
>>897
違うでしょ。SHFileOperation以上のルーチン作るなんて言っているから
MoveFileを知らなかったと思われ。
0900デフォルトの名無しさんNGNG
>>888
Name ステートメントじゃダメ？
バグってて使えないとか。
0901デフォルトの名無しさんNGNG
FTPで長時間ダウンロードしたいのですが、
ほかの処理をストップさせずにバックグラウンドで走るAPIなどの方法はありますか？
0902デフォルトの名無しさんNGNG
>>901
FTP関連のAPIの引数にコールバックがあるだろ？
あれ使って非同期で実行すればいいよ。
0903902NGNG
>>901
InetコントロールやWinSockコントロールでも可
0904デフォルトの名無しさんNGNG
メールを送るにはどうすればよいでしょうか？
0905デフォルトの名無しさんNGNG
>>904
基本はhttpを使ってサーバーに接続して、決まった文字列を送信するだけ。
サーバに接続するのはwinsock等でやる。
決まった文字列はRFC等を調べる。
もっと簡単に済ませたいならそういうコントロールがあるはず。
0906905NGNG
ごめん。httpじゃなくてsmtp
0907デフォルトの名無しさんNGNG
>>904
basp21を使う
0908デフォルトの名無しさんNGNG
EnterキーのKeyAsciiはどんな整数値でしょうか？
0909デフォルトの名無しさんNGNG
>>908
そのくらいトレースして追いましょうよ。
0910デフォルトの名無しさんNGNG
13
0911デフォルトの名無しさんNGNG

0912908NGNG
>>909-911
ありがとうございます。
Text1のKeyPressイベントでKeyAsciiが13のときはText2にSetFocusしてみます。
0913超初心者よりNGNG
dbgrid にソート機能をつけたいんだけど
どうすればいいのでしょう？
コードを書くところがわからないのですが
0914デフォルトの名無しさんNGNG
>>913
接続したテーブルをソートするだけでは？
0915超初心者よりNGNG
>914
ソートはできたんですけど、、
dbgridのフィールド名のところにボタンをつけたいんですが、
0916デフォルトの名無しさんNGNG
ＶＢ４．０です。
プリンターで印字するとき、プログラム中に
Printer.FontSize = 30
と書いたのですが、いうことを聞くときと聞かないときが
あります。おなじコマンドの中に数カ所書き込んでも、ある
場所は３０ポイントになっているのに、他の場所は小さな
文字しか印字されません。これはいったいどうしたことな
のでしょうか。


0917デフォルトの名無しさんNGNG
VB6ラーニングエディションは、ピクチャークリップがついていないために、
一つの画像をいくつかに分割するのが出来ないですよね｡
MCI32.OCXを強制認識させるか、ピクチャークリップを使わないで分別させる
方法を、誰か詳しい人教えてください｡よろしくお願いします｡
0918デフォルトの名無しさんNGNG
ピクチャークリップを使わないで分別させる →ピクチャークリップを使わないで分割させる
です。
0919デフォルトの名無しさんNGNG
>>917
PictureBoxを分割する数作っておいてバラバラにしておくとか
関数でもつくって呼び出されたときに範囲を計算して絵を返すとか。。。
0920デフォルトの名無しさんNGNG
>PictureBoxを分割する数作っておいてバラバラにしておくとか
バラバラにする方法を教えてください。
お願いします｡
0921デフォルトの名無しさんNGNG
>>920
PaintPictureのヘルプを見てわからなかったらまた書き込んでみてください
0922デフォルトの名無しさんNGNG

配列(サイズ不定)を返す関数の定義を

(1)
Public|Private Function Hoge() As Type()
と書くのと、

(2)
Public|Private Function Hoge(ByRef vntArray As Variant) [As RetVal]
'VariantのByRef引数に配列を割り当てて返す。

と書くのと、どちらが正統(正しい作法)ですか？
どちらも動作には問題ないようですが、(1)の形式のコードは見たことがないので、
邪道なのか気になります。
0923917NGNG
Picture1.PaintPicture Picture1.Picture, 0, 0, 200, 500, 0, 0 = Image1(0).Picture
で無事に表示されたんですが、
x1, y1
width1
height1
x2, y2
width2
height2
について分かりやすく説明していただけないでしょうか？
申し訳ありません｡
0924デフォルトの名無しさんNGNG
>>923
ソレ、意図した通りに動いてるんでしょうか、ちょっと心配です
ヘルプはわかりにくいですかね、実際の使い方をみたほうがぴんとくるのでは？
Googleを活用しましょう。http://www5d.biglobe.ne.jp/~tomoya03/shtml/class/CopyGra.htm
もうすこし試行錯誤することをお勧めします。
0925デフォルトの名無しさんNGNG
Set objArguments = WScript.Arguments
strRet = InputBox("題名","新規ファイルの作成","無題")

に、「/\:*?"<>|」は入力できないようにしたいのですが、
どのようにしたら良いのでしょうか？

若しくはstrRetの文字列の中の文字のうち「/\:*?"<>|」だけ削除できれば
それでも大丈夫です。
0926デフォルトの名無しさんNGNG
>>925
削除するのか？ エラーにしたほうがいいと思うんだが。
消すのなら正規表現使って消すのが一番楽かな。

ファイル名として使えないものをはじくわけだから
入力されたファイル名でOpenしてエラーになるのを
捕らえるという手もあるかも。
0927デフォルトの名無しさんNGNG
>>925
性器エクスプレッション使うだけだろ？アフォは氏んでね。
0928デフォルトの名無しさんNGNG
MS-DOSで
---
set /a count=0
set dp=%~dp1
set aaa=%DATE:/=.%
set bbb=%~nx2

if exist "%dp%%aaa% - %bbb%.txt" goto sub
date /T >> "%dp%%aaa% - %bbb%.txt"
goto end

:sub
set /a count=%count%+1
if exist "%dp%%aaa% - %bbb%(%count%).txt" goto sub
date /T >> "%dp%%aaa% - %bbb%(%count%).txt"
---
これをVBSに書き直したいのですが、
どなたか翻訳して頂けませんでしょうか？
0929デフォルトの名無しさんNGNG
>>927 煽りはスピードが命。
0930デフォルトの名無しさんNGNG
>>925
Dim strRet
a:
strRet = InputBox("題名", "新規ファイルの作成", "無題")
If InStr(strRet, "/") <> 0 Or InStr(strRet, "\") <> 0 Or InStr(strRet, ":") <> 0 Or InStr(strRet, "*") <> 0 Or InStr(strRet, "?") <> 0 _
Or InStr(strRet, """") <> 0 Or InStr(strRet, "/") <> 0 Or InStr(strRet, "<") <> 0 Or InStr(strRet, ">") <> 0 Or InStr(strRet, "|") <> 0 Then
MsgBox "ファイル名やフォルダ名に/\:*?""<>|は使えません。"
GoTo a:
End If
0931>>811NGNG
>>811
すいませんが、これを親切な方教えていただけないでしょうか？ちょっと
急いでまして・・・あつかましい御願いですがよろしくおねがいします。
0932デフォルトの名無しさんNGNG
>>931
色々解答を出してる人がいるようですが？
0933デフォルトの名無しさんNGNG
>>931
ここで聞いてみてはどうでしょう？
http://pc2.2ch.net/test/read.cgi/tech/1052106444/
0934デフォルトの名無しさんNGNG
>>930
Likeが早い。IsDisitとかより俺は長宝
If strRet Like "*[/\:*?""<>|]*" Then
0935デフォルトの名無しさんNGNG
>>922
おれは(1)を使うときあるよ
tukautokiaruyo
0936デフォルトの名無しさんNGNG
>>902 >>903
どうもありがとうございます。
コールバック関数はどのように使えばよいでしょうか？
0937デフォルトの名無しさんNGNG
>>783
VBだけでどんなプログラムも作れるからVBで設計しよう、というと
馬鹿にされるどころか嫌われるよ。とくにエンタープライズ系では。

オブジェクト指向言語でやっているところをアセンブラでやれ、と押し付けられちゃたまらんからね。
0938狂信的アﾊｧ信者NGNG
関数のアドレスセットして、呼び出されるの待つだけ。
0939デフォルトの名無しさんNGNG
すいません、新すれのほうに書き込んでしまいました。

質問内容は以下のとおりです。

ファイル変更をフックしようと思い
ReadDirectoryChangesW API を調べているのですが
なかなか VB でのサンプルが見つかりません。
もしVBで組んだことある方がいましたら
多少の手解きお願いできませんでしょうか？
0940_NGNG
http://yomi.kakiko.com/hiroyuki/jaz_b01.html
0941デフォルトの名無しさんNGNG
>>935
ありがとう。
よく考えたら、(2)の方もVariantにする必然性がないですね。
個別の型指定(String()、Long()等々)で問題なく動作しました。
配列を返すと最初から決まってるなら、Variantにしない方がいいみたい。

Hoge() → Hoge型の配列を受けられる。
Hoge → Hoge型の変数は受けられるがHoge型の配列は受けられない。
Variant → 配列も配列以外のオブジェクトも代入可能。
Variant() → 配列は受けられるが、配列でない変数は受けられない？(未確認)

つうことで、sage
0942デフォルトの名無しさんNGNG
厨な質問ですいません。

datagridオブジェクトは、貼り付けたフォームがロードされたとき、
1行分しか見えてませんよね。それを初期状態だとすると、
いったん何かデータを読み込んだものを、もう一度その状態に
戻すことは出来るのでしょうか？
0943デフォルトの名無しさんNGNG
GetMetaFileBitsEx で lpvData に Null 又は 0 を指定しとるのだが
データを格納するために必要なバイト数というのが取得できん
予め大きなサイズを割り当てれば関数自体は成功するが後味悪い
やり方教えてくれ
0944直リンNGNG
http://homepage.mac.com/yuuka20/
0945デフォルトの名無しさん NGNG
質問です。

ホームページをアップするのに、
どこかの本を参考に下記のコードでやってますが、非常に遅いです。
いくつものファイルを転送するとかなりの時間がかかります。

ＦＴＰソフトで転送するととても早いのですが、
何か技があるのでしょうか？

.　With objInet
.　　.URL = "ftp://*********"
.　　.UserName = "******"
.　　.Password = "******"
.
.　　.Execute , "CD ********"
.　　Do While .StillExecuting = True
.　　　　DoEvents
.　　Loop
.
.　　.Execute , "PUT index.html index.html"
.　　Do While .StillExecuting = True
.　　　　DoEvents
.　　Loop
.　End With
0946デフォルトの名無しさんNGNG
DoEvents を全部コメントアウトしてやったらどう？
0947デフォルトの名無しさんNGNG
>>931
(・∀・)ｲｲ!!
http://www.int21.co.jp/pcdn/vb/noriolib/vbmag/9802/winsock/
0948デフォルトの名無しさん NGNG
>>946

これでいいんですか？
誤動作しません？

.　　.Execute , "CD ********"
.　　Do While .StillExecuting = True
.　　　　' DoEvents　 'コメントにする
.　　Loop
.
.　　.Execute , "PUT index.html index.html"
.　　Do While .StillExecuting = True
.　　　　' DoEvents 　 'コメントにする
.　　Loop
0949デフォルトの名無しさんNGNG
次スレ立てました。
http://pc2.2ch.net/test/read.cgi/tech/1055145106/l50
0950デフォルトの名無しさんNGNG
950!
0951デフォルトの名無しさんNGNG
>>945
ファイルを転送するごとにログインしなおしとかしてない？
0952デフォルトの名無しさんNGNG
>>945
マルチスレッドにして５つくらい一気に平行してUPするようにしたらどうよ？
0953デフォルトの名無しさんNGNG
>>946
あんまり意味ないと思われ。むしろCPU使用率が増えて逆に遅くなる可能性も。

>>948
DoEventsで処理が割り込まれる可能性が無いから、こっちの方が誤動作しにくい。
ただし処理速度にはなんの影響も無いか少し遅くなるかも知れない。

.StillExecutngでグルグル待つやり方(ビジーウェイト)はやめて、StateChangedを
使った方法がいいと思う。プログラムの構造が大きく変わりそうで面倒なら、
せめてDoEventsの前に10ミリ秒ぐらいSleepを置いた方がいい。

でも遅い原因は他にあると思われる。
0954デフォルトの名無しさんNGNG
>>952
FTPサーバーにマルチでログインするつもりか？
0955デフォルトの名無しさんNGNG
あまり有効なのはないのでしょうか？

ＦＴＰソフトだと問題ないのはなぜでしょう？

0956デフォルトの名無しさんNGNG
>>955
余計な処理が入っているからでしょう。
0957デフォルトの名無しさんNGNG
遅いって転送し始めるまで時間がかかるの？それとも転送速度が遅いの？
0958デフォルトの名無しさん NGNG
>>957

はっきり調べてませんが
ひとつひとつの.ExecuteからDoEventsを抜けてくるのが遅いです。

0959デフォルトの名無しさんNGNG
ねむくなるスレだ
0960デフォルトの名無しさんNGNG
>>958
StateChanged方式に変えてみたら？
0961デフォルトの名無しさんNGNG
>>959
空回り？（ｗ
0962959NGNG
>>961
あっちはケンカがあってねむけがさめる
0963デフォルトの名無しさんNGNG
あっち・・・・あのスレか。
0964デフォルトの名無しさんNGNG
>>962
VB厨がVB厨と言われるゆえん。
Win32システムプログラミングぐらい読めよ。
0965デフォルトの名無しさんNGNG
>>959
あんた、こっちでそんな事言っていると煽りだといわれるぞ。
あっちでいえ。
0966デフォルトの名無しさん NGNG
>>960

StateChanged方式を教えてください。
0967デフォルトの名無しさんNGNG
>>964
もういいよ。あっていでやれ。
これ以上ここに書きこするなら荒らしとみなす。
0968デフォルトの名無しさんNGNG
>>967
うぜーよ厨
0969デフォルトの名無しさんNGNG
>>967
もう来るな
0970デフォルトの名無しさんNGNG
>>966
途中まで出いいからやってから分からないことろを書いてね。
たぶんそれじゃレスつかないと思うけど。
あと無駄な空行いれてあげるのもやめたほうがいいよ。
偽者扱いされるのがオチだから。
0971デフォルトの名無しさんNGNG
ＶＢ初心者スレを質問スレと勘違いして質問してしまいましたので
再度こちらで質問させて下さい。

ファイル名に今日の日付が入ったファイルを作成したいので、
日付から、例えば2003.06.09という文字列を作って
文字列の変数に入れたいのですが、
どのように書けばよろしいのでしょうか？
0972デフォルトの名無しさんNGNG
>>970
はい。がんばります。すみませんでした。
0973デフォルトの名無しさんNGNG
>>971
Format
0974デフォルトの名無しさんNGNG
>>972
駄レス消費すんなゃー？
0975デフォルトの名無しさんNGNG
>>971
Format$(Date(),"yyyy.mm.dd")
0976デフォルトの名無しさん NGNG
>>970
StateChanged　がなんだかもわかりません。
参考になるサイトを紹介していただければ、勉強してみます。
0977デフォルトの名無しさんNGNG
>>976
MSDNライブラリに書いてある。
0978デフォルトの名無しさんNGNG
>>971
プログラマ向いてない
0979デフォルトの名無しさんNGNG
なんかスレのびていると思ったら粘着煽り厨が出現してるのか。
0980デフォルトの名無しさん NGNG
>>977
ありがとうございます。　^^;
0981デフォルトの名無しさんNGNG
>>980
下げろ厨
0982デフォルトの名無しさんNGNG
埋めるぞｺﾙｧ！
0983アシュル ◆adhRKFl5jU NGNG
ｺﾞﾙｧｺﾞﾙｧ
0984アシュル ◆adhRKFl5jU NGNG
ﾓﾗﾗﾗﾗﾗﾗｧ　
0985デフォルトの名無しさんNGNG
おまんこやりたい
レス数が950を超えています。1000を超えると書き込みができなくなります。