VBプログラマ質問スレ（6.0以前） Part46
■ このスレッドは過去ログ倉庫に格納されています
0001デフォルトの名無しさん
2006/02/03(金) 22:58:330266デフォルトの名無しさん
2006/02/07(火) 16:30:16自分の仕事にプライドもってほしいよ
地位だの金だの忙しさだのは別問題
0267デフォルトの名無しさん
2006/02/07(火) 16:40:07きちんとした仕事をしてから、そのせりふをほざけ。
0268227
2006/02/07(火) 16:47:45dim rData as String * 100
dim rLen as long
dim dLen as long
dLen = 100
dummy = ReadFile(hComm, ByVal rData, dLen, rLen, 0)
としたところWriteFileしなくてもReadFileの戻り値が1になりました。
そしてデータを受信するとVBごと落ちてしまいました。
また一歩前進しましたﾜｰｲヽ(ﾟ∀ﾟ)メ(ﾟ∀ﾟ)メ(ﾟ∀ﾟ)ノﾜｰｲ
0269デフォルトの名無しさん
2006/02/07(火) 16:50:06他人の警告も聞けないなら、ここじゃ有効な回答得られないってことでどっかいけ。
0270デフォルトの名無しさん
2006/02/07(火) 16:52:39頭のおかしい人を相手にしてはいけません。相手の思うつぼです。
それともジサクジエンですか？
0271デフォルトの名無しさん
2006/02/07(火) 17:26:00どんどん後退してる様にしか見えないが。
0272デフォルトの名無しさん
2006/02/07(火) 17:35:31死ね
0273デフォルトの名無しさん
2006/02/07(火) 17:36:26これって当たり前？最深フォルダの名前を取得してんだけど、そこで作ると一つ手前に出来てんだよな
0274デフォルトの名無しさん
2006/02/07(火) 17:45:03例えば、"最近使ったファイル"というメニューがあります。
MSDNを見るとコントロール配列を使うみたいなんですが、
記載されていた方法が、まずメニューエディタで一つずつ作成し、非表示にし、インデックス値を設定するとの事です。
この場合、こういった方法しか無いのでしょうか。
実行時にメニューを生成できないものでしょうか。
皆様のお知恵を拝借させてください。
0275デフォルトの名無しさん
2006/02/07(火) 18:13:17プログラムは、糸色文寸に書いた通りにしか動きません。
もしそうなるならば、そうなるコードを貴方が書いている、って事。
現象が再現する最小限のＶＢを起動して貼り付けるだけですぐ実行出来るコードを示せと何度（ｒｙ
0276デフォルトの名無しさん
2006/02/07(火) 18:14:35Load すりゃいいんじゃね？
0277227
2006/02/07(火) 18:21:14dim ret as long
dim er as long
dim gcom as COMSTAT
ret = ClearCommError(hComm, er, gcom)
if gcom.fDsrHold > 0 then
dim rdata as string
dim dlen as long
dim rlen as long
dlen = gcom.fSdrHold
rdata = space(dlen)
dummy = ReadFile(hComm, byval rdata, dlen, rlen , 0)
end if
問題はfDsrHoldが何者かということですが・・・・
0278デフォルトの名無しさん
2006/02/07(火) 18:25:20死ね
0279273
2006/02/07(火) 18:25:53ごめん
Sub kn(ByVal oFo As Object)
For Each oF In oFo.SubFolders
Call kn(oF)
o1 = oF & "001"
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.CreateFolder(o1)
Set f = Nothing:Set fs = Nothing
Cells(ic, 1) = oF.Path: ic = ic + 1
Next oF
0280227
2006/02/07(火) 18:39:17ネットから拾ってきたものではなく
APIビュアーからコピーしたらcbInQueがfSdrHoldの値でした。
これなら意味もばっちりあっています。
では嫌われもののわたしめはこれにて失礼いたします。
0281デフォルトの名無しさん
2006/02/07(火) 18:44:59日記はチラシの裏。
0282デフォルトの名無しさん
2006/02/07(火) 18:46:05２回以上死ね。
0283デフォルトの名無しさん
2006/02/07(火) 19:58:42もちろんMSCommもね。
0284デフォルトの名無しさん
2006/02/07(火) 21:17:09ActiveXをラップしてもらって使うのはいまいちだよ。
まあ、屑な彼にはお似合いだと思うけどね。
こねくり回した挙句に作り直しになるに一票。
0285デフォルトの名無しさん
2006/02/07(火) 21:18:41イマイチってどの辺が？
実際使ってから物いってるかなw
0286デフォルトの名無しさん
2006/02/07(火) 22:06:05っつーか、まともに動作するブツは作れないと思う。
0287デフォルトの名無しさん
2006/02/07(火) 22:15:44OnAmbientPropertyをVBで実装って具体的にどうやるんだろうか。。。
誰か分かる人いたらおせーてくれ
0288デフォルトの名無しさん
2006/02/07(火) 22:43:33ラップするクラス作ってる時点で性能面で難が出る。
.netなのに、ActiveXのインストールが必要な時点でメリットがほとんどすっ飛ぶ。
0289デフォルトの名無しさん
2006/02/07(火) 22:44:210290デフォルトの名無しさん
2006/02/07(火) 22:47:010291デフォルトの名無しさん
2006/02/07(火) 22:49:55よくわからんデメリットだなw
体裁を気にするガキが自作のソフト配るわけでもあるまいし。
あのねえ、プロパティやメソッドに一回アクセスするのにnSオーダーの
オーバーヘッドが出るのがそんなに性能面で問題あるのかいw
0292227
2006/02/07(火) 22:50:23っていってocx使ってたらぬっころされますｗ
0293デフォルトの名無しさん
2006/02/07(火) 22:56:37.netで代替できる手段があるのに、わざわざレガシー使うほうがおかしい。
それに、体裁じゃないよ。
構造をシンプルにすることも、後のメンテナンス性には重要。
あんたは何時までActiveXを引っ張るんだい？
それに、MSCOMMって.netにはついてないよね。
もしそれ込みで開発・再配布するなら、VB6などMSXOMMが付いている開発環境も必要。
0294デフォルトの名無しさん
2006/02/07(火) 22:59:20再配布可能
というか.NETでMSCOMMと同等の処理をするにはどのクラスを使えばいいんですか？
0295デフォルトの名無しさん
2006/02/07(火) 23:04:262005なら今日の流れの中で出てる。
2003ならぐぐれば出てくる。
0296デフォルトの名無しさん
2006/02/07(火) 23:06:31>>260
0297デフォルトの名無しさん
2006/02/07(火) 23:06:33スレの文脈を無視するわけ？
>>227の彼の話をしているわけね。
227はVB6持ってないってかw
ついでにCOMは現役だし、.netにMSCommの代替手段などないよ。
Win32とか文脈無視した寝ぼけたこと言わないでくれよ。
0298デフォルトの名無しさん
2006/02/07(火) 23:09:42それこそCOM以前の問題だよ
何考えてるの>>295？
0299デフォルトの名無しさん
2006/02/07(火) 23:11:11普通に仕事で使うけど。次の開発2005だし。
あんたがいまだにVB6とかActiveXに固執してるロートルなだけ。
0300デフォルトの名無しさん
2006/02/07(火) 23:12:53物凄く怖いな
0301デフォルトの名無しさん
2006/02/07(火) 23:15:27.netは普通に安定してるし。
VBって言語限定があるなら、どっちのリスクも大差ねーよ。
単に自分が着いていけないだけなのに、もっともらしく理屈つけてるんじゃないの？ｗ
0302227
2006/02/07(火) 23:16:49VB6.0のocxをそのまま利用するのでしょうか？
例えばソースも納品するとしたらどうしますか？
開発環境にはVB6.0も入れてくださいね！とか言うのでしょうか・・・
0303デフォルトの名無しさん
2006/02/07(火) 23:17:10いや.net2003は使ってる
しかし.net2005なんてまだまだ怖いとおもってるんだが・・
System.IO.File.Createだったか？のバグどーなってる？
0304デフォルトの名無しさん
2006/02/07(火) 23:17:13馬鹿じゃないの。
0305デフォルトの名無しさん
2006/02/07(火) 23:18:26新しいのを使うより枯れた方を使うのが普通
0306テンプレよめ
2006/02/07(火) 23:19:47質問者は使用しているOS、VBのバージョン、サービスパックのバージョン、
「何がしたくて、どうしたけど、どう困っているのか」を明確に書きましょう。
前スレ >>3
VB.NETは別物なので専門スレで、
VBS、APIの質問もそれぞれのスレで。
VBAは、Officeアプリの操作以外ならばこのスレで質問しても大丈夫です。
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
http://www.google.co.jp/
※「まず自分で調べる」クセを身につけよう。
0307デフォルトの名無しさん
2006/02/07(火) 23:19:47仕事の仕方は上司に聞け。
お客様からの依頼というか、仕様、用件はお客様に聞け。
なんつうか、典型的な出来ない奴だな。
近くにいたら絶対ぶっ飛ばしてる。
仕事請けてから聞くことか？
ソースはどうする、移植時にOCXの使用有無なんて、そんなの要求定義、用件定義の段階だろ？
0308デフォルトの名無しさん
2006/02/07(火) 23:19:52ちゃんと参照設定してやってれば
デプロイメントプロジェクト（早い話がインストーラ）で
普通にCOMをちゃんとインストールしてくれるようなインストーラが作れるよ。
つまりVB6までと何もかわらん。
0309デフォルトの名無しさん
2006/02/07(火) 23:20:20枯れたと終わったは違いますよ。
0310デフォルトの名無しさん
2006/02/07(火) 23:21:460312デフォルトの名無しさん
2006/02/07(火) 23:25:43客に導入先に対して何をインストールしてよいのかとか、条件を聞くのが普通。
あんた、いい加減うせろ。すれ違いだし、散々喚き散らすだけだし。
0313デフォルトの名無しさん
2006/02/07(火) 23:28:55いや、そりゃ俺の世界が下衆なだけかもしれんけどね。
0314デフォルトの名無しさん
2006/02/07(火) 23:30:49そんなこと出来ないとか考えが及ばないから、
あなたの周りがそういう世界になってるんじゃないのか？
客は教育するもの。
0315デフォルトの名無しさん
2006/02/07(火) 23:32:20ところでSystem.IO.File.Createのバグって何？
0316デフォルトの名無しさん
2006/02/07(火) 23:34:320317デフォルトの名無しさん
2006/02/07(火) 23:34:36説明責任があるとは思えんが。。
0318デフォルトの名無しさん
2006/02/07(火) 23:36:57なんとなくDLLHellが・・・
かといって過去と完全に決別できたわけじゃないし
.NETの出現で現状はより混沌になったと言うべきか・・？
0319デフォルトの名無しさん
2006/02/07(火) 23:37:16十分実害じゃん。
0320デフォルトの名無しさん
2006/02/07(火) 23:38:430321デフォルトの名無しさん
2006/02/07(火) 23:39:19あんた勉強不足。
じゃあCOMって何？
0322デフォルトの名無しさん
2006/02/07(火) 23:39:24すくなくとも回避するメカニズムをちゃんと持ってる。
0323デフォルトの名無しさん
2006/02/07(火) 23:39:370324デフォルトの名無しさん
2006/02/07(火) 23:40:11COMじゃないDLLもあるって知ってますか？ｗ
0325デフォルトの名無しさん
2006/02/07(火) 23:40:38あのバージョン管理がちゃんとしてると。
なるほど。良く分かった。
0326デフォルトの名無しさん
2006/02/07(火) 23:41:45互換性が無いCOMにはまったく違う
GUIDが割り当てられるんだし。
0327デフォルトの名無しさん
2006/02/07(火) 23:42:07ちょっとまて、それが何をいみｓ(ry
0328デフォルトの名無しさん
2006/02/07(火) 23:42:18逆なら反論になってるけど、それじゃ反論になってないよ。
DLLじゃないCOMもあるってしってます？ってなら反論だけど。
COMじゃないDLLがあってもだから何？って。
>>322
メカニズムを持っていても、一般に使えないメカニズムは持っているとはいえない罠。
そんなに回避できるならば、誰も苦労はしてないわけで。
0329デフォルトの名無しさん
2006/02/07(火) 23:42:32DLLにもあてはまるんだけどな。
ついでに、Linux系なんかの.soなどにも当てはまる。
0330デフォルトの名無しさん
2006/02/07(火) 23:43:59普通のDLLでもWindows以外でも発生する問題なんだが。
なんにでも発生する問題を出して、
ほらCOMは危険といわれてもなぁ。
0331デフォルトの名無しさん
2006/02/07(火) 23:45:03「全部一枚岩の上に乗っかっている以上、こんがらかってくるのは必至なわけで」
みんなが整然と領域まもってくれればなんてことはなかったんだろうがなぁ・・・
0332デフォルトの名無しさん
2006/02/07(火) 23:45:11そもそも君Dll Hellの意味わかってないんじゃないの？
COMの作者が余程トンマじゃないかぎり、COMでDll Hellなんてないよ。
0333デフォルトの名無しさん
2006/02/07(火) 23:45:43あんたが、>>317を書いたならば、書いてることが矛盾しまくり。
別人だとしたら、>>317からの流れなんだから流れ嫁。
0334デフォルトの名無しさん
2006/02/07(火) 23:45:50安価ミスもHellの一歩手前です
0335デフォルトの名無しさん
2006/02/07(火) 23:47:04だとしたら、MSの製作者ってとんまばっかりですね。
0336デフォルトの名無しさん
2006/02/08(水) 00:09:020337デフォルトの名無しさん
2006/02/08(水) 00:10:120338デフォルトの名無しさん
2006/02/08(水) 00:58:13答えられる人がいない予感！！orz
0339デフォルトの名無しさん
2006/02/08(水) 01:10:05(=ﾟωﾟ=)ﾉｼ
ttp://hpcgi1.nifty.com/MADIA/VBBBS2/wwwlng.cgi?print+200406/04060091.txt
ttp://hpcgi1.nifty.com/MADIA/VBBBS/wwwlng.cgi?print+200408/04080028.txt
ttp://msdn.microsoft.com/workshop/browser/hosting/wbcustomization.asp
ttp://hpcgi1.nifty.com/MADIA/VBBBS/wwwlng.cgi?print+200511/05110055.txt
ttp://hpcgi1.nifty.com/MADIA/VBBBS/wwwlng.cgi?print+200512/05120033.txt
間違っても個人メールは打つなよ
俺じゃないから
0340デフォルトの名無しさん
2006/02/08(水) 01:31:58ありがとうございます。
APIとLoadステートメントを組み合わせてメニューオブジェクトを動的に生成できるという事ですか？
もしよければ何のAPIを使用すればよろしいか教えていただけないでしょうか。
0341デフォルトの名無しさん
2006/02/08(水) 01:39:36いやLoad関数だけで十分だとおもうぞ？
0342デフォルトの名無しさん
2006/02/08(水) 04:52:22ありがとん
でも肝心の答えが載ってない・・・('A`)
0343デフォルトの名無しさん
2006/02/08(水) 08:11:49ＡＰＩは必要ないんだが。
0344デフォルトの名無しさん
2006/02/08(水) 08:12:29答を載せてしまっては、貴方の成長の妨げになるから・・・
0345デフォルトの名無しさん
2006/02/08(水) 08:18:49ぶっちゃけ、答えられる奴はこのスレに居ないだろ
素直に分からないって言えばいいんだよ
さも知ってるかのように気を持たせるのはどうかと思うぞ
まあ俺も分かんないけどねｗｗ
0346デフォルトの名無しさん
2006/02/08(水) 10:26:460347デフォルトの名無しさん
2006/02/08(水) 14:10:28又それぞれのメリット・デメリットも知りたいです。
0348デフォルトの名無しさん
2006/02/08(水) 14:25:53とりあえず一番簡単なCOM使って取得する方法を覚えろ。話はそれからだ。
何も解ってない初心者に表面的なことだけ詰め込んでも仕方ないからな。
0349デフォルトの名無しさん
2006/02/08(水) 14:50:04送信側も間違っている？かもしれません。
ご教授願います。
以下、試したものです。
Public Declare Function recv Lib "wsock32.dll" (ByVal s As Long, ByVal buf As Any, ByVal lngLen As Long, ByVal flags As Long) As Long
Public Declare Function send Lib "wsock32.dll" (ByVal s As Long, buf As Any, ByVal lngLenlen As Long, ByVal flags As Long) As Long
Dim bytData(100)
bytData(0)=1
略
lngRet = send(lngSock, bytData(), 100, 0)
受信側
Dim bytRec(100) as byte
lngRet = recv(mlngSock, bytRec(0), 100, 0)
Any型の部分が問題だとは思いますが・・・。
0350デフォルトの名無しさん
2006/02/08(水) 14:53:15みたいな。
もちろんByte()をStreamの様に扱えるクラスはあるんだろうな？
無いと苦しいぞ
0351デフォルトの名無しさん
2006/02/08(水) 14:54:27> bufferwritecount = send(lngSock,bytData(lbound(bytData)), ubound(bytdata)-lbound(bytdata), 0)
こっちだな
bufferwritecount = send(lngSock,bytData(lbound(bytData)), ubound(bytdata)-lbound(bytdata) + 1, 0)
0352デフォルトの名無しさん
2006/02/08(水) 15:08:380353デフォルトの名無しさん
2006/02/08(水) 15:11:33lngRet = recv(mlngSock, ByVal bytRec(0), 100, 0)
じゃね？
0354デフォルトの名無しさん
2006/02/08(水) 15:16:19（どんなソケット使ってるか分からんけど）
TCPっぽいならByte()のストリームが帰ってくるからさ、
Byte()を自由に繋げたり、任意の長さだけ切り取れるようなものを作っておくといいよってこと。
String関係ない。
>>353
イジメ発覚
0355349
2006/02/08(水) 15:34:32lngRet = recv(mlngSock, bytRec(0), 100, 0)
このbytRec(0)の変数の型が一致しません。
0356デフォルトの名無しさん
2006/02/08(水) 15:45:26> Public Declare Function recv Lib "wsock32.dll" (ByVal s As Long, ByVal buf As Any, ByVal lngLen As Long, ByVal flags As Long) As Long
Public Declare Function recv Lib "wsock32.dll" (ByVal s As Long, BYREF buf As Any, ByVal lngLen As Long, ByVal flags As Long) As Long
0357デフォルトの名無しさん
2006/02/08(水) 15:46:53Public Declare Function recv Lib "ws2_32.dll" (ByVal s As Long, ByRef buf As Any, ByVal buflen As Long, ByVal flags As Long) As Long
Public Declare Function send Lib "ws2_32.dll" (ByVal s As Long, ByRef buf As Any, ByVal buflen As Long, ByVal flags As Long) As Long
0358349
2006/02/08(水) 18:05:43どおりで配列を受け付けないわけですね。
ありがとうございました。
0359デフォルトの名無しさん
2006/02/08(水) 18:27:35デバックしたところlngA、lngB、lngCには0&以外の値が入っているのですが、
IF文の条件式がFalseを返す場合が多々あります。
strVal="ABCを含む文字列"
lngA = InStr(strVal, "A")
lngB = InStr(strVal, "B")
lngC = InStr(strVal, "C")
If _
lngA And _
lngB And _
lngC Then
End If
IF文を入れ子にしたり、lngA <> 0&と条件を明示することでTrueを返すようにはなるのですが、
上記コードの場合なぜFalseを返すことがあるのか分かる方みえませんか？
0360デフォルトの名無しさん
2006/02/08(水) 18:29:06And：
論理演算-論理積
ビットごとの演算-ビットごとの論理積
例)
dim a as long,b as long,c as long
a=1:b=2:c=4
debug.? a and b and c
debug.? cbool(a) and cbool(b) and cbool(c)
0361デフォルトの名無しさん
2006/02/08(水) 18:58:53あれば使い方を教えてください。お願いします。
0362デフォルトの名無しさん
2006/02/08(水) 19:01:14collectionオブジェクト
dim c as collection
set c=new collection
c.add 10,"a"
debug.? c("a")
0363デフォルトの名無しさん
2006/02/08(水) 19:01:16ありがとうございます。
コードを簡潔にしたいがあまりに基本的なことを忘れていました。
0364273
2006/02/08(水) 19:51:280365デフォルトの名無しさん
2006/02/08(水) 20:17:40じゃなくて、ＶＢ起動して貼り付けただけではこれっぱかしも動作しないからでは。
変数宣言もないし、End Sub もないし、呼び出すコードもないし Cells とか謎のオブジェクトもあるし。
全部直して動く様にして検証する気になる人なんて皆無。
0366デフォルトの名無しさん
2006/02/08(水) 22:35:08選択文字列の上にマウスカーソルをあわせても I ビームが表示されません。
よってコンテキストメニューも開けないわけなんですが、解決策はありませんでしょうか？
■ このスレッドは過去ログ倉庫に格納されています