VBプログラマ質問スレ（6.0以前） Part46
■ このスレッドは過去ログ倉庫に格納されています
0001デフォルトの名無しさん
2006/02/03(金) 22:58:330022デフォルトの名無しさん
2006/02/04(土) 05:53:19つ Spy++
0023デフォルトの名無しさん
2006/02/04(土) 05:56:23vistaでvb6のアプリは動くのかい？
cとかjavaも画面がないやつなら書いたことあるけど、
画面があるアプリつくるのにvb6からシフトするならどの言語がお勧め？
0024デフォルトの名無しさん
2006/02/04(土) 06:35:20行くぞ彰ホームラン！センターオーバーホームラン！
弾丸ライナーだ！飛ばせ！運べ！彰！
俺が考えた歌詞ですよ！
弾丸ライナーだ！の後に「ヘイ！」とか「おい！」って掛け声を入れてスタンドでジャンプするの
とかいれると面白いかもしれない。
0025デフォルトの名無しさん
2006/02/04(土) 06:47:54これはボケ・・・なのか？
>>23
言語の問題じゃないでしょそれは。
0026デフォルトの名無しさん
2006/02/04(土) 07:13:40Dim a As Date
Dim b As Date
a = CDate("18:30:00")
b = CDate("18:15:00")
b = CDate(DateAdd("n", 15, b))
If a = b Then
Call MsgBox("OK")
Else
Call MsgBox("NG")
End If
上のを動かすとOKにならないんだけど、うちの環境だけなのかな？
OS:WinXPSP2
0027デフォルトの名無しさん
2006/02/04(土) 07:40:56ＶＢ６はＸＰでは動作保証されてないよ。
で、日付の比較は DateDiff。
0028デフォルトの名無しさん
2006/02/04(土) 09:00:51002926
2006/02/04(土) 09:18:58にするとOKになるんで今までDateDiff関数なんか使ったことないです。
DateAdd関数使うとミリ秒の誤差が発生するってことですよね？
0030デフォルトの名無しさん
2006/02/04(土) 09:40:59全然違うが。
0031デフォルトの名無しさん
2006/02/04(土) 09:51:410032デフォルトの名無しさん
2006/02/04(土) 14:00:30それほんと？
>>29
確かに同じ日付（時刻）どうしを引き算すると値があることがあるわけだけど、
そういう引き算に何か意味があるのかといえば、無いのではないかと思われる。
やはり日付操作はそれ専用の関数を使わないといけないということだけなのでしょう。
003332
2006/02/04(土) 14:08:272 つの日付型の式を含む除算は倍精度浮動小数点数型が返ってくるとある。
日付型が返ってくるわけではないのでおよそ意味不明なことになるけど
不具合でもなくて仕様どおりですね。
因みに、日付型とその他のデータ型を含む除算は日付型を返すと言っている。
0035デフォルトの名無しさん
2006/02/04(土) 14:34:51VBの日付型は1分を1/1440の小数であらわすので微妙な誤差が出る。
それからDateAddの日本語版のマニュアルの記述に誤りがある。本当は次のとおり
Returns a Variant of subtype Date.
そなもんで b = CDate(CStr(DateAdd("n", 15, b))) と書けばOKが戻るはず。
0036デフォルトの名無しさん
2006/02/04(土) 15:00:290037デフォルトの名無しさん
2006/02/04(土) 15:08:42普通に考えて、開発環境より後に世に出たＯＳ上で、その開発環境がまともに動く訳がない。
ttp://www5.airnet.ne.jp/init/vb/level1/level1001.html
こんなサイトもある。
で、日付型に「=」を使う事自体がそもそも間違い。ＶＢだしエラーにはならないけど、結果は不定。
日付型専用の DateDiff がわざわざちゃんと用意されてるんだから。
0038デフォルトの名無しさん
2006/02/04(土) 15:09:050039デフォルトの名無しさん
2006/02/04(土) 15:09:34DateDiff 使えばいいだけの話なので、ややこしくも何ともない。
0040デフォルトの名無しさん
2006/02/04(土) 15:22:25tabで補完してくれる分には嬉しいけど、複数の候補が有る場合に一番使わないのに確定しちゃうのはちょっとなぁ・・・
0041デフォルトの名無しさん
2006/02/04(土) 15:22:290042デフォルトの名無しさん
2006/02/04(土) 15:41:26上の例だと1.11E-16だけ誤差があるようで、DateDiff使うのがやっぱり無難でしょう。
Date型の内部表現やDoubleとの互換性はマニュアルにも明記してあるんだから、
それを意識して使うなら問題はない。
0043デフォルトの名無しさん
2006/02/04(土) 16:22:45いや「無難」じゃなく、それしか方法はなく、それだけが正しいのだが。
0044haha
2006/02/04(土) 16:33:36OLEDragDrop イベントを使うらしいのですがなんだかよくわかりません。
まずファイルのパスを取得して、ロードで読み込みをするんでしょうか？
でもドロップファイルのパスの取得のやり方もわかりませんし…。
どのようにして実現させるのでしょうか？ どなたか教えてください。
0045デフォルトの名無しさん
2006/02/04(土) 16:35:32とりあえずOLEDropModeを自動に設定
OLEDragDrop()イベントで引数DataのFilesコレクションの中身を列挙するForEach文を書く
で、ファイルをD&D
かもしれない
0046デフォルトの名無しさん
2006/02/04(土) 17:03:160047デフォルトの名無しさん
2006/02/04(土) 17:15:52つＭＳＤＮヘルプ
0048デフォルトの名無しさん
2006/02/04(土) 17:23:15ありがとう
ぐぐってみます
0049デフォルトの名無しさん
2006/02/04(土) 17:24:580050デフォルトの名無しさん
2006/02/04(土) 17:27:53BitBltはDCからDCにビットマップを転写するAPI
画像読み込む云々は全く関係ない・・
0051デフォルトの名無しさん
2006/02/04(土) 17:55:40ありがとう
でもこのサイトにはスピードがあるって書いてあるよ
ttp://www005.upp.so-net.ne.jp/h-masuda/vb6/vb6api/vb6api04.html
API自体が速いってこと？
0052デフォルトの名無しさん
2006/02/04(土) 18:03:29For Each bj In f1.Files
こうすると、「Function または変数が必要です」となります。どうしてですか？
0053デフォルトの名無しさん
2006/02/04(土) 18:05:10PaintPicture()メソッドはVBの内部と癒着しまくって動いているから(描写以外にも何かしてるはず)
基本的に低速
BitBltはその辺GDI直だから結構早い
それでも遅いときはDIB系のAPIつかう
まだ早くしたいときはDirectXか？
0054デフォルトの名無しさん
2006/02/04(土) 18:06:12多分しないとマトモに動かないから
0055デフォルトの名無しさん
2006/02/04(土) 18:06:54とりあえず msgbox Typeof(fk.getfolder("c:")) の値を見せなさい。
0056デフォルトの名無しさん
2006/02/04(土) 18:07:420057デフォルトの名無しさん
2006/02/04(土) 18:08:09↑これなんてキャラ？
0058デフォルトの名無しさん
2006/02/04(土) 18:09:03わかった
どうも親切にありがとう
0059デフォルトの名無しさん
2006/02/04(土) 18:19:06ループの中でFolderでした。bjはファイルにならないのかな？
0060デフォルトの名無しさん
2006/02/04(土) 18:24:25じゃこれだ：
http://www.interq.or.jp/student/exeal/dss/ref/wsh/scripting/folder.html
0061デフォルトの名無しさん
2006/02/04(土) 18:25:41f1 と fk とbj の宣言部分は？
0062デフォルトの名無しさん
2006/02/04(土) 18:27:47とりあえずさ、例外を再現できるコード(vbsファイルにコピペすれば大体動くような)を提示してくんない？
なぞなぞやってるわけじゃないんだから
006359
2006/02/04(土) 18:36:45006426
2006/02/04(土) 18:45:12納得出来ました、ありがとう。
>37
専用関数使えば良いだけなんだろうけど
文字列の比較もStrComp関数で…とか屁理屈考えちゃいました。
0065デフォルトの名無しさん
2006/02/04(土) 18:47:18あと、文字列→日付にCDate()使ってるみたいだけど
あれはWindowsの設定によって解釈変わっちゃう可能性あるから、
DateSerial()+TimeSerial()で作った方が安全だと思うぞ
0066デフォルトの名無しさん
2006/02/04(土) 18:49:450067デフォルトの名無しさん
2006/02/04(土) 18:50:32VB6と被ってる関数/クラスならいいんでね？
俺は
0068デフォルトの名無しさん
2006/02/04(土) 18:54:39何がどう駄目でどの様に解決したのか全然分からん。
0069デフォルトの名無しさん
2006/02/04(土) 18:56:42ttp://ttsearch.net/s.cgi?k=Excel+VBA&o=r
0070デフォルトの名無しさん
2006/02/04(土) 19:00:32Sub UHA()
S = "Select qq.* From kimo.txt qq"
c = "ODBC;DSN=Text Files;DefaultDir=C:\www"
With Sheets(2).QueryTables.Add(Connection:=c, Destination:=Range("a1"), Sql:=S)
.Refresh
End With
End Sub
のあと、シート２のソートが正常に動作してくれません
0071デフォルトの名無しさん
2006/02/04(土) 19:04:38非表示のPictureBoxに絵を読み込んで他に転写する方法っていかにもVBっぽいよな
0072デフォルトの名無しさん
2006/02/04(土) 19:04:560073デフォルトの名無しさん
2006/02/04(土) 19:12:45突っ込むのはビューだからかもなー
よく分からん
orderbyでソートしたら？
>>71
たすかに
CreateCompatibleDC/Bitmap使ってとかは面倒なんだろ
0074デフォルトの名無しさん
2006/02/04(土) 19:25:35解説をお願いします。突っ込む ビュー のあたりが初耳です
0075デフォルトの名無しさん
2006/02/04(土) 22:32:12との事なんで質問させていただきます。
Excel2002 + MySQL
VBAからテーブルのバックアップを取ろうと思って以下の処理を書いて
見たんですが、バックアップファイルが出来ません。
Dim shell_str As String
Dim ret
shell_str = "mysqldump database table1 -u root -phogehoge > D:/Data/SQL/table1.sql"
ret = Shell(shell_str, vbMinimizedNoFocus)
これをバッチファイル（例えばbkup.bat）にして
ret = shell("c:\temp\bkup.bat",vbMinimizedNoFocus)
で正常に走る事は確認しているんですけど、出来たらちょこまかしたバッチ
ファイルは作らずにVBA上からやりたいと思っています。どういう風にすれば
よろしいんでしょうか。
0076デフォルトの名無しさん
2006/02/04(土) 22:53:32shell _str = "cmd /c""mysqldump database table1 -u root -phogehoge > D:/Data/SQL/table1.sql"""
0077デフォルトの名無しさん
2006/02/04(土) 23:03:33おおお〜！即レス有難うございますm(__)m。
なるほど、そういう風に書くんですね！
実行してみたら出来ました。有難うです。
0078デフォルトの名無しさん
2006/02/04(土) 23:21:09どなたかご親切な方いましたら
post methodの使い方をご教授願います。
ブラウザーを介さず直接サーバーに情報を送信したいのです。
0079デフォルトの名無しさん
2006/02/04(土) 23:22:42ほらよﾉｼ[RFC]
http://www.ietf.org/rfc/rfc2616.txt
0080デフォルトの名無しさん
2006/02/04(土) 23:27:20レスありがとう
大変参考になりましたといいたいところですが
敷居が高すぎますorz
出来ましたら、易しめなのを希望します。
0081デフォルトの名無しさん
2006/02/04(土) 23:29:12オマエ鬼だな．．．
>>78
ご教授って書かなかったら教えたのにな
ヒント：X○○H○○○R○○○e○○
0082デフォルトの名無しさん
2006/02/04(土) 23:30:580083デフォルトの名無しさん
2006/02/04(土) 23:31:30telnet o www.google.co.jp 80
POST (ry
0084デフォルトの名無しさん
2006/02/04(土) 23:33:25WinSockだとSSLがじゃましないか？
008580
2006/02/04(土) 23:45:11サンクス昔調べたサイトのこと思い出せた。
XMLHTTPRequest
http://x7net.com/~access/AcTipsVbaXMLHTTP.html
＞＞ご教授って書かなかったら教えたのにな
もう少しpost methodの使い方について教えて下さい？
>>83
レスありがとう
>>84が言うとおり処理が複雑そうになるのは気のせいですか？
0086８３
2006/02/04(土) 23:48:21WinSockだと何か弊害が…？
とりあえずセキュアなサイトは訪れるのが面倒になるが
008780
2006/02/05(日) 00:00:12いいえそんなことはないと思うのですが
別な掲示板でWinInetのほうが初心者は使いやすいと読んだことがあります。
0088デフォルトの名無しさん
2006/02/05(日) 00:01:270089デフォルトの名無しさん
2006/02/05(日) 00:04:400090デフォルトの名無しさん
2006/02/05(日) 00:09:330091デフォルトの名無しさん
2006/02/05(日) 00:10:37そんなことせんでもUserControlのAsyncReadメソッドで
0092デフォルトの名無しさん
2006/02/05(日) 00:15:090093デフォルトの名無しさん
2006/02/05(日) 00:17:570094デフォルトの名無しさん
2006/02/05(日) 00:24:20つＭＳＤＮヘルプ
0095デフォルトの名無しさん
2006/02/05(日) 01:28:140096デフォルトの名無しさん
2006/02/05(日) 01:49:35なんだ根拠なしに言ったのか。
sp6のサポートOSにちゃんとXPも載ってるじゃねえか。
ttp://www.microsoft.com/downloads/details.aspx?FamilyID=a8494edb-2e89-4676-a16a-5c5477cb9713&DisplayLang=ja
ところでVB6からVB2005への移行を検討するスレってどこかにない？
0097デフォルトの名無しさん
2006/02/05(日) 01:53:25おまいは実行環境と開発環境の区別もないのか・・・
0098デフォルトの名無しさん
2006/02/05(日) 01:54:28非常に懐かしいが経験ある。
0099デフォルトの名無しさん
2006/02/05(日) 01:55:34ランタイムじゃないよ。97が間違えてるのでは？
0100デフォルトの名無しさん
2006/02/05(日) 01:56:200101デフォルトの名無しさん
2006/02/05(日) 01:57:15経験？
0102デフォルトの名無しさん
2006/02/05(日) 02:01:25DBから文字列で格納された日付をひろって、
cdateで日付に変換していたらで一部PCでだけ不具合が出たなーという
苦い経験
0103デフォルトの名無しさん
2006/02/05(日) 02:03:01ぁあなるほど・・・そういえば時々掲示板に上がってくるなぁ、そういうの
0104デフォルトの名無しさん
2006/02/05(日) 02:39:23http://www.tt.rim.or.jp/~rudyard/torii009.html
0105デフォルトの名無しさん
2006/02/05(日) 05:06:520106デフォルトの名無しさん
2006/02/05(日) 10:00:41VB2005弄ってみました。
で、いきなり躓きました。
コントロール（チェックボックスとか）を配列にするにはどーしたらエエんでしょう？
以前は、コピペで勝手に配列型にしてくれてたんですが。
0107デフォルトの名無しさん
2006/02/05(日) 10:16:090108デフォルトの名無しさん
2006/02/05(日) 11:06:50スレタイを二百回読んでごらん
0109デフォルトの名無しさん
2006/02/05(日) 11:35:43サーバから直接、特定のサイトにユーザー名、パスワードを送信して
ログインしたいのですが
まずはじめに何から取り掛かれば良いでしょうか？
エクセルのＶＢＡで解決したいと考えています
おねがいします。
0110デフォルトの名無しさん
2006/02/05(日) 11:38:04質問があいまいです
0111デフォルトの名無しさん
2006/02/05(日) 11:43:33とりあえず校庭十周
0112デフォルトの名無しさん
2006/02/05(日) 11:45:3940過ぎのおっさんだったらカワイソウだぞｗ
0113デフォルトの名無しさん
2006/02/05(日) 11:47:140114デフォルトの名無しさん
2006/02/05(日) 11:49:42素人なら
WinInetでも使っとけｗ
0115デフォルトの名無しさん
2006/02/05(日) 12:48:520116デフォルトの名無しさん
2006/02/05(日) 12:49:07とりあえず何のプロトコルかわからんからそっから調べて来い
0117109
2006/02/05(日) 14:05:05素人はWinInetを使えとありますので
本を見ながらユーザーフォームに追加してみました
下記の
name="koza1"
name="koza2"
name="passwd"
にデータを送信したいです。
ＧＥＴでデータを取得すると文字化けしたので
ＷＥＢ上のソースを貼り付けました。
https://trade.kabu.livedoor.com/Login/0/imode/login_h
ライブドア証券携帯サイト
<!--画面専用のソースの挿入-->
<FORM action="/IMode/00000000/imode/login_e" method="POST">
<P> 部店コード <BR>
<INPUT type="text" name="koza1" maxlength="3" size="3" istyle="4" value="">
<BR>
口座番号 <BR>
<INPUT type="text" name="koza2" maxlength="7" size="6" istyle="4" value="">
<BR>
パスワード <BR>
<INPUT type="PASSWORD" name="passwd" maxlength="10" size="10" istyle="4" value="">
<BR>
<center>
<INPUT TYPE="submit" VALUE="ﾛｸﾞｲﾝ" accesskey="1">
</center>
</FORM>
0119デフォルトの名無しさん
2006/02/05(日) 14:14:08未だにＭＳの「サポートしてます」を信じる奴が居るとは・・・
実際に数々の不具合が出てる訳だが。
まぁ別にやりたいならインストール＆開発＆配布すればいいよ。
>>107
速さはハードウェアで解決する時代。
>>109
ＴＣＰ／ＩＰの勉強。
0120デフォルトの名無しさん
2006/02/05(日) 14:18:200121デフォルトの名無しさん
2006/02/05(日) 14:20:48今の時代、全て突っ込んだアプリケーションはそうそうない
■ このスレッドは過去ログ倉庫に格納されています