VBプログラマ質問スレ（Ver.6.0 まで） part57

2011/04/30(土) 01:50:27.76

ここは 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/

※「まず自分で調べる」クセを身につけよう。

2011/04/30(土) 01:50:49.55

2011/04/30(土) 01:51:19.26

2011/04/30(土) 01:52:22.06

クラス間の依存性は減るけど、XMLへの依存が強いってことは何の問題もないの？

2011/04/30(土) 01:53:44.88

素人は黙ってネンネしなさい

2011/04/30(土) 01:57:13.01

>>1000
だからDIはそれを使いやすくフレームワークに
まとめた仕組みのことを言うんだよ。

具体的にはオブジェクトの生成部分を
コード内に書かないでフレームワークに任せる。

多態を使ってても、オブジェクトの生成は
コードに書いてしまうだろ。それじゃだめだってこと。

2011/04/30(土) 02:02:05.11

>>4
依存をなくすのではなくて依存を分離するのが目的。
クラスから依存が減る。それはなくなるという意味ではなく
XMLに分離するということ。

あなたの言っていることは問題ではなくて、
そもそもそういうふうにしたい事、つまり目的だよ。

2011/04/30(土) 02:09:57.79

なるほどね

2011/04/30(土) 02:17:09.59

こういう感じのとは違うん？

Private Sub Command1_Click()
Dim fso As Object
Dim objname$, pth$
objname = "Scripting.FileSystemObject"
Set fso = CreateObject(objname)
pth = CallByName(fso, "BuildPath", VbMethod, "c:\windows", "test.ini")
Debug.Print pth
End Sub

2011/04/30(土) 02:28:44.10

>>9
やってることはそれに近いけど、それでは
それは普通のやり方よりコードが増えて、面倒になってる。
そういう面倒事をやってくれるのがDIコンテナ

public fso As IFileSystemObject
Private Sub Command1_Click()
pth = fso.BuildPath("c:\windows", "test.ini")
Debug.Print pth
End Sub

これだけじゃ動かない？　たしかにfsoがNothingだからね。
でこれを動くようにしてくれるのがDIコンテナ。

2011/04/30(土) 02:35:52.78

コンパイラがDIコンテナを使うってことか

2011/04/30(土) 02:39:04.11

>>11
なんかとんでもない勘違いをしてるぞｗ

2011/04/30(土) 02:43:07.62

眠いので頭が正常に働いてないのかも
明日昼間もういちど前スレから読み直してみる
ありがと

2011/04/30(土) 02:54:27.75

実際には、FileSystemObjectはIFileSystemObjectインターフェースを
継承してないから、fsoにFileSystemObjectそのものを入れることはできない。
入れることができるようにした「FileSystemObjectっぽいもの」を作る必要がある。
でもそれは既存のクラスの問題であって、自分で作るクラスには関係ない話。

重要なのは、このコードには new FileSystemObjectっぽいものというコードが入ってないから
fsoには「FileSystemObjectっぽいもの」だけではなく、たとえば
テスト用のFileSystemObjectを入れたり、ネットワーク対応のFileSystemObjectを入れたりできる。
実際に入れる作業をするのはDIコンテナだけどね。

特にテスト用のFileSystemObjectを入れられるところが重要で、
FileSystemObjectを使わずに単体テストができる
それでいてコードが前と殆ど変わってないところも注目するところ。

で、最初の質問に答えると、VB6用のDIコンテナは知らないが（多分ないと思う）
DIコンテナを作ることは可能

2011/04/30(土) 02:59:09.66

Windows Script Host Object Model (wshom.ocx)
Microsoft Sripting Runtime (scrrun.dll)
の両方にFileSystemObjectあるけど未だに違いがわからん

2011/04/30(土) 03:02:52.11

むしろ、継承はないがインターフェースはあるVB6には
DIはぴったりだと思うな。

DIが出てきた背景には（昔の）EJBの継承を強要するやり方は
複雑でテストしにくい。POJO（継承使ってない単純なオブジェクト）を
使いましょう。ってのがあるし。

VBはもともと継承が使えない。

2011/04/30(土) 03:05:08.26

VB6での新規案件なんかあるのか？

2011/04/30(土) 03:10:07.03

ああ、コンパイラじゃなくて
別のとこでfsoに代入するコードが書かれてるってことか

2011/04/30(土) 03:18:52.07

>>18
そう。書かれてる。

ただしDIコンテナというフレームワークが
やってくれるところだから見るべきところではない。
勝手に入れてくれるという認識でOK

ただし、VB6用のDIコンテはないｗ

2011/04/30(土) 03:22:28.04

よくわかった

2011/04/30(土) 08:47:23.24

一応、開発にはimplements使ってる。
ListViewとかTreeViewへの表示にはimplementsしたクラスを
利用してる。これだけでもだいぶ助かるけど…

Javaだとインターフェースはインターフェースだけで
その場でインターフェースをnewして、しかもその場で
実装を書くことが可能。

VB6やってて不便に思うのは…
引数付きコンストラクタが無い事と、インターフェースのnew実装か。

2011/04/30(土) 11:45:40.71

インターフェースをnewするって意味が分からないけど・・・

引数付きコンストラクタは、適当な関数でも作ればいいと思う。
newして引数を設定する関数でも、newしてクラスのメソッドを呼び出す関数でも。

2011/04/30(土) 11:47:30.26

> Javaだとインターフェースはインターフェースだけで
> その場でインターフェースをnewして、しかもその場で
> 実装を書くことが可能。

あ、無名クラスのことか。
正確にはインターフェースをnewしてるんじゃなくて
名前がないクラス作ってるんだけどな。

2011/04/30(土) 12:34:59.22

VBの場合インターフェース無くても同名のメソッドあれば参照できるんじゃなかったっけ？

2011/04/30(土) 12:52:17.30

Dim c1 As New Class1 'Public Sub Hoge() を持ってる
Dim c2 As New Class2 'Implements Class1 をして Hoge()をオーバーライド
Dim c3 As New Class3 'Public Sub Hoge() を持ってるClass1とは別物
Dim c4 As New Class4 'Implements Class1 してる且つ独自にPublic Sub Hoge()を持ってる
Dim obj As Object
Dim ic1 As Class1

Set obj = c1: obj.Hoge 'OK
'Set obj = c2: obj.Hoge 'Error (Class1_Hogeは呼ばれない)
Set obj = c3: obj.Hoge 'OK
Set obj = c4: obj.Hoge 'OK 自前Hogeが呼ばれる
Set ic1 = c1: ic1.Hoge 'OK
Set ic1 = c2: ic1.Hoge 'OK
'Set ic1 = c3: ic1.Hoge 'Error (クラスが別物で代入できない)
Set ic1 = c4: ic1.Hoge 'OK Class1_Hogeが呼ばれる

2011/04/30(土) 22:42:11.86

インターフェースなくても同名メソッド使えるっていうのは嫌だな。
かといって、インターフェースかぶせても、

インターフェース名_メソッド名

が、メソッド名になるのも、はっきりいってうっとおしい。

2011/05/01(日) 02:54:20.11

引数の型をObjectやVariantにせず、ちゃんとインターフェース用のクラスの型を設定すればいいし
Javaとかだとインターフェース無しでインターフェース用のメソッドにアクセスできるんだっけか？
interface Class1 { void hoge(); }
class Class2 implements Class1 { public void hoge(){} }
で
Class2 c2 = new Class2; c2.hoge();ができちゃうけど
VBだとちゃんとインターフェースかまさなきゃhogeできないのは優秀なんじゃね？

2011/05/01(日) 02:56:19.90

どうでもいいことだけど、些細なミスnew Class2();ね

2011/05/01(日) 04:16:08.27

>>26
> インターフェースなくても同名メソッド使えるっていうのは嫌だな。
そういう言語は他にもあるし（例 JavaScript、Perl）

> インターフェース名_メソッド名
インターフェース名::メソッド名やインターフェース名.メソッド名
と大差ない

まだまだ経験が足りないようだなｗ

2011/05/01(日) 04:22:24.58

Javaって
インターフェース名_メソッド名に
ならないから、
複数のインターフェースで同名のメソッドがあった場合に
困るんだっけ？count()とかありがちなメソッド

2011/05/01(日) 04:38:54.04

vbは優秀だな

2011/05/01(日) 14:16:00.62

まあVB6はともかく、VB.NETのインターフェイスの仕組みは良くできてる。
こればっかりはC#より良い。

2011/05/01(日) 15:20:47.28

VB6のインターフェイスはCOM相互運用のための機能だからああゆう形になるのは仕方が無いね。
VB6のインターフェイスの宣言は中身(実装)の無いクラスを使うことが多いけど、
IDLも使えるあたりもろにCOM相互運用のためのものと分かる。
>>32
VB.NETのインターフェイスは実装のときに
C#の明示的実装のような書き方になるのであんまり好きじゃないけど、
良くできてると思うのはなぜ？

2011/05/01(日) 15:47:40.04

>>33
例えばC#の場合、インターフェイスのメンバーを、

(1) 同じ名前のシグネチャのメソッドとして実装した場合、どれがインターフェイスを
実装したメソッドか明示的に分からない。（これは個人的に気持ち悪い）

(2) 明示的実装を使った場合は、そのメソッドはインターフェイスを通してしか
呼び出せない。

という問題があるけど、VBの場合はこれがない。
一つのメソッドが普通のクラスメンバでありつつ、同時にインターフェースの
明示的な実装でもありうる。

http://www.atmarkit.co.jp/fdotnet/onepoint/onepoint01/onepoint01_02.html

2011/05/02(月) 00:04:56.75

なんか珍しくオブジェクト指向っぽいスレの流れになってるので
この流れで質問させてほしい。

マイクロソフト系言語には、プロパティつうものの存在があって
プロパティ用のアクセッサの書き方があるけど、

普通にゲッタとセッタで実装できそうなのに、なんでプロパティ用の
アクセッサの書き方があるの？

2011/05/02(月) 00:34:33.44

一つはプロパティという概念を導入した方がクラスの構造がわかりやすくなるから。
変数名などa, b, c, ....でも「実装できそうなのに」分かり易い名前を付けるのと同じ動機。

もう一つはプロパティとメソッドが機械から区別できた方がいい事があるから。
例えばVB6でも.NETでもGUIアプリのデザインをデザイナでデザインできるのはこのため。

2011/05/02(月) 05:27:47.95

>>35
メソッドと同じ書式でいちいちゲッタセッタを書くのが面倒だから。
プロパティならとりあえず変数として宣言しておいて、
あとで気が変わったときにゲッタセッタ(プロパティ)を書けば済む。

2011/05/02(月) 13:55:12.47

>>37
答えになってないでしょ。
何故Bが必要かと聞いているのに、何時でもAはBに変更できるからってそれ何だよ。

2011/05/03(火) 15:41:07.99

レスキュー花ちゃんはありがたいね

2011/05/03(火) 15:51:32.83

わざわざ上げてまで今それを言う理由が理解できない。

あそこは今でも一部tipsは有料でやってるのかな。
そりゃ人がどんな商売しようと自由だけど、個人的にはケツの穴が小さいなと思わずにいられない。

2011/05/05(木) 16:01:42.55

コマンドライン引数で日本語パス・ファイル名を受け付けないソフトって諦めるしかない？
渡すファイルを、一旦、日本語を使わないパス・ファイル名にコピーしてから渡す回避策はあるけれど

2011/05/05(木) 19:21:33.46

>>35
> 普通にゲッタとセッタで実装できそうなのに、なんでプロパティ用の
> アクセッサの書き方があるの？

人間の感覚だろうなぁ。

プログラム言語とは関係ないUMLだって、
メソッドとは別に属性（プロパティ）というものがある。

だけど、これ、ゲッタ、セッタで置き換え可能。
つまり実装するにあたって属性というものは必要ないということになるが、
やっぱり属性ってのは、メソッドとは別ものと人間は考えてしまうようだ。

2011/05/05(木) 22:11:51.68

>>35
オブジェクト指向の話になるとオブジェクト指向論と
オブジェクト指向言語の実装についての話がごっちゃになるんだが
メッセージパッシングをメソッド呼び出しで実装したと考えれば
外部公開属性はやっぱ別にしたい

2011/05/07(土) 02:18:50.27

ゲッタ・セッタでは

object.property++ なんて書き方ができない

object.setProperty(object.getProperty()+1) こうなる。

2011/05/07(土) 03:06:00.34

VB6にインクリメントの演算子なんてあったっけ？

2011/05/07(土) 15:30:58.47

>>44
＞object.property++ なんて書き方ができない

この書き方をしたいならメンバ変数をPublicにすれば良いだけ。

＞object.setProperty(object.getProperty()+1)

この方が安全といえば安全と思う。

2011/05/07(土) 21:07:10.24

安全とか危険とか何意味不明なこと言ってるんだw
インクリメント演算子なんてものはないにしても、>>44の言いたいことはまあ半分は分かる。

要するに、
＞object.setProperty(object.getProperty()+1)
こういうのは見難いし醜いということ。

ついでに変数をPublicにしたのでは値の取得または設定時に動作を絡ませることができない。

2011/05/08(日) 00:32:37.20

インターフェースを変えることなく、
感覚通りに名前をつけられるのが
プロパティのいいところ。

2011/05/08(日) 01:42:29.37

＞object.setProperty(object.getProperty()+1)
こういうのは
object.addProperty(1)
を作ればいいのでは

2011/05/08(日) 17:27:14.50

>>49
まあそれが妥当だろうね。

2011/05/08(日) 18:03:11.90

どこが妥当だよw

属性（プロパティ）が100あったら、100ごとにセッタ、ゲッタ、>>49相当のものを
一々書くのかw

書く手間のことを言ってるんじゃない。
各属性ごとにその3つなら3つのメソッドを管理するの？
やってられるかよ。

ちなみにaddHogeでは「Hogeを足す」になってしまわないか？

2011/05/08(日) 19:09:44.58

必要なメソッドは必要な時に記述

2011/05/09(月) 00:15:16.20

まずプロパティが100あるっていう前提からしてアホっぽいが
＞addHogeでは「Hogeを足す」
まさにそういうメソッドだろう

2011/05/09(月) 00:25:56.79

いい歳こいて日本語の「てにをは」が使えないのは恥ずかしいよ。
「Hogeに足す」と「Hogeを足す」の違い分かる？

2011/05/09(月) 00:37:15.56

んなもんHogeが実際なんなのかによるだろうと思うが
気にいらんかったらaddHogeValueでもaddHogeCountでも
好きに作ったらええがな

2011/05/10(火) 13:59:16.81

VB2003の質問はここでよろしいでしょうか？

2011/05/10(火) 15:32:38.22

ここはVB6まで

2011/05/13(金) 21:57:56.25

プロパティに自由にアクセスできてしまうっていうのはどうかと思うぞ。

2011/05/14(土) 01:39:31.35

>>58
それは、ゲッターとセッターの両方をつけるのと何が違うんだ？

2011/05/14(土) 06:46:10.74

>>59
ゲッター/セッターなら、変な値を設定できないようにしたり、
読み出された回数数えたりできるよ。

2011/05/14(土) 09:34:59.88

フレックスグリッドコントロールを使ってるんですが、
エクセルみたいにセルの下や右だけ罫線の色を変える、みたいなことはできないんですか？

2011/05/14(土) 10:15:51.49

付属のMSフレックスグリッドでは出来ないけど
フレックスグリッド系コントロールの中には､それが出来るものもある
当然､無料じゃないけどな

あとはラインとかピクチャーコントロールとかに色つけて重ねて
擬似的に実装するとかな

2011/05/14(土) 16:42:05.71

>>60
プロパティプロシージャでもできるやろ

2011/05/14(土) 18:15:27.31

>>63
>>59

2011/05/14(土) 18:23:24.27

>>58以降の流れはどれも何が言いたいのかさっぱり分からん。
特に>>64
個人的にはこういうのは他人がエスパーだと思ってるとしか思えん。

2011/05/14(土) 18:55:36.41

理解したくなければ放置しとけば言いし、
理解したいなら「どういうこと？」って聞けばいいのに。

2011/05/16(月) 13:19:30.97

ファイルサイズ取得ってこんな感じで問題ない？問題ある？

With New FileSystemObject
filesize = .GetFile(filepath).Size
End With

2011/05/16(月) 13:33:41.86

実装してみて実際のファイルサイズを取得してみて合ってるならそれでいいのでは？

2011/05/16(月) 13:53:05.69

okわかった。ありがと

2011/05/16(月) 17:31:59.11

ちゃんと8Gオーバーくらいのサイズで試さないとね

2011/05/16(月) 19:44:45.24

>>67
またWithでNewか。いいけど。

2011/05/17(火) 00:06:52.59

えー、With Newって書き方は初めて見た。
これって、End Withで解放されるの？
ガーベジコレクション的にも大丈夫？

ところで皆さんはガーベジコレクションって言いますか？
ガーベッジコレクションって言いますか？

2011/05/17(火) 18:55:36.37

>>72
End Withの後、アクセスしようが無くなって、たぶんメソッド抜けた時点で開放されるかな。

2011/05/17(火) 22:21:37.18

そういうメモリから解放されたかどうかって知るすべあるの？

2011/05/18(水) 07:15:17.07

>>74
自作クラスでやるなら、簡単だよな？

2011/05/18(水) 17:14:53.76

おせーてくらさい

2011/05/18(水) 19:38:30.99

>>76
terminateイベントプロシージャにDebug,Print "hoge"とでも書けば

2011/05/19(木) 01:03:58.16

㌧㌧
なるほど

2011/05/19(木) 01:08:41.62

'Class1
Public Sub Hoge()
Debug.Print "hoge"
End Sub
Private Sub Class_Initialize()
Debug.Print "initialize"
End Sub
Private Sub Class_Terminate()
Debug.Print "terminate"
End Sub

'Form1
Private Sub Command1_Click()
Debug.Print "click"
With New Class1
Debug.Print "call hoge"
.Hoge
Debug.Print "aftre call hoge"
End With
Debug.Print "end sub"
End Sub

'Result
click
initialize
call hoge
hoge
aftre call hoge
terminate
end sub

2011/05/20(金) 15:31:26.12

VBを今のところ、ただ勉強目的で始めたいのですが、VBの何をまずダウンロードすればいいのか、わかりません。教えてください。

自宅でWindows7を使っています。インターネット接続環境はありません。そのため、ネットカフェでダウンロードして、自宅でそれをインストールしたいのですが、オフラインの自宅でインストールは可能でしょうか？

また何というものをダウンロードすればいいのですか？

いろいろ調べたら、単なる勉学者は、Express Editionとかいうのをダウンロードすればいいみたいですが、詳しくはわかりません。

以上を踏まえ、どなたか何とぞ、お教えねがいます。

2011/05/20(金) 16:06:07.83

>>80
スレ違い

ダウンロード出来るのは､VBではなくVB.NET

VB.NET質問スレ(Part36)
http://hibari.2ch.net/test/read.cgi/tech/1301828549/

2011/05/20(金) 16:15:50.20

ftp://ftp.microsoft.com/softlib/
このサイトのMSLFILESにあるVB6用のサンプルプログラムってVB6やるからには見ておいたほうがいいの？

2011/05/20(金) 17:55:11.04

ftp://ftp.microsoft.com/のdeveloprフォルダ

2011/05/20(金) 17:58:13.02

ftp://ftp.microsoft.com/deskapps/games/public/でゲームでも探して炉

2011/05/20(金) 18:06:50.49

なにがしたいんだよ

2011/05/21(土) 23:03:28.32

フォーム上のコマンドボタンを押すと１行目に『ビート』、２行目に『たけし』とリストボックスに追加されるプログラムがある。【①】、【②】を埋めて完成させよ。リストボックスのオブジェクト名は『List1』とする。

Private Sub Command1_Clic()

List1.【 ① 】
List1.【 ② 】

End Sub

2011/05/21(土) 23:11:50.42

動的配列を使い、コマンドボックスを押すたびに配列の数が増えるプログラムを【】を埋めて完成させよ。

Private Max As Long 'データ数を保存する変数
Private Hairetu() As Long '配列

Private Sub Form_Load()
Max = 0 'データ数初期化
End Sub

Private Sub Command1_Click()

Max = Max + 1 'データ数を１つ増やす
【】'実際に配列の範囲を変更

End Sub

2011/05/21(土) 23:24:53.29

先生、コマンドボックスってなんですか？

2011/05/21(土) 23:46:50.70

Redim Preserveだが…なんでこんな問題作ってんの？

2011/05/22(日) 00:57:54.89

学校の宿題なんだろ

2011/05/22(日) 01:13:59.00

「値を保持したまま」とは書いてないから､ReDimだけで良いのでは？
値の保持が必要ないなら､ReDim Preserveは遅いだけだし

2011/05/22(日) 03:21:05.03

Hairetu()(笑)

2011/05/22(日) 16:34:01.94

Haiyoru（笑）

2011/05/22(日) 17:11:34.88

ググればすぐわかるような基本構文問題には答えんなよｗ

2011/05/22(日) 20:22:20.71

>>86
先生！なに入れてもコマンドボタンが反応しません！

2011/05/22(日) 21:00:12.41

確かにあれじゃ反応しないなw
なんてマのヌケた出題なんだろう…

2011/05/24(火) 23:15:18.09

1つの配列の中に重複するデータが多数ある
重複するデータを抜き出したい
A,B,A,B,A,A,C,F,C....
欲しいデータは重複データなので上記の場合
A,B,Cとなります
unique以外を取得したいのです

2011/05/25(水) 01:01:19.38

>>97
ソートしてから､2つ以上同一の値が連続しているものを抜粋する
Filter掛けて､戻り値のUBoundが1以上のものを列挙する
連想配列を利用する

いろいろ方法はあるので､お好きな物をどうぞ

2011/05/25(水) 01:02:11.41

便利なコマンドがVB6以前に存在するのかを尋ねているのか
最速アルゴリズムを尋ねているのか

2011/05/25(水) 01:30:36.51

じゃあ両方で

2011/05/25(水) 01:34:08.95

99に期待

2011/05/25(水) 07:51:55.31

>>98
連想配列でぐぐってきた！
連想配列が何か分かったけど、どうアルゴリズム化していいかわかんねw

>>99
uniqueの逆の関数があれば1番良かったんですけど、なさそうなのでアルゴリズムです

2011/05/25(水) 12:53:49.58

自己解決

l = Ubound(hogeArray)
For i=0 TO l
For j=i+1 TO l
If hogeArray(i) = hogeArray(j) Then
'同値の場合の処理
end if
next
next

msgbox hoge

2011/05/25(水) 12:59:17.07

>>103
最後のmsgboxはゴミです

2011/05/25(水) 18:19:25.53

それだけだと､A,B,A,B,A,A,C,F,Cの場合
BやCみたいに2つの場合はいいけど､Aみたいに4つの場合は6回(3+2+1回)実行されちゃうよ
3つの場合は3回(2+1回)､5つの場合は10回(4+3+2+1回)だ

つまり､「A,B,A,B,A,A,C,F,C」が「A,A,A, B, A,A, A, C」になってしまうので､
それで問題ないなら構わないけど､「A,B,C」にしたいという最初の条件とは違うよね

2011/05/25(水) 19:45:31.84

perlだと１行で簡単にできる式があったような気がしたｗ

2011/05/25(水) 19:53:16.45

で？

2011/05/25(水) 19:54:26.43

そういや7年くらい前にperlの連想配列と同じことができるVBのクラスを作った記憶があるｗ

2011/05/25(水) 20:05:42.48

>>107 で？じゃないだろ？

Private data As Object
Set data = CreateObject("Scripting.Dictionary")

For i = 0 To l
　data(hogearray(i)) = data(hogearray(i)) + 1
　If data(hogearray(i)) = 1 Then
　　'新しい配列に追加
　End If
Next i

2011/05/25(水) 20:42:36.81

何､この子？

2011/05/25(水) 23:23:18.20

ほうほう。それでそれで？

2011/05/26(木) 01:59:56.98

Private data As Object
Set data = CreateObject("Scripting.Dictionary")

For i = 0 To l
　data(hogearray(i)) = data(hogearray(i)) + 1
Next i

For Each k In data.Keys
　if k>1 then
　　'処理
　end if
Next k

2011/05/26(木) 02:06:32.87

>>97
>>103を見るかぎりhogeArrayの中身は

2011/05/26(木) 08:41:35.84

>>105
重複処理でuniqueします

2011/05/26(木) 13:00:44.16

VBで動的連想配列ってできるんですか？
ググっても見付かりません

2011/05/26(木) 13:12:22.09

ttp://7ujm.net/VB/VB6MAP.html

2011/05/26(木) 15:41:14.52

x^3-7*x+1の式でニュートンラフソン法を用い、初期解と繰り返しの回数を入力したら
近似解が求められるプログラミングを作りたいんですが、どう作ればよいですか？

もしスレチでしたらすみません

2011/05/26(木) 20:51:24.73

>>117
http://hibari.2ch.net/test/read.cgi/tech/1276873238/

2011/05/28(土) 15:26:54.34

VB6でマルチスレッド作るの無理だよね・・？

2011/05/28(土) 15:47:14.47

複数プロセス起動すれば良い

2011/05/28(土) 18:11:35.77

>>119
実用的じゃないけど、可能だよ。

2011/05/28(土) 18:50:02.37

訂正

可能だけど、実用的じゃないよ。

2011/05/28(土) 19:11:31.96

>>122
ちょｗｗｗ
訂正って、それじゃ意味変わってないだろ。

訂正するなら「不可能だけど、実用的だよ」か
「可能だし、実用的だよ」のどちらかだろｗｗｗ

2011/05/28(土) 22:00:55.94

A = 実用的
B = 可能

元の文章は

not A and B

訂正するなら

not A and not B

A and B

A and not B

もっとも日本語として強調したい部分というのは後にもってくるという
のもあるので、

not A and B

を

B and not A

と言い換えるのも無い事は無いか。

2011/05/28(土) 22:17:24.05

>>123
「表現」を「訂正」してるだけだろ。

まあ、いちいち訂正するほどのコトとは思えないけど。

2011/05/29(日) 01:46:44.64

もっと賢いやりかたったらおせーて

Public Function ToStringB__v2(v As Variant) As String
Const PREFIX$ = " KMGTPEZY"
Dim s$, p#, n&, i&: p = CDbl(v): n = 1
For i = 2 To Len(PREFIX)
If p >= 1000 Then p = p / 1000: n = n + 1 Else Exit For
Next i
s = Format(p, IIf(p >= 100, "0", IIf(p >= 10, "0.0", "0.00")))
ToStringB__v2 = s & " " & IIf(n > 1, Mid(PREFIX, n, 1), "") & "B"
End Function

Public Function ToStringIB__v2(v As Variant) As String
Const PREFIX$ = " KMGTPEZY"
Dim s$, p#, n&, i&: p = CDbl(v): n = 1
For i = 2 To Len(PREFIX)
If p >= 1024 Then p = p / 1024: n = n + 1 Else Exit For
Next i
s = Format(p, IIf(p >= 100, "0", IIf(p >= 10, "0.0", "0.00")))
ToStringIB__v2 = s & " " & IIf(n > 1, Mid(PREFIX, n, 1), "") & "iB"
End Function

2011/05/29(日) 01:53:17.35

簡単なエラートラップなら
Cdbl(v)する前に
If Not IsNumeric(v) Then Exit Function
を入れる

2011/05/29(日) 01:59:09.34

On Error Goto ErrorLabel
とかして
End Functionの手前にErrorLabel:って入れればＯＫ

2011/05/29(日) 09:10:26.34

>>126
n = Int(Log(p)/Log(1000#)): p = p / (1000# ^ n)

# 元のプログラムと n の値が 1 違うので注意 (0 ベースになる)
# v = 0 の時に Log() がエラーになるので、そのケースがあるなら事前に場合分けが必要

2011/05/30(月) 03:20:52.74

なるほど
勉強になります
ありがとうございました

2011/05/31(火) 15:32:01.70

ActiveX DLLでCOM作ってるんだけど、ADOのRecordSetやFieldが持ってる
連想配列みたいにアクセスするインターフェースってどうやって作るん？

2011/05/31(火) 16:27:12.11

プロシージャIDを0にすると既定になって、省略可能になったわ。

2011/05/31(火) 17:00:57.81

2011/06/01(水) 12:34:59.02

VB4なんですがWIN87EM.DLLで一般保護違反が出るのですが、
なかなか再現しません。このエラーを故意に起こすには、どのようにコーディングすればいいですか？
OSはNT4です。

2011/06/02(木) 21:10:23.48

すいません、質問させてください。

今下記のような感じでテキストファイルを読み込んで
excelに出力するものを作っています。
Array1と10に降順でソートを掛けたいと思っています。

ですが、どう記述するのかわかりませんでした・・・・
どなたかお力お貸しください。

2011/06/02(木) 21:12:42.14

こんな短期間にたくさん質問くるということは
どこかの大学バカ教授が授業でVB6で課題でも出したのか？

2011/06/02(木) 22:14:17.50

すません、こんなの使ってます。

.Workbooks.OpenText _
FileName:=strFileNm, _
StartRow:=1, _
DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, _
Tab:=True, _
Semicolon:=False, _
Comma:=True, _
Space:=False, _
Other:=False, _
FieldInfo:=Array( _
Array(1, 2), Array(2, 2), Array(3, 2), Array(4, 2), Array(5, 2)）～

2011/06/03(金) 00:35:50.94

VB6.0で作ったソフトですがディスプレイをブラウン管（１０２４，７６８）から液晶（１９２０，１０８０）に替えたら
ソフトが動かなくなってしまいました。なぜ？
ブラウン管に戻すと動きます。

2011/06/03(金) 01:10:39.61

ソース出せや

2011/06/03(金) 02:17:22.81

VBで作ったアプリって
モニタのど真ん中に可視な属性を持ってるのに大きさがないという
ウインドウというかプロセスがあるね
キャプションで探したウインドウがGetWindowRectでサイズが０でずっと悩んじゃったよ
まるで民主党の朝鮮人たちに騙された気分だよ

2011/06/03(金) 02:27:53.82

>>138
あー、それ>>140と関係してるかもね
プロセス列挙してウンドウを探すときにLeftが512だったら弾く、とかやってると
モニタサイズが変わったら弾けなくなる
LeftじゃなくてWidthが０だったら弾くようにすればおｋ

2011/06/03(金) 09:09:29.66

23 名前：福盛俊明：2011/06/02(木) 23:51:15.53
俺はDarkBASICの天才♪”
俺に答えられない質問はない

質問はこちらへ
http://www.geocities.jp/courant_de_console/main_street/index.html

アハアハ～♪”

2011/06/03(金) 18:43:25.43

>>137
エクセルを開いてから、オートフィルタで手作業でソート

2011/06/05(日) 20:08:58.70

VBSで質問です
5分後にシャットダウンするプログラムを作ってます。

MsgBox "5分後にシャットダウンします。"
WScript.Sleep(300000)
'ここにシャットダウンの処理

これで一応シャットダウンできますが、終了一分前にメッセージを出そうとして下記のように変えると、
「1分後に(ry」のメッセージボックスのOKを押すまで処理が止まってしまうので、正確な5分になりません。

MsgBox "5分後にシャットダウンします。"
WScript.Sleep(240000)
MsgBox "1分後にシャットダウンします。"
WScript.Sleep(60000)
'ここにシャットダウンの処理

メッセージボックス出しつつ処理を止めない方法ってありますか？
同じことができれば代用法でもなんでも構いません

2011/06/05(日) 20:24:31.18

>>144
メッセージボックスやモーダルのフォームではなく、
モードレスのフォームを出せばいい。

2011/06/05(日) 20:52:18.41

>>145
レスどーも
でも色々調べてたら自己解決してしまった(・_・;)
コマンドラインで
shutdown -s -t 300
って書くと自動で2分前に警告だしてくれたらからこっち使います

2011/06/06(月) 18:48:24.52

>>146
2分前？

2011/06/09(木) 22:01:47.41

ここでいいんかな・・・？

imdate(inputManのやつ)で日付を取ってそれに+1日したいんだが
どうしたらいいんでしょうか。

Date　+　1に出来たらいいかなと思ったんだが
imdate.Numberで数字で取得するからなんともいかんのかな？

2011/06/09(木) 23:24:54.45

VBのバージョンを言え

2011/06/09(木) 23:25:57.17

inputManだったらinputManのヘルプみればいいんじゃないか？

2011/06/09(木) 23:27:30.00

ｼﾞｬﾝｼﾞｬﾝﾊﾞﾘﾊﾞﾘｼﾞｬﾝｼﾞｬﾝﾊﾞﾘﾊﾞﾘ InputMan

2011/06/09(木) 23:35:56.07

すいません6.0です。

2011/06/11(土) 00:08:05.03

偉そうにVBのバージョンを言え！
だって
VBのバージョンなんか関係ないのに
その１行しか言えないレベルの奴なんだ

2011/06/11(土) 09:44:32.95

４行も内容のないこと書いてるやつよりましじゃね？

2011/06/11(土) 14:01:36.47

で、バージョン聞いといてそれで終わり？
大抵関係ない情報聞くやつは
使いものにならないんだよねｗ

2011/06/11(土) 17:48:24.37

俺だったら「VBのバージョンは？」って優しく聞く
それを「VBのバージョンを言え」と字数多くしてまで乱暴に言うのは
まさに超初心者ならではの頭の悪さ
で、imdate.Numberが日付型ならDateAdd、文字ならCDateしてから

2011/06/11(土) 19:38:30.77

> 質問者は使用しているOS、VBのバージョン、サービスパックのバージョン、
> 「何がしたくて、どうしたけど、どう困っているのか」を明確に書きましょう。

というのがルールなんだから､質問内容がバージョン関係有る無しに関わらず
まずは郷に入っては郷に従えってだけのことだろ

2011/06/11(土) 19:55:06.35

もう黙れば？

2011/06/11(土) 21:31:12.16

.NETの質問の可能性もあるやろ

2011/06/11(土) 23:13:06.76

まあ、スレタイちゃんと読んでりゃ .NET はないはずだが、
バージョンも書かないような奴は >>1 もろくろく読んでな
いような奴だから、スレタイも読んでない可能性高いかもね。

て言うか、質問者は後出しながらバージョン答えてるし、
>>153 は一体なにと戦ってるんだ？

2011/06/11(土) 23:17:29.22

命令口調ｸﾝ

2011/06/11(土) 23:23:01.63

ところで>>149は必要だったのかい？
いらないよね。赤っ恥かかされたからって、必死こいて戦うことないよね。

2011/06/11(土) 23:31:29.55

.NETの質問の可能性もあるやろ！（ｷﾘｯ

2011/06/12(日) 05:18:06.48

>>162
顔真っ赤にして､そんなに悔しかったの？

2011/06/12(日) 09:48:19.38

>>164
敗北宣言乙

2011/06/12(日) 09:49:17.07

ウェブサイト作成協力して頂けませんか？
http://jpcity.lolipop.jp/phpBBq/viewtopic.php?f=29&t=957#p1595

2011/06/12(日) 10:03:10.15

>>165
一人相撲で勝利宣言？

2011/06/12(日) 10:41:59.64

　発　者　同　　　　　　　　 .　｡_　　 ____　　　　　　　　　　争
　生　同　.じ　　　　 .　　　　/´ |　 (ゝ___)　　　　　　　　　　い
　.し　士　.レ　　　　　　.__／'r-┴<ゝi,,ノ　　ro､　　　　　　は、
　.な　で　.ベ　　　　 ∠ゝ　(ゝ.／/｀　　 ./｀|　 }⌒j　　　　　
　.い　し　.ル　　　　　　　} ⌒ ／｀ヽ､_∠l,ノ　・ヽ´
　.! !　か　の　　　　　　 /　　´..:.} ＞､､___,　 .r､ｿ､｀＼
　　　　　　　　　　　　　/　　　..:.:.}　　　/　　　|∨　｀￣
　　　　　　　　　　　／　　　..:.:./　　　 |　　　丶
　　　　　　　　　　 /　＿､　..:.:.:.{　　　 .{.:.:.　　　＼
　　　　　　　　　　{　　　..:Y　　.ゝ､　　 {.:.:.:.:.　　　ヽ
　　　　　　　　　　|､　　..:/　丿　.:〉　　 >.- ⌒ 　. 　ヽ
　　　　　　　　　 / {.　..:./　ｿ　..:./　 .(　　　　..:.:.:｀　..:}
　　　　　　　　 ./..:.:}.:.:./ ヘ､ ..:./　　 .＼　..:.:r＿,ノ､.:.:}
　　　　　　　　./..:.:/|.:/　　 {.:./　　　　　X.:.:}.}　　 X X
　　　　　　　 /..:.:/ .}.:| 　　 }:/ 　　　　　　.Y丶ヽ　　Y.:Y
　　.　＿＿／.:／　{　}　　《.〈､　　　　＿,,__>.:》丶　 Y.:＼
　　／.:.:.:.:.::／　　 !.:.:ゝ　　ゝ.:.￣ヾ　´:.:.:.:.:.:.:.:.:ヾゝ　　＼.:￣＞

2011/06/12(日) 10:46:29.27

いや争ってる (と思ってる) のは、１人だから (w

2011/06/12(日) 10:52:23.61

争いにもなってないよな
まったく関係のないバージョンの話なんて聞くような馬鹿だしｗｗｗ

2011/06/12(日) 11:02:12.26

ルールは守ろうねって言われたことが余程気に入らなかったようだな

反抗期なのかもしれないが､そんなんじゃ社会に出てから困ることになるぞ

2011/06/12(日) 11:10:17.42

なぜバージョンを聞いたんだい？ルールだからか？必要あったか？空気読まずに聞くほどに？
社会人としてのルールとして、そこの所を答えてくれないか？

2011/06/12(日) 11:18:56.10

　　　　　＿＿＿_
　　　　／⌒　　⌒＼
　　　／（ ●）　（●）＼
　／::::::⌒（__人__）⌒::::: ＼
　 |　　　　　|r┬-|　　　　　|
　＼　　　 `ー'´ 　　／　このスレ香ばしいNE！
　　 /｀ ‐-　＿_　- ‐‐ ´ ＼
　 / .l　　　　　　　　_,,ヽ ___ 〉､
　 |　l　　　　　　　/ ,' 3　`ヽｰっ
　ヒﾄ- ＿　　　　l　　 ⊃　⌒_つ
.　　 !__　　￣,￣ `'ｰ-┬‐'''''"
　　　L ￣７┘l-─┬┘
　　ﾉ￣/　　.!￣ヽ
　　└‐ '´　　　｀　-┘

2011/06/12(日) 11:53:03.08

>>172
なぜ理由を聞いてるんだい？ルールだからか？必要あったか？空気読まずに聞くほどに？

2011/06/12(日) 12:06:46.28

そこまで追い詰めるつもりはなかったんだが
鸚鵡返しするような状態になっちゃお終いですね
こんな人が社会に出てからとか言ってんだからお笑いです

2011/06/12(日) 12:34:17.84

一体誰を追い詰めた気になってるんだろう…
まあ、本人満足してるみたいだからいいか (w

2011/06/12(日) 12:38:25.19

総理大臣のようだNE！

2011/06/12(日) 12:40:40.77

道化を装う総理ならいいが
近年の人は愚かにしか見えない

2011/06/12(日) 18:39:16.06

スレ伸びてると思ったら
質問があったとかそれに対する返事だとかそういうのじゃないので伸びてたのか
残念だ

2011/06/12(日) 18:55:49.70

気づけばもう3日前からずっとこの流れなんだなｗ

2011/06/12(日) 19:10:39.68

>>179
同じく。
そもそも、このスレでバージョンは○○ですって書いてる人あんま見ないけどな。
ところで、COM使った開発とか新規でまだやってたりする？
この間.NETじゃないただのASPで動かさなきゃいけない案件があって、
バッチでも使う共通処理があったから、COMで作る事にしたんだが、VB.NET
でも簡単にCOM作れるのな。
中身はマネージドだから、VB6.0で作った方が動作は早かったかな。

2011/06/12(日) 19:18:18.05

終わった言語なんだし、ひっそりしていたほうが健全なんだ。

2011/06/13(月) 17:10:31.72

未だに終わった言語で開発させられている俺に謝れｗ

2011/06/13(月) 17:41:27.35

フヒヒ

2011/06/13(月) 20:30:45.05

なんかwordにＶＢエディタが入ってるんだけど
まさかこれってコンパイラＤＬしなくでもＶＢできる？
ＶＢはじめようと思ってんだけど
誰かコレについて教えてくれ

2011/06/13(月) 20:51:09.21

それは別物です

2011/06/13(月) 23:10:28.61

>>185
まあ VB と似たようなもんだけど、Word がないと動作しないよ。

まずは word vba あたりでググレ。

2011/06/14(火) 06:26:34.17

みんなツンデレだなぁｗ助かってるけど＾＾
言い方きっついレスポンスは幼馴染みが
照れ隠しで怒っている感じに変換して
読んでる

2011/06/15(水) 10:20:39.97

質問です。

Set xlBook = xlApp.Workbooks.Open(xlTestFile)で開いた場合
Arrayって使えますか？
読込んだTextを文字列か標準かを指定してデータをExcelに挿入したいのですが・・

2011/06/15(水) 11:00:48.32

VB6言語すらまともに使えない奴には
日本語での質問もまともに出来ない奴が多い件

2011/06/15(水) 11:19:07.01

VB6言語？

2011/06/15(水) 12:23:24.38

WinXP､VB6､SP6です｡

Controls.Addで動的に作成したTextBoxのMultiLineプロパティをTrueにする方法を教えてください｡
普通にコードで設定しようとすると「値の取得のみ可能なﾌﾟﾛﾊﾟﾃｨに値を設定することはできません。」というエラーが出ます｡

デザイン時にMultiLine=TrueにしたTextBoxをコントロール配列にしてLoadすれば､
MultiLine=TrueのTextBoxを動的に作ること自体は出来るのですが､都合によりコントロール配列ではダメなので｡

最悪､デフォでMultiLine=TrueなTextBoxをユーザーコントロールとして作って､それをControls.Addで動的に作成するという
手法も考えてますが､もっと簡単な方法があればご教示ください｡

2011/06/15(水) 14:40:03.68

VB6LEじゃActiveX作れんからプラグイン作れないんだな…orz

2011/06/17(金) 00:34:45.03

>>183
うらやましい
次の言語はなんですか

2011/06/17(金) 03:39:58.92

VB6のランタイムライブラリってぶっ壊れることあるんだな
家族の誰かが何かインストールしたらしくその際にVB6ランタイムが上書きされたかで
VB6およびVB6製アプリが正常動作しなくなった
ベクターにあったVB6ランタイムをインストールしたら直ったけど
ウィルス感染かと思ったわ

2011/06/17(金) 08:37:41.49

>>195
それは壊れるとは言わない。
古いライブラリに入れ替わっただけ。

そんなのはVB関係ないし、OSだって関係なく
起こり得る話。

2011/06/17(金) 13:07:36.93

どうせインストーラ型のVB6製アプリ入れる時にシステムに既に同じのあるけど上書きする？って聞かれて、
「なにこれわかんない。とりあえずはいでいいよね」って選択していったんだろ

2011/06/17(金) 15:32:50.01

spの古いランタイムに変わるとVB起動時およびVB製アプリ動作時にmsiとか起動するもんなの？

2011/06/17(金) 17:00:17.40

3文字ごとに[,]を打つのに作った↓コレが不具合の原因で
OutputBox.Text = Format(CDec(OutputBox.Text), "#,###.##############")
'[2.0]で持ってくると
'CDecで文字列を数値にしているので
'ただの[2]として認識されて[2]だけが出力される
'[2.03]だとそのまま[2.03]で認識してくれる

別の書き方ってあります？

2011/06/17(金) 17:30:29.57

OutputBox.Text = FormatNumber(OutputBox.Text)