VB初心者質問スレ　Part8 （･∀･）

ついでに俺も質問。
VB6でWINDOWSに貼り付け、を実行させるにはどうすりゃいい？
つまり今Text1にﾌｫｰｶｽがあったら、そこにクリップボードの内容を貼り付けるっていう。
「SendKeys "^V"」とかやればできるか？

調べるの下手なもんで・・・誰か検索テク教えれｗ

>>164
MSDNライブラリをクリップボードで調べれ。

>>164
それ、めちゃめちゃ簡単にできるぞ・・・・

>>155
む、改良版はなんだか目覚ましと言うよりカップラーメンタイマーに近づいてるな。(笑)
目覚ましをつくるには指定の時間になると自動的にパソコンのボリュームをあげる機能も必須だがこの機能の実装もAPIでできるからお願いね。

各コントロールに使う使うフォントは、等幅とプロポーショナルではどっちがいいのでしょうか？
初期設定ではプロポーショナルになってるけど、等幅の方が何かと便利な気がするのですが。

プロポーショナルと等幅の便利な点をそれぞれ挙げよ。

>>161
限りなく成功に近いプロジェクトには、そんなもん使わないでも、
それ以上に意味のある仕様書が存在しる。

それ系のツールで仕様書出すプロジェクトほどヘタってるって感
じするよ（ｗ
で、使うときに限ってコーティングがタコで、ロクな仕様書吐い
てくんない（ｗ仕様書出力のためのコーティング修正が始まる
始末・・・・（ｗ
で、仕様書出力のためのコーティング修正時に致命的なバグが・・・（以下略

>>165 >>166
そこまで冷笑されながらわからなかったＹｏ！
何だ!?何なんだ!?GetTextか？
いや、、、もしかしたら俺がやってることが特別なのかもしれん。
どういう事かっていうとだな、俺は今hotmailの垢取りツールを作ってんのよ。
もちろん練習兼ねてだけどな。
んで楽するためにWebBrowserコントロールを使ってる。
そんでWebBrowserの表示URLをhotmail登録のURLにするだろ。
これでWebBrowserコントロール内に登録フォームが表示されてる状態。
SendKeys "{TAB}"で最初の入力欄にﾌｫｰｶｽが行って、
そこであらかじめTextBoxからｸﾘｯﾌﾟﾎﾞｰﾄﾞに入れたテキストを
SendKeys "^V"とやって入力欄に貼り付けようとする。
失敗する。

これだよ。

>>170
仕様書作成ツールってさ。プログラム解析ツールと改名するべきだよな。
もしくは、仕様書捏造ツール。実際の用途はそのように使われているだろ。
仕様書ってなんだよ？

プログラムを作成するための仕様書を作成するためのプログラムを作成するための仕様書を作成するための・・・

原因として俺の腐った脳で考えれたのは
　・WebBrowserコントロール「自体」にSendKeyしてしまって、
　　入力フォームにキー入力されたことになってない？
って事だけ。

>>169
テキストボックスに決まった文字数の半角(or 全角)文字のみ入力させるような場合には
等幅にしておくと、Widthをギリギリに設定することが出来る、とかそんな感じですかね。
ラベルの文字とかはプロポーショナルの方が見た目がいいのかな？よくわかんないです。

質問なのですが
（VBの）アプリで重い軽いってありますよね
あれって、どのようにしたら、重い軽い、ってなるのでしょうか？
軽いはおいといて

重いほうは、やたらLOOPしたり、&多用、重いファイル読み込んだりしたら重くなるけど
たとえばList20とかCommand40とか、コントロールをやたら増やしたら
重くなるのでしょうか？

お願いします

>>175
使い場所によって、等幅の方が利点があると考えたなら等幅をつかい、
プロポーショナルの方が利点があると考えたなら等幅をつかえばよい。
どっちでもいいなら、デフォルトで見た目がよいプロポーショナルを推奨する。

>>171
SendKeys "{TAB}",True
SendKeys "^(v)",True
でもダメ？
なんかvは小文字じゃなきゃダメだった記憶(経験)が・・・

出来たっ！
ｻﾝｸｽ178！何故かわからんけどそっちをｺﾋﾟﾍﾟしたら出来た・・・！
感謝すぃます！

>>9
>>95
基本的な方法としては各ボタンにTBSTYLE_AUTOSIZE スタイルをセットしるだけ。
すると文字の幅に合わせてボタンの大きさが変わる。
よって、フラットスタイルにしてクリックしたときの処理を上手くまとめればOK。PopupMenuとか使って。
ただ、漏れにはボタンにスタイルをセットする方法がわからない。いろいろ試したんだけど、どうもうまくいかない。
どうすればいいんだ ヽ(｀Д´)ﾉ ｳﾜｧｧﾝ
たれか教えてください。Delphiだと簡単なんだけどなぁ。
もしかして簡単だったりして。わるれてるだけかな？

>>180
あ、一応ツールバーコントロールをクールバーに載せるって事で。わるれてました。

>>160
元のデータはどこにあるんだ？
デバイスコンテキスト？自分のメモリ？PictureBox？
それによって処理が変わるぞ。

”ツール”じゃなくて”メニュー”をクールバー上で〜
ＩＥの一番上のだよ　ＴＥＸＴだけのやつだよ

ＶＢのツールバーエディタはバカでイメージがなくても、その分の余白つくって
しまう。結局ダミーの1ｘ1のイメージでごまかす　こんなの正当じゃないよ

それは　別として
まとれす　最近来ないねｗ　（´∀｀　）

>>180
Delphiだとどーやるの？

>>95
ツールバーでメニューを作るんだよ、頼ってばっかのバカちん！

>>173
んー。名前はどうかね。
しかし、仕様書生成ツールなんて、はっきり言って不要よ。
ツールでちゃんとした仕様書が出力されるように糞なコーティング
ルール作って強制するなら、んなもん使わんでも済むように設計時
にしっかりした仕様書作成するほうが絶対にイイ（・∀・）

まぁ、納品ドキュメントの「格好」として利用する場合もあるかも
しれんが、「格好」だけなんだから、製品を購入する必要はなし。
フリーも多数あるんだから、それで十分でしょ。

>>185
だからＶＢのじゃできないっていってんじゃん、アホチン！
ニッケイ良く読め　

>>187
ん？ツールバーでメニューできんか？？

>>188
ヤッテミナ
テキストだけだと　変だから
エディタの仕様が悪いらしいｗ

>>189
確かに、テキストだけは変

だから、ボタンのビトマップを、絵ぢゃなくってテキストにして
作成したりしてたんですが・・・・ダメ？

結論として、VBでもできる・・・・だと思うのだけど、ダメ？

>>187
それって何かの記事？

＞＞１９０
それって何かの記事？ ＜いや　意味はない（´Д｀；）

>>187
ttp://www.int21.co.jp/pcdn/vb/onepoint/knvol002.html
ttp://www.int21.co.jp/pcdn/vb/onepoint/knvol014.html
ttp://www.int21.co.jp/pcdn/vb/onepoint/knvol0811.html
この方法でいいのか？よくわからん。

OLEDragDropについての質問なのですが
OLEDragDropが有効なコントロールが2箇所あって、
その2箇所とも同じ作業を行いたいのですが、
その一方に
File1_OLEDragDrop
と書いてやっても引数がうまく渡せないので、うまくいきません。
今はコードをコピペしてるのですが、もっとうまい方法ないでしょうか？

>193
出来るぞ。DataObject渡してるか？
自作の関数で引数にDataObject取ればすむ話だ。

同じコントロールならコントロール配列にするもよし。

VBでデータベース処理ができるようにVBとSQLの勉強をしておりどちらもある程度
知識がついてきたので就職しようと思っているのですが、実はネットワークの知識が
殆どありません。これだとやばいですか？

>195
就職先による。
時間があるなら勉強しとき。

TAPIを使ってパソコンから電話をかけて相手側に音声放送をするような
プログラムを作りたいと思い、TAPIの資料をあさっているのですが
なかなかよいものがみつかりません。
何かよいサイトなどありましたらご教授おながいします。

>195
ネットワークの知識つーても広ぅございますので...
新人として入るなら、小規模LANが組める程度で十分じゃないか。

欲を言えば、セグメント分けたネットワーク構築まで出来るとイイ。

英語
http://allen-martin-inc.com/

お勧め本
http://216.239.33.100/search?q=cache:iGbWiEG2KPQC:mfc.acty-net.ne.jp/ml/mfc/logTop/logAll/00017027.shtml+TAPI+%8Eg%82%A2%95%FB&hl=ja&lr=lang_ja

俺は専門外なのでこれぐらいで。

>197
TAPI系のコントロールを買ったほうが早くない?
http://www.google.co.jp/search?q=TAPI+OCX&hl=ja&btnG=Google+%8C%9F%8D%F5&lr=lang_ja

>>200
ありがとうございます！早速しらべてきまっす

>>194
即レスありがとうございます。
自作の関数とは
Public Function DragDropList1(Data As DataObject)
という関数を作って中身をコピペすればいいんですよね？
結果は、うまくいきませんでした。

ありがとうございました。

　　,,,,,,,,,,,,,,,,∧,,∧　 　／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
〜′,,,,,,,,,,ミ,,ﾟДﾟ彡 ＜　もとデータは自前で描画するのです>>182
　 UU"""" U U　　　 ＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
レスくれた方々、サンクスコ

とりあえず、
VBS　>>呼ぶ>>　VBのActiveXDLL　>>呼ぶ>>　BCBのDLL(描画する機能)
という、世界の終わりっぽい逃げで
一応作ってます…今のところ…
ああ、ﾃﾞｽﾏｰﾁﾃﾞｽﾏｰﾁ

株価チャートみたいに
Webアクセスしたら動的に画像を見たいだけなのに…

>>202
うまくいかないのに、ありがとうございましたか。
なんか違和感あるな。もうどうでもいいのかな？
関数と自分の書いているコードの意味がわかればちゃんとできるはずだが。

>>193
こーゆーことだ。
Function GetDrop(D As DataObject) As Long
Text3.Text = D.Files(1)
End Function

Private Sub Text1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
GetDrop Data
End Sub

Private Sub Text2_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
GetDrop Data
End Sub

Text1,2,3を貼りつけてText1,2のOLEDropMode=1に。

>>204
嫌味なんじゃないか？
ちょっとﾜﾗﾀが。

>>205
レスありがとうございます。
うまくいきました。なるほど、こういう使い方をするのですか。

ところが、また問題が、MSFlexGridにドラッグしたいのですが
型がMSFlexGridLib.DataObjectとなっているのでListBoxと型が合いません。
むむむ、、、

ありがとうございました。
>>204
自分がうまくいかなくても、レスをもらったのだから、その意味で
ありがとうございました。です。まあ、読み返してみたら、確かに変ですが。

>>206
じゃあObject型にすれ。

(追記)GetDropのDataObject型をな。

>>197でTAPIについて質問したものです。
どうにかこうにかTAPIの制御はできて、ダイヤルまでは逝ったのですが
新たな問題が・・・・
Windows98SEの環境でTAPIを呼び出してコールを行うと電話に相手が
出るまで延々とコールし続けてくれるのですが、
Windows2000の環境でダイヤルを行うと３回目のコールあたりで
ブチっときれてしまいます。
98と2000では実装されているTAPIのVerも違うようなのでその当りが
問題なのかなとか思うのですが・・・

VBで作ったＥＸＥを起動させて、
終了させてから、そのＥＸＥファイルを
棄てたり移動させたりしようとすると、
「ウィンドウズが使用してます。」
と表示されます。
なにが原因だと思われますか？

>>210
終了しきってないから。
君がするべきことはコードの見直し。

遅レスすいません>>148さんありがとうございます。
自分自身で使用ならそれで事足りそうですが、できればVBのみで
netstatの結果を使用したいのです。
DOSコマンドなのでnetstat自信の使用は可能だったのですが、
情報を取得がうまくいかないので・・・
他の方法は何かご存知の方いらっしゃいましたら、ご教授願います。

>>207
おお、ありがとうございます。
うまくいけました。
これで中身をいじったあと、コピペすることがなくなりました。
うっかりミスもなくなりそうです。

ありがとうございました。

この質問をここに書くべきじゃないかもしれませんが、
実は今、VBでサウンドプレイヤーを作成しているのですが
再生したい曲の、曲名や、アーチスト名、曲の長さ等を
取得するには、どうしたらいいでしょうか?

レコード会社

起動している任意のアプリを最小化したいのですが、、
どうしたら良いでしょうか？ライブラリーを探してみたのですが判りませんでした。。
又、sendkeysでWindowsロゴキーを送信する事は出来ないでしょうか？

>>216
APIのCloseWindowを使う。

Windowsのタスクバーに表示させなくしたいのですが、どうしたらいいでしょうか？
設定のフォームを普通のForm2で作ったんですけど、
普通、設定のフォームは普通のフォームじゃなく、何か別のフォームを使って作るのでしょうか？
おねがいします。

vbmodalで表示させるか、showintaskbarをfalseにすればいいんでないの？

>>219
ありがとうございます。サクっといけました。^^

皆様に教えていただきたいのですが、タイマーってどういうときに使いますか？

私が教えていただきたいのは、Formの見出し画面、（プログラムの名前を表示する）
　　例えば、Netscapeです、起動するときでる。読みこみ中ですとか言う！
　を使うプログラムありますよね！
　それで、見出し画面を表示して、タイマーを使って一定時間計って、
終わったら、プログラムが起動する、プログラムコード・・・・

　よろしくお願いします。

>>221
別にタイマー使ってるわけじゃなくて、それだけ処理を実行してる。
進行表示には、時間がかかる処理の中でプログレスバーを使う。

>>212
BATファイルを書き出して、NETSTATの結果をファイルにリダイレクトし、
そのファイルを読み込む。あとは証拠隠滅。
ただし、Windowsによって、NETSTATの結果書式は異なるので注意。

>>221
タイマーコントロールの使い道？
それとも　プログレス表示のアルゴリズム？
どっちが　知りたいねん？

てか　タイマーって　聞いてるので　こっちと判断

ＶＢのタイマーコントロールは　厳密でないのは　有名
使い道は　ＨＥＬＰにあるとおり
一定時間ごとに　何かさせるのに　使う

オレは　グラフィック描画と組み合わせたときに　使うかな
わざと　部分的に　描いていって　ゆっくり　見せるとき
ウエイト用に使うわけだ
特に　ラインでタイマーイベントで１ラインごと描くのに　いいだろ
遅い処理が　わざと　必要なときだな　　あいまいで　もちろんいいわけだ

タイマーコントロールで　何か正確な　時間を　量るのは　ムリ

　

CやVBには仕様書工房とかの自動生成ツールがありますけど、
VBscriptも仕様書を自動生成してくれるツールとかないですか？

224が　句読点を　使うのも　ムリ

>>214
そんなもん、扱うファイル形式による。
それぞれのファイルフォーマットについて研究せよ。
そもそも情報があるとは限らないよん。

>>221
ゲームでは、ほとんど使う。
業務系ではあまり使われないが、無人＝自動処理をするときは必要。

皆様の言葉、ありがとうございました。

　他の方もよろしければいつでも書いてください
　　よろしくお願いします。

Form１〜３を用意して、

Form1のボタンで、
From2.Show vbModeless, Me

Form2のボタンで、
From3.Show vbModeledd, Me
From3.Hide

の後に、Form2を閉じると、Form1のウインドウが背面に移動してしまうのですが、
どうしてなのでしょうか？

>>217
有り難うございます。APIですか、、難しそうですね、、
VBを始めたばかりなのですが、避けられないですよね、API、(^^;
よく調べてみます。。
なんとかsendkeysで出来ないものでしょうか、、

>>225
VBSは
Vusual Studio6ファミリーの
Visual InterDev6で書けるぞ
JavaScriptももちろんできる
当然ながら今から買うのは　お勧めしない

Ｓｔｕｄiｏプロ版以上はセットだが？
持ってないのか…　

>>231
どっちみち起動してるアプリ名を取得するのにAPIが必要になるし、
そもそもSendKeysはWindowキーに対応してない。

IE4以降がインストされてる環境なら、次のコードでもいけるかな。
Dim objShell As Object
Set objShell = CreateObject("Shell.Application")
Call objShell.MinimizeAll
Set objShell = Nothing

下記のような CallWndProc 関数を使い、SetWindowsHookEx でフックしたウインドウメッセージを処理しているんですが、
RtlMoveMemory の使い方が悪いのか、どうしても WM_NCPAINT メッセージを拾うことができません。
lParam からメッセージを正しく取り出す方法をキボンヌ。
WM_NCPAINT メッセージが間違いなく流れていることは Spy++ を使って確認しています。

Private Type CWPSTRUCT
lParam As Long
wParam As Long
message As Long
hwnd As Long
End Type
Private cwps As CWPSTRUCT
Private Const WM_NCPAINT = &H85

Function CallWndProc(ByVal ncode As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Call RtlMoveMemory(cwps, lParam, Len(cwps))

If cwps.message = WM_NCPAINT Then
'ここに目的の処理

End If

CallWndProc = CallNextHookEx(HHook, ncode, wParam, lParam)

End Function

CRC16/CRC32を計算するにはどうしたらいいですか？
フリーのDLLを呼ぶのはなしで自前のコードを書いてみたいです。

>>235
CRC16は、x^16 + x^12 + x^5 + 1 の剰余
CRC32は、長いので省略

VBでやるとたぶん激遅だけど、やってみるよろし。

xって何を表してるんですか？

>>237
想像できない？
まず、１バイトのファイルを作って、CRCツールの結果と比較してみる。
次は、２バイトファイル。
そういう探求心が必要。人に質問する前に。

諒解です。ありがとうございました。

LabelにあるディレクトリまでのPathを入れようと思ったところ、
「Documents and
Settings」
みたいに勝手に2行に分かれてしまって困ってます。
Labelにはマルチラインプロパティみたいなものも無いしどういうことですか。

>>240
AutoSizeとかWordWrapいじくってみたら？

　ある関数を使って計算させるプログラムを作りました。
そこで、プログラムそのものを効率良く・無駄なくしたという前提で、
さらに計算ににかかる時間を少なくしたいのですが、一般方法として
どのようなものがありますでしょうか？
ご教授いただければ幸いです。

>>242
C言語やアセンブラで書く

>>243
それ以外で。
なんと言ってもEXCELは使いやすいもので。
業務ではEXCELは欠かせないのですよ。

速いCPUに変える。

>>245
EXCELでって言ってんだろーがー！！！
だからこうやってVBスレに書き込んでるんだよ。
ったく人が下手に出てりゃふざけやがってよ。

>>246
「プログラムそのものを効率良く・無駄なくしたという前提」なら
これ以上どうしようもないのでは？
本当に無駄がないのかはしらんが。

MS Word のように複数ページをスクロールして表示するにはどうすりゃいい？

>>246
マイクロソフトに入社して、もっと効率のいいAPIを開発するか、
あんた自身のスキルアップのために大学院に入ってアルゴリズム
の研究をした方がいいよ。

>>249
２chに救いを求めるようなｱﾌｫに研究生活は無理だと思われ

>>242
無駄をなくす。最終的には速さはこれしか影響しない。

具体的な方法は、
○アルゴリズムの見直し
○Variantを使用しない
○APIが使えそうなら使う。
○ループの中の見直し
こんな感じ。（ホントはもっとあるけど割愛。）
上のものほど速くなる。

>246
2chのネタぐらいで切れるな。2ch初心者かい？


>>248
あれは自前で描画してるが。
どっかにそれ専用のコントロールでもあるかな？

>>242
今はどれくらいの時間がかかってんの？

>>249
PCそのものが1年くらいの経験年数。
>>250
うるせー
>>251
ありがとう。
ちなみに切れた振りしてるだけ。
最初はボケにつきあってたのさ。
>>252
少なくとも一時間以上。
計算量が多いってのもあるけど。

>253
ありゃ、そうなのね。

ボトルネックになってるところは分かるか？
コードを貼りつけてみればアドバイスも増えるかもな。

>>254
申し訳ないが。。。会社で使ってるんですよ。
貼れない。。。

ちなみに「Variantを使わない」ってのは参考になりますた。
ありがとう。色々試してみます。

>>251
こっちも自前で描画したい。コントロールは恐くて使えん。
まずメモリに全部描画して、その後ピクチャに...
ってやるんだろうが、具体的にはまったくわからん。
今は１ページ分の拡張メタファイルを作ってピクチャに描画してる。
当然画面には１ページしか表示できず、メニューなどで切り替えている。
ここから何とかならんものか？

>>256
そんなに初心者だったのか。ならいろいろアドバイスすることはありそうだね。

>>257
2ページ分書いて表示位置をずらす。（はみ出る分は描画しない。）

>>256
頑張れ。

>>256
とりあえずなるべくメモリに展開してから計算すると速くなることがあるね。
最近のPCのメモリはたくさんあるからフルに利用しよう！

mikeさんのＤＬＬを用いて、MP3演奏ソフト作ってるんですが、
繰り返し演奏をしようと思いまして、そこで
"C:\My Documents\My Music\okuyasu.mp3"
のファイルパスをString型のMp3fileという変数に格納しました。
そこでVBのソースコード中でMp3fileがEOFになるという
条件文の書き方はどのようにすればよいのかしら。

>>261
ごめん、文字列型のEOFと言う意味が分からん。誰か分かる？

>>259
まあそうなのだが、スクロールとズームを考えるとイマイチ方法がわからん。
１ページだけだとピクチャの Move だけで実現できるのだが。

>>262
End Of File?
空文字列という意味？

失敬.２６１です。
>文字列型のEOFと言う意味が分からん。
ここに誤りがあったか。
ではMP3ファイルを演奏して、終了したときに出される
EOFを検地するには,VBコード中で
どのように書けばよいか？

>>263
ああ、そういう方法使ってたのね。

つまり自前で描画ってのはDC（PictureBoxでもいいけど)を2つ用意して、
1,2ページをそれぞれに描画して、BitBltなりStrechBlt（だっけ？）で
表示させたい所に転送する、って感じになるんよ。

スクロールは転送位置を操作、ズームはStrechBltでいけるでしょ。

#ちょっちめんどくさいかも。


>>264
どうなんだろう。

すんません
VBで ダブルな引用符 ---> " を文字列の中で使うにはどうすればいいのでしょうか?
いまは、 & chr(34) & で書いていますが、何か他の書き方が絶対にある気がしているのですが。

>>267
無いよ

>>265
func.txtに載ってないの？

>>267
""とする。文字列なら
txt = "これが""引用符""だよ"
って感じ。

>>265
フリーのDLL使ってるんならコールバック関数なり何なりがあるはず。
ヘルプなりReadMeなり見れ。

>>267
Str="""

>>266
既存のコードを生かすとすると、
拡張メタファイル DC をページ分作って
そこから更に表示域のビットマップをこしらえる、
ってことでイイのかな？
うまくできるかどうかはわからんがやってみるよ。
ありがとう！

VB5.0で作ったの開かないYO!

Private Sub From_Activate
Print "ゴルァ"

End Sub

>>272
何が言いたい？

>>269 さん >>270 さん ありがとうございます!
これで プログラムがとてもすっきりします。

俺の立場がー

>272
原因の可能性がありすぎ。

>276
藁
気にすんな。

\\server\みたいに始まるパスを普通のパスに直すにはどうしたらいいですか？

>>278
普通のパスって？

M:\
とかです

>>278
if left$(Path,2)="\\" then path="c:\" & mid$(path,3)
こんなんでいいのか？お勧めせんが。
それともローカルのパスだったらローカルパスに直す、とか言う処理か？

>>278
\\server\に対するM:\が存在しないことがあるのは知っているか？

DoEvents以外でループ処理から脱却する方法を知りたいです。

>278
WNetAddConnection2で\\Serverに接続しよう

Exit For?

>>283
どういう機能がほしいんだい？

＞＞２８３
goto?

DoEvents ってループから抜けられたっけ？

>>283
脱却ってのがなんだかわかんない。

いや、脱却は語弊がありましたね。
要するに、処理がForに集中してフリーズ風になるのを避ける
方法を伺っておるのです。

ENDで抜けろ

ループ処理を行い、なおかつその他の動作ができる状態・・・
いや、DoEventsで十分なんですが、これではループに時間が・・・

DoEvents入れる間隔を変えるべし。
for〜next処理をdo〜loop内に入れてして数千回回したら一回forを抜ける。
ここでDoEvents。

ってのはどう？

ふむふむ。参考になるっす。
自分は
　If Rnd<0.001 Then DoEvents
見たいなのも考えてみたのですが、条件判断にもいちいち時間かかり
そうだったので気が引けてました。
>>293さんの方法でやてみます。ありがとうございます。

ACCESSについて質問なんですけど
Form_1.Name.Text
というテキストボックスに
ユーザーに文字を入力してもらった後、
Docmd.Close
でForm_1を閉じ、
Module1
を呼びました。
Module1内から
Form_1.Name.Text
内にユーザーから入力してもらった文字が参照できるのですが
なぜ、閉じてるのに参照できるのでしょうか？？
参照は確実にできるのでしょうか？？？
VBのUnloadとはどう違うのでしょうか？？？

以上、お教えいただけませんでしょうか・・・・・

>>294
重い処理をアウトプロセスサーバにして非同期で動かすとか．．．

>>296
すみません、意味わかんないっす（ｗ

>>295
できない

>>297
MSDN ライブラリで ActiveX EXE について調べてみてはいかがでしょ。

300ｹﾞﾄｰ

>>290
Sleep使え。

>>295
DocmdのCloseはVBのHideと似たような動作になるんだったかな。

>>301
>Sleep使え。
それも手か。

>>301
Sleep 使ったらスレッド止まっちまわね？

>>303
スレが止まるのかｗ

>>304
（･∀･）ﾊｼﾞﾒ ｲﾐ ﾜｶﾝﾅｶﾀﾖ (w

>>303
Call Sleep(1)
DoEvents
みたいに組で使えってことだろ、たぶん。

>>306
一見良さそうだよね。

＞＞３０６
それどういう意味があるの？

VBの実行ファイルサイズがでかくて困っております。
小さくするコツなどありましたらご教授お願いします。
P-CODEコンパイルってアリですか？（いまいちメリットがわからん）
なるべくネイティブコードコンパイルにしたいのですが…

>>309
デカイってどれくらいなのサ？

>>310
200KBを半分くらいにしたいのサ（；∀；）
１つのフォームにTabSplitとFrameを５つくらい貼って切り替えるやつなのサ

>>311
TabSplitとFrameを置いただけじゃそんなにならないよね。
その他のコードに無駄はないかい？
最適化をいじくるのはそれからだよ。

>>302
あかんやろ。
>>292 で「いや、DoEventsで十分なんですが、これではループに時間が・・・」
って言ってるぐらいだから。

そもそも >>290 で...
> 要するに、処理がForに集中してフリーズ風になるのを避ける
> 方法を伺っておるのです。
の意味があいまい。
1. 他のプログラムの動きがのろくなる
→ プライオリティ設定すべし。もしくは、SMP マシンでも買え。
2. 自分のプログラムのコントロールが反応しなくなる
→ ちゃんとやるなら >>296 の方法。簡易的には DoEvent しかないよ。

>>313そうだね。遅くなるのは避けたい。
プライオリティは具体的には
Private Declare Function GetCurrentProcess Lib "KERNEL32" () As Long
Private Declare Function SetPriorityClass Lib "KERNEL32" (ByVal hProcess As Long, ByVal dwPriorityClass As Long) As Long
で宣言してどっかに
SetPriorityClass GetCurrentProcess, &H80
を組み込む。&H80で十分っしょ？

>>311
1：頑張ってコードを最適化(最適化の術はGoogleで検索してみ)←推奨
2：UPXで潰す。
3：コンパイルされるときに強制的に
/MERGE:.data=.text /MERGE:.idata=.text /SECTION:.text,erw
を付加する。これ超裏技。
Link.exeにこのコマンドが渡されるのであらかじめVBでLink.exeをリネームしたものに
このコマンドを渡すプログラムを作っておく。
更に/ALIGN:4096をつけるのもよし。
VB側では『サイズの最適化』にしとく。

>>292
DoEventsの変わりの関数を作って決められた回数もしくは一定時間を
超えた場合のみDoEventsを行う用にすればいいのでは。
決められた回数はCPUに比例してDoEventsの回数が増えるから
一定時間ごとDoEventsがよさそう。

>>315
固まりかけてるような重いプログラムで一定時間が判定できるのかな？

>>312
ほかにもいろんなコントロールをぺたぺたぺたぺたぺたぺたぺたぺた貼り付けております。
とりあえずコードから見直してみます。
ありがとうございました。

ListViewコントロールでアイテム追加ってどうやるんですか？
ごーぐるさんでも出ないのですが。

>>318
ヘルプを見よ。

>>318
ListView に直接追加するんじゃなくて、ListView.ListItems コレクションに
追加しる。

質問です。
送信元を[email protected]としたメールを送信したいときのソースは
どう書けばいいですか？

逝ってよし

下げるナ　あぽ

SPAMかよ

そうそう。
悪用はいたしませぬ。
教えてケロ

だから。さげるナってば

>>321
そもそも、人に聞くような問題じゃないし。

だってここ初心者が質問できるとこでしょ？？
教えてくれい>>327

おーい

ソースを書いてって言われて書く奴なんかいないって。

どうきけばいい？
タグっていうかとにかくエクセルにメールアドレスを登録している人達に
メールを送りたいんだーーー！

で、下げるナヨ（怒

ここで質問しないで検索すれば？
ずっと早いと思うよ。

あ、俺わかんない。ごめんな。

>>331
まず努力。ヘルプ見て自分でやってみて、わかんないとこが出てきたら、
自分でやったことを書いてから質問する。

>>321
つーか、ネタだろ。ネタじゃなければバカ

>331
WinSockを使う。VBのサンプルコードはあんまり見かけんが。

めんどくさいならフリーのDLL、OCXを使うかOutLookのVBAを使ってみれ。

即レス以外はみんなあぽう。
まったくもうっ。ここで質問する位の初心者だと理解しろＹＯ！！

ListView.ListItems.Add , ,"text"
のカタチでちゃんとアイテム追加できましたです。
ｻﾝｸｽっす。

ところがもひとつ質問が増えました（ｗ
複数カラムがある場合に、それぞれのカラムにテキストを入れますよね？
カラムが３つある状態のListViewコントロールにAddで追加しても、
１つ目のカラムにしかテキストを入れれないんですが。
２つ目、３つ目のカラムに入れるテキストはどう指定すればいいんでしょう？

winsockコントロールを貼り付け、
SMTPサーバのIPをリモートIPに設定。リモートポートは25。
winsock1.connect　で接続
winsock1.Winsock1.SendData "〜〜〜"　で直接データを送れる
あと向こうからの反応の感知は　DataArrivalだ。
感知したらgetdataで向こうからの反応を取得できる。

あとはTELNETでのSMTPの構文をVBでやらせりゃいいだけ。
その際送り元を"mail from: [email protected]"ってやれば[email protected]からになる。

ソースじゃないがこれで書けるだろ>>321
これ以上は俺説明する気ないぞ

>338
ListItemのAddの戻り値であるListItemオブジェクトのSubItemを使う。

MSDN見れ。サンプルコードが確かあった。

winsock1.Winsock1.SendData "〜〜〜"
↓
winsock1.senddata "〜〜〜"
（ちなみに〜〜〜はSMTPに送るデータだ。
わかってるだろうがデータの最後にChr(10)を付けないとだめだぞ)

winsockがなんなのかさぱーりなのだが検索して調べてみよう。
ありが玉金（私、いちお女、ね）

EXCEL関係のＱ＆Ａや解説本を調べても分からなかったので
質問します。分かる方教えてください。ここを見ろでも結構です。
当方EXCEL2000です。

TEST01.XLS（名称は都度変わります）のマクロから
TEST02.XLS（名称は都度変わります）内部のB1:C2のセルを
TEST01.XLSのA1:B2のセルにコピーして
TEST02.XLSを自動で閉じたいのですが？
−−−−−−−−−−−−−−−−−−
Sub a()
　　Dim boCheck As Boolean

　　　　boCheck = Application.Dialogs(xlDialogOpen).Show

　　If boCheck = False Then
　　　　MsgBox "キャンセルが選択されました。処理を中止します。"
　　　　Exit Sub
　　End If

　　Range("B1:C2").Copy

　　ActiveWorkbook.Close SaveChanges:=False

　　Range("A1:B2").Select
　　ActiveSheet.Paste
End Sub
−−−−−−−−−−−−−−−−−−−−−
上記マクロでは、A1:B2になにも入りません。
ご存知の方、助けてください。 おながいします。

厨な質問なんですが、VB+DirectXでテキストボックス使うのってどうやればいいですか？
フォームに貼り付けてもフリップしまくりで見えないんですけど・・・。
誰か教えてください。

>>343

Sub a()
　　Dim boCheck As Boolean
　　Dim filename As String
　　
　　boCheck = Application.Dialogs(xlDialogOpen).Show
　　filename = ActiveWorkbook.Name
　　
　　If boCheck = False Then
　　　　MsgBox "キャンセルが選択されました。処理を中止します。"
　　　　Exit Sub
　　Else
　　　　ActiveSheet.Range("B1:C2").Copy
　　　　Workbooks(filename).Close SaveChanges:=False
　　　　ActiveSheet.Range("A1").Select
　　　　ActiveSheet.Paste
　　End If
End Sub

>>345
ありがとうございます。大変助かりました。

もう1つだけお願いします。
B1:C2と書きましたが、コピーエリアはもっと大きくて
＞Workbooks(filename).Close SaveChanges:=False
ここで、下記メッセージが出ます。

クリップボードに大きなデータがあります。他で参照する場合はYESを
参照しない場合はNOを選択してください。
↑
これを出なくすることは出来ますか？

>>346
Elseの次の行に
Application.DisplayAlerts = False
を追加

>>347
ありがとうございます。解決しました。助かりました。

>>345
そんな感じでVBAでセルからアドレスを取得してメールを送る方法を
教えてよー

その
態度を
改めろ

>>349
教えてほしけりゃ、>>343のように自分がやったことを示せ。
お前のような奴に教える奴はいねぇよ。
初心者未満には何を教えても理解できないだろうし。

スイマセン。新たな問題が発生しました。
大変申し訳ありませんが、分かる方お願いします。

Sub Macro6()

Dim boCheck As Boolean
Dim filename As String

boCheck = Application.Dialogs(xlDialogOpen).Show
filename = ActiveWorkbook.Name

If boCheck = False Then
MsgBox "キャンセルが選択されました。処理を中止します。"
Exit Sub
Else
Application.DisplayAlerts = False
ActiveSheet.Range("BF6:BI105").Select
Application.CutCopyMode = False
Selection.Copy
Workbooks(filename).Close SaveChanges:=False
ActiveSheet.Range("BF6:BI105").Select
ActiveSheet.Paste
End If
End Sub

上記を実行すると、クリップボード内でセルの値をまとめてしまいます。
例：BF6ｾﾙ　BG6ｾﾙ　BH6ｾﾙ　BI6ｾﾙ　　　
　　　100　　　　200　　　300　　　400
が　元のBOOKにペーストすると　　BF6ｾﾙにまとめて『100･200･300･400』
となります。対処法ご存知の方よろしくお願いします。

Option Explicit
Declare Function SendMail Lib "bsmtp" _
(szServer As String, szTo As String, _
szFrom As String, szSubject As String, szBody As String, szFile As String) As String
Sub MySendMail()
Dim ret As String
Dim szLogfile As String
Dim szServer As String, szTo As String, szFrom As String
Dim szSubject As String, szBody As String, szFile As String
Dim flBody
Dim i As Long
Dim fs, a As Object

On Error GoTo Err_Handler
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("c:\log.txt", True)


' メール送信結果を記録するファイル名を指定します。
szServer = Worksheets("本文").Cells(11, 1) ' SMTPサーバ名
'
With Worksheets("宛名及び置換文字")
If .Cells(1, 3) & .Cells(1, 7) = "" Then
MsgBox "タイトルとＦＲＯＭを入力してください"
GoTo Exit_sub
Else

If MsgBox("タイトル：" & .Cells(1, 3) & "、送信元" & .Cells(1, 7) & "で良いですか？", _
vbOKCancel, "確認") = vbCancel Then
GoTo Exit_sub
End If
End If
szSubject = .Cells(1, 3) ' 件名
szFrom = .Cells(1, 7) ' 送信元
i = 3
Do While .Cells(i, 1) <> "END"
If .Cells(i, 1) = "○" Then
szTo = .Cells(i, 5) ' 宛先
szBody = .Cells(i, 6) ' 本文
szFile = ""
ret = SendMail(szServer, szTo, szFrom, szSubject, szBody, szFile)
If Len(ret) <> 0 Then
a.WriteLine (Date & " " & Time & " " & ret & "−" & szTo & "−" & szBody)
'MsgBox "エラー" & ret & "−" & .Cells(i, 4)
.Cells(i, 1) = "エラー"
Else
.Cells(i, 1) = "完了"
End If
End If
i = i + 1
Loop
End With
' パラメータエラーのときは、戻り値にエラーメッセージが返ります。

MsgBox "終了"
GoTo Exit_sub

Err_Handler:
MsgBox Err.Description, vbCritical, "Error"
GoTo Exit_sub

Exit_sub:
a.Close


End Sub

・・・で解決できたもんね！！ぶひーだ

INIファイルのことで質問なのですが
INIファイルにInteger型の数値を書き込みたいのですが、
もし、INIファイルがないorその項目がないとき
””
が戻ってくるので、エラーが出てしまいます。これを回避する方法はないのでしょうか？
よろしくお願いします。

>>352の内容から新たに分かったことです。
マクロを実行するBOOKがEXCEL形式なら問題なしのようですが
今回必要なのは、CSVを開いてそこからの実行だと
>>352のようになるようです。
もし分かる方いらっしゃればお願いします。

↑すいませんINIファイルを読み込みにいくとき、””でエラーが出ます。

>>355
WritePrivateProfileString使ってんの？
項目が無ければ作るはずだよ。

>>358
レスありがとうございます。
すいません、書き間違えました
本来はWritePrivateProfileStringでかきこんで
GetPrivateProfileStringで、読みにいってるんですが、

何かの拍子にINIファイルがなくなったり、項目がなくなったりしたとき
GetPrivateProfileStringで読みに行くと
””
が返ってきますよね？そうなると、型が合わないとエラーが出てしまいます。

何かよい回避する方法はないでしょうか？

追加
Integerで宣言すると
””
が戻ってきたとき、型が合いません

何かいい方法はないでしょうか？おねがいします。

>>359
GetPrivateProfileIntがあるよ。

>>359
GetPrivateProfileStringでも、
項目が見つからない（≒ファイルが見つからない）
ときに返す値を決めれたはずだけど・・・？
GetPrivateProfileString(section,key,"",value,length,file)
とあったら、""のトコじゃないの？それを"0"とかにすればOKかと・・・。

>>362
それダメじゃない？宣言はString型なんだから。

んでもって今俺もなんか変なんで質問する。

普通ならメニューから参照設定で「Microsoft Internet Controls」
にチェックを入れてOKすると、WebBrowserコントロールがリストに入りますよね
なんか今やったら追加されてないんだよ・・・。
何度かチェックを外したり入れたりしてみたけど変化なし・・・。
バグなのか？対処方法とかないのかねぇ

>>363
あとで使うときにVal関数でやればOKだろうが。

>>365
んな手間かけるならGetPrivateProfileInt使えばいいじゃない

>>366
そりゃそうだなｗ
いや新着レス読む前に書いたもんで（ｗ
まぁどっちでもできるわけで。

>>367
熱くなってすまんかったｗ

>>361 >>362
レスありがとうございます。
実はAPI関係、あまりわかってないのです。お分かりでしょうが、
でも、これでいけそうです。
ありがとうございました。

>>369
頑張れ

自己解決したので報告だけします。

PERSONAL.XLSのマクロから
TEST02.XLS（名称は都度変わります）内部のBA6:BI105のセルを
TEST01.XLSのBA6のセルにコピーして
TEST02.XLSを自動で閉じたいのですが？


Sub Macro1()
Dim strFileName As String
Dim wbTargetBook As Workbook
Dim mySheet As Worksheet

Set mySheet = ActiveSheet
strFileName = Application.GetOpenFilename()
If strFileName = "False" Then
MsgBox "キャンセルが選択されました。処理を中止します。"
Exit Sub
End If

Set wbTargetBook = Workbooks.Open(strFileName)
With wbTargetBook
.Worksheets(1).Range("BF6:BI105").Copy
mySheet.Range("BF6").PasteSpecial xlValues
Application.CutCopyMode = False
.Close SaveChanges:=False
End With
End Sub

先ほどコードの記述は変わりましたが、上記で解決しました。
お騒がせしました。

>>240です。ものゴッツい亀レスになってすみません。
>>241ｻﾝ
ありがとうです。両方Falseになっていました。
Trueの動きはかなり嫌なので、他に方策はありませんでしょうか。

すごく遅いけど、Winsock使うときは一応、
DataArrivalが意味をなす単位ごとに発生
しないことを留意しておいてくださいです。

ローカルグループの一覧を取得するような関数ってありますか？

”意味をなす単位”ってなんだ？

Excel関連は、ビジネスソフト板のExcelスレで。

タイマー処理で教えてください。
Xxxx_Timer()の中でMsgBoxを使っているんですが、MsgBoxで入力が無いままだと、タイマー割り込み
が溜まるって事あるんですかね？
なんかデバッグで動かしているとそんな感じになるんですが・・・
タイマー処理の頭で、タイマー.Enabled＝Falseにして抜ける時にTrueにするのが
普通？？

>>377
VBのMsgBoxは出ている間しっかり処理がとまる。これ仕様(だった筈)。

wroxのプログラマーシリーズ
VB.NETプログラミング第７章「データアクセス」p280のコード
(ASP.NET)

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim objCustomerOrders As New CustomerOrders()
Dim MyDataSet As DataSet
MyDataSet = objCustomerOrders.FillPurchaseOrdersDataSet()
DataGrid1.DataSource = MyDataSet
' 明示的にコントロールとデータを結合するために必要
DataGrid1.DataBind()
End Sub

を実行して、Button1を押すと、

'/WebADO1' アプリケーションでサーバー エラーが発生しました。
--------------------------------------------------------------------------------

IListSource に、データ ソースがありません。
例外の詳細: System.Web.HttpException: IListSource に、データ ソースがありません。
ってなって、
DataGrid1.DataBind()
がエラーになります。ダウンロードしたコードそのままなんだけど？

よろしくお願いします。

TabStripを使っているんですけど、
タブをコードから移動させることはできますか？
どうやればいいのか調べてもわからないんです・・・。

先生!!
.NETは漏れにはわかりません!!

>>377
MsgBoxを表示している間はタイマーカウントされません。

>>379
コードがあってもデータがないというオチだったりして…

>>380
tabs(index)のselectedプロパティをtrueにする。
TabStrip1.Tabs(index).Selected = True
で、index番目のタブが選択されるよ。

デスクトップなどにあるテキストの内容をテキストに表示させるにはどうすれば良いですか？

意味がわからん
ﾃﾞｽｸﾄｯﾌﾟにある***.txtをテキストボックスに表示するの？

VB6ラーニングエディションを使っているのですが、
APIビューアが見つかりません。
そもそも\Microsoft Visual Studio\Commonの下に\Toolsというフォルダが
無いのですが、ラーニングエディションではAPIビューアは使えないと
いう事なのでしょうか？
閲覧できる過去ログやヘルプを見ましたが該当する記事が見つかりませんでした。
どなたか分かる方がいらっしゃいましたらお願いします。

>>385
Learningには付属していません。

>閲覧できる過去ログやヘルプを見ましたが該当する記事が見つかりませんでした
英語は読めますか？国内だけじゃだめだよ。

>>386
早速のご回答ありがとうございました。
別の方法を考えてみます。

>>384
そうなんです。
お願いします。

>388
目的のパス調べてOpen,Getとか使う。

VB6+SP5です。
自作ソフトのバージョン情報を追加のフォームモジュールから行ったのですが、
バージョン情報を出している間メインフォームをロックしたいんですけどどうす
ればいいでしょうか？

メインフォーム側をロックしただけではALT＋TABでアプリを切り替えたときなど
バージョン情報がメインの後ろ側に回ってしまい操作できなくなってしまいます。

訂正
メインフォーム側をロックしただけでは
↓
メインフォーム側の　EnableをFalseにしただけでは

>>382
ｻﾝｸｽですちゃんと動きました！
どこ調べていいのやらさっぱりで・・・。
ありがとうございました。

>>390
Object.Show vbModal
ってVbModalつければそのフォームからﾌｫｰｶｽ移せなくなったハズ。
だめならもっと技術ある人、指摘して下さい（ｗ

あ、ここでのObjectってのは当然だけどそのバージョン情報のフォームの事ね。

>>393
即レスｻﾝｸｽ
これでおｋですわ

か〜なり、低レベルの質問です。
ＶＢ5.0　ってＷＩＮＸＰ　で使えますか？

>>396
俺エラー出て使えなかった。
のでVB6買ったら直後に.NETとやらの話が出て・・・。
鬱だ

VB6です。
InetコントロールでWeb上のファイルを取得できると聞き、
調べてやってみたんですが、TextBoxに取得した文字列データ（htmlのソース）
を入れると改行されてません。横にめちゃくちゃ長くなっています。
そしてその文字列をコピーして、メモ帳に貼り付けてもそのままなんですが、
秀丸に貼り付けるとちゃんと改行されてきれいに表示されます。
どういうことなのでしょうか？またどのように対処すればいいですかね？

>398
改行の文字コードの違い。
ReplaceでVbCrLfに変換すれ。

>>398
漢字コードは、シフトJIS決め打ちでいいのかな。
JISやEUCのサイトもあるから、バイト配列で受信して、
変換するのが汎用的。その時、改行コードも変換。

>>399
早速のレスありがとうございます！
やってみた所
Text1.Text = Replace(Text1.Text, Chr(10), vbCrLf)
で見事に改行されました。

タイマー処理の件
>>378さん、>>382さん
レスありがとうございました。
って事はタイマー処理を抜ける時、タイマー.Enabled＝Falseにしてしまえば、
それ以降、タイマー処理は起動されないんですよね＜くどいって？（＾＾；汗

>>402
テストコード書いて試してみれば？
手元にVBが無いんだったらｽﾏﾝ

WinSockオブジェクトを使って2つのダイアログ間でテキストデータのやり取りをしているんですが、
クライアント側を終了させると再接続ができなくなってしまいます。
鯖側ではクライアントのクローズを感知したあと、
再びListen状態で待機しています。
再起動時のクライアント側でConnectしているんですが、
鯖はConnectionRequestイベントが発生していないみたいです。
何が原因何でしょう。
Win2KSP2、VB6SP5です

クライアント側を終了するときにcloseメソッドを実行してますか？

クライアント側でLocalPortを固定にしているとか？

VBでの関数の戻り値の初期値って自動的に0や""だったりするのですか？
Cでの経験でローカル変数は宣言直後はゴミが入っているような
感覚があっていままでずっと初期化コードを書いていたんですが…。

>>407
変数宣言時に以下にのように初期化される。
関数名も暗黙の変数のようなものなので同様。

Byte CByte(0)
Boolean False
Integer 0%
Long 0&
Single 0!
Double 0#
Currency 0@
Date #1899/12/30 00:00:00#
Object Nothing
String vbNullString
String * n String$(n, 0)
Variant Empty

Formの背景にbmp画像を表示したいのですが、
１つの小さい画像をいくつも並べて表示ってできますか？
いろいろ検索しても出てこなかったのですが…

>>407
VBは自動的に初期化されるよ。

TrueDBGrid6.0についての質問です。

ストレージモードでグリッドにデータを表示していますが、
行番号を識別する方法がわかりません。

rowプロパティでは画面に表示されている行しかカウント
してくれません。

グリッド全ての行を識別する方法を知ってる方は是非
教えて頂きたいのですが。よろしくお願い致します。

ちなみにVB6(SP5),Win98SE。

>>409
VBのSampleコードにそのものずばりがあるよ。

質問させていただきます。
実は同じテキストをたくさん必要とするようなコードを書いているんですが
デザイン時ではなくて実行時にオブジェクトを作成できると聞き、調べた所
SetとかNewとかいうのを使うとわかったのですが、具体的なやり方が・・・。
Text1を100個複製するにはどうやればいいのでしょうか？
具体的なソースを一部書いていただけると幸いなのですが。
欲を張りすぎですね（ｗ　やり方だけでもお願いします。

>>413
コントロール配列でＨＥＬＰ見よ
この場合
最低ひとつ　用意しないとだめ
例　text1(0)を　貼っておく

コントロールは　コンテナが必要なため（単独で存在できない）
何か（まあ　フォームか）に貼りつけておかないダメだからだ

あとは　自分でどぞ
ＨＥＬＰにあるぞ　

>>408,410
勉強になりました。ありがとうございました。

谷尻のVBでDB本てさあ、在庫管理のIDがInteger型なんだよね。
３万件越えたら、じきにパンクするぞ。

それと、せっかくSQL文使ってるのに、SELECTだけかよ。
なんでSUMとかBETWEENとかじゃなくてVBのコードでやってんだよ。

>>416
谷尻本は読んでないのでわからんが、
入門者向けだから、mdb使ってるんでない？

＞３万件越えたら、じきにパンクするぞ。
だったら、この心配はいるまい。

＞なんでSUMとかBETWEENとかじゃなくてVBのコードでやってんだよ。
VBの説明がメインなんではないだろうか。
だから、いちいち説明するのが面倒なんじゃないかな。

とか言ってみるテスト。

>>417
MDBだけど、ADOでSQL文投げてる。変数名もmySQL。
Public cn As ADODB.Connection
Set rsAll = New ADODB.RecordSet　
rsAll.Open mySQL, cn

いちおうソートはSQLでやってた。

合計のやり方は、こんな感じ。
Do Until rsAll.EOF
　If (rsAll!日付 >= DateValue(ss) And _
　　 　(rsAll!日付 <= DateValue(es) Then
　　　　　nyuuko = nyuuko + rsAll!入庫数
　End If
　rsAll.MoveNext
Loop

プログラマー板で質問したけど、ここに行けと言われて来ました。
ＶＢＡで非表示のセルを対象外にするには、どうしたら良いでしょうか？
朝までにツール作らないとならないので、よろしくお願いします。

>>418
SQL側にロジックを偏重させるのは嫌いだが、
rs!FieldName
なんて書き方してる時点で糞本決定。
rs.Fields("FieldName").Value と書け。

>>420
SUMとかBETWEENはSQLでやるべきだろ。パフォーマンスにかかわる。
mdbレベルならたいして変わらんかもしれんが。

VBのSockコントロールがリークばっかで使い物にならないんで、
自作しようと思うがどうだ。
ソース上げてもいい？

>>422
好きにしろよ

どなた様かリストボックスに羅列したものから選んだ任意の数字を
整数値として抜き出す方法を教えてくださいませ（泣）

しくしく。

>>424
clng(List1.List(List1.ListIndex))

Public Function SelectForRead(ByVal TimeOut As Long) As Long
Dim lngRet As Long
Dim fdRead As fd_set
Dim tv As timeval

'タイムアウトの設定
With tv
.tv_sec = TimeOut \ 1000
.tv_usec = TimeOut Mod 1000
End With
'fd_set構造体
With fdRead
.fd_count = 1
.fd_array(0) = m_hSocket
End With
lngRet = apiSelect(0, fdRead, ByVal 0&, ByVal 0&, tv)
m_hErrNo = apiWSAGetLastError()
If lngRet = tcsocSocketError Then
Err.Raise tcsocErrSelect, , mcstrErrSelect
End If
SelectForRead = lngRet

End Function


Public Function SelectForWrite(ByVal TimeOut As Long) As Long
Dim lngRet As Long
Dim fdWrite As fd_set
Dim tv As timeval

'タイムアウトの設定
With tv
.tv_sec = TimeOut \ 1000
.tv_usec = TimeOut Mod 1000
End With
'fd_set構造体
With fdWrite
.fd_count = 1
.fd_array(0) = m_hSocket
End With
lngRet = apiSelect(0, ByVal 0&, fdWrite, ByVal 0&, tv)
m_hErrNo = apiWSAGetLastError()
If lngRet = tcsocSocketError Then
Err.Raise tcsocErrSelect, , mcstrErrSelect
End If
SelectForWrite = lngRet

End Function

Private Function CastLongToInt(ByVal lngVal As Long) As Integer
CastLongToInt = CInt("&H" & Right$(Hex$(lngVal), 4))
End Function

Public Function Send(ByRef bBuff() As Byte, _
Optional ByVal Start As Long = 0, _
Optional ByVal BytesToSend As Long = -1) As Long

'BytesToSendの確認
If (BytesToSend < -1) Or (UBound(bBuff) - Start + 1 < BytesToSend) Then
'負の値が指定されている、またはデータ長より大きい
Err.Raise tcsocErrInvalidDataLen, , mcstrErrInvalidDataLen
ElseIf BytesToSend = -1 Then
'省略時はデータ長に等しくする
BytesToSend = UBound(bBuff) - Start + 1
End If
Send = apiSend(m_hSocket, bBuff(Start), BytesToSend, 0)
m_hErrNo = apiWSAGetLastError()

End Function


Public Function Recv(ByRef bBuff() As Byte, _
Optional ByVal Start As Long = 0, _
Optional ByVal BytesToRead As Long = -1) As Long

'BytesToReadの確認
If (BytesToRead < -1) Or (UBound(bBuff) - Start + 1 < BytesToRead) Then
'負の値が指定されている、またはデータ長より大きい
Err.Raise tcsocErrInvalidDataLen, , mcstrErrInvalidDataLen
ElseIf BytesToRead = -1 Then
'省略時はバッファ長に等しくする
BytesToRead = UBound(bBuff) - Start + 1
End If
Recv = apiRecv(m_hSocket, bBuff(Start), BytesToRead, 0)
m_hErrNo = apiWSAGetLastError()

End Function

'非同期接続
Public Function IOCTL(ByVal cmd As TcsocIOCtlCommand, ByVal arg As Long) As Long
Dim lngRet As Long

lngRet = apiIoctlsocket(m_hSocket, cmd, arg)
m_hErrNo = apiWSAGetLastError()
If lngRet Then
Err.Raise tcsocErrIoctlSocket, , mcstrErrIoctlSocket
End If
IOCTL = arg

End Function

Public Sub Socket(ByVal SocketType As TcsocSocketTypeConstants)

m_hSocket = apiSocket(AF_INET, SocketType, 0)
m_hErrNo = apiWSAGetLastError()
If m_hSocket = INVALID_SOCKET Then
Err.Raise tcsocErrSocket, , mcstrErrSocket
End If

End Sub


Public Sub CloseSocket()
Dim lngRet As Long

lngRet = apiCloseSocket(m_hSocket)
m_hErrNo = apiWSAGetLastError()
If lngRet Then
Err.Raise tcsocErrCloseSocket, , mcstrErrCloseSocket
Else
'ソケットが閉じられたことを明示的に示すため、
'ハンドルにINVALID_SOCKETを代入しておく。
m_hSocket = INVALID_SOCKET
End If

End Sub

Public Function Connect(ByVal RemoteAddr As String, _
ByVal RemotePort As Long) As Long
Dim lngIPAddr As Long
Dim sain As sockaddr_in

'ドット区切りアドレス文字列を4バイト整数に変換する。
lngIPAddr = apiInet_addr(RemoteAddr)
If lngIPAddr = INADDR_NONE Then
'アドレス文字列として認識できなかったので、ホスト名として解決を試みる。
lngIPAddr = InternalGetHostByName(RemoteAddr)
If lngIPAddr = INADDR_NONE Then
Err.Raise tcsocErrGetHostByName, , mcstrErrGetHostByName
End If
End If

'ポート番号の確認
If RemotePort < 1 Or RemotePort > 65535 Then
Err.Raise tcsocErrInvalidPortNo, , mcstrErrInvalidPortNo
End If

'パラメータをセットしてconnectを呼び出す
With sain
.sin_family = AF_INET
.sin_port = apiHtons(CastLongToInt(RemotePort))
.sin_addr = lngIPAddr
End With
Connect = apiConnect(m_hSocket, sain, LenB(sain))
m_hErrNo = apiWSAGetLastError()

End Function

なぜ自作？

Public Function GetHostByName(ByVal HostName As String) As String
Dim lngAddr As Long
Dim lpChar As Long
Dim strBuff As String
Dim nBuff As Long
'gethostbynameの呼び出し
lngAddr = InternalGetHostByName(HostName)
If lngAddr = INADDR_NONE Then
Err.Raise tcsocErrGetHostByName, , mcstrErrGetHostByName
End If
'戻り値はネットワークバイトオーダーの4バイト整数なので、
'ドット区切り文字列に変換する
lpChar = apiInet_nta(lngAddr)
'lpCharが指す文字列の文字数を調べ、バッファを確保してコピー
nBuff = apiLstrlen(lpChar)
strBuff = String$(nBuff, vbNullChar)
apiMoveMemory ByVal strBuff, ByVal lpChar, nBuff
GetHostByName = strBuff
End Function
Private Function InternalGetHostByName(HostName As String) As Long
Dim lphe As Long
Dim he As HOSTENT
Dim lngAddr As Long
Dim pAddr As Long
lphe = apiGethostbyname(HostName)
m_hErrNo = apiWSAGetLastError()
If lphe Then
apiMoveMemory he, ByVal lphe, LenB(he)
apiMoveMemory pAddr, ByVal he.h_addr_list, 4
apiMoveMemory lngAddr, ByVal pAddr, 4
InternalGetHostByName = lngAddr
Else
InternalGetHostByName = INADDR_NONE
End If
End Function

Public Property Let hErrNo(ByVal vData As Long)
'ﾌﾟﾛﾊﾟﾃｨに値を代入するときに、代入式の左辺で使用します。
'Syntax: X.test = 5
m_hErrNo = vData
End Property
Public Property Get hErrNo() As Long
hErrNo = m_hErrNo
End Property
Private Sub Class_Initialize()
Dim lngRet As Long
Dim wsad As WSAData
'Winsock初期化：&H101でバージョン1.1を要求する。
lngRet = apiWSAStartup(&H101, wsad)
m_hErrNo = apiWSAGetLastError()
If lngRet <> 0 Then
Err.Raise tcsocErrWSAStartup, , mcstrErrWSAStartup
End If
'ソケットハンドル初期値
m_hSocket = INVALID_SOCKET
End Sub
Private Sub Class_Terminate()
'Winsock終了処理
apiWSACleanup
End Sub
Public Function GetHostByAddr(ByVal strIPAddr As String) As String
Dim lngIPAddr As Long
Dim he As HOSTENT
Dim lphe As Long
Dim strBuff As String
Dim nBuff As Long
'ドット区切りアドレス文字列を4バイト整数に変換する。
lngIPAddr = apiInet_addr(strIPAddr)
If lngIPAddr = INADDR_NONE Then
Err.Raise tcsocErrInvalidIPAddr, , mcstrErrInvalidIPAddr
End If
'gethostbyaddrの呼び出し
lphe = apiGethostbyaddr(lngIPAddr, 4, AF_INET)
m_hErrNo = apiWSAGetLastError()
If lphe = 0 Then
Err.Raise tcsocErrGetHostByAddr, , mcstrErrGetHostByAddr
End If
'戻り値のポインタが指す先の中身をheにコピーする。
apiMoveMemory he, ByVal lphe, LenB(he)
'h_nameの文字数を調べ、バッファを確保してコピー
nBuff = apiLstrlen(he.h_name)
strBuff = String$(nBuff, vbNullChar)
apiMoveMemory ByVal strBuff, ByVal he.h_name, nBuff
GetHostByAddr = strBuff
End Function

'_/_/_/_/_/_/_/_/_/_/_/_/ＡＰＩ宣言部_/_/_/_/_/_/_/_/_/_/_/_/
Private Declare Function apiWSAStartup Lib "wsock32.dll" Alias "WSAStartup" ( _
ByVal wVersionRequired As Integer, ByRef lpWSAData As WSAData) As Long
Private Declare Function apiWSACleanup _
Lib "wsock32.dll" Alias "WSACleanup" () As Long
Private Declare Function apiWSAGetLastError _
Lib "wsock32.dll" Alias "WSAGetLastError" () As Long
Private Declare Function apiGethostbyaddr Lib "wsock32.dll" Alias "gethostbyaddr" ( _
ByRef addr As Long, ByVal lenAddr As Long, ByVal typeAddr As Long) As Long

Private Declare Function apiInet_addr Lib "wsock32.dll" Alias "inet_addr" ( _
ByVal cp As String) As Long
Private Declare Sub apiMoveMemory Lib "kernel32" Alias "RtlMoveMemory" ( _
ByRef lpDest As Any, ByRef lpSrc As Any, ByVal nBytes As Long)
Private Declare Function apiLstrlen Lib "kernel32" Alias "lstrlenA" ( _
ByVal lpString As Any) As Long
Private Declare Function apiGethostbyname Lib "wsock32.dll" Alias "gethostbyname" ( _
ByVal Name As String) As Long
Private Declare Function apiInet_nta Lib "wsock32.dll" Alias "inet_ntoa" ( _
ByVal inaddr As Long) As Long
Private Declare Function apiSocket Lib "wsock32.dll" Alias "socket" ( _
ByVal af As Long, ByVal soctype As Long, ByVal protocol As Long) As Long
Private Declare Function apiCloseSocket Lib "wsock32.dll" Alias "closesocket" ( _
ByVal s As Long) As Long
Private Declare Function apiConnect Lib "wsock32.dll" Alias _
"connect" (ByVal s As Long, ByRef Name As sockaddr_in, ByVal namelen As Long) As Long
Private Declare Function apiSend Lib "wsock32.dll" Alias "send" ( _
ByVal s As Long, ByRef buf As Any, ByVal lenbuff As Long, ByVal flags As Long) As Long
Private Declare Function apiRecv Lib "wsock32.dll" Alias "recv" ( _
ByVal s As Long, ByRef buf As Any, ByVal buflen As Long, ByVal flags As Long) As Long
Private Declare Function apiHtonl Lib "wsock32.dll" Alias "htonl" ( _
ByVal hostlong As Long) As Long
Private Declare Function apiHtons Lib "wsock32.dll" Alias "htons" ( _
ByVal hostshort As Integer) As Integer
Private Declare Function apiIoctlsocket Lib "wsock32.dll" Alias "ioctlsocket" ( _
ByVal s As Long, ByVal cmd As Long, ByRef argp As Long) As Long
Private Declare Function apiSelect Lib "wsock32" Alias "select" (ByVal nfds As Long, _
ByRef readfds As Any, ByRef writefds As Any, ByRef exceptfds As Any, _
ByRef TimeOut As timeval) As Long
Private mcstrErrSelect As String
Private m_hSocket As Long
Private m_hErrNo As String

'Winsock API呼び出しのエラー文字列
Const mcstrErrWSAStartup = "WSAStartupが失敗しました。"
Const mcstrErrSocket = "socketが失敗しました。"
Const mcstrErrCloseSocket = "closesocketが失敗しました。"
Const mcstrErrGetHostByAddr = "gethostbyaddrが失敗しました。"
Const mcstrErrGetHostByName = "gethostbynameが失敗しました。"
Const mcstrErrIoctlSocket = "ioctlsocketが失敗しました。"
'ユーザー入力値のエラー文字列
Const mcstrErrInvalidIPAddr = "アドレスが不正です。"
Const mcstrErrInvalidPortNo = "ポート番号が不正です。"
Const mcstrErrInvalidDataLen = "データ長が不正です。"
'GetHostByAddr用（ＡＰＩ）定数
Const AF_INET = 2
'WSAData構造体用定数
Const WSADESCRIPTION_LEN = 256
Const WSASYS_STATUS_LEN = 128
'その他定数
Const INADDR_NONE = &HFFFFFFFF
'_/_/_/_/_/_/_/_/_/_/_/_/構造体宣言部_/_/_/_/_/_/_/_/_/_/_/_/
Private Type WSAData
wVersion As Integer
wHighVersion As Integer
szDescription(WSADESCRIPTION_LEN) As Byte
szSystemStatus(WSASYS_STATUS_LEN) As Byte
iMaxSockets As Integer
iMaxUdpDg As Integer
lpVendorInfo(1) As Integer
End Type
Private Type sockaddr_in
sin_family As Integer
sin_port As Integer
sin_addr As Long
sin_zero(7) As Byte
End Type
Private Type HOSTENT
h_name As Long
h_aliases As Long
h_addrtype As Integer
h_length As Integer
h_addr_list As Long
End Type
Private Type fd_set
fd_count As Long
fd_array(FD_SETSIZE - 1) As Long
End Type
Private Type timeval
tv_sec As Long
tv_usec As Long
End Type

Public Enum TcsocIOCtlCommand
tcsocFIONREAD = &H4004667F
tcsocFIONBIO = &H8004667E
End Enum
Private Const FD_SETSIZE = 64
Public Enum TcsocErrorConstants
'SOCKET_ERROR定数
tcsocSocketError = -1
'Winsock API呼び出しのエラー
tcsocErrWSAStartup = vbObjectError + 1000
tcsocErrSocket
tcsocErrCloseSocket
tcsocErrIoctlSocket
tcsocErrGetHostByAddr
tcsocErrGetHostByName
tcsocErrSelect
'ユーザー入力値のエラー
tcsocErrInvalidIPAddr = vbObjectError + 1100
tcsocErrInvalidPortNo
tcsocErrInvalidDataLen
End Enum
Public Enum TcsocSocketTypeConstants
tcsocSockStream = 1
tcsocSockDgram = 2
End Enum
Const INVALID_SOCKET = Not 0&

'TCPエラーコード
Public Enum TcsocWSAErrorConstants
tcsocWSABASEERR = 10000
tcsocWSAEINTR = tcsocWSABASEERR + 4
tcsocWSAEBADF = tcsocWSABASEERR + 9
tcsocWSAEACCES = tcsocWSABASEERR + 13
tcsocWSAEFAULT = tcsocWSABASEERR + 14
tcsocWSAEINVAL = tcsocWSABASEERR + 22
tcsocWSAEMFILE = tcsocWSABASEERR + 24
tcsocWSAEWOULDBLOCK = tcsocWSABASEERR + 35
tcsocWSAEINPROGRESS = tcsocWSABASEERR + 36
tcsocWSAEALREADY = tcsocWSABASEERR + 37
tcsocWSAENOTSOCK = tcsocWSABASEERR + 38
tcsocWSAEDESTADDRREQ = tcsocWSABASEERR + 39
tcsocWSAEMSGSIZE = tcsocWSABASEERR + 40
tcsocWSAEPROTOTYPE = tcsocWSABASEERR + 41
tcsocWSAENOPROTOOPT = tcsocWSABASEERR + 42
tcsocWSAEPROTONOSUPPORT = tcsocWSABASEERR + 43
tcsocWSAESOCKTNOSUPPORT = tcsocWSABASEERR + 44
tcsocWSAEOPNOTSUPP = tcsocWSABASEERR + 45
tcsocWSAEPFNOSUPPORT = tcsocWSABASEERR + 46
tcsocWSAEAFNOSUPPORT = tcsocWSABASEERR + 47
tcsocWSAEADDRINUSE = tcsocWSABASEERR + 48
tcsocWSAEADDRNOTAVAIL = tcsocWSABASEERR + 49
tcsocWSAENETDOWN = tcsocWSABASEERR + 50
tcsocWSAENETUNREACH = tcsocWSABASEERR + 51
tcsocWSAENETRESET = tcsocWSABASEERR + 52
tcsocWSAECONNABORTED = tcsocWSABASEERR + 53
tcsocWSAECONNRESET = tcsocWSABASEERR + 54
tcsocWSAENOBUFS = tcsocWSABASEERR + 55
tcsocWSAEISCONN = tcsocWSABASEERR + 56
tcsocWSAENOTCONN = tcsocWSABASEERR + 57
tcsocWSAESHUTDOWN = tcsocWSABASEERR + 58
tcsocWSAETOOMANYREFS = tcsocWSABASEERR + 59
tcsocWSAETIMEDOUT = tcsocWSABASEERR + 60
tcsocWSAECONNREFUSED = tcsocWSABASEERR + 61
tcsocWSAELOOP = tcsocWSABASEERR + 62
tcsocWSAENAMETOOLONG = tcsocWSABASEERR + 63
tcsocWSAEHOSTDOWN = tcsocWSABASEERR + 64
tcsocWSAEHOSTUNREACH = tcsocWSABASEERR + 65
tcsocWSAENOTEMPTY = tcsocWSABASEERR + 66
tcsocWSAEPROCLIM = tcsocWSABASEERR + 67
tcsocWSAEUSERS = tcsocWSABASEERR + 68
tcsocWSAEDQUOT = tcsocWSABASEERR + 69
tcsocWSAESTALE = tcsocWSABASEERR + 70
tcsocWSAEREMOTE = tcsocWSABASEERR + 71
tcsocWSAEDISCON = tcsocWSABASEERR + 101
tcsocWSASYSNOTREADY = tcsocWSABASEERR + 91
tcsocWSAVERNOTSUPPORTED = tcsocWSABASEERR + 92
tcsocWSANOTINITIALISED = tcsocWSABASEERR + 93
tcsocWSAHOST_NOT_FOUND = tcsocWSABASEERR + 1001
tcsocWSATRY_AGAIN = tcsocWSABASEERR + 1002
tcsocWSANO_RECOVERY = tcsocWSABASEERR + 1003
tcsocWSANO_DATA = tcsocWSABASEERR + 1004
End Enum

あーあ

Listenが無い

Win98SEで作ったソフトがWinXPで上手く動きません。
MAPIを使ってメールの配信をするソフトなんですが、
サーバーではじかれてエラーになります。

原因としてどんな事が考えられますか？

>425様

感謝至極であります（感涙）

ASM＞C++＞C＞PASCAL＞JAVA＞COBOL＞N-88BASIC＞＞＞＞＞＞＞＞＞＞＞VB

>426
使い方分からん。
全部コピペして、新規クラスに貼り付けた。
エラーが出るので、Private Const FD_SETSIZE = 64 の行を
一番上のほうに持ってきた。
とりあえずGetHosｔNameは動いた。

HTTPでページをとってきてDebug.Printするサンプルか何か欲しいなあ。
どういう順番でメソッドを呼び出すかだけでも。

やっぱし動かないや（泣）

くだらない事なんですが、VBの開発画面でプロパティとかのウィンドウは
インテリマウスのホイールが効くのにエディタ画面で効かないのですが
何か設定があるのでしょうか？

隣の机の人がエディタでも使えるので一寸気になりまして・・・・

気にすんなYO!

オプションボタンのTabStopをFalseにしても、実行時にValueがTrueの状態になると
Tabキーでフォーカスがオプションボタンに飛んでしまいます。
これを回避する方法を教えてください。

>>443
IntelliPoint入れてるかい？

VS.NETとVS6を同じパソコンに入れても大丈夫ですか？

>>443
IntelliMouseなら動くよ。
ただし、ドライバのバージョンは3.1以上な。

>>445
ほんとだね。TabStopがTrueになるようなので、

Option1.Value = True
Option1.TabStop = False

でどうかな。うちではOKだったYO!

>>447
OK.

>>449
フォームロード時にｺｰﾄﾞで指定するということでしょうか。
最初はOKでしたが、一回オプションボタンをクリックすると
元に戻ってしまいます・・。
なんとなく解決したので報告を。
テキストボックスを一個置いて、
Private Sub Text1_GotFocus()
Option1.TabStop = False
End Sub
と書くと大丈夫っぽいです。

当方ただいま本当に困っています。

VB 6.0 を用いてボタンをクリックしたら Windows2000 の PC を
ShutDown （完全にパソコンが停止した状態）にしたいのですが、
どうすればよろしいでしょうか？
市販の本の ShutDown プログラム （ExitWindowsEx を使うやつ）
を試したのですが、パソコンに電源が残ったままログイン画面に
なっています。

何か解決方法はありますでしょうか？よろしくお願い致します。

>>449
VBPファイルの関連付けは、やっぱり後から入れた方になっちゃうんですか？

>>452
.NETの拡張子はsln だから大丈夫。
つーか C# にしる。

Open 〜でWeb上のﾌｧｲﾙからﾃﾞｰﾀの読み込みできますか？

>>453
そうなんですか。ソレは安心。
VB始めたばっかなので、もうちょっとVBやらせてください。

>>451
ExitWindowsExだけですむのは、Win9x系。
NT系の場合、InitiateSystemShutdown を使う。
特権を要求して、自プロセスに設定する必要がある。

>>454
一般的には出来ない。
インターネット・トランスファー・コントロールでダウンロードするしかない。

質問です
VB6で
文字列のHTMLソースをHTMLドキュメントとしてWebBrowserオブジェクト(IEでもいいけど）
に表示させる手が見つかりません

Winsockで鯖からHTMLソースを取得はできましたが、これをブラウズするには？
一度　HTMLファイルで保存して　このファイルを　読むしかないでしょうか？

WebブラウザコントロールってあるYO!

しかもSocketの知識不要。
プロジェクト−コンポーネントからMicrosoft Internet Controlsをえらんで
WebBrowserコントロールを貼り付けてあとは適当に。

え〜と
英語のMSDNの手引きでは
すでにあるＨＴＭＬドキュメントに対して
WebBrowser1.Document.body.innerHTML = "タグなど"
などで　あとづけ書き込みは　分かります
空白(about:blank)を作っておいて　BODY内だけは　できますが…

そうではなくて HTMLソース文字列から　HTMLドキュメントを　純粋に作る法
これを　ＩＥなどに　表示させるには？
ＭＳＨＴＭＬ　読んでも…　ＶＣじゃないと　だめなの？

いいえ　みなさん
WebBrowserコントロールは　わかりますが…

セキュリティに徹したものを　目指すために
まず　ＨＴＭＬを解析するために　ソースで取得してるのです
　

>>462
何をしたいのかわからん。

＞HTMLソース文字列から　HTMLドキュメントを　純粋に作る法
HTMLソース＝HTMLドキュメントだぞ。

＞これを　ＩＥなどに　表示させるには？
そのままOpenするだけ。

それとも、最終的にはＩＥで表示するが、その前に
危険なタグをフィルタ処理したいとか？

>>463
そうです
<IMG>や<OBJECT>など　チェックしてから　IEのブラウズ機能を使いたのです

例えば　s="<HTML><HEAD></HEAD><BODY>テスト</BODY></HTML>"
と　ＶＢで文字列で持っていて　これをそのままブラウズしたいわけです

WenBrowserのプロパティDocumentは　読み出しＯＮＬＹで
そもそも　このDocumentオブジェクトをソースから　どうやって定義すんだろ？
いやん　英語がイタイ　もう　イヤン

あきらめれば？

なんとか、やってみる
できたら報告する
気長に待ってテネ

>>464
その手のツールがどうやってるか考えればわかると思うけど、
プロクシになって、HTMLを加工してからIEに渡してる。

！
串！
なりほど
せっかくWinsock使ってるんだから
串になればいいのか
そか　ＷｅｂＢｒｏｗｓｅｒのナビゲートで　ダミー串通せばいいのか
その手も　考えてみます！！

串実装〜しないと…　クッキーは無視しよｗ
英語ＭＳＤＮ行ってきます（古い記事もあたってみよ）

>>405-406
亀レスすいません。
>>406さんの言うとおり、ローカルポートを固定してました。
解決です。
ありがとうございました。

.aspが拡張子のファイルを仕様書に立ち上げてくれるツールって
どこかにありますか？VB仕様書工房だと.vbpが拡張子のやつじゃないと
駄目みたいなので・・・

>>466
加工したHTMLドキュメントを適当なフォルダに保存して、
WebBrowser1.Navigate "file:///" & ファイルへのフルパス
じゃダメなの？

>>471
聞いたことない

いま、VBScriptを使ってSendmailを送るようなものを作ってみたいと
思っています。
そこで、メールヘッダのFromに表示されるメールアドレスと、Return-Pathのアドレスを違うものにして
送りたくて、四苦八苦しています。

また参考になるページとかあったら教えて下さい。宜しくお願いします。

つまりSPAMを送りたいと。

VB6で質問です！
タスクバーに常駐させるプログラムを書いたのです
これを終了するときに、
ちゃんとサブクラス化を終了して正常にEndさせてるのですが
タスクバーにアイコンが残ったままになってます。
でもそれにカーソルを合わせるとパッと消えます。
プログラムが終了した時点でアイコンをタスクバーから消せないのでしょうか？
よろしくお願いしますです。

>>475
消してから終わらないとだめだよ

Unload Me
End

>474
SPAMになるんですか！？
用は宛先不明のメールを送信者とは別のアドレスに送りたいんです。
いろいろ調べてたら、SMTPの仕様とかで出来ないとかってどっかで読んだんですが...

＞宛先不明のメールを送信者とは別のアドレスに送りたい
のに、
＞メールヘッダのFromに表示されるメールアドレスと、Return-Pathのアドレスを違うものに
する必要あるのか？

>>475
ちゃんと、Form_QueryUnloadで
Shell_NotifyIcon(NIM_DELETE, NoftyIconData)
を呼ばないと駄目よ。

>>478
ふつう、その技はSPAMに使う。i-mode宛にFromとToを同じにして送るとか。
自力だけで解決できないなら、あきらめてこの質問はしない方がいい。

言い方悪いのかなぁ
エラーメールを任意のReturm-Pathに返したいということなんですが...
VBSじゃ無理かなぁ

かぶりました。了解です。

>>473と>>478でやりたいことが一貫してないなｗ

>>481
言い方が悪いｗ
その場合は「宛先不明で戻ってきたメール」といわなきゃ。

言い方が悪かったですわかりにくくてすみませんでした。
まず常駐させて、終了させる前にちゃんと


Dim NotifyIcon As NOTIFYICONDATA
'タスクトレイのアイコンを削除------------------------

With NotifyIcon
.cbSize = LenB(NotifyIcon)
.hwnd = Me.hwnd
.uID = 10
End With

Call Shell_NotifyIcon(NIM_DELETE, NotifyIcon)
DoEvents
'-------------------------------------------------

'サブクラス化の終了
Call SetWindowLong(Me.hwnd, GWL_WNDPROC, lpOldWndProc)
とやっています。483さんのようにForm_QueryUnloadで。
それで確かに常駐は解除されてますし、ちゃんと終了されてるんです。
なのにアイコンが消えてない・・・

終了されてるのにアイコンが残る　っていう現象です
（ウィンドウは既に消されているのに表示だけ残るあれみたいなものかと）

>>485
Endで終了させちゃったりしちゃったりしてたりしないの？

>>481
RFC 見れ。Return-Path は、送信側でつけるもんじゃねーぞ、ヴァカ。

> エラーメールを任意のReturm-Pathに返したいということなんですが...
そんなもん SPAM か ML しか必要ねーだろうが。何したいのか、書けるもんな
ら書いてみ。

InitiateSystemShutdown を使って WIN2000 系の自分の PC を
Shutdown させたいのですが、やり方が分かりません (ToT)
誰か教えてください

488
ExitWindowsExつかったら？

>485
既知の問題。
解決法は、Formにフォーカスを当てるんだったかな。ああ、ど忘れ。
FormのVisibleをTrueにするか、HideのままNormalSizeに戻すかしてみたら？

>488
せっかくヒント出したのに、それはないだろう。
検索しろよ。ヒットするから。

>>489
>>456 見てねーのか ?

>492
フォローどうも。
再質問を明記しなかった488が悪いんだけど。
WinNT系では、特権の取得は避けて通れないから、きっちり押さえないと。

と思ったら、今度はＶ友で質問か。
人のヒントを自分で調べたかのように書いて。

Visual C++やC++に関するお勧め本、
これだけは読んどけって言う教本ありますか？
Javaしか扱ったことない。

Private Sub Command2_Click()
Picture1.Enabled = True
Picture2.Enabled = True
Picture3.Enabled = True
　 〜
Picture9.Enabled = True

のPicture.Enabledを一つにまとめるにはどうしたら良いですか？

>>495
コントロール配列にしる！！

>>496
すいません、何すかそれ

>497
ヘルプ見ろ！　コントロール配列は基本だから。
もっと簡単にしたかったら、コンテナ使う。１行ですむ。

>>497
何でも聞くんじゃなくて、MSDNのヘルプ見ろよ…。

for i=0 to 9
　Picture(i).Enabled = True
next

Indexプロパティに値を設定すればできる。

コードじゃなくて、概念の問題。
変数の配列すらわからなかったら、
コントロール配列を理解するのはむずかしいかも。

コレクションもあるよ（´∀｀　）

Label1.Caption = Winsock1.LocalIP
で自機のIPを表示させようと思ったのですが、二枚イーサネットカードを差していて、いらん方のIP(192.168.0.*)が表示されてしまいます。どうやったらもう一枚のカードに割り当ててあるIPを取得できるでしょう

>502
イーサを逆に挿す。PCIスロットの若いほうが取得されるから。

ってことじゃない？
それなら、どういうネットワークなのか書かないと。
IPHLPAPI.DLL を叩けば、IPテーブルは取得できるけど。
ざっと100行ぐらい。

VB6のDLL作成について質問です。
新規作成画面で"ActiveX DLL"と"ActiveX Document DLL"という２種類があるのですが、
VC++で言うところの"Win32 Dynamic-Link Library"にあたるのはどちらでしょうか？

>>504
VBでは"いわゆるDLL"は作れないと聞いたが。

>>505
なんですとーΣ（￣▽￣；）
即レスありがとうです。

>>506
確かVBは中間コードまでしか書き出さないんじゃなかった？
Javaみたいに。
だからだと思う。

DLLを使うために別途VBのDLLを用意しなければならないってのも変な話だしな。

>>507
それはVB4まで。
VB5とVB6はネイティブコードを吐く。

>>491
一応いろいろと検索してみて、作ってみたりしました。
しかし、InitiateSystemShutdown の第１引数にどのように
設定してよいのやら分からず困ってます。(-_-;)

なんか'97年あたりで時間の流れが止まってる人が混じってるみたいですねぇ

こんにちわ。
TreeViewの背景色を自由に変えたいのですが
プロパティが無いです。API調べてみたけどわかりません。
優秀なみなさん、教えて下さい。

>>512
色じゃなくて画像だけど…
http://www.users.gr.jp/ml/archive/vb/VB24.asp
サブクラス化するしかないのでは？

>>508
うそつくでねぇ。VBからはDLLもActiveX DLLも使える。普通のDLLが作れないだけだよ。
VCからVBのDLLが使いたければActiveX DLLを使うようにコーディングすればいいだけ。

久しぶりのカキコ。トリップも変更した。

>>504
無理だ

>>507
関係ない

>>510
つか、ExitWindowsEx()の方がいいぞ

>>513
ツリービューのメッセージでできなければ、>>513のいうとおりサブクラス化だな

>>514
>>508の言いたいのは、そういうことじゃないと思うぞ

>>515
おお、まとれすだ

ふつーに Winsock を使い､

Private Sub Form_Load()
WinsockServer.Close
WinsockServer.LocalPort = 1229 'ポートを設定
WinsockServer.Listen
End Sub

Private Sub WinsockServer_ConnectionRequest(ByVal requestID As Long)
WinsockServer.Close '接続を閉じて新しい接続を受け付ける
WinsockServer.Accept requestID 'requestIDをパラメータにしてAcceptメソッドを呼び出す
lblServerStatus.Caption = "Be connected from " & WinsockServer.RemoteHostIP '接続が成功したことを知らせます
WinsockServer.SendData "hello, again"
End Sub

としたのですが､個のサーバが 192.168.0.255 のブロードキャストアドレスに
反応しません。どうしてですか？

あと､今日からVBを使い始めたのですが、設定ファイル(*.ini)を

[Buz]
Foo=Bar

みたいな形でやりたいんですけど、定石のアルゴリズムってありますか？
っていうか、もしかして関数かコンポーネントありますか？

>>518
１行読み込んではsplit…

>>518 *.ini
API使うだ。
標準モジュールにしたものや
クラスモジュールにしたものが
あちこちで配布されてるだ。

おらWinsockは使ったこと無いだ。きっと他のｴﾗｲ人が教えてくれるだ。

ありがとうございました。自前で組んだほうが早そうですね。
CじゃなくPerlでもないので面倒くさそうですけど。

>>517
UDPとTCPの区別はついていますか？

>>518
GetPrivateProfileStringAPIをしらないのですか？

>>517
おら田舎もんでしらねがったけど、都会のネットワークじゃ
ブロードキャストアドレスに投げたパケットをTCPで拾えるんだべが？
同一ネット内に複数サーバがあったらどないすんだべがな。

VB6　WinXP　です。
大量にいくつもの処理を平行して行いたい事がありまして、
調べているとマルチスレッド、ということにたどり着きました。
さらにそれについて調べるとAddressOf、CreateThread　API等がキーのようです

質問はここからなのですが
・VB6環境でマルチスレッドは実現可能でしょうか？
・それによって本当に高速化するのでしょうか？
・具体的にマルチスレッドとはどのようなものなのでしょうか？
多分ヘタレなこと聞いてると思うんですがお願いいたします〜。

>503
ありがとうございます。一応、それでしのげました。

後一つ、ダイアルアップ接続でつないだ時のIPはどうやって拾うのでしょうか？
どなたか教えてください。

>>525
高速化されるかどうかは、具体的にどういう処理をするか、
何が理由で遅くなっているか、による。

ムダな空ループとかは論外として、CPUが100％占有される処理なら、
わざわざマルチスレッドにするだけの意味はない。
高速なハードに替えるとか、専用鯖を立てて分散処理するほうが確実。

ＶＢとＳＱＬを使ってグリッドにAccess2000のテーブルを表示したいのですが
テキストなんかに1レコードずつ表示するのはできるのですが
グリッドにまとめて表示するというのができません。
つまり、上のテキストで現在のレコードの表示に対して、
下のグリッドそのレコードが選択反転させたいのですが、教えてください

よろしければ詳しく乗ってるページとかってないですか？

>>526
グローバルIPの取得ね。
VBから利用できるDLLがベクターとかでも公開されてるけど、
ipconfig の結果をファイルにリダイレクトするほうが
２枚挿しの時は確実かも。

>>525
基本的に、マルチスレッドにしたからといって速くなるわけじゃない。
SMPなら別だが。

んで、VBからだが、はっきり言ってお勧めできない。まだ、マルチ
プロセスのほうがいいだろう。

>>528
ミドルウェアは何だ？

ADO、DAOならデータコントロールを使って、グリッドのDataSourceに
設定するだけだ

反転云々については、Bookmarkを使えばできる

アウトルックの受信トレイをクリックしたときに表示される着信メールのリストは
フレキシブルグリッドを使っているのですか？
それとも別のコントロール？
ああいう感じのリスト表示をさせたいのですが。

他プロセスが持っているウインドウを、自分が作成したウインドウの
親ウインドウに設定したいんですけど、何か良い方法ありませんか？
WIN32APIの“setparent”を使うかと思ったんですけど、ＭＳＤＮを
見ると、親ウインドウと子ウインドウは、同一アプリケーション上に
なければならないと書いてありました。
無理ですかね・・・

>>531
今、手元にOutlookがないので確認できないけど、リストビューとかじゃないのか？

>>532
確かに、MSDNにはそのように書かれている。が、可能だったりする。どんな不具合
がでるのかはわからんが

>>531
OutlookはVBで作られていない。
Spy++ では、キャプション: "表" クラス: SUPERGRID

おお！？
まとれすだ　（´∀｀　）

お聞きしたいことが有るのですが、

Dim OBJ_EX As Object　'エクセルファイルを操作する為の変数
〜〜省略〜〜
OBJ_EX.Workbooks.Add "シート名"

と書くとき、OBJ_EX.　以下のプロパティーを
Intellisenseテクノロジーで楽するってことは可能なのでしょうか？。
今までずっと手打ちしてたのですが、ふと思いまして。
みなさん、どうされてますか？。
ご回答、よろしくお願いします。

メールを受信するとイベントが発生するプログラムを
作りたいのですがそんなAPIないでしょうか。

そんなAPI知らないけど、定期的にPOPサーバにアクセスして新着メールが
あったらイベントを発生させるみたいなことは自分でも書けるレベルだと思います

525です。
質問が抽象的だった為、高速化するかどうかの判断が難しくなってしまったようで
申し訳ありませんです。
実は作っているのはWebを自動巡回してページのリストを取得する、
みたいなものなのです。トップページを指定するだけでその下にあるページを
"<A href="などをキーに検索してリスト出力します。
これは現時点で完成できているのですが、とても処理が遅いのです。
多分私の見解はInetでOpenURLをしてそのアドレスのソースを取得するときに、
OpenURLするのに大体1秒ほどはかかってしまうのです。
順にページのソースを取得しようとする時などは
for Nextでコントロール配列のTextに順にソースを入れていくので
ひとつひとつの処理に１秒かかってしまうのです。
これをInet(0)〜Inet(10)まで同時に読み込ませるようなことができれば
解決するのです。Inetで時間がかかるのはネット接続のための遅延であって
CPUなどの負荷はとても小さいものです。なので同時進行にできないか、と。
めちゃくちゃ長文で迷惑かけますが何かいい方法ありませんでしょうか？

>>536
Dim oExcelApp As Excel.Application
Dim oExcelWorkBook As Excel.Workbook
Dim oExcelWorkSheet As Excel.Worksheet
Dim oExcelRange As Excel.Range

開発時はアーリーバインディングで、納品時はレイトバインディングにしたりする。

>540
おおおっ！。
そういうことができるとは、気づかなかったです。
ノーミソのシワが一個できた気分です。ありがとうございます。

引き続き、ノーミソ・シワのできるアイデアを募らせて頂きたいです。
よろしくおねがいします。

>>512
MSサイトにあるよ。
http://support.microsoft.com/default.aspx?scid=kb;JA;q178491

VBのバージョンによって、ひょっとしたら挙動が変わるかも。
VB6ではノードの背景色が個々に設定できたと思うので。

>>539
別の言語にする。
従来のVBでマルチスレッドはお勧めできないから。
(というよりできないと思ってもらってよいかと)
VB.NETならOK。.NET移行ならお勧めかもね。

それってどんなAPI使うんですか
BSMTPってDLLはわかったのですが

問題はPOPでなくIMAPでもやれるようにしたいのです。

>>543
socketとかconnectとかsendとかrecvを組み合わせていけばできると思うYO!

>>539
そういう用途なら、InetつかわないでWinSock使って
http手書きで通信した方がいいと思うよ。
WinSockコントロールならノンブロッキング型なので、
コントロール配列でも作って、片っ端からconnectさせて
イベント来たらSendDataしてGetDataして内容読んで、
ってやれば効率良くできるかと。

>>543
pop3ですけどこんな感じじゃないですか？
Option Explicit

Dim gCommand As String
Dim gPassword As String

Private Sub Command1_Click()

If Winsock1.SocketHandle > 0 Then
Winsock1.Close
End If

gPassword = Text1.Text

Winsock1.RemoteHost = "pop.mai.server.ne.jp"
Winsock1.RemotePort = 110
Winsock1.LocalPort = 0
gCommand = "connect"
Winsock1.Connect

End Sub

Private Sub Winsock1_Close()
Winsock1.Close
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim strData As String
Winsock1.GetData strData, vbString
Select Case gCommand
Case "connect"
Winsock1.SendData "USER yamada" & vbCrLf
gCommand = "user"
Case "user"
Winsock1.SendData "PASS " & gPassword & vbCrLf
gCommand = "pass"
Case "pass"
Winsock1.SendData "STAT" & vbCrLf
gCommand = "stat"
Case "stat"
Winsock1.SendData "LIST" & vbCrLf
gCommand = "list"
Case "list"
Text2.Text = strData
Winsock1.SendData "QUIT" & vbCrLf
gCommand = "quit"
End Select
End Sub

Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
MsgBox Number & ":" & Description
End Sub

>>535
これからもよろしくな

>>536
無理だ。なので、開発時だけ、参照設定してアーリーバインドし、
配布時に例とバインドに切り替えろ

>>537
SMTPはCDOみたいなオブジェクトが用意されているんだが、POP
はないな。自作するしかない

>>539
それなら、非同期で複数処理すればいいだけだ

>>547
すみません。ちょっと質問なのですが、>>536 の件で配布時にレイトバインドに
するメリットって何なんですか？
まともな質問じゃないんで sage ときます。

>>548
別にない。強いてあげれば、ターゲットを変更できるところぐらいか

>>549
感謝。

>>まとれす
>>546,547

まともなレスばかりで感動です。
winsockについて詳しく書かれたサイト、書籍でよいもの
ないでしょうか？
pop3ではできてもIMAPでやるのはどうしたら・・・。
英語サイトでもよいのでお願いします。

>>551
ひとつお願いしたいのはＶＢでＷｉｎｓｏｃｋを使うは結構簡単だと思います。
でも、それでＯＫというわけではないのがネットワークプログラミングだと思います。
取り急ぎ作らないといけないものができたらじっくり勉強してもらいたいと思います。

>>552
全角好きだね(ﾜﾗ

＞＞５５３
ＣＯＢＯＬｅｒは全角命です

>>548
例えば、Excelのオブジェクトを使うのに参照設定してしまうと
そのバージョン限定になってしまう。
レイトバインドなら、Excel.Applicationという名前で実行時に、
使うオブジェクトが決まるので、Excel97、2000、2002のどれが
実行環境にあってもOK。

もちろん、その場合は、使用できるオブジェクトやらメソッドやらは
Excel97、2000、2002のどれでも使えて同じ結果になるものでなければならんけどね。

>>551
Sokectについて知りたいのか、WinSockについて知りたいのか、WinSockコントロール
について知りたいのか、IMAP4について知りたいのか、そもそもやりたいことはなんだ？

単に実現したい、ということなら、迷わずコンポーネントを勧めとくぞ
で、勉強したいってことなら、まず、RFCを読むことだなIMAP4だとRFC2060か？

>>545さん
>>547ことまとれすさん
お答えありがとうございます。
ところが私の知識不足と腐ったカニ味噌のせいでどちらもうまく理解できません・・・
545の方のwinsockはwinsockでメール送信とかやったことあるのでそれ自体は使えるのですが
HTTPのコマンドをまったく知らないので困ってます。

547での「非同期で複数処理」ってのはもう全然わかりませんです（汗
具体的にどういうことなんだろ。

もうちっと勉強してきますか・・・。

どうも誤字が目立つな。今後は気をつけるから勘弁してくれ

>>557
要するに、OpenUrlして、結果が戻ってくるまで待機してるわけだ。これを同期という。
そうじゃなくて、待機せずにすぐ次の処理を行うことのが非同期だ。

ヘルプが手元にないので、Inetコントロールでできるのかはわからんが、少なくとも
WinInet API のInternetOpenで、INTERNET_FLAG_ASYNC を指定してやれば、非同期
処理ができるようになるぞ

>>555
なるほど。
たしかに Office 系のアプリを外部から使うって事になると
バージョンの問題が出てきますね。
この辺っていままで考えた事なかった．．．
感謝です。

>>558
許さん。

>>557
Inetコントロールなら、OpenUrlではなく、Executeメソッドを使う。

Executeメソッドでサーバに接続し、GET要求を出すのだけど、
結果は受け取らず、Executeメソッドは実行後すぐ終了してしまう。
これが非同期って意味ね。

んで、データは、Inet_StateChangedイベント内で受け取る。
State=12になったら、GetChunkメソッドを呼び出してデータを
受け取る。

この２つの操作の間には別のことをしていてもいいし、別のInet
コントロールを使って別のサイトを取得していてもいい。
（Inetコントロールを、コントロール配列にして使うのが普通。）

ありがとうございます！ >>559 >>562
最初>>559の方法で作っていて、やっと同期しないで動くのを確認して
よかった〜できた〜と思ってまたここ開いてみたら562さんの書き込みが（ｗ
ちなみにそっちでもできました。
なんだか一石二鳥的な感じに２つも知識をつけさせてもらいました。
本当にどうもでした。

>547さん
私の疑問に答えていただきありがとうございます。
一度、試してみます。

VBでベーシックインタープリタを作りﾀｲ！

どうぞお好きに。

おれつくった

おや、しばらく来ないうちにまとれす復活してる。よろしこ。
串規制うんぬんはクリアーしたんかな。

>565
頑張れw

>>568
おお、即レスだ

質問です　環境 VB6Pro SP3 WinXP
トリップ検索のプログラム（「見知らぬ国のトリッパー（ｗ」　みたいな）
を作りたいんですが、perlによるcryptってのはVBでどう再現すればいいんでしょう？
トリップの仕組みはわかってるのでそれがわかれば作れるんですが・・・。
どなたかわかる方いませんでしょうか？

一太郎などジャストシステム製品についてくるJOCAについての解説している資料はないですか？
この中のひとつにJSVBrowser OLE Control moduleというActiveXコントロールがあります
MSのWebBrowserコントロールと同じようなものです。
JustViewというジャストシステム製のブラウザで使われていますが
ActiveXなのでVBでも扱えるようです。
でも、プロパティやメソッドの使い方が一切ない…
ナビゲートの仕方すらわからん（笑
パラメーターの意味が…不明なの
本家ジャストシステム見てもナイ！
検索してもナイ！
機能的には最新のMSHTMLにはおよばないんだけど
シンプルなところがいいのです（一応JavaScriptサポートしてる)
さて
資料はあるのか？？？？教えて君でした。

教えてだけじゃ悪いので
http://support.microsoft.com/default.aspx?scid=kb;JA;q183235
WebBrowserの動作改造法　サンプル以外にやるにはVCが必要
これで、ActiveX、Script、Javaや画像のON,OFF、読み込まないなどIEにではなく
WebBrowserのみに設定できる
これをMSはあまり、教えたくないらし（藁

じゃあ　お願いします

>570
Crypt完全互換をVBで実現することはできないことは確かだけど、
はたしてActivePerlとか使っても出来るかどうか…。
総当たり方式で、トリップ解析するつもり？

>571
同じく探したことあるけど、見つかりませんでした。
ＪＳ製品自体持ってる人が少ないし、どんなバグがひそんでるか
わからないし…。
まあ、そんなこと言ったら、VBについてるサードパーティの
ActiveXだってバグあるけど。

>>572
ん〜やはり無理ですかね。
Googleで検索して出ないあたりから諦めかけてたんですけどね･･･。
だとすると今ある総当りトリップ検索は言語何でつくられてるんだろ。
やっぱCとかC++になるのかな。とにかくｻﾝｸｽですた。

他メーカーのActiveXって、そのメーカー以外のソフトから
使おうとするとエラーになるように出来て無いかい？
JustSystemのも機能が使えるかは保証できないと思うけど…

>>574
アホ丸出し。プロですか？（藁

>574
たしかにＪＳのはエラーが出た。

>575
ＪＳ限定で、動作サンプルきぼん。

>>561
うるせーバカ

>>568
こちらこそよろしくな。串規制は結局駄目だったんで、ID買った。海外鯖
だからしょうがないな

>>570
Crypt API じゃ駄目か？

>>571
本家に聞いてみて、駄目なら無理じゃないか？開発ツールとしては配布
しない、ってスタンスのところも多いぞ。で、どうしても、というなら、オブジェクト
ブラウザでメソッド、プロパティを見て、適当にやるしかない

ハックしてるような気分になって、結構楽しいぞ。おれも、いくつかのActiveX
コントロールを試してみたことがある

>>574
つか、きちんと使ってあるなら、開発環境で開いたときに、「開発ライセンスが
ねーぞゴルァ」とかって出すと思うんだけどな

VB6(learning edition)がインストール出来ないんだけど。。。
インストールしようとすると、いきなり一般保護エラーが出るんですよ。
もちろん、常駐物は全部切ってあります。
インストーラにバグがあるような事は聞いていたんですけど、
このエラーを回避する方法ありませんか？
使用OSは、WindowsXP Professionalです。

>>578
Enterprise版だと、何の問題もなくインストールできたぞ。互換モード
とか使っても駄目か？

>>579
だめれす。
インストーラのバグの原因がわかれば解決できると思うんですが。。。
誰かバグについて情報持ってる人いませんか？

>578
管理者IDを半角英数字にしてる？

JOCAについての一太郎に付属の注意テキストによると
開発に使うのはできるらしい
ただ配布については記載なし（笑
ＶＢで扱う際のごくわずかな記述がある（笑
ＶＢで扱えない変数型もありますのでそれはあきらめて使わないとの事（笑）
JSVBrowserはオブジェクトブラウザで見ればわかると思うけど、VBで扱えない変数型はほとんどない
でもナビゲートわかんねーｗ
エラー出すとＶＢが落ちるんだよね（大汗
資料☆ー欲しー
解明した方がいたら情報あげキボンヌ
JSなんとかのコンポーネントでいっぱいの人　他にもいるでしょ？（笑

>>581
えーと、管理者IDっていうと、Administrator権限のあるユーザ名のことでしょうか？
それなら、半角英数字になっています。

http://www05.u-page.so-net.ne.jp/gf6/tadaei/diary_bk02.html
には、
「WindowsNT4.0にORACLE8がインストールしてある時に、
ORACLEのサービス（OracleStartORCL）が起動されていないと
Visual Studio6.0のセットアップでアプリケーション・エラーが発生」
と書いてはあるんですけど、OracleStartORCLなんかインストールしてもいないし。。。

>>583
違ってたか。

上のOracle云々はEnterprise版で起きそう。

あと、可能性としては、tmpフォルダに日本語を使ってるとか、
インスト先に日本語使ってるとか。

VBで作ったEXEがWinXPにインストできないトラブルは多いけど、
VB自体がインストできないのは、例が少なそう。
Officeがらみかなあ。

>>584
システム関連のフォルダには日本語使ってなかったです。
Officeも入れてないんですよね。。。あー。。。

http://support.microsoft.com/default.aspx?scid=http%3a%2f%2fwww.microsoft.com%2fJAPAN%2fsupport%2fkb%2farticles%2fj046%2f7%2f41.asp
コレを試してみてもダメでした。

他にも同じ現象の人がいたのか。。。
http://pc.2ch.net/test/read.cgi/tech/994129650/135
http://pc.2ch.net/test/read.cgi/tech/994129650/684

>578
HDDからインストールするとエラーになることがあると聞いたことがある。

まあ、違うだろうけどさ。

C++の勉強の勉強はやったんだけど、
どうやってWinのソフトウェアを作ればいいのか全然わからない。
Visual C++を使ってなんか作りたいんだけど、
どのように勉強したらいいでしょうか？
お勧め本とかホームページ教えてくれますか？

猫でもわかる・・・

>>587
VBで作れ

>587
一通り勉強したんならあとはやりながら勉強するのがいいと思うぞ。
俺の勉強方法は「とりあえずやってみる」だし。

どの言語でもそうだけど初心者の読む本なんて何読んでも
一緒だと思うんだが。お勧め本とか聞かれてもなあ。

俺の持ってるのは「猫でも・・」と「初心者・・」ぐらいかな。

#スレ違い。

Perlって難しくね？

>>591
難しくはない。ただ、仕様がｸｿ汚い。

だからか。ぱっと見理解できなかったから。

>>570
まあ今更だが、暇なんで。

ここにCryptをCで再現してるソースがあるよ。
http://www.coms.ne.jp/~paz/mktrip/

で、そのufccrypt.dllを使わせてもらったサンプルコードがこれ。

Private Declare Function ufccrypt Lib "ufccrypt.dll" (ByVal Key As String, ByVal Salt As String, ByVal retStr As String) As Long

Function MakeTrip(ByVal Key As String) As String
Dim ret As String * 13
ufccrypt Key, Mid$(Key, 2, 3), ret
MakeTrip = Mid$(ret, 6)
End Function

cそのまんま移植するのはめんどいのでパス。


>591
そうなん？俺専門外なんだけど。

>>594
何気に回覧してたらなんかすげー情報がっ！
いや〜あるとこにはあるものですな･･･。
感謝感激感動です。やってみま。

ＶＢでエディタをつくりたいのですが、どこかにソースを公開したエディタありませんか？
文法の勉強より手本を見ながらいきなり作るのが好きなんです
探したけどＣ＋＋ばかりでなかなかありません・・・

>>596
TextBoxをMultiLineで貼り付けるか、
自分でDCに描画するか好きなほうを選べ。

>>597
処理が単純で速いほうがいいですが、
どちらでもかまいません

>>598
ぇ、いやどっちか選んでやってみろってことだろ、597は。

質問すまん
ListViewで新しい項目追加するときに
項目を更新させないようにして
追加するのってどうやるんだっけ？
いちいち画面書き換えるんではチラついてうざいので。

>>600
DoEventsやSleepを入れなかったら追加するたびに更新されないはずだけど。
Refreshとか使ってないよな？

>>596
ちょっと探してみたがホントに無いな。
いまどきテキストエディタってのも流行らんからなあ。
簡単でいいならRichTextBoxを貼りつけりゃ完成だが。

ぐふっ！
トリップ検索ためしに作ってみたのはいいが
1500trip/s・・・（ｗ
これがVBの遅さですか？
それともトリッパーはマルチプロセスとかで高速化してんのか。

>602
普通のってどれぐらい？

俺のCPUが遅いせいもあるけど、
「見知らぬ国のトリッパー（ｗ」
は俺がやって16000trip/sぐらい出る。
俺のやつの10倍速と。ｗ

>604
ちょっとやってみるから待ってろ。

>>605
待ってろ、といわれたが具体的になにをやってみるんだ？（ｗ
作るのか？トリップ検索プログラムを・・・。
いやそれともトリッパーの速さを見てみてるのか。

>>598
処理が単純で速いほうか、なるほど茨の道を選ぶのだな。
答えはは既におまえが手にしたC++のソースの中にある。

まずはこれから始めようか。
Public Declare Function CreateWindowEx Lib "user32" Alias "CreateWindowExA" (
ByVal dwExStyle As Long,
ByVal lpClassName As String,
ByVal lpWindowName As String,
ByVal dwStyle As Long,
ByVal x As Long,
ByVal y As Long,
ByVal nWidth As Long,
ByVal nHeight As Long,
ByVal hWndParent As Long,
ByVal hMenu As Long,
ByVal hInstance As Long,
lpParam As Long) As Long

>606
とりあえず前方完全一致の単純検索で試してみた。

結果

見知らぬ国の・・・ 13000 trip/s
文字列操作、比較　　9000 trip/s
バイナリ操作、比較 16000 trip/s

参考
ufccryptの呼び出しだけ　18000回/s

っつーわけで、1500trip/sって何なんだ。
まあもちろん部分一致だの正規表現だのに対応すれば
その分遅くなるが、それでも1500trip/sは遅すぎだろうな。

>>608
早っっ
俺のやってる事がいかに効率悪いやり方かが分かるわ・・・
そっちはどんな風にしてやってんのか気になるわぃｗ

>>601
DoEventsを入れてやってました・・・
でもDoEventsを抜いてしまうと、Do Loopの中にあるので
固まってしまうんですが？DoEventsをいれずにも固まらないようには
どうやったらできるんでしょう？

>610
1.Doeventsを呼び出す頻度を少なくする
2.非表示にする
3.サブクラス化
4.ListViewのDCをゲット、オーナーに同じ物描画、ListView非表示。

とか。1がお勧めかな。


>608
別に大したことしてないが･･･
ソースはあとで気が向いたらうｐするよ。

今会社で一人で困ってます。どなたか助けて下さい。
ListViewコントロールのヘッダをクリックしたら、ListItemオブジ
ェクトを文字順ではなく数字順でソートされるようにしたいんです。
リストビューのSortOrderプロパティを使うと文字列でソートしちゃ
うんです。

こんな感じにソートしたいです。
0
1
2
3
4
…

今こうソートしてる。これはイヤ。
0
10
100
1000
1001
…

.....ヒントでもいいです。

Dim ni As Integer
ni = InStr(1, Text1.Text, "に")
If ni > 1 Then
Dim a1 As Byte
a1 = Left(InStr(1, Left(Text1.Text, ni - 1), 1 Or 2 Or 3 Or 4 Or 5 Or 6 Or 7 Or 8 Or 9 Or 0), 1)
Text1.Text = a1
End If
これだと 0 でますが、どこがちがいますか？

>>612
こうするのが一番てっとり早いかと。

0000
0010
0100
1000
1001

>>614
ありがとうございます!助かりました!この方法で行きます!

実は半日くらいWWW検索しまくっちゃって悩んでたんですけど、
全然解決しなくって。。
てっとり早くない方法っていうのは、ソートの関数(?)みたい
なのを自分で作るはめになるんでしょうか?

>>615
APIを使ってそうすることになると思う。＜自前ソート関数
詳しくは MSDN あたりで ListView_SortItems というキーワードを調べてみるべし。

>>615
>>616で正しいね。
正確にはSendMessage APIのMsgパラメータにLVM_SORTITEMSを指定して
リストビューにメッセージを送信することによってコールバック関数を設定し
そんでコールバック関数の中で独自のソートを作ればok。

>>611
気が向いてくれるように祈ってみるテスト。

気が向いた。


Private Declare Function ufccrypt Lib "ufccrypt.dll" (Key As Any, Salt As Any, retByte As Any) As Long
Private Declare Function timeGetTime Lib "winmm.dll" () As Long

Function a()
Dim T#, st$, i&, T1#
Dim ret As String * 13
Dim by(20) As Byte
Dim a1&, a2&, C&
Dim s$
Dim Chars(52) As Byte
Dim SearchChar(3) As Long, SearchLen As Long
Dim KeyChar(7) As Byte

For i = 0 To 25
Chars(i) = (Asc("a") + i)
Chars(i + 26) = (Asc("A") + i)
Next

SearchChar(0) = 26
SearchChar(1) = 33
SearchChar(2) = 40
SearchLen = 2

T = timeGetTime

For a1 = 0 To 7311615
For a2 = 0 To 7311615
C = C + 1

KeyChar(0) = Chars(a1 \ 140608)
KeyChar(1) = Chars((a1 Mod 140608) \ 2704)
KeyChar(2) = Chars((a1 Mod 2704) \ 52)
KeyChar(3) = Chars(a1 Mod 52)
KeyChar(4) = Chars(a2 \ 140608)
KeyChar(5) = Chars((a2 Mod 140608) \ 2704)
KeyChar(6) = Chars((a2 Mod 2704) \ 52)
KeyChar(7) = Chars(a2 Mod 52)

ufccrypt KeyChar(0), KeyChar(1), by(0)

If by(5) = Chars(SearchChar(0)) Then
If by(6) = Chars(SearchChar(1)) Then
If by(7) = Chars(SearchChar(2)) Then GoTo OK
End If
End If

Next
Next

OK:
DoEvents
Sleep 1
T = timeGetTime - T

s = KeyChar
s = StrConv(s, vbUnicode)
MsgBox (s & vbCrLf & vbCrLf & C & "個を" & Int(T / 10) / 100 & "秒で検索。" & vbCrLf & "1秒あたり" & Int(C / T * 1000) & "個。")

End Function

コマンドボタンくっつけてa呼び出すなり。

#一応最適化全チェックでコンパイルしてちょ。

タブが消えてしまうという罠。（今知った。鬱。）

>>616
>>617

度々ありがとうございます。
もし力尽きてなかったら、難しい方(>>617)も後で試してみます!

>>619-620
わーい！
でもやってることがあんま理解できない罠。
俺がやはり如何に低レベルだったかと納得させられるｗ
今からがんばって解読すんぞ〜。
ｻﾝｸｽｺです　>>即レスｻｿ

>>613
何がしたいのかよく分からん。目的はなんだ？

>>623
どーいたしまして。
色々いじくった後を修正してないので
もう一度作り直した方がいいだろうな。

ついにおれが誰だかばれてしまった。まずいことを書いてるわけじゃ
ないからいいけどね。しかし、わかるもんなんだなー。

>>607
そこからやるのは無謀だと思うぞ

>>612
すでに回答がでているように、リストビューのソート関数を定義する。
日付型のソートをするサンプルが、KBにあったぞ

>>613
何がしたいんだ？とりあえず、アスキーコードとか、ShiftJISとか、その
辺から確認してみろ

実は有名人なの？

俺は名前を聞いてもわからない自信がある。>まとれす

#PG界の人名なんてぜんぜん知らんもん。

>>626
別に有名じゃない。たまたま、知り合いが見て、気づいただけだ

>>627
せいぜい、一度くらいはMLとかで見かけたことがある、ってレベルだと
思う。俺も、PG界の人名なんて知らんし

>>596
http://www1.plala.or.jp/uz/
にハイレベルなサンプルがある。

が、このソースを見ればわかるが、VBでテキストエディタを
作っても苦労は報われないと思われ。

>>613
俺も何がやりたいのかさっぱりだが、
a1 = Left(InStr(1, Left(Text1.Text, ni - 1), 1 Or 2 Or 3 Or 4 Or 5 Or 6 Or 7 Or 8 Or 9 Or 0), 1)
の中の「1 Or 2 Or 3 Or 4 Or 5 Or 6 Or 7 Or 8 Or 9 Or 0」は
間違ってるだろうな。

s = "123"
For i = 1 To Len(s)
　　ret = InStr("0123456789", Mid(s,i,1))
　　If ret = -1 Then Exit For
Next
If i = Len(s)+1 Then Debug.Print "sは数字だよ"

みたいなことがしたいのだろうか・・・とふと思った。

聞いてばかりじゃ悪いんでｗ
ここはすごい！
http://www.domaindlx.com/e_morcillo/

ＶＢとしてはかなり上級テクばかり
自作のタイプライブラリをＶＢに提供！！それを使ってVBの機能をＵＰするテクを公開してる
なんていい人なんだ！

でも英語だよ（･∀･)
あせらないようにな　でも厨も、もらっておけ！

>>612
めんどくさいのが嫌なら、ColumnHeaderを右寄せにしたうえで、
数字の左に半角スペースを桁数分詰め込むと楽。
Li.SubItems(1)=Format(intHoge,"@@@@") みたいな感じで。
#独自にソートさせた場合、面倒があった気がする…。コードが腐ってた
#だけかもしれんけど。

Sub Main()

Dim s As String, a As String, l As Long, r As Long

s = "おまえ厨だろ？"
l = Len(s)

Randomize

Do
r = Int(l * Rnd + 1)

a = InputBox(String(r - 1, "*") + Mid(s, r, 1) + String(l - r, "*"))

If Len(a) = 0 Then Exit Sub

Loop Until s = a


End Sub

いつも聞いてばかりなのでちょっとしたゲームサンプルお礼
上記は標準モジュールのみで動かしてね
Formはいらないよ（解放していいよ）
スタートアップ設定はSub Mainね（プロジェトのプロパティ)
どう？

あ！何するかって？
文字列あててね
毎回１文字だけ表示されるから　全体の文字列ね
何も入力しないと　即終了〜
当てる回数はまっどうでもいいでしょ
糞コードあげんなって？（´∀｀　）

VB のコンボボックスのリストって VBA のように一気に設定できないの？

あ、TCPじゃブロードキャストは受け取れませんね。ボケてました。
で、WInsockのプロトコルをUDPに下のですけどエラーが出てしまいます。
サーバを作るときは、

Private Sub Form_Load()
txtRemoteHost = "192.168.0.2"
txtRemotePort = 1229

WinsockServer.Protocol = sckUDPProtocol

Rem WinsockServer.Close
WinsockServer.LocalPort = 1229 'ポートを設定
WinsockServer.Listen
End Sub

じゃだめなんでしょうか？

>>635
bindがねーしlistenなぞいらん

>>636 すみません。勉強不足でした。
調べたら解りました。逝ってきます。。。

>634
一気に設定って何だ?RecordSourceとか値リストの事?

VBサポート中止！

VBA は配列を直接ブチこめる

どうしよう・・・

>639
2005年までっしょ

＞＞６４１
ソース希望。
MSサイト覗いてもそんな記述はなかった。
もしかしてネタってやつですか？（ｗ

>>643
俺は>>639じゃないけど、zdnetの記事にあった。
ちなみにVB6.0の話。

確か2005年からは有償サポートになって、2008年にはうち切るんじゃなかったかな。

ttp://www.zdnet.co.jp/news/0203/20/e_vb6.html

http://www.zdnet.co.jp/news/0203/20/e_vb6.html

まじです

VBNって値段いくら位？

サンクス！！

＞＞６４１
疑ってすまぬ。

お前ら笑える

>>651
あおりごくろうさん。
くだらんからsageじゃ。

>640
DBコンボって同じ事出来なかったっけ?
未確認sage。


なんだ、2005年まで猶予あるんだ。
ちょっと意外。

ＡＳテクノロジっていうメモリ最適化の技術があるそうなのですが、
どういうものでしょうか。
教えて欲しいんですけど…

VBでEXEファイルを作成しようとするとエラーメッセージも無く
強制的にVB自体が落ちてしまいます。
メモリ不足かと思い他のアプリケーションを全て終了したり
再起動したりしたのですが全く同じ現象になってしまいます。
デバッグモードでは動作しています。
他のプログラムではEXEを作成することが可能なので
このプログラム単体の原因があると思うのですが
理由がさっぱりわかりません。
他の人に聞いてもこのような現象は聞いたことがないと言われたのですが、
このようにメッセージも無く落ちる原因になりうるものって何かありますか？
環境はWIN2000でVB６（SP4)、メモリは256Mです。

フォルダパスに日本語が混じっているとか？

>>654
マルチ

>>655
漏れもなったことあるぞ。VB入れなおせ。SP5入れるのも手か。

>>655
とりあえず SP5 でてるから、当ててみれば。

VBでメモリマップドファイルをどうすれば作れるか
解説サイトなどありましたら教えてください

かぶってもうた。

レスどうもです。試しにパスに日本語を含まないようにしたところ
「メモリが”READ”になることが出来ませんでした」との
エラーメッセージは出るようになりました。
まぁ、落ちることに変わりはないのですが…
皆さんの助言通りSP5にバージョンアップしてみます。

まさかcpuいじってなんかいないよね

>>663
私ですか？いじってないですよ。
まだ増設とかもしていないのでPCはメーカーの
ものをそのまま使用している状態です。

Win2000って強制終了がみょうちきりんだからね…

誰も654につっこまないんだな。結構笑えるネタなのに。

>>666
そうなの？

>666
いや、初心者スレだし...

>655
Windows2000のSPは...?

とりあえずこちらをご覧あれw
http://page.freett.com/hachikou/

一応同名でまじめな技術があるかも、と思って検索したけど
無かったのでこれで間違い無いよ。たぶん。

えーと質問させてください。
NSにコネクションを張ってればメールの着信をGETできる、って
教えてもらった（http://pc.2ch.net/test/read.cgi/tech/1006154451/486）
んですけど、全く分かんないんです。
winsockかなんかで繋いどくんですかね？
やり方教えてもらえませんか。よろしくお願いします。

>>625
>>631
ありがとうございます。 (一括でごめんなさい。)

>>612を解決するためのサンプルコードをここ↓で発見しました。
(callback関数使う方です。)
http://www.mvps.org/vbnet/


....今度からもっと調べて質問します。

>>619,620
KeyChar(0)〜(3)への代入を外側のループに出せば、約４割速度アップ。
SearchChar(0)〜(2)を単純変数に代入すれば、約１割速度アップ。

>672
ま、そういうことだね。

>>634
できない。どうしてもやりたければ、そういうユーザーコントロールを作るしかないな

>>654
懐かしいネタだな

>>660
CreateFileMapping、MapViewOfFileExあたりをキーに検索してみれば、サンプルが
見つかるぞ

>>670
なんだNSって？メッセンジャーの話か？

>>674
どもありがとうございました。

>>653 >>674
いろいろスマソ。諦めて Additem で一つずつ追加するよ。

VBでFlashを再生するソフトを作っているのですが、ちょっと質問させてください。
フォーム上に置いたFlashに、ドラッグ＆ドロップでFlashムービーを再生させたいのですが、
VB上でドラッグ＆ドロップしたときに、ドラッグ＆ドロップされたファイル名を取得するにはどうすればいいのでしょうか？
よろしくお願いします。

>>677
ファイル名は、OLEDragDropイベントプロシージャの
Data.Files に格納される。

>>677
OLEDragDropイベントで、DataObject引数の中から取得すればいいぞ

それでもやっぱりわかりませんでした…。
下記で試してみたのですが、だめでした…。

Private Sub Form_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
Flash1.Movie = Data.Files
End Sub

>>680
Flash1.Movie = Data.Files(1)
ちなみに複数選択してドロップすると2,3,4...となる。

>>680
そういうときはだな、ブレイクポイントをしかけておいて、変数の中身をウォッチ
するといいぞ。何が入っているのかすぐわかる

ありがとうございました。
これで完成です。

テキストファイルをopenで読み込んだら改行されずに1行で表示されるんだけどどうすればいい？

>684
大体想像つくけど、まずそのソース示せや。
openったって、書き方ひとつじゃないでしょ？

>684
Line Input使うか、ReplaceでVbcrlfに変換すれ。

すんません。
Open strFilePath For Input As #LngFNum
こんな感じで開いてます。

ある文字列をテキストボックスに表示させたいのですが
tabスペースの部分が来たら改行させたいのですがどうすればいいですか？

>688
Text1.text=Replace(str,vbtab,vbcrlf)

こういうことか？

Private Declare Function GetStockObject Lib "gdi32" (ByVal nIndex As Long) As Long
とありますが、「Declare」「Lib」「gdi32」ってなんですか。読めません。ヘルプもありません。

>690
Declare=宣言
Lib=Library（たぶん）
gdi32=DLLの名前

つまり、gdi32っていうライブラリのGetStockObjectっていう
関数を宣言する、ってことだ。

単なる半角スペースとかを改行に置き換えるときって半角スペースの関数(vbtabみたいなやつ)
ってあったっけ？

>692
無いよ。
自前で宣言しとく？

Replaceで半角を置き換えるときはどうなんの？
Replace(str, ,vbcr)とかになんの？
それとも
Replace(str," ",vbcr)とかになんの？
それとも両方間違いですか？
ｱﾌｫな質問かもしれんがたまたま気になったからさ･･･

ありがとうございます。
Dim a as〜　の Dimension の宣言とはどうちがうのでしょうか……。

>>695
Declare〜Libはその名の通り、他のDLLの関数を宣言すること。
Dim〜はVB内での変数の宣言。

スゴく簡単に言うと
通常の宣言=Dim
APIの宣言=Declare〜
かな。

>>694
後者。
Replace(str,chr(32),vbcr)
でもいいよ。

>>696
　　ありがとうございます。おつかれさまです。　　

適当な場所にあるテキストを1行ずつ読み出してテキストBOXに書き出すモノなんですが
Do While Not EOF(LngFNum)
Line Input #LngFNum, strRecData
Text1.Text = Text1.Text & Replace(strRecData, Chr(32), vbCrLf)
1行読み込むと改行としたいのですがうまくいきません。
バカ初心者の私に愛の手をお願いします。

>698
×Text1.Text = Text1.Text & Replace(strRecData, Chr(32), vbCrLf)
○Text1.Text = Text1.Text & strRecData & vbCrLf

・・・まさかとは思うがMultiLine=Trueにしてるよな？

初期化ファイルの読み込みをする関数の関数名は何が適当でしょうか。

iniFile_Load() でいいですか？

#くだらない質問ですみません。変数名と関数名決めるのがいちばん苦痛なんです。

VBでPerlみたく変数宣言しないで簡単にやってると、
処理を間違えたりVB自体が落ちたりします。仕様ですか？
SP5はあてててます。

>701
ネタですか？

>>700
十分でしょ。動詞を先にするのもあり。

>>701
処理を間違えるのはVariant型が分かってない可能性があるが
VB自体が落ちるってのは聞いたこと無いな。

VBにてIEを起動させているのですが、
IE終了時にVB側も一緒に終了させる方法はあるでしょうか？
---------------------------
Option Explicit
Dim IE As Object

Private Sub Form_Load()

Set IE = CreateObject("InternetExplorer.application")

IE.FullScreen = False
IE.ToolBar = True
IE.MenuBar = False

Call IE.Navigate("localhost")

IE.Visible = True
Me.Visible = False
End Sub

Private Sub IE_OnQuit()
Unload Me
End Sub
-----------------------------
フォームに上記のように書いたのですが、
_OnQuit()ではだめなのでしょうか。
IEオブジェクトの終了イベントの受け取り方法を
教えてください。

>700
よく言われるのは動詞+名刺やね。
それに拘らずとも、プログラム内で命名方法が統一されていれば問題なし。
よく使う動詞をまとめておけば名前決めも楽〜

質問なのですが。
TextBoxの文字を中央に揃えたいのですが、どうしたらいいでしょうか？
右揃え、左揃え、中央揃えではなく、
デフォルトでは、上に揃えられてる文字を中央におきたいのですが、
Alignment
か何かのプロパティでいけないのでしょうか？
お願いします。

>>704
アーリーバインドしろ

>>706
EM_SETRECTで位置を修正だな

>>707
レスありがとうございます。
EM_SETRECTで調べてみました。
うっ、SendMessage()API、、、
これは難しそうだ。水平方向なら簡単なのに、、、
ありがとうございました。

VBのベーシック言語ってどこに載ってるんでしょうか・・・
MSDNディスク？

>709
何それ？VBのベーシック言語？MSDNディスク？

>>700
俺は、普通 LoadIniFile() だけど、iniFile_xxx() が色々ある
(例: iniFile_Save(), iniFile_Print(), iniFile_Export()...) なら、
そっちの方がいいかも。要は、>>705 の言う通り統一していることが重要だと
思う。

クラスモジュールのプロパティプロシージャにLetとSetがありますが、
この2つの違いって何ですか?

>>712
>Property Set プロシージャは、オブジェクトへの参照を設定します。
>Property Let プロシージャは、プロパティに値を設定します。

>713
すばやい返答ありがとうございます。
MSDN見ても両者の文面が同じにしか見えなかったんで戸惑って
いたんですが、おかげさまでなるほど納得です。

>>712
値を代入するのに 2 種類のプロパティ プロシージャがある理由は、
Visual Basic では、オブジェクト参照をオブジェクト変数に代入する
場合、特別な構文を使うためです。

　print では ; を打つと改行しなくなります。
では、文字を改行するにはどうしたらいいでしょうか。
Label1.Caption = "a + b = " & Format(wa, "######.######") & " です。" & 改行 _
"a - b = " & Format(sa, "######.######") & " です。"

>>716
クイズみたいな文面ですね。（ｗ
vbCrlfとかじゃダメなの？

>>717
　　　　　　それはどのように使いますか？

>>718
MSDN見るなり、全部聞くんじゃなくてやってみろよ…
"あいうえお" & vbCrLf & "かきくけこ"

>>719　　　　ああ、＆をつけるのでしたか……。
　　　　　　ありがとうございます。それだけで助かりました。

初心者にもほどがあるぞぷーそぷそ！

>>721　　　　心中には。　

PictureBoxの左上の1ドットを透明色として取得しようと
ToumeiColor = Picture1.Point(0,0)
とするも戻り値は-1
msdnをみると-1はobjectの外側にあるからだとか。
意味不明です。助けて・・・。

フルパスをDOS形式に変換する関数てありますか？

>>723
Picture1 の ScaleMode, ScaleTop, ScaleLeft, ScaleHeight,
ScaleWidth をチェックしてみなされ。

>>724
ShortPath, ShortName あたりを調べてみなされ。

>>726
ありがとうございました。これで解決できそうです。

指定した座標（デスクトップ上）の色を取得する方法は
どんなんがありますか？
100　200と指定したらデスクトップ上でのX=100　Y=200の位置の
色を取得できるような・・・。

>>728
GetPixelってAPIがあるぞ。
昔それにチャレンジして失敗したが(--;
がんばれ。

>>728
Win32API の GetDesktopWindow() と GetPixel() を調べてみなされ。

>>728
デスクトップのウィンドウハンドルは取得できてるの？

パオーン

ScaleModeはTwip
ScaleTopは0
ScaleLeftも0
ScaleWidthもHeightも適当な値になってます。
原因は・・・。

プログラム初心者のためのＶＢの参考書を紹介してください。
出来れば初心者さんに聞きたいです。

>>733
PictureBoxがFormからはみ出してないか？

>>735
その可能性は無きにしも非ず。
あたってみます！

とおもったのですがそんなはずはないです。

ところでPicture1.Point(0,0)
の戻り値が毎回違うのはどうしてでしょう？
色は同じはずなのに。

>>723
もしかして BorderStyle が 1 になってね？

738 は漏れの勘違いだった．．．ｽﾏｿ
さっきサンプル書いてみたんだけど問題無く動くんだけどなぁ．．．何が悪いんだろ。

>>734　　　　この本は、基本からきっちりと解説されている。大事なことが凝縮されている、って感じ。
　　　　　　一面的に、要点が並んでるって感じ。しかし、それほど重要でなさそうなことにも平ぺったくページを割く。
　　　　　　全体的に平ぺったい本。でも文法やプログラミングの枠的なところはしっかりと身につけられると思う。この本からは、
　　　　　　私はあまり元気は得られなかったが、実際に書きながらすると、確かに基礎は身に付く。文法的な知識書、かな。

　　　　　　初めてのプログラミング　Visual Basic　
　　　　　　http://www.amazon.co.jp/exec/obidos/ASIN/4881357182/ref=sr_aps_d_1_1/250-3193683-3728223

　　　 　　　ﾏｲｸﾛｿﾌﾄ公式解説書　　この辺がいいという人もいる。
　　　　　　http://www.amazon.co.jp/exec/obidos/search-handle-form/ref=br_ncs_/250-3193683-3728223

>>739
とんでもございません。
でもやっぱり取得する値は毎回違う・・・。
Versionは8176
違いますか？

>>741
うん ? >>723 では、-1 って言ってたような気がするがのう。
どういう値が返って来てるんじゃ ?
ちなみにわしんとこの Version は、VB 6.0 (SP5) だから 8988 じゃ。
環境が心配なら、ピクチャボックスだけをフォームに貼り付けて Point(0,0)
してみて切り分けたらどうじゃ。

>>741
Version 8988 だった。
後、漏れがさっき書いたサンプルって、下記の様なものです。

1) Form に PictureBox を一個貼り付ける。
2) PictureBox の MouseMove イベントに下記のコードを追加する。
　　Debug.Print X,Y,Picture1.Point(X,Y)

参考になるとは思えないけど、とりあえず。

>>740
サンクスです。参考にします。
失礼ですが、初心者ですか？

FormにPictureBoxを貼り付けて
TextBoxもつけて
FormLoadに
a=Point(0,0)
Text1.text=a
とすると
aは-1です。
バージョンの違いですか・・・。

>>745
Pointの前にMe.Showを追加すれ。

PictureBoxのAutoRedraw=Falseの時は
フォームが表示されてない時は
（フォームの上に別のウィンドウがある時も）
どこにも情報がないので範囲外で-1が返ってくる。

フォーム（*.frm）のソースをエディタで開いて見たら、
VERSION 5.00 ってなってるんですけど、VB 6.0 を使ってても
これで正常ですか？
もしかしたらプロジェクトを 5.0 からアップグレードする時に、
失敗したんじゃないかと心配になったもので・・・。

>>723
これはあくまで推測だけど、Load イベント中は、まだコントロール類の
初期化が完了していないからでは？
間違ってたら誰か突っ込んで下さい。

>>747
それで、正常みたいじゃ。わしんとこも VERSION 5.00 となっておる。
正直しらんかったぞ。で、>>746 の Me.Show は追加したのか ?

>>744　　はい、まあだいたいその本しか読んでません。しかしもっと自然な解説な本もあるかも。
　　　　ﾌﾟﾛｸﾞﾗﾐﾝｸﾞにそまりきったら、今のﾌﾟﾛｸﾞﾗﾑは自分で作るのだし、今のパソコンはまだ生きてませんから、
　　　　そまって自分を失ったら、失いっぱなしです。我を失ったら、自然なものは作れません。私は、
　　　　自分の基礎(自然)を忘れないようにして、つくっていきたいです。パソコンも生き生きしてほしいですね。
　　　　まだ、パソコンも、できたばかりです。自然もそうであるように、これから、少しずつ、
　　　　角がとれていくのでしょう。

>>748
>>746 の言う通り、フォームが表示されていない段階で Point() を実行したため
じゃろ。心配なら、ボタンを一つくっつけて、そのボタンのクリックイベント中で
やれば良いぞ。わしは、テストの時はいつもそうやってるんじゃよ。

もうパンツ脱ぐ勢いでソースだします。
おそらくどっかに致命的なものが・・・。
Sub main()
Dim tmp As Long

Load Form1
Form1.Show
'tmp = SetWindowPos(Form1.hwnd, HWND_TOPMOST, 500, 500, 0, 0, SWP_SHOWWINDOW)

Byouga

End Sub
Public Sub Byouga()
'リージョンのハンドル
Dim hRgn As Long

'Combine用リージョンハンドル
Dim hRgnTmp As Long

'CreateRectRgnの戻り値を格納
Dim modoriRgn
'透明にしたい色を指定。
Dim toumeiColor As Long
'For文用
Dim i, j As Integer

Form1.Show

toumeiColor = Form1.Picture1.Point(0, 0)
hRgn = CreateRectRgn(0, 0, 0, 0)
For i = 0 To 31
For j = 0 To 31
If Form1.Picture1.Point(i, j) <> toumeiColor Then
hRgnTmp = CreateRectRgn(i, j, i + 1, j + 1)

modoriRgn = CombineRgn(hRgn, hRgn, hRgnTmp, RGN_OR)
modoriRgn = DeleteObject(hRgnTmp)
End If
Next j
Next i


modoriRgn = SetWindowRgn(Form1.hwnd, hRgn, True)

End Sub
お願いします！

>>750
なんか、怖い...。

>>749
VB 6.0 でも VERSION 5.00 で正常ですかー。
これで安心しました。さんきゅ〜です。

>>751
突っ込み感謝。

いまきずいたんですけど、
if文のあたりに入る前にbreakかけると
画面に1ドット程度の
ウィンドウが表示されていました。
どこでこんなに小さくされてしまってるの？？

>>752
VB は、Form1.Show とやってもコードが実行されているとフォームを表
示しないじゃ。だから、Point() の値がおかしくなるんじゃろ。
> Form1.Show
> Byouga
の間に、DoEvents を入れて、フォームを表示させればいいと思うぞ。

あと老婆心ながら言っておくと、Dim i, j As Integer と書くと、i は
Variant になるから、気をつけたほうが良いぞ。

>>723
あー、つまりこのコードは、
「左上のピクセルと違う色を元にリージョンを作成して
ウィンドウに設定する関数」
ということでいいか？
サイズからしてアイコンを読み込むんだろうが。
PictureBoxはScaleMode=VbTwipsなんだよな？

じゃあ
PictureBoxのAutoRedraw=Trueにして、
適当なアイコンをPictureBoxに読み込んで、
×If Form1.Picture1.Point(i, j) <> toumeiColor Then
○If Form1.Picture1.Point(Form1.ScaleX(i, vbPixels, vbTwips), Form1.ScaleY(j, vbPixels, vbTwips)) <> toumeiColor Then
だ。

>>756
分からんな。他のコード見直してみな。

>>757
>>758
な・なるほどー
すごい、凄すぎる。
またお願いします。

>>758, >>723
ScaleMode を vbPixel にすることを検討してみてはどうじゃ...。
なお、こういう処理をやるならラスタオペレーションを勉強すると良いか
もしれないぞ。
http://homepage1.nifty.com/CavalierLab/lab/win/transparent.html#sprite

>760
え？俺？

俺は普段画像処理にVBの標準関数は使わないので、、、

いやようやくリージョンについてわかってきたのですが、
先のソースでCombineRgnしたリージョンは
どーーーしてもSetWindowRgnの後表示されないのです。
普通にCreateRectRgnしたやつやCreateEllipticRgn
でつくったやつは表示されるのになぜゆえなのでしょう。
Delphiのソースまで読んだのに・・・。

送るメニューから起動して、送られたファイルのパスを取得するには
どうしたらいいですか。
ワケあってＶＢ４なんですけど。

質問です
コントロールによくあるToolTipTextプロパティの文字列は改行できませんね？
vbCrLfダメ vbNewLineもダメ　もちろん　chr(13)やchr(10)もダメ
使えネー　そう思わない？

酒飲みながら寝ようとしたんだが。
結構みんな起きてんだね。お疲れ。

>>762
上記のサンプルコードでは俺の所では動いたぞ。
他のところが間違ってるんじゃないか？
君はC系出身みたいだからVBの仕様で
とまどうところが多いかもな。

>>763
SendToフォルダとCommand。
VB4でも使えるだろう。たぶん。

>>764
まじめにTip作りたいならCreateWindowExを使う。
VBらしくFormで代用してもいいな。楽だし。

>>765
取得されたパスがＭＳ−ＤＯＳ名（チルダ入り）になるのは仕様ですか？

Windowsの仕様だよ。
長いファイル名にしたかったらFindFirstFile APIでも使え。

正確には、Win9x系の仕様だな。
ＮＴ系だとロングファイルネームで取得される。
汎用性を保ちたいなら、そのへんも注意してや。

早朝にナイスフォローやね。

手早いアドバイス、ありがとうございました。

このへんも参考にしました。
ttp://www.vbvbvb.com/jp/index.html
ttp://homepage2.nifty.com/sak/index.htm

>>766
手抜きしたかったら、Dir(strShortPath)ってやってファイル名だけ
ロングファイル名を取得する手もある。パスは取得できないが。
まぁ、１階層ずつ全部DirすりゃOKだけど。

いやー昨日は泣き寝入りして
起きてすぐCombineRgnの引数を
RGN_ORから２に変えたら難なく成功。

VBだと定数って使えないのでしょうか・・・。

>>772
自分で定義しないと使えない。
その場合なら
Const RGN_OK = 2
かな？

VB tips 1000+ってなかなかいいぞ

フォーム上のコントロールのプロパティにコレクションから値を設定する方法はありますか？

Command1のキャプションを変更する際に、
FN = "Form1"
CN = "Command1"
PN = "Caption"
Value = "TESTCaption"
Forms(FN).Controls(CN).Properties(PN) = Value
というようにはできないもんでしょうか?

APIでよく使われる定数をVBで使う場合
どこを見て実際の数値を調べればよいのですか？

>>775
FormsにForm1が複数あったらどうするんだい？

>>776
VCのヘッダーファイル

>>775
すばやいレスありがとうございます。

＞FormsにForm1が複数あったらどうするんだい？
同じ名前のフォームが造れることは知りませんでした。

コントロールを指定するところまではできるんですが、
プロパティを指定する方法がどうしても見つかりません。

>>779
CallByName

>>780
ありがとうございますぅぅ！！
できました。感謝いたします。

ついでに質問なんですけど、
CallbyNameで任意のプロシージャを起動できますか？

解決しました。プロシージャをPublicにすればOKでした。

>>772
ちょっと待て、それまで未定義でやってたのかよ。悪いこと言わんから、
全部のソースの頭に Option Explicit 入れろ。(ついでに、ツール(T) -
オプション(O)... の編集タブの「変数の宣言を強制する(R)」のチェックを
入れとけ。

>>773, >>776
API ビューアー使え。でもたまに間違えてるらしいから、MSDN で確認した方が
良い。(つーか、あんまり VB で API 使うな。)

素人サイトの軽知識でＡＰＩをＶＢで使っているとは…（ﾟДﾟ;)
確かなリファレンス本ぐらい買えよ
情報の信頼さを考えれば決して高くない

http://www.vbvbvb.com/jp/guide/index.html

速度と使い勝手からどーしてもＡＰＩ多用しちまいますが
ナニカ問題があったんですか。
ビットマップ転送なんかどーしても頼らんとムチャかと。

厨よ　BitBltなど使うな
厨には危険な割には速度は大して出ない
DirectDraw7を使え
DirectX 7 for Visual Basic Type Libraryを参照すること

Option Explicit
Dim ObjDX7 As New DirectX7, ObjDD7 As DirectDraw7
Dim PrDDSurf7 As DirectDrawSurface7, OffDDSurf7 As DirectDrawSurface7
Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long



Private Sub Form_Click()
Unload Me
End Sub

Private Sub Form_Load()
Me.BorderStyle = 0
End Sub

Private Sub Form_Resize()
Set ObjDD7 = ObjDX7.DirectDrawCreate("")
Call ObjDD7.SetCooperativeLevel(Me.hwnd, DDSCL_NORMAL)

Dim ddsd1 As DDSURFACEDESC2, ddsd2 As DDSURFACEDESC2
With ddsd1
.lFlags = DDSD_CAPS
.ddsCaps.lCaps = DDSCAPS_PRIMARYSURFACE
End With
Set PrDDSurf7 = ObjDD7.CreateSurface(ddsd1)

With ddsd2
.lFlags = DDSD_CAPS
.ddsCaps.lCaps = DDSCAPS_OFFSCREENPLAIN
End With
Set OffDDSurf7 = ObjDD7.CreateSurfaceFromFile("ビットマップファイルのパス", ddsd2)

Dim nRECT As RECT, fRECT As RECT, rv As Long
rv = GetWindowRect(Me.hwnd, fRECT)
rv = PrDDSurf7.Blt(fRECT, OffDDSurf7, nRECT, DDBLT_WAIT)
End Sub

解説いるかい？

厨達よ　解説しておこう
Dim ObjDX7 As New DirectX7, ObjDD7 As DirectDraw7
DirectX7オブジェクト;VBタイプライブリ参照必須、DirectXを使うって宣言だ
DirectDraw7オブジェクト;DirectDrawを使う宣言だ

DirectDrawではサーフェイスと呼ぶ、ビットマップを格納する仮想スクリーンを使う
（Win32APIのディスプレイデバイスコンテキストと同じようなものだ)
これが表示する全ての基本である、描画はサーフェイスに行なう
実際に画面に表示されるサーフェイスはプライマリーサーフェイスと呼ばれる
その他の表示されないものはオフスクリーンサーフェイス（バックバッファ)と呼ばれる
基本描画法はプライマリーサーフェイス作成は必須
オフスクリーンサーフェイスを作成して、そこに表示するビットマップを格納しておく
表示するには、そのオフスクリーンサーフェイスからプライマリーに領域を指定して転送してやる
この作業はBitBltと仕組みは同じだ

さてサーフェイスの作り方だが…
DirectDrawのモードによってやや異なる
ウインドウモードとフルスクリーンモードだ
ウインドウモードでは、ほぼBitBltと同じ使い方になる
座標系なども説明する必要があるか…
もう面倒なので　希望者あったらな（藁
ジャネー

>>786
だったら、VC 使った方が良いと思うが...。

無理にそう思うからです。

別にAPIぐらい使ったっていいと思うが。
ただのツールでもBitBlt使うときもあるだろーに。
（でもMSDNぐらい見ろ、ってのは同意）

>>786
PaintPictureがあるけどね。
無理矢理VB標準関数だけでやるよりゃ
いいと俺は思うよ。

>>789
VBが好きだからです。ﾅﾝﾂｯﾃ

#スレとあんま関係なくてｽﾏｿね。

↑名前入れんの忘れた。とほほ。

ＶＢはヘルプが充実してて、作例見れば初心者でもなんとかなってしまう。
でもちょっと込み入ったことやろうとすると小回りがきかない。

厨達よ　モーニングサービスだ

プライマリーサーフェイスは作成時におまえらのディスプレイ表示画面と同じサイズで作成される
見ている画面そのものと言う事だ
それに対してオフスクリーンサーフェイスは作成時にサイズを決める　いいな？

DirectDrawを使うからにはウインドウモードとフルスクリーンモードのどちらにするか決める
ウインドウモードではDirectDrawアプリは通常通りWindow支配下にある、画面を占有することはできない
まあふつうのＶＢアプリと変わらないと思ってよい(描画速度の事ではない）
フルスクリーンモードはその名の通り画面をこのアプリだけのものに占有できる
ただし、画面はすべてサーフェイスに占有されるため、VBに限らず、その他のウインドウはユーザーインターフェイスに関わるイベントは無意味となる
これはフォームなど表示できないから当然わかるであろう
しかしパフォーマンスはウインドウモード以上に期待できる

まず慣れないうちはウィンドウモードでやることだ
Set ObjDD7 = ObjDX7.DirectDrawCreate("")
これは DirectX7オブジェクトからDirectDraw7オブジェクトを作成している
ここからDirectDrawが扱える、引数の""はこれでいい、現在デフォルトのビデオカードが使用される
何も考えるなｗ
Call ObjDD7.SetCooperativeLevel(Me.hwnd, DDSCL_NORMAL)
これはさっき言ったモード決定だ
このDirectDrawをバインドするウインドウハンドルは必要だ（フォームでなくてもよい)
DDSCL_NORMALはウインドウモードと言う事だ、今回はフルの設定は割愛する

さあサーフェイスの作成だ　DDSURFACEDESC2構造体がまっているなｗ
初心者は最初わかりにくいが、わかってしまえばなんのことはない
ウインドウモードでは設定するパラメータは多くない
おっとDDSURFACEDESC2構造体などはVBのユーザー定義型として既にDirextX7 for VBのタイプライブラリに宣言されている
じゃあ　ああ　面倒だな
また　後でな　（´Д｀；）新手のもったいぶりアラシか　オデは（藁






　

>タスクマネージャのアプリケーションの所に
>アイコンを表示させない方法知ってる人いる？ぜひ、おせーて下さい。

が自己解決したんで。
ShowWindow(hWnd,SH_HIDE)でいけました。
こんなことで出来たのか。鬱。

>>786
じつは、StrechBlt()よりPaintPicture()の方が速かったりする。ま、条件によるの
かもしれんが

>>796
今は無き VB増強作戦で検証してたのを見た気がする。
あのサイト良かったのにナァ。

動的配列を確保してから解放するのはどうすればいいのですか？

>798
Erase

>>799
ありがとうございました。
できましたー。

>>796
StretcBltとPaintPictureのどちらが速いかは、環境次第で違う結果になる。
でも、両者にあまり速度差はないので、
拡大/縮小やるなら、やや高機能なPaintPictureの方がお勧め。

APIの使い始めにStrechBltを使うとAPIの意味がないと思いこむ罠。

#StrechBltが遅すぎる気もするな。
#VC++使って自前で作った方が速いんじゃないか？

追記。

昔の話ね。（2,3年ほど前）
今は速いかも。

>>794
その調子でDirectMusicも〜

複数のファイルを結合させるプログラムを作ろうと思うのですが、
ファイルの開き方はやはりBinaryで開くのでしょうか？
一般的に結合ソフトはどのように結合させてるのでしょうか？

とんちんかんな質問かもしれませんが、よろしくおねがいします。

　　　　　　　　　　　　　　　　　　　||
　　ｱﾎｫ　　　　　　　　　　　　　 　||　　　　　 　　ﾓｳｸﾝﾅ
　　　　　　　　　ｳﾞｫｹ　　　　　　∧||∧←>>805　　　　　　 ｲｯﾃﾖｼ !　
　 ∧＿∧ 　　∧＿∧ 　　　　 （/ ⌒ヽ 　　　　 ∧＿∧ 　　∧＿∧
　（　´∀｀） 　（　´∀｀） 　　　　 | | 　　|　 　　　（´∀｀　）　 （´∀｀　）
　（　　　　） 　（　　　　） 　　　　 ∪ / ﾉ　　　　 （　　　　）　 （　　　　）
　｜ ｜　| 　　｜ ｜　| 　　　　　 | ｜|　　　　　 |　｜ ｜　　 |　｜ ｜
　（_＿）＿）　 （_＿）＿）　　　　　∪∪ 　　　　 （＿（＿_）　 （＿（＿_）
　　　　　　　　　　　　　　　　　　　　；
　　　　　　　　　　　 　　　　　　　-━━-

>>805
俺ならメモリに読み込んでPutで追記。
ファイルそのままにしたいならOpenはBinary。
だな。

#たまには質問。
#ファイルの末尾を削る時ってみんなどうしてる？
#俺は全部読み込んでKill→Putなんだけど無駄が多くて。

即レスさん
レスありがとうございます。
なるほど、その方向でいきたいと思います。
まだまだ前途多難ですが、、、

#質問はわかりません。すいません。

>>805
ファイルによるだろ。テキストファイルなら、Text モードだし、
バイナリファイルなら Binary モードだ。どっちかわからんのなら、
プログラム作る能力が無いのだから、あきらめれ。

>>807
俺は、一時ファイルに必要部分のみコピーして、Kill 元ファイル、
Name 一時ファイル AS 元ファイル だな。Kill → Put だと、
その間に異常終了したらファイルがなくなってしまうので、ちょっと
怖い。

VBでDirectX7をつかってゲームを作っているのですが、半透過のやりかたがよくわかりません。
透過ならカラーキーを設定して
Call BackSurf.BltFast(x, y, CharSurf, r, DDBLTFAST_WAIT Or DDBLTFAST_SRCCOLORKEY)
でできるのですが・・・。ご存知の方、いますか？

>>805
SetEndOfFile()なんてどうだ？ 使ったことはないが

>>810
DirectXはよくわからんが、普通はアルファブレンドとかを使うな

>>809さん
レスありがとうございます。
テキストファイルをバイナリモードで開けてはダメなのでしょうか？
困ったな、

>>まとれすさん
レスありがとうございます。
SetEndOfFileですか、難しそうですけど、使いこなせれば、うまく
いくかもしれませんね。ただ、ほんとに難しそう、、、

ありがとうございました。

>>812
> テキストファイルをバイナリモードで開けてはダメなのでしょうか？
別に良いんだけど、テキストファイルだと行単位の処理とかないの ?
テキストモードなら Line Input # で、行単位に読んだりできるので、
ちょっと楽。あと、Binary モードだと指定したファイルが無い時に
エラーにならずにそのファイルを作っちゃうので注意が必要。

>>810
Darw7では実装していない
DX8以降Drawは７のままであるから Drawでは、ないという事だ
ただし3Dのほうでテクスチャーで、できるようだ　オデは３Ｄはやらない　フィギュアヲタではないからだ

パフォーマンス無視のテクヒントをあげておく
Msimg32.dllにAlphaBlend関数がある
サーフェイスのデバイスコンテキスト互換ハンドル取得はわかるかな？
Draw使ってんのにＡＰＩで描画という情けない技（藁

>>812
すまん。>>811の回答は、>>807の間違いだった
で、元の質問に対してだが、Shell関数でCOPYコマンド呼ぶ、ってのがかなり速いぞ

int a=0;
みたいな書き方はVB6ではできなかったですよね？

>>815
ありがとう。やってみたけど、これいいね。
早速自前のライブラリに追加しますた。

>>816
出来ないよ。
a as longはa=0で初期化されるけどね。

>>813さん
レスありがとうございます。
なるほど、ためになります。
その点に注意しながらやってみます。

>>815さん
レスありがとうございます。
あの回答は即レスさんのでしたか、、、
まとれすさんのことだから、これをうまく使う方法があるんだろうな、と思ってました。。。
で、Shell関数でCOPYコマンド呼ぶってのは、ファイルの中のデータを読まずに、
ファイルを単純に結合してしまう、ってことでしょうか？
これはかなりよさそうですね。今からそれを調べてみます。

ありがとうございました。

>>807
SetEndOfFileですなー。
こんな感じ。

hFile = CreateFile(strFilename, GENERIC_WRITE Or GENERIC_READ, FILE_SHARE_READ, 0&, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL Or FILE_FLAG_SEQUENTIAL_SCAN, 0&)
If hFile = INVALID_HANDLE_VALUE Then Exit Function
Call SetFilePointer(hFile, lngFileEndPos, 0&, FILE_BEGIN)
Call SetEndOfFile(hFile)
Call CloseHandle(hFile)

ADOでAccessのデータベースに接続しています。
フォームに単表形式で表示しているのですが、現在表示しているレコードを
「15/20」みたいに何レコード目かを表示したいのです。（(現在のレコード)/(全件数)）
全件数はRecordset.RecordCountで取れたのですが、現在表示中のレコードが
何番目かというのの取得方法が分かりません。
おながいします。

>>816
できない。Constなら別だが。VB.NETでは、できるようになってる

>>818
そういうことだ。待機の問題とか出てくるけどな

>>820
AbsolutePositionでどうだ？ 一応行っておくが、RDBMSでは、何番目、
という考え方はあまり使わないぞ（代わりにカーソルの位置を使う）

まとれすかっけーな。なんつーか、怖いモノなしじゃん。

>>814
そうですか。ありがとうございました。
表示する画像パターンを増やしてなんとかごまかします・・・・・。（　;´Д｀）ｿﾚﾃﾞｾｲｲｯﾊﾟｲ

Dim Arr1() As String
Arr1 = Split("a b c d e"," ")
Debug.Print UBound(Arr1)

ってすると、4とでる。
つまり、Split関数は勝手にReDimしてくれてるってわけ？
そんな記述、どっかにありましたっけ？

プログラム作成の解説とかのホームページに
よくウィンドウ丸ごとgif画像とかにして
貼りつけたりしてますがあれはどうやってるん
ですか？詳しい方教えてくださいな。

>>1-824

825のような常識はずれの低脳初心者なクソにマジレスしないように。

>>825
Photoshopで出来ます。
ttp://www.adobe.co.jp/products/photoshop/main.html

>>825

以下のソフトを使用。開発者の常識
http://www.sourcenext.com/products/satsuga/

デジカメ買っといで(W

>>828
すげ、、
こんな素晴らしいソフトがたった\4,900
しかも今ならドットコム価格\4,165 、、、恐るべしソースネクスト。

>>825
PhotoShopは高いからソースネクストの製品がいいよ。
つーか、俺の知り合いのPGも全員これ。
C使ってる連中は画面キャプチャ専用のプログラムを自作
するのが常識らしいが、VBAやVBのPGはこのようなツールを
使うのが常識。API使って作れないことも無いが、4千円
程度でこのような高機能なユーティリティが使えるなら
買う方が良い。

画面キャプチャは最近ようやくソフトウエアが
整ってきたからなあ。

アホか。シェアウェアなんて割れちまえよ

>833
ﾊｹﾞ同

つーかMXやれよ

割れる気にもならん

>>833-836
お前等、痛すぎ。

>>833-836
マジレス恥ずかしーあはは？

>>828
ありがとうござます！！
こんな良いソフトがあるとは知りませんでした（汗
さっそく買っちゃいました。マジレスして頂いて
ありがとうございますぅ！！日々精進です。

828はマジレスじゃないと思うのは俺だけか？

>>840
俺も。

その前に、「あの・・・」氏はマジ質問なのかな。

FindWindowかなにかでターゲットのhWndを取得して、
GetWindowDCでhDCを取得、
GetWindowRectでウインドウサイズを取得しBitBit、
ReleaseDCでhDCを解放。
書き写した画像を適当な方法で保存してできあがり。

…一応ﾏﾁﾞﾚｽしてみた。

>>822
ほめても、何も出ないぞ（テレ笑

>>824
ほんとだ。ま、Array関数と同じ動きだな

>>825
[Alt]+[PrintScreen]して、ペイントにコピー、Officeをインストールしてれば、
gifで保存できる

>>843
まじめにやろうとすると、カーソルをどうするとか、半透明ウィンドウをどうする
とかって問題が出てくるな

インターネットに接続された瞬間、切断された瞬間ってどうやって取得したら
いいでしょうか。

>>845
外にping打ちまくる。

>>846
バカ丸出し

>>845
>>846の方法は、あながち的外れじゃないぞ

とりあえず、RASならWM_RASDIALEVENTをトラップすればよさそうだな。問題は、
LANなんだが・・・

LANの場合は、厳密な判断は無理だろう。ルータやプロクシがどうなってるか、って
ことになっちまうからな。それこそ、外にPingを打つとかで判断するしかない

>>846、>>848
ありがとうございます。ちと調べてみます。
>>847
偽物氏ね。

おおアレテルな
いいぞ
厨スレらしいぞ

質問です。グローバル変数は良くないってよく聞きますが具体的にどんなとこがやばいの？
折れいつも楽だからループカウンタ以外ほとんどグローバルにしちゃうんですけど。
ちなみにこんな質問するくらいのスキルです。

もしPGの仕事をしていたら殺す。

＞＞851
フォームにコントロールはっつけて使っているだけの
純な厨はそれほど深刻ではないＹＯ
いいぞ、それでも
わかるようになったらわかる
今はイイ（･∀･)

>>852
俺がプロPGなれるなら誰でもなれちゃうでしょ＾−＾；

>>853
そーですか、でも殺意を持たれるみたいなのでなるべく使わないようにｼﾏｽ。

>>852
変数が多いと変数名がかぶって、考えるのがめんどいから
さらに、スペルミスで関係無い変数を参照してしまう可能性があるから
それを減らす為に長い変数名を付けると、タイプするのがめんどいから
それでも、バカなやつは間違えるから

>>851
デバッグしづらいからだよ。

例えばグローバル変数に依存してる関数を呼び出す時は、
いつどこでそのグローバル変数が変化するかも把握しとかないと
いけないだろ？
ある程度でかいアプリなら、実際不可能だ。

#いかにグローバル変数がウザいかは
#ある程度規模の大きいアプリを作るか、複数の人間で
#開発してみればすぐ分かるよ。

テストさせてくらはい。
スレ汚しすまそ。

トリップ付きで！！

鬱だ氏脳

DirectSoundを使うとWAVEファイルがどうやっても8bit音声で出力される　もうだめぽ。・゜・(ノД`)・゜・。

質問です。
バリアント型がもつ「Empty 値」と「Null 値」。
これの内部的なビット並びはどうなっているのですか？
asc() で調べようとするとエラーになってしまいます。

また、Null 値はどういった用途に使うのですか？

よろしくお願いします。

質問でふ教えていただきたいんですが
TabStrip上で右クリックされたら、っていう判定はできますか？
それと、TabStripに何かをD&Dしてどのタブにドロップされたのかを
調べることはできるのでしょうか？
よろしくお願いいたしまふ。

>>861
Variant 型は、型情報 (２バイト) + その時の内容 の形で保存されてい
る。(Put ステートメント参照のこと。) だから、Empty 値の時は、
型情報が &h0000 になっているし、Null 値の時は、&H0001 になってい
る。(VarType 関数参照のこと。) より詳細が知りたければ、
Variant 変数を Put でディスクに書き出して、バイナリエディタなどで
見ればいい。
Null は、無効な値を示す時に使う。例えば、入力された文字列を返す
ルーチン等で、キャンセルボタンがクリックされたら Null を返すように
するなど。あと、データベースで連携の時にデータベースも Null 値を
持っているからそう言う時に便利。

>>862
> TabStrip上で右クリックされたら、っていう判定はできますか？
SSTab1_MouseDown() でできると思う。
> それと、TabStripに何かをD&Dしてどのタブにドロップされたのかを
> 調べることはできるのでしょうか？
マウスの座標値から判断するしかなさそう。

>>851
「デバッグしづらい」は間違いじゃないがどちらかといえば「バグを起こしやすい」ってところ
かな。10個ぐらいのグローバル変数なら、何をやっているのか管理できるけど、100個になったら
無理。そのために、構造体を使ったり、クラスを使ったり、ローカルスコープに押し込めたりする。

これが「カプセル化」。オブジェクト指向でも出てくる重要な概念だから、きちんと把握しておいた
方がいいな

>>861
内部的な状態が知りたければ、RtlMoveMemory()とかでコピーして調べるしかない。
で、Null値は、データベースと一緒に使われるもので、「何も入っていない」状態を示している。
Empty()は、初期化されていない状態、だったかな

>>862
MouseDownイベントでとれるんじゃないか？ もう一個の、どこのタブにドロップされたかだが、
結構面倒みたいだな。DropされたときのMouse位置から計算して求めることができるぞ

>>864
うお。サンプルプログラム書いて試してたら、もろかぶった・・・鬱

>>863 >>864
ありがとうございます。
そうか、データベースは思いつかなかった。
Pro*C でオラクル相手の仕事してるのに……（ｗ
VB はユーザーインタフェース専門言語って思っていたので。

>>863
>>864
ありがとうございまふでふ。
D&Dの方は座標で調べるんですね。
とりあえずやってみまふわ。
でわでわ、、、

サウンドを鳴らしながらフォームを移動させたいのですが
DirectXを使わないで良い方法ありませんか

>>868
ん？ PlaySoundとかでもできるだろ？

これだと音楽鳴らしながらできるんですか。
いつもMDIコントロールとかいうのをつかってました。
それだと音が鳴り終わらないと次にいかないんですよね。
ありがとうございます。

VBで変数の初期化ってどうやるんですか？
Booleanがたを宣言時にTrueにしたいのですが

Dim temp As Boolean = True

>>872
VB.NETかよ！？

>>872
それだと「ステートメントの最後」
とかいうエラーになるんですが・・・。

>>874
Dim temp As Boolean
temp = True

そのまんま。VB6までは宣言と同時に初期化はできない。(デフォルト値で初期化される)

Dim temp As Boolean : temp = True
とかできなくないけど、あんまり意味ない。

>>870
非同期型のオプションを付けて鳴らせば、同時進行が可能。

宣言：
Declare Function PlaySound Lib "WINMM" Alias "PlaySoundA" (ByVal pszSound as String,ByVal hmod as Long,ByVal fdwSound as Long)As Long

引数
pszSound:WAVEファイル名、またはリソース、またはメモリアドレス、vbNullStringなら演奏中止
hmod:ファイルの時0,リソースを使う時、実行モジュールインスタンスハンドル、
fdwSound:下記演奏動作指定フラッグ（組み合わせ可）
&H20000:ファイル指定、&H40004:リソースID指定、&H4:サウンドデータをメモリにロード　＜pszSoundに合わせる事
&H1:非同期再生、&H0:演奏終了まで戻らない
&H8:繰り返し再生
&H10:他に再生中なら実行しない

この関数の戻り値:エラーでないとき1　エラー0
例
Dim r As Long,WData() As Byte
WData()=LoadResData(リソースID、リソース定義名)
r=PlaySoundA(WData(0),0,&H1 Or &H4)

注：バイト配列に読み込んだ場合、配列の初期要素WData(0)は先頭メモリアドレスである

厨よ
わからないならむやみにAPIに手を出すな
VBどころかＷＩＮのクラッシュを招くぞ
ジャナ

DDSURFACEDESC2構造体の説明するかい？藁

windowsXP + VB6.0なんですがFormプロパティの
BorderStyle = 0（なし）にしてもタイトルバーが
消えません
これって仕様？それともただの暴走？
win98のときはそんなことなかったのにあとほかに原因ありますでしょうか

>>862
過去ログにTabStripで右クリックのサンプルコードがでてるよ。
このスレか、一つ前のスレだったと思う。

>>878
ゲーサロ野郎ﾊｹｰﾝ!

>>879
コードでやってるんならControlBox=Falseかつ、
Caption=""じゃないと消えない。

デザイン時にやってるなら今XPが無いから分からんな。

>>864
ローカルスコープに押し込めるってどういう意味ですか？
というか他のモジュールで同じ変数を使いたいのでグローバルにしちゃうんですが、
どうすれば使わず済むんですか？
真面目に疑問です。教えて！

｢Visual Basic大全500の極意｣って、
目次や索引のページ数がデタラメなだけだと思ってたら、ＣＤ収録の
サンプルまで中身がダメダメだった。
出来が悪いとかじゃなくて、プロジェクトファイルで存在しないフォーム
呼び出してたり。
改訂版出たら無料で取り替えたりしてくれんのかな？
改訂版の印税まで著者に入ったりしたらイヤだぞ。

そんなもん買ってる君にアーメン。

>883
他モジュールから参照したい場合は、プロパティプロシージャを通して公開すべし。
その変数がモジュールに依存しない、本当の意味でのGlobalなものでない限りは
グローバル変数化は極力避けるようにした方が無難だよ。

...でも、このへんの大切さは一度失敗してみないと分からないかもなァ。

>>879
こっちの環境だと消えるぞ

>>883
パブリックにしない、ってことだ。逆に聞くが、どういう用途の変数をグローバルに
したいんだ？それを聞いてから、回答を考えることにするぞ

グローバル問題の直接的な解決ではないが、昔やった小ネタでは、

Type g
End Type

という構造体を作っておいて、グローバル変数をこの構造体のメンバーにした、
なんてのがあったな。スコープの問題はクリアできないが、プログラミング上の
管理はすごい楽だった。

あと、デバッグ用のフォームを用意しておいて、グローバル変数を全部その
フォームのラベルに格納したり。デバッグ時は、変数の値を見ることができるので、
すげー便利だった。もちろん、リリース時には非表示にするけどな

>>884
出版社に訴えろ。改訂版がでることは、まずないだろうけどな。売れ行きがよければ、
版を重ねたときに訂正されるかも。そのときは、著者に印税が入るな

VBでネットワーク経由のプリンタへのポートを変更するにはどうしたら良いでしょうか。
Win98でいう、プリンタのプロパティ→詳細タブ→ポートという部分を変えたいのです。
---------
現在ポートは
　　　　「\\ServerA\Printer」
になっていますが、
これを
　　　　「\\ServerB\Printer」
にしたいのです。
---------
数十台のクライアント端末でこの作業をするので、自動化出来ればと思ったのですが…。

追記。
あるプリンタ情報に「ポートの追加」→「それを使用」→「以前のポートを削除」と
出来れば良いのですが…。
ご存知の方おられましたらおながいします。

皆さん長い間お世話になりました。
今回をもってVBを卒業させていただきます。
次回は・・・。

COBOLです。

あ、C#始めました。

そして挫折しました。

>>888
>おながいします。
人にもの聞くのにふざけてやんの

>>879
メニューバーを出しているからだったりして…
うそうそおこらないでぐはっ

>>888
ポートの変更ってのはやったことがないんだが、SetPrinterじゃだめなのか？

>>892
がんがれ。

>>894
>>888はそんなこと言ってないが・・・ 2ch初心者か？

>>889で言ってる。

おねがいしますよりおながいしますの方が気持ちがこもってると思う

>>886
プロパティプロシージャを通して公開・・・の意味が分からないです・・・
すいません；

>>887
グローバル変数を構造体にまとめる、っていうのはいいアイデアですね。
今度から使わせてもらいます（グローバル使うなって・・・）

どういう用途の変数を・・・って質問ですが、
例えばrect型を１０個くらい作って、最初に全部代入しておいて、Bltの時に使い分ける、という風にしてるんですが、
（一つのrectに毎回入れなおすのは処理の無駄な気がするので・・・）
その代入させる処理が結構長いので、フォームモジュールが長くなるのが嫌なので別のモジュールでやりたいんで、
仕方なくその１０個のrectをpublicにしてるんです。
こんな感じなのでどんどんグローバル変数が増えてしまう・・・
どうすればいいんでしょうか？

ちなみに883です。名前書き忘れました。ｽﾏｿ

>>896

>888はそんなこと言ってないが・・・ 2ch初心者か？
あはは〜、言ってますよ。注意力が幼稚園児レベルだねえ〜。

>>899
１０個のrectをクラスモジュールに入れればいいんじゃないの？

dim rect1 as class1
dim rect2 as class1

set rect1 = new class1
set rect2 = new class1

rect1.a=1
rect1.b=1
rect1.c=1
・
・
・
rect2.a=1
rect2.b=1
rect2.c=1
・
・
・

さあ厨達よDDSURFACEDESC2構造体だったな、ﾒﾝﾄﾞｸｾｰﾅｰ
>>787>>788>>794 >>881これはどうでもｲｲ（´∀｀　）
Dim ddsd1 As DDSURFACEDESC2, ddsd2 As DDSURFACEDESC2
With ddsd1
.lFlags = DDSD_CAPS '●1
.ddsCaps.lCaps = DDSCAPS_PRIMARYSURFACE '●2
End With
Set PrDDSurf7 = ObjDD7.CreateSurface(ddsd1) '●3
上記はＶＢのコード参考例
Type DDSURFACEDESC2
ddckCKDestBlt As DDCOLORKEY
ddckCKDestOverlay As DDCOLORKEY
ddckCKSrcBlt As DDCOLORKEY
ddckCKSrcOverlay As DDCOLORKEY
ddpfPixelFormat As DDPIXELFORMAT
ddsCaps As DDSCAPS2 '★1　構造体である下記参照
lAlphaBitDepth As Long
lBackBufferCount As Long
lFlags As CONST_DDSURFACEDESCFLAGS '★2 フラグ定数
lHeight As Long '★3 高さ
lLinearSize As Long
lMipMapCount As Long
lPitch As Long
lRefreshRate As Long
lTextureStage As Long
lWidth As Long '★4 幅
lZBufferBitDepth As Long
End Type
DDSURFACEDESC2構造体はサーフェイス作成のDirectDraw7.CreateSurfaceメソッドの引数だ
これでサーフェイスの属性を決めて作るわけだ、ウインドウモードでは★の部分だけ考えればよい
ではプライマリーの作成を説明しよう、プライマリーは実際の表示画面だ、これがなくてはD.Drawは意味がない
まず●１のようにlFlagsを設定しよう、DDSURFACEDESC2の他のメンバー設定が有効か決めるのだ
設定値は既に定数が用意されている
.lFlags = DDSD_CAPS　これで★1のddsCapsメンバーのみ設定を認めるということだ、他のメンバーはデフォルト値が適用される
★１のDDSCAPS2構造体、これも構造体だ、これが初心者のわかりづらいところであろう
DDSURFACEDESC2構造体のメンバーにさらに構造体が含まれているのだ、よく考えりゃなんでもない
Type DDSCAPS2
lCaps As CONST_DDSURFACECAPSFLAGS '■１ フラグ定数
lCaps2 As CONST_DDSURFACECAPS2FLAGS
lCaps3 As Long
lCaps4 As Long
End Type
これがDDSCAPS2構造体だ、結局は設定すべきメンバーのパラメーターのみやればいいだけだ
●2の.ddsCaps.lCaps = DDSCAPS_PRIMARYSURFACEを見ればわかるように、こいつはプライマリーかオフスクリーンサーフェイスか決めるのだ、他にも組み合わせられるフラグ値はあるがこれでいい
さあこれでプライマリーのためのDDSURFACEDESC2構造体はできた
●3のようにメソッドを実行する、Set PrDDSurf7 = ObjDD7.CreateSurface(ddsd1)
このメソッド自体は戻り値として完成したサーフェイスオブジェクトつまりDirectDrawSurface7オブジェクトを返す
プライマリーは簡単だろ？、DirectX7SDKの日本語HELPぐらいもってるだろな？
ああメンドクセーまた気が向いたらな

ま
ん
こ
ま
ん
こ
ま
ん
こ
ま
ん
こ
ま
ん
こ
ま
ん
こ
ま
ん
こ
ま
ん
こ
ま
ん
こ
ま
ん
こ
ま
ん
こ
ま
ん
こ
ま
ん
こ
ま
ん
こ
ま
ん
こ
ま
ん
こ
ま
ん
こ
ま
ん
こ

ま
ん
こ
ま
ん
こ
ま
ん
こ
ま
ん
こ
ま
ん
こ
ま
ん
こ
ま
ん
こ
ま
ん
こ
ま
ん
こ
ちんこ

>>897, >>901
>>889 で言ってるな。見逃してたｽﾏｿ

>>899
>>902の言うとおり、クラスに分けたほうがいいだろうな。
で、どっかで聞いたような名前だが、SetRect()なんてメソッドを用意してもいいし、
コレクションで公開してもいい

どちらにせよ、オブジェクト指向とかの最近のプログラミングメソッドは、パフォーマンスが
要求される処理などにはきつい部分がある。その辺は、トレードオフだな

ま
ん
こ
ま
ん
こ
ま
ん
こ
ま
ん
こ
ま
ん
こ
ま
ん
こ
ま
ん
こ
ま
ん
こ
ま
ん
こ
ちんかす

こ
ま
ん
こ
ま
ん
こ
ま
ん
こ
ま
ん
こ
ま
ん
こ
ま
ん
こ
ま
ん
こ
ま
ん
こ
ま
ん
こ
ま
ん
こ
ま
ん
こ
ま
ん
こ
ま
ん
こ
ま
ん
こ
ま
ん
こ
ま
ん
こ
し

ま
ん
こ
ま
ん
こ
ま
ん
こ
ま
ん
こ
ま
ん
こ
ま
ん
こ
ま
ん
こ
ま
ん
こ
ま
ん
こ
ま
ん
こ
ま
ん
こ
ま
ん
こ
ま
ん
こ
ま
ん
こ
ま
ん
こ

ま
ん
こ
ま
ん
こ
ま
ん
こ
ま
ん
こ
ま
ん
こ
ま
ん
こ
ま
ん
こ
ま
ん
こ
ま
ん
こ
ま
ん
こ
ま
ん
こ
ま
ん
こ
ま
ん
こ
ま
ん
こ
ま
ん
こ
ｋｉ

ｓａｋａｎａ］

ま
ん
こ
ま
ん
こ
ま
ん
こ
ま
ん
こ
ま
ん
こ
ま
ん
こ
ま
ん
こ
ま
ん
こ
ま
ん
こ