古代VBプログラマ質問スレ（Ver.6.0 まで） part65 [転載禁止]©2ch.net
ここは古代に使われていたVisual Basic 〜6.0 の質問スレです。
質問者は使用しているOS、VBのバージョン、サービスパックのバージョン、
「何がしたくて、どうしたけど、どう困っているのか」を明確に書きましょう。
VB.NETは別物なので専門スレで、VBA、APIの質問もそれぞれのスレで。
○ 質問者の心得
一．質問する前にMSDNやGoogle、過去ログにも目を通してみる。
二．VBScript、インストーラーなどはこのスレでＯＫ。
三．質問は第三者にもわかりやすいよう簡潔かつ具体的に。
四．荒らしは相手しない。
○ 回答者の心得
一．答えられない質問は無駄に罵倒せずスルー。無理するな。
二．代用法を強制しない。
三．回答する上で必須ではない情報をむやみに聞き返さない。
四．荒らしは相手しない。
五．VB情報募集中。
六．回答は質問者が理解できるよう具体的に。
MSDN Online Japan ホーム
http://www.microsoft.com/japan/msdn/default.asp
Visual Studio 6.0 Service Pack 6
http://msdn.microsoft.com/vstudio/downloads/updates/sp/vs6/sp6/default.aspx
Google
http://www.google.co.jp/
前スレ VBプログラマ質問スレ（Ver.6.0 まで） part64
http://peace.2ch.net/test/read.cgi/tech/1393069842/
※「まず自分で調べる」クセを身につけよう。 日本の会社はリファクタリングにお金なんて出さないから注意な リファクタリングっていうのは解析作業の一種で、
複雑になってしまったコードを解析して
その結果を反映させること。
リファクタリングに金を出さないという話であれば、
複雑になったコードを解析するのにも金を出さないって話だぞ。
そのとおりだが。
解析して、コードは修正せずに、バグと戦って、次回も解析するか、
解析して、コードを修正して、バグなく楽に修正、次回も楽になるか
の違いだ。 質問させてください。
Windows7 pro 32bitにVB6.0Professionalを入れました。
これに適用するべき、MSが配布している更新ファイルを調べてみたのですが、
Vs6sp6B.exe
VB6.0-KB290887-X86.exe(＝vbrun60sp6.exe)
VB60SP6-KB2708437-x86-JPN.msi
この3つ以外にもありますでしょうか？ 俺もそういう更新ファイルとか分からんから適当に入れた
http://pastebin.com/sSPzxYHt
リストアップしてみた（関係ないのもあるけど） お前ら教えろください
同じフォーム内にあるメソッドから〜_Clickみたいなイベントを呼び出すのってアリですか？
直感的にダメな気がするんですが、なぜダメなのか説明出来ません
どちらにしても誰か理由を説明出来る人いますか？
教えてエロい人 イベントが発生してないのにイベントハンドラが実行されたら困惑するだろう
平日にハロウィンコスプレするようなもんだ どーせイベントの内容をコピペしたメソッド作ってそっちを呼ぶんだろ？
それなら最初からイベント呼んでおけ 普通はイベントの中身をメソッドにして、両方共其のメソッドを呼ぶように作るものだな >>267
> VB屋はこれだから嫌だね
どれのこと？
わざとらしいアンチぐらい
見分けようよｗ >>261
> 同じフォーム内にあるメソッドから〜_Clickみたいなイベントを呼び出すのってアリですか？
なし
> 直感的にダメな気がするんですが、なぜダメなのか説明出来ません
その直感は正しいよ。理由はいくつか有る。
まず、一般的にフォームというのはユーザーの入力と処理を結びつけるためにある。
結びつけるだけなのでなるべくフォームに処理は書かない。
処理はフォームとは別に（ビジネスロジック用の）クラスに分離する。
このクラスはフォーム関連コードは一切ない。これにより自動テストがしやすくなる。
このように分離するので、二つのイベントハンドラから、共通のクラスのメソッドを呼び出すので
_Clickを直接呼び出すことはない。
これが大きな理由では有るんだが、クラスを使うほどじゃない場合でも
処理はprivateメソッドに書いて、内部的には処理と結びつけるコードは分離させておいたほうがいい。
それから、もう少しわかりやすい理由として、依存関係の話がある。
_Clickというのは、ボタンだったりするわけだが、そのボタンの存在に処理が依存しているのか？ということ。
通常はボタンには依存していないだろう。仮にボタンをなくしたとしても、処理の内容は変わらないだろう？
だが、_Clickを呼ぶと処理の中にそのボタンが紛れ込んでしまってるわけだ。こういうふうに
余計なものが混ざるとUIを変更した時の影響範囲が大きくなる。
どちらにも共通することは、その責任が明確に分離されていること。単一責任の原則とも言われている。
自分の担当範囲の処理だけを行うことで、それぞれの処理がシンプルになる。
絡み合わせる必要が無いものを、絡み合わせてはいけない。 >>261
お前さんの直感は正しくて基本的には良いことじゃないけど、まあ程度問題ではある。
良いことじゃない理由は、メソッドの名前と実態が乖離するから。
（ボタンがクリックされた時に呼ばれるはずのメソッドが、それ以外の時にも呼ばれることになる）
これは、「イベントハンドラが呼ばれるのはイベントが発生した時だけだ」という前提でコードを読んでいる
プログラマの期待を裏切ることになる。
程度問題なのは、そうは言っても十分短いコードなら上記の前提が正しくないことに
プログラマは気づくことができる。 せめてインターフェース継承くらい深い議題でないと盛り上がらんな VB6からVB.NETへの移植を体系的にまとめた本は有りませんか？
最悪VBではなく他の言語でも構いません
別言語への移植に関する情報が欲しいのです >>275
移植元、移植先の両言語をちゃんと理解すれば移植は簡単だろう >>275
新しくはないけど
http://www.amazon.co.jp/gp/product/4798102164/ref=s9_simh_bw_p14_d0_i1?pf_rd_m=AN1VRQENFRJN5&;pf_rd_s=merchandised-search-4&pf_rd_r=1RM0Y8MGQP2Y6H6E51H9&pf_rd_t=101&pf_rd_p=204601349&pf_rd_i=465392 👀
Rock54: Caution(BBR-MD5:60fb6bd37e268099e6257349e1247e68) windows8.1をupdateしたらIDEが使えなくなった
xp 7 10では大丈夫なのに Visual Basic 6.0 が扱えるスレッドについて質問させてください。
私はVB6.0で作られた業務アプリのユーザーです。
プログラミングはかじった程度ですが、訳あってこの周辺を調べています。
第4回 Background Workerで夢のマルチスレッドがついに！
ttp://www.atmarkit.co.jp/fdotnet/vb2005/vb2005_04/vb2005_04_01.html
を読むと、「VB6.0まではスレッドが使えなかった」と書いてあります。
Visual Basic .NET におけるコンポーネント作成の変更点
ttps://msdn.microsoft.com/ja-jp/library/cc437477(v=vs.71).aspx
を読むと、ActiveX に関してはスレッドが使える、旨の記載があります。
これは、「GUIコントロールに関してのみ」スレッドが使えるという解釈で良いのでしょうか？
よろしくお願いします。 >>282
> これは、「GUIコントロールに関してのみ」スレッドが使えるという解釈で良いのでしょうか？
主語は？
あとt抜きとかやめろ 操作ミス失礼。
>>283
「Visual Basic 6.0 でアプリケーションを組んだ場合、GUIコントロールでのみスレッドが扱える」
という理解で良いかどうか、ということになります。
逆に言えば、
「画面の無いコマンド（VB6.0で作れるかは分かりません）を作る場合、スレッドを使った処理を実装できない」
という理解で良いかどうか、ということになります。 >>286
一体何が知りたくて質問してるのかしらないが、>>282で自分で答え書いてるじゃん。
「GUIコントロールでスレッドが使える」とか意味わからんし。
・VB6ではスレッドは使えない
・VB .NET以降は使える >>287
ありがとうございました。
すみません、ActiveX.exe、ActiveX.dll が良く分からなかったので「GUIコントロール」という書き方をしてしまいました。
A Thread to Visual Basic: Multi-Threading In VB5 and VB6
http://www.freevbcode.com/ShowCode.asp?ID=1287
この文献に行き着いたので時間をかけて読んでみます。 >>288
日本語より英語の方が堪能とかじゃないなら、「VB6 ActiveX DLL」とかで検索した
日本語ページ読んだ方がいいんじゃないの？ VB6でスレッドとか変態的だからメンテの関係でやめたほうがいいんでない 素人質問で申し訳ありませんが、昨今においてWin7にVB6で組んで納品、という形態は存在するのでしょうか？ >>286
ActiveXオブジェクトはVB以外でも作成できる
VB6ではマルチスレッドはサポートされてない
(API呼び出しで無理やりやる方法もあるけど、問題になる事もある)
これが全て。GUIとか何とか関係ない
>>291
たしかに非同期で動くけど、それ別EXEだからマルチスレッドじゃなくて別プロセスじゃね >>295
やっぱそういうことですよねm(_ _)m やっと分かりました！
1. Visual Basic 6.0 で作成する「アプリケーション」ではスレッドは使えない。
2. Visual Basic 6.0 の開発環境では、「再利用可能コンポーネント」として ActiveX（≒COM）コンポーネントが作れる
このコンポーネントではスレッドが使用可能。
ただし、ActiveX は単独では動作できない。他から呼ばれる専用。
ということだったんですね…。
ありがとうございました。 >>297
つか、やりたいのは「スレッドを使う」ではなくて、非同期処理をしたいんじゃないの？
だったら、スレッドは不要。 匿名通信（Tor、i2p等）ができるファイル共有ソフトBitComet（ビットコメット）みたいな、
BitTorrentがオープンソースで開発されています
言語は何でも大丈夫だそうなので、P2P書きたい！って人居ませんか？
Covenantの作者（Lyrise）がそういう人と話したいそうなので、よろしければツイートお願いします
https://twitter.com/Lyrise_al
ちなみにオイラはCovenantの完成が待ち遠しいプログラミングできないアスペルガーｗ
The Covenant Project
概要
Covenantは、純粋P2Pのファイル共有ソフトです
目的
インターネットにおける権力による抑圧を排除することが最終的な目標です。 そのためにCovenantでは、中央に依存しない、高効率で検索能力の高いファイル共有の機能をユーザーに提供します
特徴
Covenant = Bittorrent + Abstract Network + DHT + (Search = WoT + PoW)
接続は抽象化されているので、I2P, Tor, TCP, Proxy, その他を利用可能です
DHTにはKademlia + コネクションプールを使用します
UPnPによってポートを解放することができますが、Port0でも利用可能です(接続数は少なくなります)
検索リクエスト、アップロード、ダウンロードなどのすべての通信はDHT的に分散され、特定のサーバーに依存しません
、 Dim a As Date
a = CDate("2016/5/14")
とか
a = DateSerial(2016, 5, 14)
で日付のみ入った状態に、後から時刻を設定するにはどうしたらいいでしょうか
DateAdd("s", h*3600 + m*60 + s, a)
だと、時刻を文字列に持っていた場合はちょっと面倒 >>300
こんなのでいいんだろうか
a = CDate(Format(a, "yyyy/mm/dd") & " 16:45:37") >>301
ありがとうございます
こんなのでいけてしまいました
Dim a As Date
a = CDate("2016/1/2")
a = a & " 12:34:56" Windows10 64bitで昔作ったソフトを動かしてみたところ
入力系コントロール→他コントロール (テキストボックス→その他)のフォーカス移動がものすごく遅いことに気付いたんですが
原因わかりますか？
テキストボックAに「123」と入力、入力直後にテキストボックBをクリックしても1〜2秒フォーカスが移動しない。
グリッドでも同様(同一グリッド内の別セルや別グリッド) ドラッグ＆ドロップして、パスなしのファイル名だけ取得するにはどうしたらよい？
↓だとフルパスで取得してしまう
Private Sub TextBox1_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles TextBox1.DragEnter
'ドラッグされている内容が文字列型に変換可能な場合
If e.Data.GetDataPresent(DataFormats.FileDrop) Then
'コピーを許可するようにドラッグ元に通知する
e.Effect = DragDropEffects.Copy
End If
End Sub
Private Sub TextBox1_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles TextBox1.DragDrop
'ドロップされた内容を表示する
TextBox1.Text = e.Data.GetData(DataFormats.FileDrop)(0)
End Sub >>310
フルパスからファイル名抜き出すってのじゃいかんの？ 円マークで分割して最後を取得みたいに？
最悪それでもいいんだけどVBさんならちょっとしたオプションで出来るかなと思って >>311
探しても見つからなかったから分割してやった。レスありがとう プログラム保存し忘れたんだけど復活させる方法ありますか？
ソースファイル単位では保存してます >>295
マルチスレッドと別プロセスって実際どんだけ違うものなのかな？ >>317
プロセスが別＝メモリ空間が別，別プロセスになると切り替えにコストが多く発生する プロセス単位だとリソースをいくらリークさせても終わった時点でOSが面倒見てくれる
スレッドは自分で管理しないとプロセスが生きてる限りリークし放題
Excel VBAでしょーもない再起動が必要になったりするのはそれが原因 PNGを表示するのに明熊さんのTransG32.dllを使ってる人いる？
4000ピクセル四方程度のPNGは開けたりクラッシュしたり
どういう条件だとクラッシュするのか、
PNGの幅ｘ高さの値と関係するのか調べても境界がはっきりしない
じゃあファイルのバイトサイズかなぁとログをとって気長に調べているのだけど
何か知ってる人はいますか ああそうだ、開けるPNGファイルを
メモリの少ないPCでも開けるかやってみればいいか すいません、
VB6の頃のopen文だっけ？に比べてVB.netやC#のファイル操作は遅くて
別のものを使うとVB6より速くなるみたいな
そんな記事をかなり昔みた記憶をふと思い出してググってみたのですが、その記事が見つかりませんでした。
どなたかこれの内容って覚えていませんか？ 誘導されてきました。
質問させてください。以下の現象が解決できず悩んでいます。
何か思い当たる解決方法をご存知の方がいれば、情報提供をお願いします。
■開発言語 ： VB6.0(SP6だったと思う)
■プラットフォーム ： Windows10(64bit)
■互換モード ： Windows2000
■現象 ： 「CommonDialog.ShowOpen」時にエラーが発生
■エラー内容 ：
Microsoft Visual C++ Runtime Library
Runtime Error!
Program:xxxx\xxxx.exe
abnormal program termination
Windows8.1(64bit)では問題なく動作します。
互換モードをWindows2000以外にした場合、Windows10(64bit)でも問題なく動作します。
コモンダイアログはファイルを開く目的で実装しており、エラーが発生してもダイアログ自体は表示されます。
エラーを無視すればファイルの選択を行うことも可能で後続の処理も問題なく動作します。
以下のことは試したのですが、効果がありませんでした。
・「VB6Runtime」の最新化
・正常に動作する環境(Win8.1等)の「COMDLG32.OCX」を適用
・「VC++Runtime 2005〜2015」のインストール
以上、よろしくお願いします。 >>324
件のプロセスをキックする親プロセスがいるのですが、
親プロセスがWindows2000互換で動作しているため、引きずられてWindows2000互換で動作してしまいます。
親プロセスの互換モードを変えれば、エラーは発生しないのですが、この親プロセスからは
他に300近いプロセスをキックしているため、変更した互換モードで他のプロセスの動作検証を行う必要が出てきます。
それは避けたいため、Windows2000互換のままでも解決できる方法を探している状況です。 子プロセスの互換モードって絶対親と同じじゃないとダメなんだっけ？
互換性データベースとかいじれば何とかならんのかな >>323
本件については、質問してから時間が経ってしまったこともあり
工期の問題もあったため、2003SV互換ですべて検証し直しました。
Win7(64bit)なんかではWScript.Runで呼び出すことで子プロセスに設定された互換モードで動かせていたみたいです。
Win10ではそれも効かなくなっているみたいですが。
>>326
色々調べた中で互換性データベースについては初めて目にしました。調べてみます。 整数型はLongを扱うプロパティが大部分なのとループも4バイト整数が効率的なはずなのに、
他人の書いたコードは大部分がIntegerです。この型を選ぶ理由を教えてください。 >>328
大昔のBASICにlong型がなかったから
当時の人材が今でも活躍してるんで。 コモンダイアログは使っちゃだめだよね
将来的に使えなくなる可能性があるからAPIで書いておかないと
という話の「将来」が今田 将来的にVBは産廃になるから移行しやすいようにレイヤー分割しとけよ
という話が教会に異端認定されて迫害されたから今苦労してるんだよね 質問させてください。
VB初心者です。（普段はもっと古代言語を使用しています）
環境：windows7,office2010,vb6,activereports2.0j
VBのフォームにOLEを配置してEXCELを表示し、
ボタンを押すと、doverbメソッドが実行されてそのEXCELを編集出来るというプログラムがあります。
開発環境では問題無く動いたのですが、
実行環境で編集ボタンを押すと、押した時にはEXCELがアクティブになるのですが、
すぐにフォームのほうがアクティブになってしまい、EXCELを編集出来ません。
何度EXCELのほうにマウスを当てても戻ってしまいます。
環境かな？と思うのですが、何が原因なのか検討もつきません。
どなたか、何か思いつくことがあれば教えていただけないでしょうか？
よろしくお願いします。 timerイベントで以下の処理を行っているのが原因でした。
If Me.Enabled = True Then
Me.SetFocus
End If
根本的な原因では無さそうな気がしますが、
特に問題もないようなのでこの処理を削除しました。 XPか7以降だったか
プロセスやスレッド間をまたがるフォーカス移動の挙動は仕様が変わってるから
SetFocusだけでは意図通り動かないと思う
説明がめんどくさいので解決したならいいけど まだVB.NETスレとパート数20くらい差があるのはすごい VBで困ったときにネット検索しても余り出てこなくなったんだよ パーツをペタペタ貼れるVB系は6.0しかないの？
．netでもそれさえあれば移行するのに。 Win7で普通に組めるのは良いが配置したコントロール類を一括ドラッグ、位置調整するのが辛いな >>340
.netでも、ふつうにパーツペタペタ出来る >>342
マジで？
そういうツールが売ってるの？ >>343
パーツがボタンやラベルのことならば標準機能で貼れる
お試し版あるからダウンロードして試したらヨカ Microsoft Team Explorer for Visual Studio 2013のMicrosoft Visual Basic 2013を使ってみたのですけど、コントロールを貼り付けられるようには出来てないような？
VB6でいうところのオブジェクトを表示する事が出来ませんよね？ 新規プロジェクトで
Windowsフォームアプリケーション選び
form1.vb選択して、右クリック
ビューデザイナー開いておいて
左側のツールボックス開いたらコントロール群あるから
選んで貼り付け ファイルリストボックスって
なまじっか英数字のファイル名だとソートしてるから、そのまま使えると思ってたら
漢字は中途半端なソートするね もう今年で20年だろw
まだ使ってる人いるのかw
いい加減成仏させてやれよw >>347
おぉぉ出来ました、ありがとうございます、ありがとうございます。 >>346
色々あってよく分からなかったのですが、もしかしてこれは.netでは無いとか？ >>351
2013のvb.net
2015と2017もある >>351
だからお前のような馬鹿は1回死んで出直せ 
