VBプログラマ質問スレ（6.0以前） Part46
■ このスレッドは過去ログ倉庫に格納されています
0001デフォルトの名無しさん
2006/02/03(金) 22:58:330322デフォルトの名無しさん
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 ビームが表示されません。
よってコンテキストメニューも開けないわけなんですが、解決策はありませんでしょうか？
0367デフォルトの名無しさん
2006/02/08(水) 22:48:04手動でDrag()を呼び出す・・・じゃないかぁ
0368デフォルトの名無しさん
2006/02/09(木) 00:24:06>>278
>>366
>テキストボックスに OLE Drag,Drop Mode を設定すると
原因をはっきり特定しろよ、OLEDragModeを自動にしたときだけだろ
選択文字列の上で I ビームにならないのは、Dragするんだからあたりまえだ
コンテキストメニューがまったく出ないのは、文字をすべて選択したときだけだ（こっちの仕様は意味不明だけどなｗ）
挙動が気に入らなければ、OLEDragModeを手動にして自分でやれ
0369デフォルトの名無しさん
2006/02/09(木) 00:37:04素晴らしい！正解です！
そうなんです、自動です、しかし選択文字列の上で I ビームにならないんじゃくて、選択しなくてもならないんです
挙動が気に入らないですけど、現状のままで行きます、癖をつければなんてこと無いでしょう。
だって僕しか使わないソフトですからね！しかし未だにソフトを公開したことナインですけど公開すると後悔しますか？
0370デフォルトの名無しさん
2006/02/09(木) 00:53:37>しかし選択文字列の上で I ビームにならないんじゃくて、選択しなくてもならないんです
それはテキストを全選択したときだけだ、３文字入力して１文字だけ選択して確かめてみろ
まあOLEDragの自動は、コンテキストメニューも含めておかしいと思うがね
ついでに言うと、テキストの後ろから数文字を選択してドラッグを開始、
Escを押してキャンセルすると、なぜかキャレットが先頭に移動する
ぶっちゃけ自動は使えないと思ったほうがいいだろうな
>しかし未だにソフトを公開したことナインですけど公開すると後悔しますか？
ここで公開するとボコボコに叩かれて、たぶん後悔する
Vectorで公開すれば、とりあえずDL数見て自己満足に浸れる
好きにしなさいｗ
0371デフォルトの名無しさん
2006/02/09(木) 01:10:41だったら公開する必要無くね？
0372デフォルトの名無しさん
2006/02/09(木) 01:12:49ったく、この朴念仁が！
0373デフォルトの名無しさん
2006/02/09(木) 01:15:07そしてあろう事かその状態なら選択しなくてもそのままドラッグできるんです、そして別のテキストボックスにドロップすると全文移動するんです、不思議ですよね！
手動にしてみようと思ってコードを書いていたんですが、途中で挫折してしましてね、もう自動でいいです。
ここで公開するとボコボコにされるんですか、恐いですね。
たぶんにボコボコにされる対象はソースコードでしょうね、だけど実行ファイルのみで公開しても誰も触ってくれないでしょうし、ハハハ。
0374デフォルトの名無しさん
2006/02/09(木) 01:21:130375デフォルトの名無しさん
2006/02/09(木) 01:22:52全米が泣いた
0376デフォルトの名無しさん
2006/02/09(木) 10:21:03ってどういう意味ですか？
0377デフォルトの名無しさん
2006/02/09(木) 10:43:36class hoge{
public string async;
}
で
hoge xmlDoc=new hoge();
xmlDoc.async="false";
でもしたのかしら？
0378デフォルトの名無しさん
2006/02/09(木) 10:49:20公開と後悔を掛けたなっ！
>>376
async に "false" を設定した。
って、xmlDoc.async = False の様な気もするが。
0379デフォルトの名無しさん
2006/02/09(木) 10:50:48最近javaとC++とVB6といろいろ渡り歩いてるもんだから混ざっちまったぜ・・
0380デフォルトの名無しさん
2006/02/09(木) 11:00:23でした。ごめんなさい。
これってどういう意味ですか？
0381デフォルトの名無しさん
2006/02/09(木) 11:06:52378に答えも書いてあるじゃん。
asyncをFalseにするとどうなるかは､
これだけの情報では何とも言えないけど。
0382デフォルトの名無しさん
2006/02/09(木) 11:07:03xmlDocのメンバasyncにFalse値を設定したっていう意味
0383デフォルトの名無しさん
2006/02/09(木) 11:15:12無いとだめなんでしょうか？
0384デフォルトの名無しさん
2006/02/09(木) 11:19:56ネタじゃないとしたら勉強不足
0385デフォルトの名無しさん
2006/02/09(木) 11:21:58名前に惑わされすぎるのはよくないから、
>>377とか>>378は xmlDoc というモノを不明なものとして扱って書いてるわけ。
特に、>>377は xmlDoc が hoge というクラスのインスタンスで async というメンバを持つという具体例を挙げているだろ？
こんな風にもとのクラスが何なのか、具体的に書いてくれないとさっぱりなわけ。
ちょっと説明下手すぎるんじゃない？
0386デフォルトの名無しさん
2006/02/09(木) 11:24:10http://www.utj.co.jp/xml/dev/dom/dxdom4_1.html
0387デフォルトの名無しさん
2006/02/09(木) 11:58:32ヘルプを熟読すれば分かる。
0388デフォルトの名無しさん
2006/02/09(木) 12:31:000389デフォルトの名無しさん
2006/02/09(木) 12:33:09Preview 1.0 Type Library(shimgvw.dll)を使ってできませんか。
メソッドの使い方はある程度予測つきますが、Previewクラスへ
オブジェクトを得る方法が分かりません。
破損したファイルを読み込むと次の画像に進むボタンの位置が動いて
うまく制御できないので困ってます。
0390デフォルトの名無しさん
2006/02/09(木) 13:53:49今までDAoで構築していて発行したSQlを以下のようにgridに挿入していたのですが
msflexgrid1.AddItem レコードセット(取り出した列１).Value
msflexgrid1.TextMatrix(msflexgrid1.Rows - 1, 1) = レコードセット(取り出した列２).Value
ADOで構築すると列の値が取り出せなくなってしまします。
ADOでこういった風に書くにはどうすればよいでしょうか？
0391デフォルトの名無しさん
2006/02/09(木) 13:59:570392デフォルトの名無しさん
2006/02/09(木) 14:38:25ありがとうございます。実行してみましたが
「要求された名前、又は序数に対応するコレクションが見つかりません」とでてしまいました。
0393デフォルトの名無しさん
2006/02/09(木) 14:42:470394デフォルトの名無しさん
2006/02/09(木) 14:43:32本当にありがとうございます。
0395デフォルトの名無しさん
2006/02/09(木) 14:47:23まさか col2 って書いてないよね。
0396デフォルトの名無しさん
2006/02/09(木) 15:11:04ヒント：>>393-394
0397デフォルトの名無しさん
2006/02/09(木) 17:54:28関数を作り使っています。（平均、標準偏差等）
Function Ave(a(),n,Kikan)
２元配列A(i,j)に使おうとしたら
Ave(A( ,1),n,Kikan)
動きませんでした。2元配列を行列とすると1行(1列）だけもってくるような
表現の仕方はあるのでしょうか？
0398デフォルトの名無しさん
2006/02/09(木) 18:02:43無い
そういう場合は自力で（自分の欲しい機能を提供する）行列を扱えるMatrixクラスを作るしかねーと思う
0399デフォルトの名無しさん
2006/02/09(木) 18:05:30今回は、ページの内容を正規表現で置換する機能を追加した
それと、ユーザーが作成したJavaScriptをページ表示時に自動実行できるようになった
これによって、ページ内容を事前に書き変えたり、入力ボックスに文字を入れたり
工夫次第では、バナー広告の排除や、リンクされていないURLの自動リンクなどが可能だ
これらの機能は、実行するサイトを限定することも可能！
ますます進化をつづけるタブブラウザにご期待ください
さて、そろそろ実装したい機能がなくなってきたんでバグ叩きに入るかなっと♪
ところで、エンコードの種類を変える方法がよくわかんないんだけど、どうやんの？
難し過ぎて分かる人いないっぽ？
0400デフォルトの名無しさん
2006/02/09(木) 18:06:32そこまで実装していてそれはないだろうという程度の質問
adodb.stream？
0401デフォルトの名無しさん
2006/02/09(木) 19:06:33バグ叩きて。
途中はバグなんか全然気にせずどんどん開発してるのか？
0402デフォルトの名無しさん
2006/02/09(木) 20:20:07http://www.bcap.co.jp/hanafusa/VBHLP/sonota_no1.htm
0403デフォルトの名無しさん
2006/02/09(木) 20:22:410404デフォルトの名無しさん
2006/02/09(木) 20:41:25最適化はバグを全部潰してから。
0405デフォルトの名無しさん
2006/02/09(木) 20:56:29みたいに、ExcelとApplicationというのはレジストリに記録されていると思いますが、
どこを見ればいいですか。
0406デフォルトの名無しさん
2006/02/09(木) 20:56:570407デフォルトの名無しさん
2006/02/09(木) 21:15:080408デフォルトの名無しさん
2006/02/09(木) 21:38:45レジストリ
0409デフォルトの名無しさん
2006/02/09(木) 22:15:30やはり一つずつ、一行ずつコードを書いていくしか無いのでしょうか？
今現在やっている方法です↓
strMISO = Replace(strMISO, "ほげほげ", "ホゲホゲ")
strMISO = Replace(strMISO, "もぎもぎ", "mogimogi")
strMISO = Replace(strMISO, "まんまん", "満々")
0410デフォルトの名無しさん
2006/02/09(木) 22:23:23他にもやり方はあるだろうけど、面倒ならそれでいいんでね
0411デフォルトの名無しさん
2006/02/09(木) 22:49:32・・・泣
0412デフォルトの名無しさん
2006/02/09(木) 23:09:57テキストに書き出して、単機能の外部フィルタアプリとかにやらせては。
0413デフォルトの名無しさん
2006/02/09(木) 23:23:14・・・グスン（誰もわかってくれない
0414デフォルトの名無しさん
2006/02/09(木) 23:29:20ごり押しするなら、単語をinstr()で地道に検索＆自力で置換、だな。
文字列連結は文字列大きくなるほど遅いから、そのへんの高速化も自力でせにゃならん。
1行1行replace()書くのがいやなら、foreachなりで反復操作にすればいいじゃまいか ( ´Д｀)
0415デフォルトの名無しさん
2006/02/09(木) 23:56:09ほんとーのわたしを♪
0416デフォルトの名無しさん
2006/02/10(金) 00:32:23結局Replaceの重ねがけが一番速かったりナ。。。
0417デフォルトの名無しさん
2006/02/10(金) 00:38:40(VB6)ちなみに家でStringBuilderなるクラスを作って試してみました
Private Sub Form_Load()
Dim sb As New StringBuilder
Dim i As Long
Dim s As Single
Dim t As String
s = Timer
For i = 1 To 20000: sb.AddString "hello!": Next
Debug.Print Timer - s
s = Timer
t = ""
For i = 1 To 20000: t = t & "hello!": Next
Debug.Print Timer - s
End Sub
結果
4.711914E-02
1.437012
ただの文字列連結は非線形的に所要時間が増加するっぽい
sb.AddStringは内部でMidステートメントによる置換をしています
0418デフォルトの名無しさん
2006/02/10(金) 01:02:11Midはメモリ上書きだから速いんだけど 異なる文字数で置き換えられないよね
例えば "まんまん" を "満々" に置き換えるとか
結局Replace見たいな機能を要求すると &結合か Byte配列のRedim・メモリ移動 でゴリゴリ
Byte配列でやると &結合に比べて 10〜50倍の差が出るんだっけ？
0419デフォルトの名無しさん
2006/02/10(金) 01:07:22いや
１ "まんまん"をInstrで検索
２ 直前までMidステートメントで置換代入
３ "満々"を置換代入
４ １へ
置換代入先の文字列を、あらかじめ10KBとか多めにとっておけばメモリ移動がそれほど起こらないので速いかも
（少なくとも&で連結していくよりは）
> Byte配列でやると &結合に比べて 10〜50倍の差が出るんだっけ？
時間差は先ほど書いたとおり非線形
Midステートメントで最終的に必要なサイズを全て最初に確保しているとすれば、置換代入の時間は線形に済むはず
というわけで比率はかなり変動するかと
0420デフォルトの名無しさん
2006/02/10(金) 01:21:050421デフォルトの名無しさん
2006/02/10(金) 01:34:23文字列(Unicode)をバイナリデータとして配列上をポインタ操作する っ言いたかったんだ
■ このスレッドは過去ログ倉庫に格納されています