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

936 ：デフォルトの名無しさん：03/06/09 10:16

>>902 >>903
どうもありがとうございます。
コールバック関数はどのように使えばよいでしょうか？

>>783
VBだけでどんなプログラムも作れるからVBで設計しよう、というと
馬鹿にされるどころか嫌われるよ。とくにエンタープライズ系では。

オブジェクト指向言語でやっているところをアセンブラでやれ、と押し付けられちゃたまらんからね。

関数のアドレスセットして、呼び出されるの待つだけ。

939 ：デフォルトの名無しさん：03/06/09 11:18

すいません、新すれのほうに書き込んでしまいました。

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

ファイル変更をフックしようと思い
ReadDirectoryChangesW API を調べているのですが
なかなか VB でのサンプルが見つかりません。
もしVBで組んだことある方がいましたら
多少の手解きお願いできませんでしょうか？

940 ：_：03/06/09 11:26

http://yomi.kakiko.com/hiroyuki/jaz_b01.html

941 ：デフォルトの名無しさん：03/06/09 11:29

>>935
ありがとう。
よく考えたら、(2)の方もVariantにする必然性がないですね。
個別の型指定(String()、Long()等々)で問題なく動作しました。
配列を返すと最初から決まってるなら、Variantにしない方がいいみたい。

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

つうことで、sage

942 ：デフォルトの名無しさん：03/06/09 13:26

厨な質問ですいません。

datagridオブジェクトは、貼り付けたフォームがロードされたとき、
1行分しか見えてませんよね。それを初期状態だとすると、
いったん何かデータを読み込んだものを、もう一度その状態に
戻すことは出来るのでしょうか？

943 ：デフォルトの名無しさん：03/06/09 14:57

GetMetaFileBitsEx で lpvData に Null 又は 0 を指定しとるのだが
データを格納するために必要なバイト数というのが取得できん
予め大きなサイズを割り当てれば関数自体は成功するが後味悪い
やり方教えてくれ

944 ：直リン：03/06/09 15:13

http://homepage.mac.com/yuuka20/

945 ：デフォルトの名無しさん：03/06/09 15:28

質問です。

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

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

.　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

946 ：デフォルトの名無しさん：03/06/09 16:02

DoEvents を全部コメントアウトしてやったらどう？

947 ：デフォルトの名無しさん：03/06/09 16:05

>>931
(・∀・)ｲｲ!!
http://www.int21.co.jp/pcdn/vb/noriolib/vbmag/9802/winsock/

948 ：デフォルトの名無しさん：03/06/09 16:06

>>946

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

.　　.Execute , "CD ********"
.　　Do While .StillExecuting = True
.　　　　' DoEvents　 'コメントにする
.　　Loop
.
.　　.Execute , "PUT index.html index.html"
.　　Do While .StillExecuting = True
.　　　　' DoEvents 　 'コメントにする
.　　Loop

949 ：デフォルトの名無しさん：03/06/09 16:52

次スレ立てました。
http://pc2.2ch.net/test/read.cgi/tech/1055145106/l50

950 ：デフォルトの名無しさん：03/06/09 16:53

950!

951 ：デフォルトの名無しさん：03/06/09 18:21

>>945
ファイルを転送するごとにログインしなおしとかしてない？

952 ：デフォルトの名無しさん：03/06/09 18:30

>>945
マルチスレッドにして５つくらい一気に平行してUPするようにしたらどうよ？

953 ：デフォルトの名無しさん：03/06/09 18:35

>>946
あんまり意味ないと思われ。むしろCPU使用率が増えて逆に遅くなる可能性も。

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

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

でも遅い原因は他にあると思われる。

954 ：デフォルトの名無しさん：03/06/09 18:36

>>952
FTPサーバーにマルチでログインするつもりか？

955 ：デフォルトの名無しさん：03/06/09 20:55

あまり有効なのはないのでしょうか？

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

956 ：デフォルトの名無しさん：03/06/09 21:19

>>955
余計な処理が入っているからでしょう。

957 ：デフォルトの名無しさん：03/06/09 21:23

遅いって転送し始めるまで時間がかかるの？それとも転送速度が遅いの？

958 ：デフォルトの名無しさん：03/06/09 21:27

>>957

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

959 ：デフォルトの名無しさん：03/06/09 21:28

ねむくなるスレだ