VBプログラマ質問スレ（6.0以前） Part45

　 ∧＿∧
　（　´∀｀） ＜ ぬるぽ

今だ！2ゲットォォｫｫ！！
￣￣∨￣￣￣￣￣￣￣￣
　　 　 ∩ ∩
　　 〜| ∪ |　　　　　　　　　(´´
　　 ﾍﾉ　　ﾉ　　　　　　　(´⌒(´
　　(（つ　ﾉ⊃≡≡≡(´⌒;;;≡≡≡
　　￣￣￣(´⌒(´⌒;;
　　　ｽﾞｽﾞｽﾞｽﾞｽﾞ

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

前スレ Part44 http://pc8.2ch.net/test/read.cgi/tech/1130231657/


VB.NETは別物なので専門スレで、
VBS、APIの質問もそれぞれのスレで。（>>2 で紹介）

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.NET質問ｽﾚ (Part13)
http://pc8.2ch.net/test/read.cgi/tech/1131755402/

VisualBasic6.0　対　VisualBasic .NET 2003
http://pc8.2ch.net/test/read.cgi/tech/1116555483/

API関連の質問はこちらへ
Win32API質問箱 Build38
http://pc8.2ch.net/test/read.cgi/tech/1133798345/

○ 質問者の心得
　一．質問する前に過去ログにも目を通してみる。
　二．質問する前に MSDN などで調べてみる。
　三．VBScript はこのスレでＯＫ。
　四．インストーラーなどの質問もＯＫ。
　五．荒らしは相手しない。
　六．VB.NETの話題はできるだけひかえる。
　七．質問は第三者にもわかりやすいよう簡潔かつ具体的に。


○ 回答者の心得
　一．答えられない質問は無駄に罵倒せずスルー。
　二．代用法を強制しない。
　三．回答する上で必須ではない情報をむやみに聞き返さない。
　四．荒らしは相手しない。
　五．VB情報募集中。
　六．VB.NETの話題はできるだけひかえる。
　七．回答は質問者が理解できるよう具体的に。

過去ログ
　　Part 1 ttp://piza2.2ch.net/tech/kako/968/968328471.html
　　Part 2 ttp://piza2.2ch.net/tech/kako/990/990793224.html
　　Part 3 ttp://piza2.2ch.net/tech/kako/1000/10005/1000523122.html
　　Part 4 ttp://pc.2ch.net/tech/kako/1006/10069/1006922992.html
　　Part 5 ttp://pc.2ch.net/tech/kako/1010/10106/1010624646.html
　　Part 6 ttp://pc.2ch.net/tech/kako/1013/10138/1013844542.html
　　Part 7 ttp://pc.2ch.net/tech/kako/1015/10158/1015836357.html
　　Part 8 ttp://pc.2ch.net/tech/kako/1018/10187/1018794901.html
　　Part 9 ttp://pc.2ch.net/tech/kako/1020/10208/1020830472.html
　　Part10 ttp://pc.2ch.net/tech/kako/1022/10221/1022127528.html
　　Part11 ttp://pc.2ch.net/tech/kako/1024/10243/1024380249.html
　　Part12 ttp://pc3.2ch.net/tech/kako/1026/10266/1026642565.html
　　Part13 ttp://pc3.2ch.net/tech/kako/1029/10292/1029241786.html
　　Part14 ttp://pc3.2ch.net/tech/kako/1030/10309/1030947162.html
　　Part15 ttp://pc3.2ch.net/tech/kako/1032/10327/1032706491.html
　　Part16 ttp://pc3.2ch.net/tech/kako/1034/10343/1034302532.html
　　Part17 ttp://pc3.2ch.net/tech/kako/1036/10361/1036154952.html
　　Part18 ttp://pc3.2ch.net/tech/kako/1038/10381/1038103769.html
　　Part19 ttp://pc3.2ch.net/tech/kako/1039/10398/1039859691.html
　　Part20 ttp://pc2.2ch.net/tech/kako/1041/10418/1041879465.html
　　あとわからん

新スレついでにしつもん。

VB6、DAO3.51でエクセルファイルをデータベースとして読み込んでいた。
そのときは範囲名（セルの一定範囲に名前つけるやつ）をそのままテーブル
として使えたが、DAO3.6にしたらそのままでは読めなくなった。
シート名の場合は末尾に＄だが、範囲名は末尾に何つけたらおｋ？

明日は有休ですが何か？

Set WshShell = WScript.CreateObject("WScript.Shell")
Do
Set objExec = WshShell.Exec("D:\Program Files\hoge.exe")
WScript.sleep 3000
Wshshell.SendKeys "{ENTER}"
WScript.sleep 120000
objExec.terminate
WScript.sleep 300000
Loop

これでエンターを送ったあとに既に起動しているhage.exe（hogeとは別物）を終了させたいのですが、どうやったら終了出来ますか？
OSはXPです。
Alt+F4を送る以外のやり方でご教授お願いします。
全くの初心者でどこで聞いたらいいのかよくわからなくて･･･スレ違いだったらすいません。

>>8
http://www.tt.rim.or.jp/~rudyard/torii009.html

SendMessage

BASP21を利用して　メールで添付されてきたCSVファイルを取り出して　指定したフォルダに
自動的に保存したいのですが。

「　output = bobj.ReadMail(file, nobody, Folder)　」を
下のコードの中にどのように追加すればいいでしょうか？


Dim bobj, ar
Dim Server As String, User As String, Pass As String, Command As String, Folder As String
Set bobj = CreateObject("basp21") ''BASP21オブジェクト
Server = "pop.xxxxx.com" ''POP3サーバー
User = "toru_tanaka" ''アカウント名
Pass = "password" ''パスワード
Command = "SAVEALL" ''コマンド
Folder = "<" & ThisWorkbook.Path & "\mail" ''保存するフォルダ
ar = bobj.RcvMail(Server, User, Pass, Command, Folder)
If IsArray(ar) Then
MsgBox "メールを受信しました"
Else
MsgBox "新着メールはありません"
End If
Set bobj = Nothing

WinXP(SP2) VB6.0(SP6)にてframeコントロールの中にoptionコントロールを配置したものをコンパイルしました。
作成された実行ファイルをmanifestファイルを使用して起動したところ、
frameコントロールにそのままoptionを配置しているにもかかわらず正常に表示されました。

frameコントロール内の表示バグが改善された原因をご存知の方は見えますか？
コンパイルしたコンピュータで正常に表示されていれば、他のコンピュータでも正常に表示されると思っていいのでしょうか？

ていうか誰か早く>>1を殴れ。

ここは>>1をﾇﾙｰして1000を目指すスレになりますた

ﾎﾟ

ﾇﾙｰされた>>1はぬるぬるになってしまうの？

FAQ
Q.文字列関数の後ろの$って何？
A.$なしはVariant型、ありはString型を返す、また速い。$付きにNullを渡すとエラーになる。

Q.そのNullエラー現象がうっとうしいんですけど回避策はありますか？
A.文字列変数 = Null入り変数 & "" みたいに空文字列をつなげてください。

Q.モジュールレベル変数宣言のDimとPrivateって何が違うの？
A.モジュールレベル変数宣言のDimは古い構文。
　ちなみにVB.NETではPrivate Dimが正式構文で、しかもIDEがDimを自動で消す。

Q.CommandButtonにPictureプロパティを設定しても出てこないんですが？
A.Styleプロパティをグラフィックスにしてください。

Q.フォームのアイコンをなしにして、かつ×ボタンを出すってできる？
A.BorderStyleをツールウィンドウにしてください。

Q.それだとタイトルバーが細くなるからいただけないんだが？
A.なら固定ダイアログにしてIcon = Nothingにしろ。

Q.それだと可変が出来ないじゃないか。
A.まずMSのガイドラインでは「ダイアログ」は大きさ固定を原則としていることを知れ。
　それでもやりたけりゃSetWindowLongでWS_THICKFRAMEを設定しる。

Q.Foo(1)はいいけどBar(1, 2)と引数が２個以上だとエラーに。なぜ？
A.Callをつけないときは括弧なし。Foo(1)の括弧は引数の括弧じゃなくて式の括弧。

>>17の最後のAに補足。
Foo(A) と Foo A では、引数がByRefのときに結果が変わります。
括弧で囲むと式の結果値が渡されるので、ByRefでもAの値は変化しません。

VBに ぬるぽ はありません

別フォームの**を〜、のAも欲しいな。
お前が書けといわれそうだが文才がないので遠慮しときます。

>>19
VBのぬるぽはこいつだ。
実行時エラー 91 : オブジェクト変数またはWith ブロック変数が設定されていません。

>>17の最初のAに「型宣言文字というもの」を入れてください。

rnd関数について教えてください。
VB6sp6で麻雀ゲームを作っているのですが、山を積む方法で困っています。

一応トランプのシャッフルなどで説明を見かける方法で
以下のように作ってみたのですが、ランダムの精度（？）が低く、
これの1000回試行を何度か行ったところ、だいたい1000回のうち10〜30回ほど
同じ山が積まれてしまいます。

シャッフル回数を増やしたり、またそのシャッフル回数自体をrnd関数で
決めてみたりといったことは考えてみたのですが…
どうも根本的な解決にはならないような気がするので、何か別のいい方法があれば
教えてください。

INIT_HAIYAMA:シャッフル前のソートされたコレクション
HAIYAMA:シャッフル後のコレクション

Do Until INIT_HAIYAMA.Count = 0
Randomize
i = Int(Rnd * (INIT_HAIYAMA.Count - 1)) + 1
HAIYAMA.Add INIT_HAIYAMA.Item(i)
INIT_HAIYAMA.Remove(i)
Loop

カードのシャッフル程度の用途は組み込みの乱数で問題ないはずだと思うけどね。
とりあえずループの中で毎回Randomize呼ぶのは問題でしょうな。

Randomizeを外に出したら重複は減りました。
が、やっぱりまだでます。1000回のうち一桁程度ですが。
そういうものなのか、それともまだコードにおかしな点があるんでしょうか？
なお、牌の枚数は、三麻なので28種112枚です。

i = Int(Rnd * (INIT_HAIYAMA.Count - 1)) + 1
はおかしい。

0 ≦ Rnd ＜ 1

なのだから上式だと 1 〜 INIT_HAIYAMA.Count - 1 の範囲の乱数になる

配列の基数が 1 なら
i = Int(Rnd * INIT_HAIYAMA.Count) + 1

としないとダメ

そうですよね。Collectionだし。これだと最後の牌が固定になりますね。
きちんとチェックせずにサンプルコードぺたぺたやってると恥かきますね。(´･ω･`)

Q.変数や関数の後ろに$とか%とか付いてるのを見るんだけどあれは何？
A.型宣言文字。%=Integer, !=Single, #=Double, $=String, &=Long, @=Currency
　VBから追加されたもの(@)もあるが、基本的に古い構文の名残です。
　ただし文字列関数の$は、Variantを扱うかStringを扱うかの違いで現役。

前スレより下がりそうｗ

どこに前スレが有るんだ？

>>29
1000いったスレより下がるわけないだろアホ

Q.四捨五入を……。
A.ベストとは思いませんがとりあえず。もっと簡単なの募集。
'切り捨て
'10 の Place 乗の位で切り捨てる。
'Place = 2: 100 の位
'Place = 0: 1 の位
'Place = -1: 小数第 1 位 (既定値)
Public Function Omit(ByVal Number As Variant, Optional ByVal Place As Long = -1) As Variant
　　Dim Power As Double
　　Power = 10 ^ (Place + 1)
　　Number = Number / Power
　　Omit = Int(Number) * Power
End Function

'切り上げ
'10 の Place 乗の位で切り上げる。
'Place = 2: 100 の位
'Place = 0: 1 の位
'Place = -1: 小数第 1 位 (既定値)
Public Function Revalue(ByVal Number As Variant, Optional ByVal Place As Long = -1) As Variant
　　Dim Power As Double
　　Power = 10 ^ (Place + 1)
　　Number = Number / Power
　　Revalue = -Int(-Number) * Power
End Function

'四捨五入
'10 の Place 乗の位で四捨五入する。
'Place = 2: 100 の位
'Place = 0: 1 の位
'Place = -1: 小数第 1 位 (既定値)
Public Function RoundOff(ByVal Number As Variant, Optional ByVal Place As Long = -1) As Variant
　　Dim Power As Double
　　Dim Sign As Double
　　Power = 10 ^ (Place + 1)
　　Sign = Sgn(Number)
　　Number = Sign * Number + 5 * 10 ^ Place
　　Number = Number / Power
　　RoundOff = Sign * (Int(Number) * Power)
End Function

探せばすぐに出てくるだろ。恥ずかしいな俺よ。
ttp://www.alato.ne.jp/kazu-/vb/tip24.htm

こんばんわっす。初心者ですが、質問させてください。

MSCOMMを使って、パソコン間のシリアル通信をしたいのですが、特殊な
NW層（TCP/IPではない）を利用する為、専用のデバイスを介して通信
する事になります。
実は、パソコン間の通信はTERATERMを使ってできているのですが、これ
をVB6.0のテキストエリア上で実現したいのです。

現状は、TERATERM→MSCOMMにデータを送り、VB6.0のﾃｷｽﾄｴﾘｱに表示は
できるのですが、MSCOMM→TERATERMへデータ送信できません。
これでは当然MSCOMM−MSCOMMはできない訳で．．．

TERATERM上では、ENTERを押す事でデータが送られます。
TERATERM−NW層の間には、Cで書かれたプログラムがあるのですが、
もしかして、キーボードからの入力だけしか送られないように
なってるのでしょうか？

とりあえず送りたい文字列をoutputプロパティに入れてCRを付けて
送っているのですが全然送ってくれません。

藁にもすがりたい思いなので、何か気が付くことがあれば教えて下さい。
お願いします。

>>36
他人がわかるように説明しろ。

既に出来上がっているコードを解読しろとの命令が下ったのですが、
Do-Loopの使い方でわからないところがあり、手が止まってしまいました。
問題の部分がこちらです。

Dim sample As Integer

Do ---(1)
　　Do ---(2)
　　　　If sample = 0 Then ExitDo
　　　　DoEvents
　　Loop
　　Text2(1).Text=frm2.Text1(0).Text
　　(以下コードが続く)
Loop


と言う形なのですが、この場合、
sample の値が 0 の時は (2) の Do-Loop を抜け出して、
(1)の Do-Loop を実行するという意味になるんでしょうか？
# それだと sample の値が 0 以外の場合と変わらないのでは…？
# と、こちらの思考が無限ループしてます…。

申し訳ありませんが知恵をお貸しください。お願いいたします。

>>38
いろいろ弄った末、無駄なコードが
残ってしまったのかもしれません。

仕様書ではどうなってまつか?

>>39
それが渡されたのがおざなりな取扱説明書だけで、仕様書なしの状態なのです…。
いろいろ弄った結果の無駄なコード、ですか。
VB初心者のために参考書とネット情報片手にやってるのですが、
Do-Loop を使うときには当然条件式が必要になりますけど、
If 文を条件式として使うのはありなんでしょうか？
基本式では Until と While があるのは理解できたのですが、例文をいろいろ見ても
If 文が条件式として使われるものが見つからなかったので…

きれいなプログラムとは言わないけど、アリだろ。

>>40
while(1) {}
みたいなもんでそ。

sample <> 0 だと無限ループだし、sample = 0の場合も単なる空ループ。
内側のDo-Loopブロックの存在意義は無いな。

>>41,42
なるほど。
ということは>>38の場合、Do-Loopの条件文は If 文であると見るべきなんですね。

>>43
内側の Do-Loop はないものとして考えた方がよさそうですね。

皆様、貴重なご意見ありがとうございました。

> 内側の Do-Loop はないものとして考えた方がよさそうですね。
めちゃくちゃな結論だな。
DoEventsが無きゃそうなんだが。
このルーチンは
sample = 0 以外の時はWindowsに処理を戻すと言う
ルーチンだな、コードは稚拙だが。

ここにRDSに詳しい方、おられますか？

なにそれ食べ物？

>>47
Remote Data Serviceの略のようです。

Set hoge = rdsDs.CreateObject("HOGE_DLL.RDSClass", "http://hoge")

このようなコードがあった場合、HOGE_DLL.RDSClassは
やはりVBで作成されているのでしょうか？
サーバーにあるActiveXDLLをCreateObjectしていると
思われるのですが・・・

RDS以前の問題だなw

>>50
なんですとー

VisualBasic6.0 + Winsock6.0コントロールです。

Winsockコントロール１つで、
HTTPリクエストを複数なげようとしているのですが…
・レスポンスを受け取る前に次の送信をしようとするとエラー
になります。これは、そういうものだということで問題ないです。

となると、レスポンスを受信するまで次の送信を待つという処理が必要になるかと思います。
それで、まだレスポンスを受信していない場合は、フラグを立てておいてループで待つようにしてみました。
-----
Do While flgHttpRequest
DoEvents
Loop
-----
フラグはレスポンスを受けたら FALSE にセットするようにしてます。

しかし、これだとビジーループに処理を取られているためか、
DataArrivalイベントは起こりません。

どのような方法で待つのが正しいのでしょうか？

・接続開始
Connectメゾッド

Connectイベント
SendDataメゾッドでリクエストパケット送信

DataArrivalイベント
GetDataメゾッドでデータ取得

Closeイベント
Closeメゾッドで切断

って感じ。（HTTPの場合）
複数の場所と同時接続する場合には、同時接続する分のWinsockインスタンスが必要。

wavファイルを再生するためにMCIを使っていろいろしてるんですが、
再生速度を変えるために、MCIWndSetSpeedが使えると思ったのですが
実行すると、「ドライバは指定されたコマンド パラメータを認識できません。」と
エラーがでます。原因は何が考えられるでしょうか？

Public Function MCIWndSetSpeed(ByVal hWnd As Long, ByVal Speed As Long) As Long
MCIWndSetSpeed = SendMessageAsLong(hWnd, MCIWNDM_SETSPEED, 0&, Speed)
End Function

グラはファミコン以下ですが、
個人的には結構面白いサッカーゲームです。
一人用ですが。

某雑誌に掲載されてた記事
「一試合３分から楽しめる本格派サッカーゲーム。
グラフィックは簡素だが、やり込み派にはオススメしたい一本。
　
こだわりのカスタマイズが面白い。
簡素なグラフィックとは逆に、戦術面は細部まで作りこまれている。
システムやプレスのON/OFFから、なんと選手一人一人のポジショニングまで設定可能だ。
こだわりのチーム作りが楽しめる。」

フリーゲームなんですが、管理人がいないらしいので、
サッカー好きでプログラムのできる方居たら助けてやってください。
このゲームで対戦できたら面白いと思うので

RolePlaying Eleven
http://ime.st/www.geocities.co.jp/Bookend-Kenji/2279/

最近立った2chスレ
http://game10.2ch.net/test/read.cgi/netgame/1134392861/

漏れはVBは糞だ糞だと聞いてVC++をひたすら勉強した。
そしてVCが多少扱えるようになった頃VBに浮気してみたら簡単にアプリが作れた。
何より楽しい。

実行速度がどうのこうの言われてるVBだけど実際実行速度がそんなに重要になることってあるんだろうか？

大量のデータ処理を行う、画像や音声処理は辛い。

VB6でWindowsMediaPlayerのActiveXを組み込んで使用しています。
初歩的な使い方は何とかなったのですが、細かな使い方がわかりません。
どこかMediaPlayerのプロパティやメソッドについて解説しているサイトがあったら紹介してもらえませんか。

具体的には動画のアスペクト比を変更して再生したいのですが、それが可能かどうかすらわからない状態です。

>>58
9&10用SDK案内
ttp://www.microsoft.com/japan/windows/windowsmedia/knowledgecenter/developerdepot.aspx

7&6.4用SDK　日本語
ttp://msdn.microsoft.com/library/ja/default.asp?url=/library/ja/wmplay/mmp_sdk/default.asp

7&6.4用で日本語で基本を押さえておくのが吉
ん？VBのFORM上でActiveXコントロールとして扱えるのは6.4までだっけか？
以降のはIE上では動くからWebBrowser経由か？
つーか昔ちょっと遊んだくらいだから知らないんだわｗ

これらMediaPlayerのSDKは単体でダウンロードサイトにあるはず。
ダウンロードしてインストしれ

【クラスモジュール内でExcelWorkbookを開いて、そのWorkbookオブジェクトを返すには？】

Excelファイルをパス指定して、取得したオブジェクトを使いまわしたいのですが、
こんなことできますでしょうか？

Private Sub Form_Load()

Dim xlGet As getExcelObject
Dim xlApp2 As Excel.Workbook

Set xlGet = New getExcelObject
xlGet.xlPath = "C:\MyApp\SampleData\xls\Simple.xls"

xlApp2 = xlGet.openExcelWorkbook

End Sub

*** クラスモジュール ***
Public xlPath As String
Public Function openExcelWorkbook()

Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook

Set xlApp = CreateObject("Excel.Application")

Set xlBook = xlApp.Workbooks.Open(xlPath)　'Excelﾜｰｸﾌﾞｯｸの読み込み

openExcelWorkbook = xlBook

End Function
*********************

JAVAが組み込まれたHTMLのjavaのデータを読み取るにはどうしたらいいんでしょうか？
WebBrowserコントロールでTAGでくくられたデータはとれるのですが、
javaはどうするのでしょう。
どなたか親切な方、教えてください。

一部間違ってるけど、やろうとしてことは出来るよ。
出来るかどうかしか聞いてないんだから、どうやるかは自分で調べてね。

56はC++を使いこなせていなかっただけ

61>>
取れる DHTML勉強しろ
DHTML勉強する気が無いなら InStr( ) Mid( ) でHTMLソース分解


JAVAってなに？ Script？ Applet？
ScriptならMSHTML.HTMLDocument.scripts で取得
AppletならMSHTML.HTMLDocument.applets で取得

>>60
どんな質問やねん。
できますでしょうか、って自分で試せよw

答えをいえばそれは可能だけど、しかしそんなパブリック関数を持つなら
クラスにする意味は何もないね。

そういうゴチャゴチャしたことを内部に隠蔽するためにクラスってのはあるんだよ。

>>56
普通のアプリを作るうえでは余り問題無い
だがVBは(.NET除く)簡単にできるぶん、VC++でやるよりできることが少ない

漢字をカナに変換する方法を探してるのですが、
ExcelのGetPhonetic関数は、当然Excelがインストールされていない環境では使えませんし
ImmGetCompositionStringはテキストボックスなどのコントロールを使わないと取得できないようです。

XP/2000の標準環境で使えて、コントロールを使用せずに、コードのみで漢字の読み仮名を返す方法を
ご存じでしたらご教示ください。ImmGetCompositionStringをコントロール無しで使う方法でも、もちろん構いません。
環境はVB6SP5です。コントロール配置して非表示にすればいいとかは無しでお願いします。

>>67
自助努力って言葉を知らないのか？
ちょっとググれば簡単に答えが見つかると思うが。
見つけられないなら君は無能だ。
http://www.google.co.jp/search?num=100&hl=ja&as_qdr=all&q=vb+%E6%BC%A2%E5%AD%97++ime+%22%E8%AA%AD%E3%81%BF%E4%BB%AE%E5%90%8D+%22+%E5%8F%96%E5%BE%97&lr=

68って可哀相

いやいや、俺の方が可哀想だって

俺も俺も

>>62,65

あー、なるほど。概要が見えてきました。

クラスモジュールの中でオブジェクトを取得させて、各々の処理を定義したメソッドを
外から使うんですね！

ちなみに、60で書いたコードをいろいろいじってるのですが、どれもエラーが出てしまって
うまくできませんでした。
Workbookオブジェクトを戻り値として扱えますよね？

>>68の検索結果に答えが見つからない件について

無理して煽らなくていいよ。アホなのは分かっているから

>>73
やっぱり本物の無能みたいだね。
見つからないって一番最初に出てるでしょw
馬っ鹿じゃなかろうか。

というかね、せっかくImmGetCompositionStringなんて知ってるんだから
一番最初にやるべきことはMSDNの該当ページを開いて参照のリンクを見るとか
目次に同期させて関連するような関数を手当たりしだい調べることなんじゃないの？
こんなのPG暦三ヶ月の新人君でも知ってて当然のスキルだよ情けない。

1件目って、ざっと見た限り
> コードのみで漢字の読み仮名を返す方法
に反してるような気がするのは気のせい?

EXCELスレでスレ違いといわれたので、一番近いと思われるここに移動してきました。

Execl 2000でImplementsを使用するとたまにエラーになります。
エラーになる箇所は、インターフェースIをImplementsしたクラスCを
I型の変数に代入しようとしたときに型が違うとでます。

また、これに関連しているかどうかわからないですが、
インターフェースをImplementsしているSheetのcellsをアクセスすると
メモリ不足というエラーが出ます。

いずれもSheet名（すべて、もしくは該当するSheet）をいったん別名に変えて元に戻すだけでなおります。
（例：Sheet1をVBAのプロパティウインドウでSheet1Xに変えてEnter。そのあとまたSheet1に戻す）

ExcelでImplementsを使うのは鬼門なのでしょうか？
それとも別の原因があるのでしょうか？
なにか関連しそうな情報はありませんか？

> Execl 2000でImplementsを使用するとたまにエラーになります。
エラーになるものでいいから、おまえが書いたソースをここに貼れ。
何レスつかってもいいから省略せず全てね。

> ExcelでImplementsを使うのは鬼門なのでしょうか？
｢Excelで｣と聞くからにはVB6ではうまく使えてるのか?
そうじゃないなら鬼門とかじゃなくて、おまえが使えてないだけだからな。

> 見つけられないなら君は無能だ。
> やっぱり本物の無能みたいだね。
> 見つからないって一番最初に出てるでしょw←
> 馬っ鹿じゃなかろうか。
> こんなのPG暦三ヶ月の新人君でも知ってて当然のスキルだよ情けない。


回答の是非は知らんが、一言多い
これが荒らし目的の煽りでなければ、天然バカだ

納期に追われてイライラしてるんだろ。可哀想に。

>>77
> ｢Excelで｣と聞くからにはVB6ではうまく使えてるのか?
Excelの話なのになんでVB6がでてくるの？
名前変えて直るって言ってるんだから、書き方に問題は無いでしょ。

>>80
ﾜﾛﾀ

>>78
で、えらそうなのに限って自分は何も知らない罠。
言うだけ言って去っていくやつ多すぎ。

もし何か知っているのなら、最低限自分の経験上の話など
何かしらの情報だせるはずだからね。

>>70
全部書いたら、20レス以上になりますが。
っていうか仕事のコードなので勝手に書くことは出来ません。
バグなら自分で修正しますし、修正してもらおうとも思っていません。

エラーは何の問題も無く動いているので、わかりません。
VBAを変更すると出ると思いますが、また名前をいったん変えて戻すという作業が
面倒なので、コードを修正する必要が出てエラーが再現されたときに書きます。

繰り返しますが、コードは何も変更することなく、Sheet名を変更して戻すだけで直るんです。
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

私が聞きたいのは、ExcelでImplementsを使ったプログラミングをしたことがある人に対して、
Implementsに機縁するかもしれない、このような問題があるのかということです。

× エラーは何の問題も無く動いているので、わかりません。
○ エラーは今は何の問題も無く動いているので、わかりません。

Implementsの使い方は間違ってないと思います。
VB6で普通に使っていましたし、
自分のImplementsを使ったプログラミング方法の説明サイトは
2chでも何回か紹介されましたが好評でしたよ。

Excel内のVBAから同じExcel内のオブジェクトを使ってるでいいのかな。
短くて再現性のあるコードがあればいいんだけどね。
VBAの質問はどこいってもスレ違い扱いされるから難しいよね。

>>85
そのサイトのURLｷﾎﾞﾝﾃｨｰﾇ

> 2chでも何回か紹介されました
ってのが本当なら、ここで晒しても全く問題ないよな。

>>76
Excel 2003だとどうなります？
もしExcel 2003で大丈夫なら、Excel 2000のバグでしょうね。
このばあいImplementsを使わないで書くしかありません。

あとインターフェイスIで宣言した変数と、クラスCで宣言した変数
が衝突しているとか。インターフェイスIに関数やサブルーチンも
書いちゃってるとか。傍観者なので身勝手なこともいっておきまつ。

>>86
> Excel内のVBAから同じExcel内のオブジェクトを使ってるでいいのかな。
そうです。

> 短くて再現性のあるコードがあればいいんだけどね。
ちょっといま忙しいので、そのうちやるかもしれません。年明けにでも。
今は余計なことしたくない。

>>87-88
恥ずかしいじゃないですか。
サイト作った時点では珍しい内容でしたが、今はもっといいページ出来てますからね。

>>89
残念ながら持ってないので試せません。

> あとインターフェイスIで宣言した変数と、クラスCで宣言した変数が衝突しているとか。
どういう意味かわかりづらいですけど、そんな変なのは無いつもりです。

> インターフェイスIに関数やサブルーチンも書いちゃってるとか。
書いていません。それに書いても問題ないはずですし。

あれから思い出しましたが、VBAでワークシート起動時にCommandBarsあたりいじくって
独自のツールバーを追加しています。これが原因だとは思えないですけど。

やっぱり、Excel VBAでImplements使っている人って少ないのでしょうね。
VBででも使っている人少なそうですし。うちのサイト少しは役に立てたかな・・・。

>>90
役立てたいからURLplz
恥ずかしいのは最初だけだってﾊｧﾊｧ

｢恥ずかしい｣

　　　嘘を誤魔化す

　　　　　　便利な台詞


……字余り

>>76
多分Implements云々は思い込みだと思うよ。
まあ、そう思う俺のほうこそ思い込みの可能性もあるけどね。

エクセル関連のオブジェクトって独特の仕様（まあ不具合だけど）があって、
「お約束」を守って操作してやらないとその手の問題が起こりがち。

エクセルのお約束に関してはいろんなとこで紹介されてるから
エクセルのオブジェクトの操作に不慣れなら有名どころはチェックしといた方がいい。
管理人がやたら神経質な花ちゃんなんとかとかさ。

またでたよ。さっきまで動いていたのにマシンを再起動しただけで
エラーになった。しかもちゃんと動くやつをバックアップしておいたのに
それもエラーになった。

普通にEXCELだけで動かすと、「メモリが不足しています。」
VBEを開いていると、

実行時エラー '32809'
アプリケーション定義またはオブジェクト定義のエラーです。

こんな感じのコードでエラーになっている。
Dim sh As Object
Dim i As Long
For Each sh In Sheets
i = 1
Do While sh.Cells(i, 1) <> ""←ここでエラー
Loop
Next sh

で、エラーがでて以降はイミディエイトウインドウから、
?sheet1.nameを実行しても同じエラーになる。

で、いまふと思いついて、前に書いたようにEXCEL起動時に
CommandBarsを弄くって独自のツールバーを追加して、そこからVBAマクロ実行
しているんだけど、そこからVBAマクロを実行する前に、EXCEL開いてすぐに
VBEから?sheet1.nameを実行したらどうか。

するとエラーが出ずに、しかもツールバーからVBAマクロを実行しても
エラーがでなかった。

とりあえず、ツールバー関連もあやしいなと思いつつ、
sheetでImplementsを使っているのは、シートの内容が変更されたか調べるためだけなので、
その他の方法（sheetが変更されたかどうか調べるプロパティある？）を探すか。
sheetを自作のクラスでラッピングして、そこでイベントを取得する方法に切り替えて
やってみるかもしれないのはいつだろう。

数分後・・・

ふと思って、ワークシート開いたときに、Debug.Print Sheet1.Name　（シートはたくさんあるのでこれを全部）
をやってみたらどうか？ ということで、

For Each sh In Sheets 以下略 で書いてみると、そこでエラー。
一行ずつ Debug.Print Sheet1.Name ・・・ としたらエラーにならず。
もしかしてFor Each が悪いのか？ と思い、元のコードを
For i=1 To Sheets.Count
Set sh = Sheets(i)
〜 今までのコード〜
Next i
としたら、エラーにならず。ってことでFor Each でまわすのが悪いっぽい。

これが、ImplementsしたsheetをFor Eachでまわすのが悪いのか、
単に、sheetをFor Eachでまわすのが悪いのかは、そのうち実験するかもしれない。

お
な
か
す
い
た

>>96
>これが、ImplementsしたsheetをFor Eachでまわすのが悪いのか、
>単に、sheetをFor Eachでまわすのが悪いのかは、そのうち実験するかもしれない。
馬鹿？
だからどっちでもないって言ってるでしょ。
残念ながらエクセルには独特のお作法というか「おまじない」的なものがたくさんあるんだよ。
君はそのお作法を守ってないだけ。

Implementsって何？

>>98
原因がわかってないのに、なぜそう言えるのですか？
それともあなたには今の段階で、その守るべきおまじないがわかったのですか？
不思議なのですが。

だいたいその、おまじないを特定しようとしているんですけどねぇ。
それに「おまじない」と言って理由もわからずに書いている人多いですよね。

そういう人が、Nothingを代入すれば解放とか
クラスとしてのForm1と実態としてもForm1の区別がつかずに
ドツボにはまるんですよ。

私は、そんな人になりたくありません。

「アプリケーション定義またはオブジェクト定義のエラーです」でググったら

Excelウィルス検出アドインかノートン等のアンチウィルスソフトが反応すると起こるらしい。

アンチウィルスソフト切って動いたらお前は...

>>76
いいからもう来るな
お前の態度は鼻について仕方ない

開発環境：VB6sp3
実行環境：VB6ランタイム インストール済

この環境から、
「開発環境を.NETに移行するが、実行環境は変えずに済む方法」はありますか？
つまり、.NETでVB6と完全に同じモジュールを作れるのでしょうかといったことなのですが。

.NETがらみの質問はよくないとのことですが、VB6のソースをそのまま移行したいため、
VB6をあつかったことのある方が多いこちらのほうがわかる方がいる可能性が高いと思い書き込みしました。

>>104
スレ違い

移行絡みの話は.NETスレでどうぞ

>>105
そうですか、わかりました。スレ汚し失礼しました。

>>104
.net frameworkが必要だから無理だよ。

>>76
>>101
Nothingの正体も知らないで(Nothing は Null じゃ無いよ IUnknown::Release だよ)．．．
VBのImplementsはCOMインタフェースインプリメントだって事も知らないで．．．
オートメーション・COM・IDispatchも知らないで．．．
VBのクラスは JAVA C++ に比べて全く違うモノだから 混同させんなよ

この辺のコメントは前スレに書いてあったから見て味噌

VB.NETのSystem.Console.WriteLineのように文字をコンソール出力するには、
どうしたらいいでしょうか？

>>108
>この辺のコメントは前スレに書いてあったから見て味噌
「見て味噌」
ふむ・・・、なんとも懐かしい言い回しですね
このコメントから108の人物像が浮かび上がってきます
108は、OSをいたぶり殺す変質者、土地勘があり、年齢は20代〜30代、
もしくは40代〜50代、なんらかの前歴がある人物と考えられます

>>109
APIを使う
VBに限った話じゃないので、
何を使うか、どう使うかはここでは聞かないでね

>>109
前世紀のVBマガジンでサンプルあったよ。

コレクションに任意のKeyを持つメンバの有無を判断するにはどうすれば良いのでしょうか?
実際にコレクションにKeyを入れてエラーになるかどうかで判断する方法は解るのですが、
エラーになるかどうかで判断する方法以外で、出来ればなるべく高速な方法が知りたいです。

あと任意のコレクション内の位置(数値インデックス)のメンバに割り当てられてるKeyを調べる方法、
任意のKeyを持つメンバのコレクション内の位置(数値インデックス)を調べる方法を教えてください。

例えば
Collection.Add "hoge", "foo"
Collection.Add "huga", "bar"
の場合、"bar"というKeyを持つメンバの有無(=True)、"baz"というKeyを持つメンバの有無(=False)を調べたり、
Collection.Item(1)から、"foo"というキーを調べたり
Collection.Item(bar)から、2という位置を調べたりしたいのです。

クラスを使ってCollectionのようなものを自作すれば全て出来るし、
メンバに文字列ではなく、クラスを割り当てるだけでも下二つは可能なのですが、
標準のCollectionのメンバに単一の文字列を割り当てた場合に、これらのことをやる方法を教えてください。

環境はWindowsXP、Visual Basic6.0 SP5です。

>>113
その辺ことを便利にするのにDictionaryができたと思うからCollectionじゃできないんじゃない？

Dictionaryって順序が保証されないんじゃ？

今、VB6でPNGファイルから、圧縮してJPEGファイルを作るプログラムを
作成しようとしています。この圧縮のところを、LeadTools Raster Imaging Pro Ver.13
で作成するところまで決まっています。ところが、マニュアルが紛失してないので、
どなたかサンプルをつけてもらえないでしょうか？
また、その他の手でいい方法がありましたら、ご教授願います。
よろしくお願いします。

> マニュアルが紛失してないので
正規ユーザーなら、正規ライセンスを提示すれば
マニュアルくらい実費で送ってくれるだろ。

はっきり言って、コードを書いてもらいたいが為の言い訳か
割れ厨の詭弁にしか聞こえないぞ。

それに｢決まっています。｣って言っておきながら、その他の手も糞も無いだろ。

>>116
http://www.tt.rim.or.jp/~rudyard/torii009.html

>>116
マニュアルに親切丁寧に使い方なんて書いてなかったｷｶﾞｽ
ライブラリインストールしたんならヘルプも入ってるでしょ。
それで十分だしマニュアルと大体同じ。
それでも分からなければインストールされているサンプル見れば良いよ。

>>>>>>>>>>>116
ライブラリ購入しても 使いこなせる人材がいない可愛そうな会社．．．

>>108
んなこと知ってるから。

で、今日は休みなのでテストしてみた。
今までの検証から思いつくであろう最少のコードでテストしたら
見事に再現した。再現コードは以下の通り

【クラスモジュール名 I】 （Instancingを2 - PublicNotCreatableに変更】
Option Explicit
Public Sub foo()
End Sub

【Worksheet名 Sheet1、Sheet2、Sheet3】
Option Explicit
Implements I
Private Sub I_foo()
End Sub

【Workbook名 ThisWorkbook】
Private Sub Workbook_Open()
Dim o As Object
' Dim i As Long
' For i = 1 To Sheets.Count
' Set o = Sheets(1)
' Debug.Print o.Name
' Next i
For Each o In Sheets
Debug.Print o.Name
Next o
End Sub

当然Implements Iをしなかったら動く。
また、ThisWorkbookのコメントアウトの部分を省くと動く。
しかも、不思議なことにコメントアウトの部分を省くとFor Eachの部分までちゃんと動く。
その後で、またコメントアウトし、Excelを終了し再度Excelファイルを開くとなぜか動く。

でも、そのあとでコードを変更(スペースを入れる程度)したら動かなくなる。
たぶん、内部で読み込まれているExcel関連のDLLの生存期間に依存していると思われるので、
コードを変更しなくても、しばらく時間を置くか、PCを再起動したら動かなくなるだろう。

>>98
> >これが、ImplementsしたsheetをFor Eachでまわすのが悪いのか、
> >単に、sheetをFor Eachでまわすのが悪いのかは、そのうち実験するかもしれない。
> 馬鹿？
> だからどっちでもないって言ってるでしょ。
残念ながら、俺が言ったとおり、ImplementsしたsheetをFor Eachでまわすのが
悪いという結論に達してしまった。もし反論があるのなら、ちゃんと検証をしてから理論的にどうぞ。
まあ「おまじない」と言って理由もわからず、ただ書いてあることを鵜呑みにしている奴は俺には追いつけないだろう。

では、新しい「おまじない」ｗ

Excel VBAでは、何かのインターフェースをImplementsしたSheetを
For Eachで回すと、メモリ不足やアプリケーション定義またはオブジェクト定義のエラーです。などの
バグが発現する。それを回避するためにFor Eachではなく、Sheets.Countを使って回した方がいい。

ここまでやって、人に役立つことを書ける人間になろうね。

ここはお前の日記帳ですね＾＾

>>123
馬鹿だね。
実験結果の解釈法を知らないのは理科系出身じゃないのかな。
牛乳飲んで腹を下したからって「下痢の原因は牛乳」なんていったら医者失格だわな。
原因は熱（牛乳が冷えていたから）かも知れないでしょ？

断言するけどImplements云々は直接的な原因じゃないよ。
どういうことかといえば、インターフェイスを継承せずに
同じ症状が出るコードがまず間違いなく書けるだろうってことね。

＞＞１２５
おまい頭いいな

自慢の自サイトでやればいいのになｗ

>>125
で、直接的な原因は？
断言の根拠は？
間違いなく書けるだろうじゃなくて、書いたらどうだ

本当にお前理科系出身者かｗ

私のために争わないでｗｗｗｗｗｗｗｗｗｗｗｗｗ

ボクのシナリオにのって踊らないでｗｗｗｗｗｗｗｗｗｗｗｗｗ

>>121-123

解決したみたいだけど、そもそもImplementsのヘルプを読むと

＞Implements ステートメント
＞クラス モジュール内にインプリメントされるインターフェイスまたはクラスを指定します。

って書いてあるんだよね。Sheet1やらSheet2って、
「クラスモジュール」ではないような気が。

アナタには、パンツの表と裏を間違えて穿いてるみたいな
オカシサがあるので気をつけましょう。

>>121
確かに動かないな
でも Dim o As Object を Dim o As Worksheet に変えたら動いたよ
原因は分からんけど IDispatch::Invoke が Name を呼ぶのに失敗してるな　多分これエクセルのバグっぽい >> M$に報告しとけ

つーかWorksheet型があるんだからObject型なんか使うなよ
これからはFor Each文使わないでWorksheetでやれ
Sheets.Itemが返す型が分からなくて不安ならTypeOfでインタフェースチェックしろ　いいな

バイトから数値の変換で、±を気にしなかったら、2BYTEからINTEGER変換は、
Dim result(2) As Byte
result(0) = (val And 255& * 256) \ 256&
result(1) = (val And 255&)
でできると思いますが、8BYTEからCURRENCY変換はどうやったらいいか、
教えてください。
ANDがオーバーフローしてANDが使えないです。

リトルエンディアントでメモリに入ってるから、
RtlMoveMemoryとかで1byteずつとってくるのがいいでしょうか。

>>133
よくわからない質問だなあ。
そのバイト配列は当然もともとCurrency型の値から作ったんでしょ？
そんな必要がどこにあるのか知らないけど。
その逆の操作をするだけじゃないの？

まああまりエレガントなやり方ではないけどバイト配列を一旦バイナリファイルに
書き出せばVBネイティブの機能だけでできるね。
演算でやろうってそもそもCurrency型のビットイメージのフォーマットなんて
どっかに公開されてたっけ？

>>131
Sheetもクラスモジュールだろ
っていうか、それを言ったら、
Formもクラスじゃないとかそういうことになる。
おかしいだろ？

>>134
やりたいのは、Socket経由でCurrencyの値を送信して、かつ、復元することです。

ttp://www.codeguru.com/vb/gen/vb_misc/algorithms/article.php/c7495/
に、値の詳細っぽいのがありました。
ただ、Lsetで値をとっても、指数っぽいのがはいってたんで、
本当かどうかはわからないです。Longの場合はうまくいくんですが。

Private Type FROM_LONG
Value As Long
End Type
Private Type FROM_CUR
Value As Currency
End Type
Public Function Long2Byte(ByVal Value As Long) As Byte()
Dim Dest As TO_BYTEARRAY4
Dim Src As FROM_LONG
Src.Value = Value
LSet Dest = Src
Long2Byte = Dest.Value
End Function
Public Function Cur2Byte(ByVal Value As Currency) As Byte()
Dim Dest As TO_BYTEARRAY8
Dim Src As FROM_CUR
Src.Value = Value
LSet Dest = Src
Cur2Byte = Dest.Value
End Function

これでLong2Byteで、256を変換すると、256 = 0, 1, 0, 0 の配列になります。
Cur2Byteで256を変換すると、256 = 0, 16, 39, 0, 0, 0, 0, 0 の配列になります。

>>134

Public Function Byte2Long(ByRef Value() As Byte) As Long

Byte2Long = _
(Value(3) * 256& * 256& * 256&) + _
(Value(2) * 256& * 256&) + _
(Value(1) * 256&) + _
(Value(0) * 1&)

End Function

Public Function Byte2Cur(ByRef Value() As Byte) As Currency

Byte2Cur = _
(Value(7) * 256@ * 256@ * 256@ * 256@ * 256@ * 256@ * 256@) + _
(Value(6) * 256@ * 256@ * 256@ * 256@ * 256@ * 256@) + _
(Value(5) * 256@ * 256@ * 256@ * 256@ * 256@) + _
(Value(4) * 256@ * 256@ * 256@ * 256@) + _
(Value(3) * 256@ * 256@ * 256@) + _
(Value(2) * 256@ * 256@) + _
(Value(1) * 256@) + _
(Value(0) * 1@)

End Function

byte配列にした値を、上記みたいに復元したいってことです。

>>137
やっぱり>>134のでOKだと思うぞ？
エンコードしたのと逆順でデコードすればいいだけだよ。
手元で確認したけど、バイト配列の中身を盲目的にCurrencyに突っ込むだけで普通に復元できるよ。
（俺はCopyMemory使ったけど）

難しく考えすぎてないかい？
それとも復元は自前で計算しないと駄目なの？

>>138

>>137エンコード時点で、ANDの演算がオーバーフローしてしまいます。

Public Function Cur2Byte(ByVal Value As Currency) As Byte()

Dim Dest(8) As Byte

Dest(0) = (Value And (255@ * 256 * 256 * 256 * 256 * 256 * 256 * 256)) \ (256@ * 256 * 256 * 256 * 256 * 256 * 256)
Dest(1) = (Value And (255@ * 256 * 256 * 256 * 256 * 256 * 256)) \ (256@ * 256 * 256 * 256 * 256 * 256)
Dest(2) = (Value And (255@ * 256 * 256 * 256 * 256 * 256)) \ (256@ * 256 * 256 * 256 * 256)
Dest(3) = (Value And (255@ * 256 * 256 * 256 * 256)) \ (256@ * 256 * 256 * 256)
Dest(4) = (Value And (255@ * 256 * 256 * 256)) \ (256@ * 256 * 256)
Dest(5) = (Value And (255@ * 256 * 256)) \ (256@ * 256)
Dest(6) = (Value And (255@ * 256)) \ 256@
Dest(7) = (Value And (255@))

Cur2Byte = Dest

End Function

自前でエンコード／デコードしたいのは、
Javaや、Cのlong等、VBのLongを超える値を
Socket経由でやりとりするのを考慮したいからです。

>>76が近いうちに苦しんで死にますように

String変換して送受信すればいいんじゃね？

>>76が近いうちに苦しんで死にますように('人`)

MSHFlexGridで、Excelのような入力を実装しようと思い、
http://www.bcap.co.jp/hanafusa/VBHLP/MSFlexNO7.htm
の方法を試したのですが、IMEがONの場合に入力(というか表示)がうまくいきません。
IMEがONの場合、

a入力　　　　[| 　　　]　("あ"を入力したのに何も表示されない)
Enter入力　.[あ|　　]　(確定済みの黒文字)

となってしまうのですが、( [　　]がテキストボックス、 | がキャレット)

a入力　　　　[あ|　　]　(未確定の青文字)
Enter入力　.[あ|　　]　(確定済みの黒文字)

となるようにするにはどうすれば良いでしょうか?
毎回何らかのキー(サンプルではF2)を押してから入力するというのも面倒なので
どなたか解決法をご教示ください。
環境はWinXP VB6SP6 ATOK15です。

>>141
漏れもそう思ったｗ

Stringでやると、データの総受信料が増えるのと、
javaやcの8byteのlongを送受信するサーバーとの通信ができなくなるので、
byte配列でやることを考えました。

その後、ANDでのマスク処理を、256での割り算、
\演算子の処理をcurrencyでもいけるように割り算をつくって、
mod演算子の処理をcurrencyでいけるように割り算をつくっていけるようにしました。

result(7) = remaind(divide(val, (127@ ^ 7)), 256)
result(6) = remaind(divide(val, (256@ ^ 6)), 256)
result(5) = remaind(divide(val, (256@ ^ 5)), 256)
result(4) = remaind(divide(val, (256@ ^ 4)), 256)
result(3) = remaind(divide(val, (256@ ^ 3)), 256)
result(2) = remaind(divide(val, (256@ ^ 2)), 256)
result(1) = remaind(divide(val, (256@ ^ 1)), 256)
result(0) = remaind(divide(val, (256@ ^ 0)), 256)

で、currencyをばらして

(val(pos + 7) * 127@ ^ 7) + _
(val(pos + 6) * 256@ ^ 6) + _
(val(pos + 5) * 256@ ^ 5) + _
(val(pos + 4) * 256@ ^ 4) + _
(val(pos + 3) * 256@ ^ 3) + _
(val(pos + 2) * 256@ ^ 2) + _
(val(pos + 1) * 256@ ^ 1) + _
(val(pos + 0) * 256@ ^ 0)

で復元。

>>145
正しく無い

ディストリビューションウィザードでＶＢで作ったアプリのインストーラを作りました。

OLEを使ってExcel2000の表にデータを書き込むプログラムです。
Excel9.Olbの依存情報が不足しているというメッセージが出つつもインストーラが完成しました。
ファイルの中には確かにExcel9.olbが入っています。

当然　自分の環境はExcel2000が入っているので動作するのですが
Excel2003のパソコンでもこれは　動くのでしょうか？
Excel97は古いので互換が無い可能性があるのですが
Excel9.Olbだけで Excel2003,2002のＰＣでも動くのでしょうか

そもそも。再配布可能なのか？Excel関連？

picture.lineなどで書いた線って，
マウスイベントで修正したり消去できます？

図形をトレース出来るようにしたいのですが，
lineを修正や消去したかったらどうしたら良いですか？

書いた線はオブジェクトじゃないから、自分でオブジェクトとして内部管理する必要あり。

>自分でオブジェクトとして内部管理

どーゆーことでしょうか？

書いた線ってのはその時点で始点・終点などをピクチャーボックスが記憶してるわけじゃない。
もうその時点でそれらの情報は既になくなっているってこと。
なので、自分で描画する線のそれら情報を内部的に確保しておく。

その上でマウス操作された場合にリアクションするコードを書けばいいわけで。
大変だけどね。

おおざっぱにいうと
書いた線の情報を画像としてだけではなく
いわゆる変数に入れとく感じ？
座標やらなんやら

>>153
そういうこと。
それをうまく作っておけば、座標情報を表示する線分・領域は乖離せずに動作するはず。

>152

思い付いた方法としては，
あらかじめlineコントロールで大量に準備して，
visible=falseにしておく．
そしてトレースしたらvisible=trueにして表示させる．
で，mousedownで消去するなら，line1(a)をclearする．

ってな感じですか？

>>155
ちょっｗ
それはまずいんではないかとｗ
それやるにしてもコンテナ使うとかありそうだけど・・・

素人レベルの漏れが思うに
書いた線を全て記憶
消したり書いたりしたら
ピクチャボックス再描画って感じジャマイカ?

LineメソッドとLineコントロールをごっちゃに話してるから少し整頓。

Lineコントロール自体はオブジェクトで基点・終点は持っている。
ただしイベント認識できないので、自分がClickされたことを感知できない。

Picture自身は基本的には内部にLineメソッドで線を描くことは可能。

ここまでの話ではどちらで線を引いてるのかグレーだよ。


で、やり方のキーワードだけ書いとくね。
Lineコントロールを実行時に生成するのは、コントロールの動的生成、コントロール配列などを見てみて。
MSDNにサンプルあるよ。実行時にコントロールを起こす方法。
生成するコントロールの親ContainerはFormじゃなくPictureBoxにしておくこと。
多分だけどForEachで内包するコントロールを列挙して処理できると思う。
内包した場合、座標は親に対してになるので若干計算が楽になる。

>>157

んっ？
lineコントロールはイベント認識しないんじゃないんですか？
何を使えば(トレースした線は)マウスイベント認識してくれるんでしょう

>150の自分でオブジェクトとして内部管理する必要あり。
ってのは，どーやったらobjectに出来るんですか？

もしかして，
線を座標として認識させて、
座標(x,y)がクリックされたらって感じでマウスイベントを起こすんですか？

>どーやったらobjectに出来るんですか
VBは自作やね オブジェクト指向のセンス問われるよ
それに Lineコントロールを使わないで全て自己描画でやると相当骨が折れると思うよ

>座標(x,y)がクリックされたらって感じでマウスイベントを起こすんですか？
絵(線)にはイベントは無いよ
キャンバス(この場合はPictureBox)のクリック座標を元に線を描画する

基本的に Windowsの描画方法が分かってない気がする
Windows上の画像の修正処理は 一旦全て消して(塗りつぶして)から データを元に書き直してるんだよ
(高速で処理しているから 人間には処理されてる様に見える)

ゲームPGの参考書に描画について詳しく書いてあるから 目を通していくといいかも

>>143もよろしく御願いします

>>160
だが断る

あらかじめlineコントロールで大量に準備して，
visible=falseにしておく．
そしてトレースしたらvisible=trueにして表示させる．
で，mousedownで消去するなら，line1(a)をclearする．

を改良して

lineコントロールを動的配列にしました．

すると，
lineがimageの下に(formに配置される)配置されて表示されないのですが，
何か対策はありますか？

君につける薬は無いようです

>>157をよく読めよ

PicrueBoxの上にちゃんとラインコントロール置いてる？
一応ZOrderも実行したほうがいいかもな

TabletPC上でＶＢ6のプログラムから、以下のようなことをしたいです。

・VB画面上のコマンドボタンをタップ、あるいはテキストボックスをタップするとテンキーあるいはTablet PC 入力パネルが開く。
・テンキーや入力パネルをタップ、描画して「送る」などをタップすると、入力した数字または文字が所定のテキストボックスに落ちてくる。
・その後はテンキーや入力パネルを自動的に閉じる、もしくは×をタップすることで閉じられる。

ttp://review.tabletpc.jp/snap/TabletPC.asp?PID=1015 にあるような、、「Ink Pictureコントロール」と「Ink Editントロール」を使用可能にす
る、というところまではできました。

ttp://www.microsoft.com/japan/windowsxp/tabletpc/using/devtips/default.asp
などを参考にしているのですが、テンキーやパネルの起動、データの受け渡しなどを
どうすればよいのかが分かりません。

MicrosoftのMSDNを参照しつつ、
'Declare a new PenInputPanel object
Dim thePenInputPanel As PenInputPanel

Private Sub Command1_Click()
Set thePenInputPanel = New PenInputPanel

'Attach the PenInputPanel to an InkEdit control
thePenInputPanel.AttachedEditWindow = InkEdit1.hWnd
End Sub

というコードまでは通っています。
以下、
ttp://msdn.microsoft.com/library/default.asp?=/library/en-us/tpcsdk10/lonestar/microsoft.ink/Classes/peninputpanel/Events/panelmoving.asp
のあたりを参照しているのですがどれを用いたら良いのか。また、テンキーについてはどのあたりに記述があるのかが分かりません。
よろしくお願いいたします。

>>164
LineやラベルはPictureBoxの(ZOrderとしての)上には置けないよ。

>>162
imageじゃなくてPictureBoxを使わないとダメだ。
んで、LineコントロールはPictureBoxの中におくこと(PictureBoxをコンテナにする)

やっぱりだめ。

例の、WorksheetにImplementsをする件だけど、
どうしてもおかしくなる。>>132のDim o As Worksheet にするやつでもだめだった。

いったんはうまく動くんだけど、SheetsをFor EacｈやForで繰り返したりいろいろしていると、
Worksheetからインターフェースを取り出すところで型が違うってエラーになる。
例 Sheet1がInterfaceをImplementsしているときに、Dim i As Interface : Set i = Sheet1

で、例のごとくInterfaceの名前をいったん変えて戻すと再コンパイルされるからか動くようになる。

完全にExcel2000のバグだろう。たぶんSheetにImplementsしない以外に対処法は無い気がする。

愚痴・独り言はチラシの裏へ。

スレちがいかもしれないけど、
ネットワークパスワード入力ダイアログをよびだすコマンドがあったら教えてください。

>>167
空気嫁

おとなしくエクセルのVBAとかオートメーションを扱ってるサイトを参考にしてれば
今頃とっくに解決してる程度の問題だと思うがな。

エクセルのバグだあ？
最初からそういってるだろ。みんなそれをだましだまし使ってんだよボケが。

しかし無能なくせに「俺流」でやりたがって無為に時間を浪費する馬鹿って
どこにでもいるよな。
そういう奴って得てして自分は特別だと思ってるみたいだけどw

>>171はImplementsが特別な物だと思っている素人

>>171
俺流ってなんのこと？ Implements使うこと？

話の文脈ってのがわからないようでw
馬鹿じゃないの。

>>76がエクセル扱ってるサイトを少しも参照した様子がないところを責めているのに
Implementsとか意味わからん。
ここ十年こういうタイプの「話の通じない奴」が本当に増えたな。

>>171
無為に時間を消費するというが、そうやって時間を消費してわかったことが
公開されていることで、あんたが時間を消費せずにすんでるんだろうが。

なんで、わざわざ自分の時間で調べてくれている人に素直に感謝できないかな。

>>174
でさ、お前は参照したの？

WorksheetにImpelementsすることで発生する問題が
書いてあるサイトあるの？

>>76さん自演しすぎですよ

>>176
>>174は現在必死に検索中ｗ

ここだけに限らないけど、最近他人に偉そうに検索しろと言っておいて、
自分が検索してない、しかも何も知らない。って奴が増えたな。

馬鹿な奴ってどこまでも馬鹿だなあ。
文脈のわからない馬鹿だ、っていっているそばからこれだもの。
正直発達段階に問題があると思うよ。
おれ自身振り返って、少なくとも小学校6年生段階でも
こんなに劣悪な読解力してなかったと思うし。

WorksheetにImpelementsすることで発生する問題が
書いてあるサイト？
最初からImpelementsなんぞ原因じゃないといっているのにアホかw

>>76さん自演しすぎですよ

>>180
じゃあ何が原因なの？と聞いてあんた答えられないでしょ。
んで、言うのはバグがある。バグがある。
何をやるのが悪くて、何をやれば解決するか何一ついえない。

君には「無能」の二文字を送ってあげるよ。

Excelにバグがあるのはわかってるんだよね。
それどころか、どんなソフトにだってバグはある。
あるソフトにバグがあるってだけなら、誰にだって言える。

重要なのは、どうしたらそのバグが再現されて、
どうすればそのバグの影響を回避できるかって事なんだ。

>>76さん自演しすぎですよ

177 名前：デフォルトの名無しさん[] 投稿日：2005/12/27(火) 21:09:15
>>76さん自演しすぎですよ

181 名前：デフォルトの名無しさん[] 投稿日：2005/12/27(火) 21:36:03
>>76さん自演しすぎですよ

184 名前：デフォルトの名無しさん[] 投稿日：2005/12/27(火) 21:49:38
>>76さん自演しすぎですよ

必死すぎｗ

>>76さん自演しすぎですよ

根本的な原因がなにであるかはMSでないと分からない。
われわれが唯一出来ることは、どうやったらそのバグの影響を受けるかって事だ。

そのバグの影響を受けるコードはいくつもあるだろう。
しかし、WorksheetにImplementsをするだけで影響を受けるという情報は初めてだろう。
>>180もその書き方からしても認めたと考えてもいいだろう。

分かりようが無い根本的な原因がどうとか「バグがある。以上。」なんかよりも、
WorksheetにImplementsがまずいという情報があったことは有益だな。


あっ。これ自演だからｗ

>>76さん自演しすぎですよ

ここで、ぎすぎすした空気を一気に解消する魔法の一言。


ぬるぽ。

そうか、わかりました……>>76はつまり、
馬鹿なんだ

そうか、これが馬鹿というものなんだ
嗚呼、馬鹿よ馬鹿馬鹿、愛しき馬鹿よ……

>>190
いい加減謝ったらどうだ？ｗ

>>76さん自演しすぎですよ

>>76はImpelements覚えたばっかで使いたくてウズウズしてるんだよ
そんなヤツにおまえら釣られすぎ

>>169
net /deleteを投げて接続を解除してstart使ってネットワークを開く様なバッチファイルを実行する
ドメイン参加してると使えないけど

ユーザがnewできないクラスにimplementsって、
いかにも不具合出そうな気がするのだがｗ

名前を変えると動く云々っていうのは、そのときにシステムがnewするから
なんだろうな。

>>76の脳みそ可哀想

>>195
無理して背伸びしてわけのわからないこと言わない方がいいよ。
見てるこっちが恥ずかしいしw

VBのクラスには引数とるコンストラクタを書けないだけで
別に‘ユーザがnewできない’わけじゃない。
っていうかインターフェイスとか多態の意味わかってるのかとw

っていうか、だからImplementsは関係ないってのに。
エクセル関連のオブジェクトつーのは「お約束」を守って操作してやらないと
この手の意味不明な不具合が起きるんだよ。

俺も数年前に初めてエクセルを遠隔操作するコード書いたときには
その手の「お約束」書いてるサイト読んで、使ってるお前に問題があるだけだろ、
と思ったもんだが、実際に存在するんだなこれが。

Windows2000SP4+Excel2000(9.0.2812)と
Windows2000SP4+Excel2002(10.6501.6735)SP3で
>>121のコードを試してみたが、エラーは出なかったわけだが

>>197
Implementsは関係あるでしょ。
実際、それ書いて問題が再現できてるんだから。

つか、もうその話題たいがいウザイから

やりたいならImplementsだけでスレ立てでもして
そこに篭ってやってくれよ

194 ありがとう。質問が悪かったみたい
Shell ”explorer 接続先” でもやりたいことが出来るが、そのあとで当然出てくるウインドウを閉じないといけません。もっとスマートな方法はありませんかという質問でした。

>>197
お約束ってのは、Applicationインスタンスをオブジェクト変数に入れてないと特定の処理で
エラー落ちとかそういった類のもの？　それならたまに出くわすわ。
>>76のコードは見てないけど、Sheetsコレクションを変数に突っ込んだらアッサリ回避できたりするかもな。

開発環境：WindowsＸＰ　Ｐｒｏｆｅｓｓｉｏｎａｌ
Ｖｅｒｓｉｏｎ：ＶＢ6.0

MDＩ子フォームが開かれているか判定する方法ってあるのでしょうか。
検索しても出てこなく、困っています。。
何か、Ｈｉｔするような検索文字列でもいいので教えてください。
お願いします。

> あるのでしょうか。
ある

> Ｈｉｔするような検索文字列
"MDI"
絶対にヒットするはず

>>197
Sheet1とかSheet2って、VBAの中からどうやってnewするの？

古いバージョンのVB、できればver5.0の英語版を
手に入れる方法を知っている人がいたら教えてください。

>>206
Microsoftに問い合わせるといい
英語版が入ってるかどうかは確認できなかったが、古いVBなら買える

>>187
>根本的な原因がなにであるかはMSでないと分からない。
ダメだね．．．MSなら「仕様です」って言ってバグだと認めないよ

ありがとう>>207

おいおいサポート終了してる商品を販売しないだろ普通。
MSDNの高価なエディション買うぐらいしか正規に手に入れる方法はないんじゃないの？
あとはオークションでまっとうな奴を探すか。

＞おいおいサポート終了してる商品を販売しないだろ普通。
MSDNに付属してるんだろうと売ってることに変わりは無いのにな

>>208
そのセリフ、別に反論しているわけじゃないよな。

>>205
Dim ws As Worksheet
Set ws = New Sheet1

>>202
そういう類のもの。>>76が発見した新しいお約束もそういう類の物の一つと言って良いだろう。

WorksheetにインターフェースをImplementsすると型変換エラーなどがおきる。

認めようとしない奴がいるようだが、今の所なんらかの根拠を持って論理的に行われた反論は無い。

>>213
＞コンパイルエラー：
＞Newキーワードの使用方法が不正です。

がで出まつよ。

＞出まつよ

ｷﾓｲ

>>215
少なくとも2000では出ない。

>>217
少なくともXP＋Excel 2003では出る。

>>217
少なくともExcel v.X for Macでは出る。

少なくとも俺は試していない

>>205
すまん、>>195の文章を読み違えてたw
「ユーザがnewできない」って言うのをVB(VBA)の
クラス一般について言っているんだというふうに。

どう考えても「ユーザがnewできない」ってワークシートについて言ってるんだよね。
それは正しい。申し訳ない。

こうなると217が哀れで仕方ない

新年明けましておめでとうございます。
そして早速の質問です。

VB6.0SP6で作られた既存のアプリAがあって、それを改造する事が出来ません。
アプリAのあるボタンを定期的にクリックするソフトを作成したいのですが、どのような方法が
ありますでしょうか。

私の方で、簡単に思いついたのが、アプリAのプロセスIDとかとってフォアグランドに表示して
sendkeyですが、これだと、他のアプリを使用しているときに誤動作の原因となりそうです。

アプリAのボタンの関数を外部からコールするようなイメージで実現したいのですが、
使用する関数や参考手順、HP等ありましたら教えてもらえればと思います。

>>223
SendKeysではなくSendMessageで
使い方はググれば腐るほど出てくる

>>223
ボタンが押されているのを、視覚的に表すにはムリですが、
タイマーイベントで、ボタンクリックイベントを呼び出すとか

ＶＢを起動するとなぜかオフィスアップデートが毎回でるんですがなぜですか？

>>224
　ありがとうございます、ちょっと調べてみます。

>>225
　ボタンを押したいアプリ自体は改造出来ないので、外部のアプリからボタンを押す、正確には、
ボタンを押したときに走る関数を実行させたいのです。

レスありがとうです、とりあえずSendMessage調べてきます。

VBのスレってまだあったんですね
久しぶりまたプログラムしたくて始めたんですが

VB6.0SP6ラーニング使っているんですが
作成したexeファイルをバイナリで見ると
PCのユーザー名が入っているんですよ・・・
この情報が入らないようにできますか？

入って困るのか？

†聖天使癒し猫姫（天然ｗ）†

とか恥ずかしい名前なんだろ

制作者情報のないexeなんぞ怪しくて使えねぇ

バージョン情報とか意図したものなら入って当然なんですが
ウィンドウズのユーザー名が入るんですよ？
マイドキュメントがあるルートフォルダ名と同じのが入るんです
言ってる意味わかりますか？
こういう個人情報みたいなのが勝手に入力されるのって嫌じゃないですか？

そういう仕様だ、嫌なら使うなよ
言っとくが、PCのユーザー名「だけ」じゃ個人情報にゃならんよ
本人(居る場合は知ってる人間も)にしかわからんユーザー名でどうやって個人が特定できると？

>>233
例えばユーザー名に本名入れてる人とかはやばいでしょ？
特定されないにしても気分が悪い
あと、バイナリで見るのじゃ確認できないが、暗号化されてその他の情報も埋め込まれたり
どれだけの情報がexeに入ってるのか知りたいんだけど
わかる人いないかな？
一応バイナリでユーザー名のとこだけ、書き換えればいけるんだけどね

> どれだけの情報がexeに入ってるのか知りたいんだけど
ここで聞くべきことじゃない。MSに聞け。

おまえはここで｢〜という情報が格納されますよ｣という
嘘かホントか解らないような情報が得られたらそれで納得するのか?

メーカーの商売品すら疑って掛かるおまえが、
2chの一個人の出した情報など信じるはずがない。

質問です。
VBのフォームデザイナーの使い方で、
メインメニューを作ったのですが、ビルドして.exeにしても、メニューが
表示されないんです・・・

>>236
�@VBEのフォーム上にはメニューが表示されているか
�Aデバッグ実行ではメニューが表示されるか
�B.frmファイルにはメニューの内容が書き込まれているか

>>235
わからないならわからないって言えよ。バカ

あぁ、分からんな

バカなのでわかりません
なのでメーカーに聞いてください

はい、さようなら

OpenTextFileを使ってファイルを開くとノートンがウィルス反応を出すのですが
ノートンで許可した場合、ホンモノのウィルスがある場合対処してくれないかもしれませんし
こういう場合どうすればいいでしょうか？

ノートンのメーカーに聞いてください

はい、さようなら

少々お尋ねします。ＶＢ超初心者ですが、ＸＰ　ＰroがインストールさらているパソにＶＢ6をインストールする際にＶＢをアップデートしないとだめですか。またＶＢに付属のライブラリＣＤが傷がついてしまったのですがこれもインストールしないとだめですか。お教えて下さい。

>>243
理由が無いかぎりはサービスパックを当てる事
MSDNは入れなくてもいい

いまさらVB6をファイル共有化なんかで落としたのかよ。
まったく好き者だな。

まあどうせ否定するだろうけど、内容から丸わかりだし。

>>245=つまんね

図星を突かれるとどうしても言い返したくなるのが人間の心理

ほぅ

別のフォームのコントロールにaddなどでアイテム追加したいんですが
なぜか上手くいきません。どうすればいいでしょうか？

例えばfrom2で

frmMain.Text1.Text="テスト"

とやってもまったく反応しません。

str=frmMain.Text1.Text

この様に値の取得はできるんですけど

>>249
frmMainをどのように呼び出したかじゃないのか？

frmMain.Show　で読んでれば frmMainっていう暗黙のインスタンスが表示され、
Dim frm as new frmMain
frm.Show だと frmとfrmMainは別。

>>250
解決しました！ありがとう！

もう6時間ぐらいずっとここでつまってって諦めかけてたんですが
このソフトは最初のアプリウィザードで作成したんですけど
>250さんがおっしゃってるようにメインフォーム自体がインスタンスとしてMain()のある標準モジュールで作成されてました
form2から、frmMain.Showとやると新しく複製されたメインフォームができるのでおかしいなと思ってたんです
いやーほんと助かりました。ありがとうございます

VB6 Win2000/XP

解像度1024*768で開発したアプリケーションを1280*1024の環境でも
動作させることになりました。どちらの環境で実行されても、
デスクトップに対して同じ割合の大きさで表示させたいのですが
何かよい方法はありますでしょうか？

例)
   1024*768の環境でHeight:3600,Width:4800の大きさで表示されるFormを
   1280*1024の環境ではHeight:4800,Width:6000の大きさで表示したい。
   各コントロールのサイズ、フォントサイズも同様に拡大して表示したい。


実行時にScreen.heightやwidthから倍率を計算して
Formと各Control毎にサイズ調整する方法を試してみましたが
Controlがたくさん載ったフォームだと表示までに時間がかかるので
別の方法を模索しているところです。

あきらめろ

>>252
解像度が二種類しかないなら
フォームを二種類作れば速いよ

DCOMについて勉強中なのですが、下記のソースで
サーバー上のActiveXDLLを実行したいのですが
サーバー側はどのように設定すればよいでしょうか？
IISは起動してhoge.dllもregsvr32で登録はしました。
IISとhoge.dllを結びつける何かが必要だと思うのですが
どういった設定が必要でしょうか？
よろしくお願いいたします。

Private Sub Command1_Click()
Dim rdsObj As New RDS.DataSpace
Dim hogeObj As Object
Set hogeObj = rdsObj.CreateObject("hoge.clsHoge", "http://hoge")
Call hogeObj.hello
End Sub

>>241
アプリケーションごとに実行を許可するのか、しないのか設定できるだろ。

>>252
たくさんのコントロールっていくつぐらい？
そんなに時間かかると思えないんだけどなぁ。
コードに無駄があるような気がする。

本当に数のせいで時間がかかるんなら、今度はそのウィンドウの設計に問題がある

a,b,c
b,q,g
c,w,b

を

　　c
a, ,g
b,b,b
c,q,
　w

のようにｂで整えるのに適した関数はありますか

わけわかんねぇ

おーい、誰かエスパー呼んでこい

これまたすごいのが出てきたな。

ｗロス

>>259
イメージ的に何がやりたいのかはわかるけど､
そのデータ群が何なのか､その英字が何を表すのかわからないと何も言えないな。

一つだけ言えるのは､関数ってのは自分で作るものだってことだけ。
で､どう作るかだが上記のように条件が曖昧なので何も言いようがない。

あ、分かった！

a,b,c
b,q,g
c,w,b


を、真ん中は一個↓にズラして、右は一個↑にズラして

bbb

で揃えたいのか。シラネ。

さらにﾜﾛｽ

スロットゲームが作りたいのかな

データ群はなんでもあり、というか箱と思って頂ければ。
既存の関数を組み合わせて簡単にこの操作ができないかと・・・
エクセルでこのような操作ができればと・・・

>>268
2次配列に突っ込んでごちゃごちゃやれば可能なんじゃない？
あとは自分で頑張って。

>>268
ExcelならExcelに聞け
マクロの記録で、「挿入」-「下方向にシフト」とか「削除」−「上方向にシフト」とかやってみろ

範囲内でこの操作をするメソッドみたいのがありそうな気がしてときめいています

あるよ､うちには。



俺が作ったメソッドだけど。

うはｗｗ気になるｗｗコスト安いアルゴ知りてーｗｗｗ

>>273
取り敢えずコスト度外視で作ってみればいいのに

"範囲内"と言っているが>>259の例では並べ替え後は範囲を飛び出している件について

縦の中心を探す。を繰り返すのが今の構想。
ただ、最初のｂが任意の位置にあった時、コストがたかくなる。
その辺、要領よくやりたい。

いまいち理解できてないんすけど>>259はエクセルマクロを前提に話してて、でもって
セル上の数値に対しての操作じゃなくて、配列なりの内部的な数値に対する操作がしたいってことでよいの？

>259
四角形をひし形に変換したいんじゃないのか？
で、それぞれの要素にグラフィック座標割り当てたりとか？
A列車3が発売された頃、同じような箱庭ソフト作りたいけど
立体的なビルを建てる場合マス目をひし形にしないとだめだから
そうなるとマス目をクリックしたい場合、
どのマス目をクリックしたか判断する処理が四角形より難しいから
頭抱えたことがある

>>278
おいおい、>>259はもちろんだが君の頭も問題あるんじゃないかw

>>259がやりたいのは、カラム内の'b'の位置に従って各カラムに-1, 0, または+1の
オフセットを与えたい、と。
おそらくそういうことだろう。

データ構造がはっきりしないから誰も適切に答えようがないがね。

データ構造が不明なのが問題だったのか？ｗ

>>279
ああｗそういうことか

パチスロみたいに777そろえるようにしたいってことか

Excelで考えるなら､任意の文字(例だとb)の行位置を調べて､
その最大値を基準に､各列最大値との差分の空白を頭に入れてやるだけでいいじゃん
●★●
★●●
●●★
だと★の位置は2,1,3､最大値は3なので各列3との差分の空白を先頭に入れる

1列目は　　　　　　　　　　3列目は
3-2=1で　　　　　　　　　　3-3=0で
空白一つ　　　　　　　　　 空白0
□　　　　　□□　　　　　□□●
●　　　　　●□　　　　　●□●
★　　　　　★★　　　　　★★★
●　　　　　●●　　　　　●●
　 　　　　　　 ●　　　　　　 ●
　　　　　　2列目は
　　　　　　3-1=2で
　　　　　　空白二つ

空白を入れると言ってもそれは見た目の話で､セルの挿入をするより
値のみ動かして空白を入れた形に持っていた方が速いけどね。
中心を探すんじゃなくてオフセットを算出する方法だが何か不満でもあるかな?

>>282
>>259はその操作概念自体は理解していて、それをスマートなアルゴリズムでやりたいってことではないかと。

で、わからんのがこの発言。
＞ただ、最初のｂが任意の位置にあった時、コストがたかくなる。

普通言われなくても当然と思う「最初のｂが任意の位置にあった時」なんてことわりをわざわざいれるぐらいなので、
特殊な状況、例えば2列目以降のデータ列が初めから分かってるのではなくて、時間的に順次与えられるみたいな場合を
想定してるのかなと思った。

まず全列ソート。そこからｂの位置を揃えたい
クイックソートみたく、中心からｂの位置探し。２、３・・列目は中心の値により探す向きを中心から上か下かを決める

これをしてくれる関数が知りたい。無ければエクセルの機能を組み合わせてしてみたい
最終形は
a
b,b,b
c, ,c
　　g
　q
　w

列毎の差分を作りたい。エクセルの機能をフル活用して（なるべく簡素＋省計算量で

> これをしてくれる関数が知りたい。
当然組み込み関数には無い

> 無ければエクセルの機能を組み合わせてしてみたい
してみたいというのを止める理由はない
どうぞご自由に

> エクセルの機能をフル活用して
それにはまずエクセルの機能を知ることから始めないとな
知らなきゃ使うことは出来ない
まあ､精々勉強するこった

アルゴの構想は
> まず全列ソート。クイックソートみたく、中心からｂの位置探し。２、３・・列目は中心の値により探す向きを中心から上か下かを決める

これよりいいアルゴは・・
エクセルの機能を活用してできそうですか？できそうな予感のみあるのですが・・
そうです。私は教えて君でござる

最初と話が変わってるやんｗ
セル上の話なら大抵の場合ソートは[データ]-[並べ替え]のコマンドを（マクロから）使えるな。

おまえら暇なんだなｗ

いいかげんスレ違い

まあ、よさげなアルゴリスムは1分で思いついたけど
めんどくさいから書かない

説明する文がめちゃくちゃな人間は、
十中八九、プログラムもめちゃくちゃ。

それってSQLで良く当てはまる。
SQL文以前にその対象の集合ってのを日本語で表現できない人。

フォームのサイズ制限を付けたいのですがどうすればいいのでしょうか。
いわゆる.netでいうMinimumSize・MaximumSizeなのですがorz

>>293
Googleで VB ウインドウの最大・最小サイズを設定する
・・・キャッシュでしか読めないな

>>293
おれも初心者だけど
ないのでフォームのresizeイベントで無理やり維持する

拡大されようとするサイズを元に戻すって感じ
ただ、.NETと違って無理やりだから見た目が汚いくなるんだよなぁ

書いてる途中に思いついたけど、リサイズイベントが起きているときに
まだ、マウスが押されていたら、ボーダースタイル変えて、サイズを変えられないようにしたらいいかも
マウスが放されると元に戻すってかんじで

WM_GETMINMAXINFOでぐぐれ

>>294,295
早レスありがとうございます。

VB6でサイズ制限しようと思ったらresizeで無理やりするしかないのかな？
"サイズが一定範囲を超えたら元に戻す"ようにしたら、フォームがチラついて汚くなりますよね…
Cや.netのようにガチっと固定できたらいいんだけど。

295さんの後述の方法は、なるほど、全然思いつきませんでした。
サイズが一定範囲を越えようとしたらフォームをサイズ変更不可にすれば出来そうですね。
範囲内へと変更しようとしたときにサイズ変更可能にすればいいのかな。
ちょっと試してみます。

>>296
レスしてから気がつきました。

サイズ変更固定するAPIあったんですね…。
どうも有難うございます_(__)_そしてお手数お掛けしました。
これからじっくり調べてみます。

＠レスくださった294様295様も有難うございました。

APIではないんだけどな

Resizeでやる場合､Formのサイズを変えたらそこでExit Sub入れた方がいい
じゃないと最大幅3000指定で､幅4000にリサイズした場合に
コントロール類のサイズを4000の場合用→3000の場合用と2回変更することになる。
それだけでもかなりチラ付き無くなるよ。

>>296
ヒント：>>294

なぜ>>296に言うのかわからんし

294のキーワードでググった先に､WM_GETMINMAXINFOの
VBサンプルが載ってるので､サンプルがすでに挙がってるのに､
後から来てググれも糞も無いだろ。

ということでは?

言ったらあかんいうわけでもなし
それこそわざわざ言うことでも無いんじゃ？

それこそわざわざ言うことでも無いんじゃ？>>303

はいはい、どっちでもいいからもう終わりな

サブクラス化すればリサイズしようとしたときの
イベント取れるよ。

つうか、サブクラス化とかするならVBで作るなってなるけどね。
API読んで、メッセージ処理して、それをVBでわざわざやるのが逆にめんどい。

ウィンドウを最小化させないようにする方法ってありますでしょうか。
常に手前に表示させたいのですが
（現状SetWindowPosで常に手前に表示させています）、
タスクマネージャから最小化を選ぶと最小化されてしまいます。

またResizeでやれば?

因みに、293氏とは別人です。

>>308
ボーダースタイルを固定にすればいい

>>309
さっそくありがとうございます。
今やってみたところ、
タスクマネージャから最小化を選ぶと
イベントが拾えませんでした。

>>311
ありがとうございます。
今やって見ましたが、
タスクマネージャから最小化を選ぶと やはりダメなようです。

タクスマネージャーから最小化しようとするとHDD壊しますってreadmeに書けばいいんじゃないか？

>>312
キミが何か間違ってんじゃないの？
タスクマネージャからやろうが最小化は最小化

>>314
いいね。その案貰った

>>315
こんなソースでダメでしたが、
どんな感じでやれますか？

Private Sub Form_Resize()
    Form1.WindowState = vbNormal
End Sub

タスクマネージャ→アプリケーションタブ
→タスクから対象タスクを右クリック→最小化
これで最小化してしまう。

ここにいるのは負け組なので難しい質問は答えられないと思うよ
VBで無理ならAPIいじるしかないと思うお＾＾

>>317
タスクマネージャの最小化や最大化はトップレベルウインドウに指示を出しているが、
VBのスタートアップフォームはトップレベルウインドウではないのでそういう動作になる。
VBのトップレベルウインドウは不可視。

>>317
リサイズもウィンドウステートも忘れろ。
>>311の言うとおり、BorderStyleでできる。

すまんタスクマネージャから最小化だったかorz

>>319
私には難しくて良くわかりませんが、
結論としては難しいということでしょうかね。

ちょっと時間がなくて今試せませんが、
イベント拾うのは諦めて、
短いタイマで定期的に大きくするとかできないかなと思ってますが
そのトップレベルウィンドウというのだけ最小化しているなら
これも難しいのかなとも。
それとタイマで処理すると私の頭も混乱するので嫌ですし。

>>322
だからフォームのプロパティのボーダースタイルでやれば最小化されないって言ってるだろ

>>323
ヒント：>>321

>>324
いや、だから、タクスマネージャからやっても最小化ならないって
固定ダイアログにしてみろよ
今試したんだからまちがいねー

質問者じゃないけど､｢3 - 固定ダイアログ｣で最小化できたよー

また試してみました。
だめでした。osの違いでしょうか？当方xp

今日はもうこれ以上試せそうにありません。

>>327
おれはw2kで出来た
正直すまんかった。

タスクマネージャーと「デスクトップの表示」はVBじゃどう頑張っても拾えないよ

ただ目的を達成するなら
「デスクトップの表示」はWM_SHOWWINDOW 　 wParam=0 　 lParam=SW_PARENTCLOSING で反応するから
メッセージを握りつぶす
ただし Form が親を持ってないとき　言っとくけど非公式な方法ね

wParam=0 は 最小化された時
lParam=SW_PARENTCLOSING は 親が隠される時

>「デスクトップの表示」はWM_SHOWWINDOW 　 wParam=0 　 lParam=SW_PARENTCLOSING
間違えたタスクマネージャーね orz

InputMan6.5からInputMan7.0への移行作業をしているのですが
移行ウィザードを使うとimContainer3Dの移行でエラーに
なってしまいます。
もし、同様のご経験がある方がおられましたら
対処法など教えていただけるとありがたいです。
よろしくお願いいたします。

>>331
ここで聞いてる暇あったらぐれーぷしちーに聞け。

ツールバーの保存ボタンが消えちゃいました。
復活させる方法教えてください。

>>333
ザオリク

MPが勿体無いからザオラルにしとけ

フェニックスの羽でいいじゃん。
まあ復活しても即相手攻撃でまた死ぬかもしれんけど。

復活しなくても他で代用効くから復活不要じゃね？

お願いします。復活したいですぅ。

>>333
レムオルだな
時間が経てば見えるようになるよ

月電気公共料金
（ｋｗｈ）
2110
387
4233
■データを１件ずつ、ユーザ定義関数を利用して「公共料金」を計算させる
プログラム作成せよ
料金計算は、下記の方法によるとします。
＜電気料金の計算＞
基本料金：1800円 定量制料金単価は
・使用量が90Kwh以下であれば18.14円／Kwh
・ 〃 90Kwh超230Kwh以下であれば24.85円／Kwh
・ 〃 230Kwh超であれば27.21円／Kwh
（料金計算例）
70Kwh使用した場合：1800＋70×18.14
120Kwh使用した場合：1800＋90×18.14＋(120−90)×24.85
＝3432.6＋(120−90)×24.85
250Kwh使用した場合：1800＋90×18.14＋140×24.85＋(250−230)×27.21
＝6911.6＋(250−230)×27.21

上のデータは次です
月,電気,公共料金
　　ｋｗｈ
2月110
3月87
4月233

>>340-341
学校の宿題は友達と一緒にやった方がいいと思うけど。

質問ですが、フォーム上にexcelの表やグラフを
表示させることってできますか？

できる

>>344
ありがとうございます。調べてみます。

すいません、また質問なのですが・・・
フォームからコマンドボタンを押して、バックグラウンドでエクセルの
マクロ処理を行ってから、フォームに表示したいのですがどうすれば
いいのでしょうか。
見た目上、エクセルの起動が見えないようにすることはできますか？

できる

>>347
調べきれなかったので、、、教えていただけないでしょうか。

フォーム上にエクセルを出せ。

>>346
>>339

Visibleも知らんのか

>>351
それでは見た目で判ってしまうな

そもそもこの343はVBAだからこその問題なのではないか?
VB買ってフォーム上に出せで正解

>>352
＞それでは見た目で判ってしまうな

は？

>>329
遅れましたが、アイデアありがとうございます。
時間みて実装してみます。

>>333
空気よめなくて悪いが、VBを再インストールすれば復活するはず。
以前他のボタンが消えた時に再インストールで復活した。

ツールバー右クリしてユーザ設定出せばいいじゃまいか

神ｷﾀ━━━━━━(ﾟ∀ﾟ)━━━━━━!!!!

え?
それをやっても戻せないから質問に来たんじゃないの?
俺はVB6インスコしてSP当ててアドイン組み込んだら､次にやるのがツールバー設定だが､
ツールバーのユーザー設定知らないってことは､デフォのツールバーで使ってたてことか?

ぬるぽい！ぬるぽい！

>>358
ごめんぽ

Scripting.DictionaryのAddって(Key, Item)だよね？
だけど実際
Dic.Add "Key1", "Item1"ってやって
Dic.Itemsを見ると"Key1"が
Dic.Keysを見ると"Item1"が返ってくるんだけど、これでいいんだっけ？
俺の環境だけ変？
いちおう素のForm1に最小限のコードだけ書いて試してますよ。

Itemのほうにオブジェクト変数を入れると、For Eachで「オブジェクトが
必要です」というエラーになってしまいます。
Dic.Add "Key1", New Class1
Dim Item As Class1
For Each Item In Dic ←ここでエラー

scrrun.dllのバージョンは5.6.0.8820

>>361
addの定義についてもう一度調べなさい

なんか今プロジェクト作り直したらItemsで"Item1"が返るようになってる・・
参照設定しようとするときに"Microsoft Scripting Runtime"がリストに
あがってこなくて、scrrun.dllを直接指定したんだが、このせいではないようです。

Class1を使うほうは相変わらず「オブジェクトが必要です」が出るし。

そりゃ出るだろ。

361は悲しいぐらいバカ

質問です。エクセルVBAでツールバーを全部非表示にしたいのですが
どう書けばいいですか？

解決しました。スレ汚しすいませんでした。

>>361
出てあたり前
エラーはClass1で出てるんじゃないDictionaryで出てるの

For Each文を使うにはオブジェクトにCount・Item・_NewEnumが実装されて無いといけないのを知らないのか？
それ以前にディクショナリの意味分かってんのか？列挙する機能(For Each)を提供するのはコレクションだろ

> For Each文を使うにはオブジェクトにCount・Item・_NewEnumが実装されて無いといけないのを知らないのか？
> それ以前にディクショナリの意味分かってんのか？列挙する機能(For Each)を提供するのはコレクションだろ

はい､残念。
今回のエラーはそれとは違う。

俺は違わない方に一票w

本人

369は悲しいぐらいバカ

For Each文の使い方は間違ってないと思います。
VB6で普通に使っていましたし、
自分のScripting.Dictionaryを使ったプログラミング方法の説明サイトは
2chでも何回か紹介されましたが好評でしたよ。

なんかいまデジャブを感じたw

368が必死

必死な361がいるスレはここですね

>>368の文が､2行目しか当たってない件について

A1〜E5までの5×5のセルに適当な値（数字はループで入れる）を入れて、F列
に各行の合計、G列に各行の平均を算出し、F列の累計表をH列に表示するプロ
グラム。
教えれ。。

age

断る。

エクセルのマクロについて質問させてもらいます
これまでVBEでマクロ作って、他のファイル（数百）に適用してました
久しぶりに適用しようとすると、マクロが突然認識されなくなってしまいまして
マクロのプログラム自体が全てのファイルを確認しても残ってないのですけど
同じような状況になった人っていませんか？
また、そのマクロを復活させることは出来るでしょうか？

いいかげん、エクセルなスレ違い厨はどっか行けや

プチエスパーになってみるｗ

Property Item(Key)
Scripting.Dictionary の既定ﾒﾝﾊﾞ
指定したキーに対する項目を設定します。値の取得も可能です。

Itemsプロパティは配列を参照するVariant型を返すのがポイント。
違うか？ｗバリアントの配列か？ｗどっちでもVBじゃいいよ気にしんなｗ

初心に帰りちゃんとオブジェクトプロパティから変数に参照渡してみ？

↑言語障害者

>>381
意味ワカンネ。

Excelブックからマクロが消えたってことなのか？
コピーがあるなら、インポートしなおせばよいのでわ？

381です。>>382さん指摘ありがとう
Excelのスレに行ってきます

>>385
分かりにくい文章でごめんなさい
Excelブックからマクロが消えたってことです
コピーがないので・・・
完全に同じものを作り直すのが困難なので、質問してしまいました
ちょっとスレ違いのようですので、エクセルのスレに行ってきます

【誘導】
Excel総合相談所 40(VBAの質問でも可。回答率バツグンの良スレ)
http://pc8.2ch.net/test/read.cgi/bsoft/1134006968/

>>388
ありがとうございます　書き込みしてきました

このスレからVBA取ったら何も残らないんじゃないか？

だから何だって言うんだ？　無理矢理残す必要性もないだろ。

VBAはVBではない

だね

正直、VBAのことを聞かれても分からんよ。アプリ毎に違ってたりするし。

VBA=VBではないけど､VBAはVB言語。

VBA搭載アプリ固有のオブジェクトなど知らと言うかもしれないけど､
それ言ったらオートメーションオブジェクトだってAPIだってVB固有のものではない。
そうなると組み込み関数とコントロールについてくらいしか語ること無くなるな。
まあ､知識が及ばない物を遠ざけたい気持ちも分からなくもないが､
少なくともここで許容されてるVBScriptよりはVBに近い存在だ。

じゃあおまえが教えてやれば？

ユーザーコントロールの上にユーザーコントロールを置いたものを
フォームに貼り付けると
「オブジェクト変数またはWithブロック変数が設定されていません。」
と出るのですがなぜでしょうか？

UserControl_Initializeでエラーが発生していました。
このイベントはフォームのデザイン時にも実行されてしまうのでしょうか？
デザイン時には実行されないようにできないものでしょうか？

>>396
あのね､誰が答えるかじゃないんだよ。
解らないことがあるのも､答えられない質問があるのも仕方ないし
そもそもここでは回答する義務すら無いので､答えられる質問に答えないのだって自由。
ただ､答えられない分野だからって除外しようとするなってだけだ。
答えられない質問､答えたくない質問は叩いて追い出すのではなく､
他の人に任せておけばいいんだよ。

dim y as double, yd as double, dx as double, x as double
と
loop until math.abs(dx) < eps
の２文は何を意味しているのですか？

変数の宣言
と
ループの終了条件

>>400
宿題はオトモダチと（ｒｙ

true basic と visual basic はどう違うの？
true basic てどこから買うんだろうか・・。

>>403
TrueBASICは日本ではマイナー。
理系でしか使われてない。

true basic　のプログラムをVBでもできますか？

>>405
移植に関する情報は少ないね。
CやFORTRANに移植すれば？

VB5とVB6の開発環境を1台のパソコン
OSはＷｉｎｄｏｗｓ２０００で共有できますか？
VB4とVB5のときはＷｉｎｄｏｗｓNTで不可だった気がするのですが

>>407
今は仮想PCを使う時代ですよ。

ライセンスをｘｘらないならば、デゥアルブートにして２環境作れば？

>>407
開発環境は共存出来ません。
インストールしたらどっちもＯＳも滅茶苦茶になる。

Textボックスでタブを入力された場合、
コントロールの移動ではなく、テキストボックスにタブ文字を入れたいのですが、
どうすればいいでしょうか？

Excelの質問です！
VBAでニュートン法を使ってこの問題を解くとプログラムはどうなりますか？
教えてください.
F(x)=x^2-e^(-x)-2=0 初期値X0=6 収束条件E=10^-5

>>411
プロパティ

>>412
普通に

>>411
サブクラス化

>>412
http://www.google.co.jp/search?sourceid=navclient&hl=ja&ie=UTF-8&rls=GGLD,GGLD:2003-39,GGLD:ja&q=VBA+%E3%83%8B%E3%83%A5%E3%83%BC%E3%83%88%E3%83%B3%E6%B3%95%E3%82%92

>>413
むむ？？

>>414
うぉ。これだけのためにサブクラス化しなきゃいけないの嫌だなぁ。
諦めようかな。

>>407
VB4,5,6共存させてるよ。
MS Common Control とか使ってるとまずいと思う(6が5のOCX上書きするので）。
それ以外は今のところ大丈夫かな。
NTでも2Kでも問題は出てないけどね。今はXPで共存させてる。

もちろん、MSがこれを保証しているかどうかはわからない。
俺が運良く問題にぶち当たってないだけかもしれんし。

>>417
ttp://www5.airnet.ne.jp/init/vb/level1/level1001.html
ttp://support.microsoft.com/default.aspx?scid=kb;ja;412579
ttp://www.microsoft.com/japan/msdn/vs_previous/vbasic/TechInfo/VB4OF97.HTM
ttp://www.microsoft.com/japan/msdn/vs_previous/vbasic/faq/specfaq.htm
の「VB4 (32 ビット版) の開発環境と VB5 の開発環境を同じ環境にセットアップして使用できますか？」

>>417
それは共存できてないじゃん。
混在してるだけで。

>>417
そんな滅茶苦茶な環境で作ったアプリのセットアップを
他のＰＣで動かしたら駄目ですよ。
そのマシンの環境迄破壊します。

>>417はプロとして失格だと思う。

vmwareをnyするのが一番

なにやらひどい言われようですな。
別に俺のところで動いたからって他の環境で動くのを保証しているわけじゃないぞ。
あくまで、動作している環境もあるよって程度だよ。

>>419
これは共存って言わないの？
混在とはどう違うの？

>>420
普通テスト用の環境って作らない？開発とは別に。

>>421
そうですか。そうかもしれませんね。

テスト用の環境に>>417の環境で作ったインストーラで
インストールするなんてﾃﾗｺﾜｽ

共存してるなら全てのものが異常なく使える
一部上書きされて使えなくなってる時点で共存じゃねぇ

>>423
そんな環境でテストする意味は全然ない。
実運用では有り得ないから。
それに、そんな壊れた環境でのテストは完全に無意味＆無駄。

>>423
両方が共に普通に存在して共存だろ？
他方に対して影響してる時点で混在

Vb6・Vb5・Vb4．．．は設定・ライブラリ等が競合する為同一環境にインストールすることは出来ません
というのがM$のサポート

普通の頭なら同時インストールはしない

はじめまして。プログラム初心者です。VB6.0のプログラムのことで教えて下さい。
学校の課題で「入力された2進数32ｹﾀ分の情報を可逆圧縮して出力する装置と、
その情報を入力すると元の2進数として出力する装置」を設計し作製せよという課題がでました。
とりあえずVB6.0は入手したのですが自分らのグループはみんなプログラム初心者なので
何をどうやってプログラムすればよいのか全くわかりません。
あと1週間で仕上げないといけないのですが、どういう手順でプログラムをしていけば良いのか
どなたか教えて頂けませんでしょうか？

>>429
ここで質問するという選択肢を選んだ時点でバッドエンドだ

出来ないなら出来るように努力するか､
出来ないということをそのまま公表するかのどちらかだろ。
最近のガキは(大人もだけど)取り繕うことしか考えてないのか?
上辺だけ整えたって｢自力で解決できる能力が無い｣という現状は何もかわらない。

仕事じゃないんだからなんとしても結果を出さなきゃならないってわけでもないだろ。
もちろん評価は落ちるだろうが､低い評価にしか値しない能力ならそれは仕方ないこと。

>>431
いいこと言った。

>>429
課題くらい、人から簡単に答えを聞こうとせずに、自分で書籍その他資料を当って解決しやがれ
てめぇの学校には図書館(or室)も無いのか

アニメ学校のプログラマー科なんだろ……

わかった。もう聞かん。さよならー　おまいら

もう来るなよー

>>429
課題の求めてる意味がよく分からんな。
３２桁の二進数→１と０が３２文字。
で、文字数を減らせばいいのか？
それなら、単純に１６進表記するとか。

>>437
おいおいw
圧縮って知らないのかい君は。
シャノンの情報理論って学部で勉強するだろw
ひょっとして429の釣り？

しかし4バイトを圧縮するって無理があるなw

>>430-431
このスレ意味無いじゃんｗｗ

>>439
代アニにお帰り

>>440
代アニを弄ぶスレ？ｗ

質問者の負け惜しみはほどほどに

さて。
>>429 はもう来ないみたいだし、あの課題をやってみようぜ。

>>443
お前性格 良すぎｗｗ

>>443
ここは提供されたネタを実装するスレじゃないので､
求める人も居ないのにやってみる必要なし。

と､最後の望みを賭けた演出をうち砕いてみるてすと。

そろそろ寝るか・・・

[タスク]

デバッグは終了しました・・・

とにかく課題を２ちゃんで聞いてしまっては
本人のためにならない。

さて。
>>429 はまだ常駐しているようだし寝るべ。

>>445
あんなに求めてたのに誰もやってあげなかったよ。

>>450
赤の他人の課題をやる必要がないからもんね

32ビットの値を8ビットまで圧縮できるアルゴリズムを考えたが
それを書くにはこのスレは狭すぎる

>>452
書かなければいい。

無駄にスレの浪費するな

いや書いてよ　パクッテ大もうけするからｗ

>>452
何処かにうｐ

しかし4ビットが8ビットになる時もある諸刃の剣。
ランダムデータにはおすすめできない。

>>429
進数変換の課題のようにも見えるけどファクシミリ（FAX）の課題？
ランレングス圧縮でいいんだったら，
0や1がいくつ連続するか数えて、

入力 00000000000000000000000000000000
出力 0-32（0が32個）

入力 10000000000000000000000000000000
出力 1-1-0-31（1が1個，0が31個）

みたいなデータを出力すればいいんじゃねーの？

でもこの方法だと，
入力データの0や1が連続している場合はうまく圧縮できそうだけど、
0や1が連続していない場合は圧縮後のデータの方が容量大きく
なりそうだよね。

そういう気付いたことは考察欄に書いておく。

プログラムの作り方の話をすると、圧縮するサブルーチンと
圧縮を解くサブルーチンの最低2つに分けることができる。
入力データと出力データは文字列にして、
「いま処理中の文字は文字列中の何番目の文字か？」を保持する
変数が必要。

このあたりはどうにでも作れるので、みなさんで適当に。

おいおい、1週間過ぎてから始めろよ

>>459
何故一週間？

提出期限が1週間後だから

そういやどんなサイズのファイルでも0バイトにする圧縮ソフトあったな。
しかも可逆圧縮で。

コロンブスの卵だよな

そんなのあるわけないじゃん

元に戻すのに、元ファイルと同じサイズの辞書ファイルが必要なんだよね。

どんなサイズのファイルでも
「ぬるぽ」っていうたった3文字の圧縮するソフト知ってるよ

ファイルの中身を0バイトにして、内容をファイル名だか何かにしてたやつがあったが。

>>462
あれはすごかった。
まさに発想の転換。ただ多用するとHDDぶっ壊れるかも知れんけど。

>>468
ＵＲＬは？

> 多用するとHDDぶっ壊れるかも
そういう発送をする根拠が知りたい

ちゅーばっか

０バイトの可逆ってドラえもんでも無理だな。
ドラえもんが自分を四次元ポケットに入れたらどうなるか？って感じだ。

亜空の瘴気
ヴァニラ＝アイス

クリスタルレポートについてご存知の方がおられましたら教えてください。
既存のプロジェクトにcrpe32.dllを呼び出して使用している個所がありました。
VB6.0で開いていたのですが開発環境にcpre32.dllがありませんでした。
調べてみるとVB5.0に提供されていたDLLのようです。
これをVB6.0で利用する場合、何か置き換えられるものがあるのでしょうか？
よろしくお願いいたします。

>>474
それはＶＢ４と５しか対応してません。
なので、
ttp://www.agtech.co.jp/products/crystal/
製品版を購入するしかないでしょうね。

>>475
ありがとうございました。検討いたします。

>>475
たびたび申し訳ありません。
VB6.0にはcpre32.dllが無いだけではなく
CrystalReports自体付属していないのでしょうか？

VB5.0で付属のクリスタルレポートを使って開発されていたプロジェクトを
VB6.0に移行する場合、製品版を購入するというのが通常の手順なのでしょうか？
申し訳ありませんがよろしくお願いいたします。

> 通常の手順なのでしょうか？
何を以て"普通"なんて判断をするの?
おまえが納得する手順を踏めばいいだけだろ。

おまえは他人に｢〜が普通だよ｣って言ってもらわないと何も出来ないのか?
そもそも匿名掲示板は情報収集以上のことに使おうってのが間違い。
提供された情報が正しいかどうか､自分に合っているか､(普通かどうか)は
自分で確認しろ。

>>478
そういうのも議論すればいんじゃね？

ドラえもんを4次元ポケットに入れたらどうなるか
どう見ても、またポケットから出てくるだけのお話です、本当に（ｒｙ

>>480
ポケット自体をポケットに入れるんだよ。
圧縮結果サイズ０の可逆反応の話をしてるんだから、そこからどらを戻せるかってことだ。

>>477
ＶＢ６買ったんなら、付属してるかどうかはそれ見れば分かる。

>>481
ドラえもんが自分を4次元ポケットに入れたらどうなるか、ですが何か

ドラえもんのせいで話がややこしくなってる。

俺が最初からちゃんとドラえもんが自分をと言ってるのに勝手に>>481がややこしくしてるだけ

>>481が言っていることは、ポケットを裏返すということ？
だったら>>481の答えは「縫い目が見える」だ

どうなるも何も、四次元ポケットは取り外せるから、
外してから普通に中に入るだけ。

元の話も読まずに書きこしてる奴ばっかだな？
圧縮サイズ０の可逆圧縮が可能って言ってる馬鹿がいるから、例をだしてるんだろ？
ドラえもんがポケットを外さずに自分を全て入れた上で、それを戻すのが可能だといってるのが、０からの可逆復元だよ。
元の圧縮自体が矛盾してるのは当然なの。出来ないことを言ってるんだから。

ドラえもんの例で言えば、ドラえもんを消滅させるしかないのに、それを圧縮とよび、復元可能だと言ってるんだよ。

件のサイズ0ってのは、別次元に送ってるだけなのだが。

ポケットを外さずにポケットごとなんて言ってないのにｗ
消滅とかバカじゃねーの？ｗ

ファイル「C:\temp_a」の内容を全てそのままファイル「D:\temp_a」として移し、ファイル「C:\temp_a」の内容を全て消去し0とする
ドラえもんのは要はこういうことですよと

それを圧縮と比べてるのは>>488だけ

>>488
＞元の話も読まずに書きこしてる奴ばっかだな？
それは自分に対して言ってるのかな？

ドラえもん
http://www.geocities.co.jp/Playtown-Denei/1184/satoimo/

このスレは相変わらずくだらない事でカオス状態になるなｗ

カオス終わり

VBの質問を再開します。

VB6で戻り値を設定したプログラムは作れますでしょうか？
form_unloadして終了したときに戻り値が出ると助かるのですが。

VB6.0でFTPソフトを作ってます。
んで、でかいファイルを転送しようとすると、転送部分で処理が留まってしまうので、
ウィンドウが固まってしまいます。

以前、ファイルコピーソフトを作ったときは、コピー部分を別EXEにして、
別プロセスとして動かすことで画面が固まるの防いだんですが、
(マルチプロセスっていうんですか？まぁその程度の知識です)
FTPでウィンドウ固まるのを防ぐ方法も、ファイルごとにFTP転送を行う
EXEを作って、上記と同様な方法ですればいいんでしょうか？

そうするとファイルごとにFTP鯖につなぐことになるし、
何よりもEXEが複数になってあまり綺麗じゃないのが気になります･･･

>>496
無理。ＶＢＳなら出来るので、ＶＢアプリと何とかして連携させるとか。

>>497
例えば 100 k バイト毎送信して間に DoEvents 挟むとか。

非同期通信すれば良いじゃん
サブクラス化して、Windowsメッセージを処理すればOK
つかFTPをどうやって実装してるわけ?コントロール使ってんの?

サブクラス化してやるぐらいなら、VBで作らない、別EXEで連携などのほうがマシ。

わざわざ作らんでも FFFTP でいいのに。

それは違う。
仕事で使うならFFFTP使いますなんていえませんよ。

FFFTPでいいじゃん

じゃあ俺はftp.exeで

>>505
俺はそれ……

>>503
普通に言ってたけど。
既にある物を上手く利用して組み合わせ、安くて安定したシステムを
短い納期で提供しないと。

>>507
JOKEで言ったんだよな？

FFFTP は自動処理を目的とした FTP クライアントではありません

以前より、FFFTP をコマンドライン経由で自動化処理して用いる事を検討している方が多いですが、
FFFTP は手動操作がメインであり、自動化を目的として作成されておりません。
コマンドラインは起動時の自動処理等、最小限の動作しか対応されていません。
自動化を目的とした FTP クライアント は他にあると思います。お探し下さい。

>>497 は自動化するとは書いてない。

自動化しろよ

ＯＳ標準の Ftp.Exe

Transfers files to and from a computer running an FTP server service
(sometimes called a daemon). Ftp can be used interactively.

FTP [-v] [-d] [-i] [-n] [-g] [-s:filename] [-a] [-w:windowsize] [-A] [host]

-v Suppresses display of remote server responses.
-n Suppresses auto-login upon initial connection.
-i Turns off interactive prompting during multiple file
transfers.
-d Enables debugging.
-g Disables filename globbing (see GLOB command).
★-s:filename Specifies a text file containing FTP commands; the
commands will automatically run after FTP starts.
-a Use any local interface when binding data connection.
-A login as anonymous.
-w:buffersize Overrides the default transfer buffer size of 4096.
host Specifies the host name or IP address of the remote
host to connect to.

Notes:
- mget and mput commands take y/n/q for yes/no/quit.
- Use Control-C to abort commands.

ドライブとディレクトリリストボックスについての質問なんですが、



Private Sub Dir1_Change()
　　File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change()
　　Dir1.Path = Drive1.Drive
End Sub

Private Sub Form_Load()
　　Dir1.Path = "C:\"
　　Drive1.Drive = Left(Dir1.Path, 2)
End Sub



の様に初期値を設定しようとすると、
　　Drive1.Drive = Left(Dir1.Path, 2)
の後
Drive1_Change()
が動いてしまって初期値設定ができません。

topindexも考えたんですが、
それだと初期値が変わった時の場合分けが必要だし...
何か上手い方法はありませんか?

>>513
いやそれで普通に C:\ で初期化されると思うけど。
何が駄目なの？

>>514
やっても『C:\』でなくて、『C:\〜\デスクトップ\VB』ってProject置いてあるフォルダになっちゃうんです...orz
うちの環境がおかしいのか...?orz

あ、VB6です。

あ、できた。。。(ノ∀｀)

Private Sub Dir1_Change()
　　File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change()
　　Dir1.Path = Drive1.Drive
End Sub

Private Sub Form_Load()
　　Dim P As String
　　P = "C:\"

　　Drive1.Drive = Left(P, 2)
　　Dir1.Path = P

End Sub

お騒がせしました。orz

>>498
そうですか。アドバイスthx

VBでボタンを使いHTMLに書いてあるJavaScriptやVBScriptを
実行する方法はありますか?

>>517
ファイル渡しが一番簡単なのでは。
ＶＢアプリが終わるとき、特定の場所に内容が０とか１の
１バイトのエラーコードを書いたファイルを作り、Start xxxx /WAIT
で同期を取って、次にそのファイルを読んで ERRORLEVEL を返すだけの
小さなＣアプリを走らせる、と。

今日はじめて知って恥ずかしいんだけど聞いてくれ。

TextBoxとか普通のコントロールは、コントロール内でクリックしたまんま外にカーソルを移動させてボタンを離す（つまりDrag&Dropの動作）
をすると、コントロールの外でもMouseUpイベントが発生する。
でもListViewは発生しなかったんでビックリした。
つーか、MouseMoveイベントからListView内でしか発生しなかった。

このListViewの挙動を、他のコントロールと同じにする方法ってあるのかな？

AIP使えばどうにでもなるが､標準コントロール(プロジェクト > コンポーネントで
何もチェックしなくても使える物) とそれ以外の仕様は
たとえMS製でも一律じゃないと思った方がいい。
同じイベント名でも細かい動作が違ったりする。

>>521
520だけど、APIのSetCapturerすら効かないみたい＞＜

オイオイ違うだろw

ｵﾏｴｶﾞﾅ

524

>>520
そもそも、何故同じにしたいの？

>>526
いまListBoxからTextBoxにアイテムをDrag&Dropする機能があるプログラムがあるんだけど
コイツがMouseDown/MouseMove/MouseUpを使って実装してあるんだよ。
単純にこのListBoxをListViewに置き換えられれば楽だなー、と思って。

好きにすればいいじゃん

教えてください。
突然、ＶＢ５の開発をする事になりました。
（ユーザーの環境が５．０）
会社のＰＣにＶＢ５をインストールしたのですが、サービスパックがありません。
手に入れる方法はありますか？

>>529
これ？
http://www.microsoft.com/japan/msdn/vstudio/downloads/sp/vs97sp.asp

>>530
早速のご返事ありがとうございます。
そこへは、行ってみたのですが、
Location Cannot Be Found　となってダウンロードまでたどり着けないんです。

>>529
ちなみにＯＳは何？

たどり着くも何も直接ファイルにリンクされてるじゃんw
意味ﾜｶﾝﾈ

>>531
ttp://download.microsoft.com/download/b/8/0/b80918bd-1977-4694-8824-b2bf26af9bca/sp3read.exe

それではうｐだてできないんじゃね？ftpくらいあん子で適当に掘ったら
それっぽいのは見つかったけどな。自分で探して見れ。

>>533
どれ？
ＵＲＬは？

>>534
それはリードミーだけでは。

どこの世界にわざわざテキストファイルを自己解凍ファイルでアップするタワケがおるねんw
つーか、日本語読めないのかよw

リリースノート
Readme.wri Redist.txt Eula.txt が含まれています。

Version
　VB6.0

仕様
　JPG、GIF、PNG、BMPをImageコントロールに読込み、読み込んだ画像上に
　画像の大きさに比例するフォントサイズの文字列を表示する。

問題点
　上記の各ファイルをImageコントロールに表示するとこまではできたのですが
　文字列を表示することができません。どうすれば表示させることができるでしょうか。
　また、背景色を指定したいのですがImageコントロールにBackColorプロパティが存在しません。
　どうすれば背景色を指定することができるか教えてもらえないでしょうか。
　よろしくお願いします。

ああ、すまん日本語読めないのは俺の方だったw
なんか米のMSのサーバーからも完全に抹殺されてるっぽいね。

お詫びといっては何だが、Internet Archiveにキャッシュされてるみたいだよ。
http://web.archive.org/web/20040412001606/http://msdn.microsoft.com/vstudio/downloads/updates/sp/vs97/vb.aspx

>>540
標準添付のコントロールでは全部無理。
なので、市販のどれかの画像処理系ＯＣＸを買う。

>>542
釣り？

>>538 さん、ありました、ありがとう。

>>540
俺だったらラベル重ねるだけで済ましちゃう。

Imageコントロールは止めてPictureBoxにすれば書き込める。
慣れない内はAutoredraw=trueで。
でもグラフィックに書き込むことが目的なのではなく、
重ねて表示するのが目的なんだったら>>545

□！！！これを見た貴方は３日以内に死にます！！！■
■死にたくなければ、このレスをコピーして他のスレに　□
□１０回貼り付けて下さい。１時間以内にです！もし無　■
■した場合は、今日寝ている間に富子さんがやってきて□
□貴方の首を絞めに来ます。富子さんは太平洋戦争の■
■時に16歳という若さで亡くなった女の子で、未だに成 □
□仏していないそうです。信じる信じないは貴方次第。　■
■今年になってからこのレスを無視した人で、“呪われ □
□て死亡した人”が続出しています。これは富子さんの ■
■呪い。呪われて死んでもいいのならこれを無視するこ□
□とでしょうね。　　　　　　　　　　　　　　　　　　　　　　　　■
■――貴方がこうしているうちに富子さんが後ろから見□
□ていますよ…。　　　　　　　　　　　　　　　　　　　　　　　■
■□■□■□■□■□■□■□■□■□■□■□■□

富子さんは、太平洋戦争の時、もうネットで２ch開いていた当時、超ハイテク１６歳と見た！！
呪い怖〜いよ〜
(^O^)/ガクブル&西川ｸﾝが気絶してもうた〜

547
１６才の彼女は未だに成仏出来ないって所、
１６才の彼女は未だに未成熟って読んでエロい妄想が沢山吹き出てしまった。
ロリコンな俺、ウカツだったぜ･･･

誰か和訳してくれ

>富子さんが呪ます

まで読んだ

>幼女の唇を

まで読んだ。

>>542
>>545
>>546

ラベルを重ねる方法でやってみたいと思います。
ありがとうございました。

>>552と>>553を同時に読んだせいで

唇を重ねる方法でやってみたいと思います。
ありがとうございました。

に見えた

ある コンピュータ名を持つコンピュータがネットワークに繋がっているかどうかを調べて
返すということをしたいのですが…

例えば テキストボックスtext1 に"CP1"と入力して
コマンドボタンを押すと、ネットワーク上でCP1 が認識できたら
ＯＫとメッセージ表示、できなかったらＮＯとメッセージ表示と。

NET VIEW とかいうコマンドを使えばよいのでしょうか。
少し調べたけれど良く分かりませんでした…

>>554
そうかそういう方法もあったのか...(゜Д゜;)

>>555
Microsoft Winsock Control を使うとか Ping 打ってリダイレクトするとか
ttp://www.vector.co.jp/soft/win95/prog/se263702.html?site=n&srno=SR031721
を利用するとか。

グリッドで表示されたデータの中からマウスでクリックしたデータをテキストボックスに書き込みたいんですが

マウスでクリックしたデータ
gred.プロパティ =txtbox
だと思うんですがプロパティは何を使えば取得できますか？

左辺と右辺からして逆に思えるし。
GridのカレントであればRowColの該当するTextか何かで取れるだろうし。

>>558
グリッドって言ってもいろいろあるわけだが､どのグリッドコントロール?

>>558
グリッドって言ってもいろいろあるわけだが､どのグリッドコントロール?

>>558
普通 .Text みたいな名前のプロパティになってる筈。
後は .Value とか。

ひさしぶりにVB6.0を使ってみたのだが、
すっかり忘れてる・・・・
EXCELアプリケーションのインストールパスを取得する
APIってなんでしたっけ？

そんなAPIあるとは思えないんだけど。

>>563
FindExecutable ?

Linux上でＣ言語で作成された電文をＴＣＰ／ＩＰで送信して
ＰＣ側のＶＢ６．０で作成したアプリで受信しているのですが
新たに送信電文を暗号化する必要がありＢｌｏｗｆｉｓｈを組み込みました
送信側はＯＫなのですが、ＶＢ側はunsigned longのような方とか無い為
なかなかうまくいきません、なにかＶＢ側で簡単に複合化する手立てはないでしょうか？
Ｃ言語の方がメインでＶＢのほうは今一なので・・・・

>>566
CでDLL作ればいいじゃん

ディストリビューションウィザードのスクリプトって
どこに保存されているのでしょうか？

VB6とアクセス２０００を使ったプログラムを作っています

アクセスのテーブルを接続しレコードセットオブジェクトを作りました
このテーブルにはNAME1〜NAME12というようなフィールドがあるのですが
これを
プログラム内のループで扱うことは出来るのでしょうか

わかりにくいかもしれないですが
下のような感じです

for i = 1 to 12
RS![NAME & i] = name(i)
next i

よろしくお願いいたします

>>569
DAOなのかADOなのか知らんが
RS.Fields("NAME" & i).Value =

>>570
ありがとうございます
まくできました

＞NAME1〜NAME12というようなフィールドがあるのですが

激しく非正規形な香りがするな。

どうせなら NAME01 〜 NAME12 に。

質問です。VBってWindowsのパソコンだとどれでも最初からスタート→プログラム→VBで起動できるんですか？

はい。そうです。

>>575
教えていただいてありがとうございました(；´人｀)

>>574
最初からは入ってないよ。
買ってインストールせんと。

うい？！やっぱりそうでしたかあ↓↓わかりました!!

>>566
unsigned long コイツはVBのLong型で受け取れるよ
ただ 0x7FFFFFFF超える値はマイナスで表示されるから
変換演算してValiantかDouble他の変換しないとﾀﾞﾒ

>>579
全部 Currency でやってるな・・・

>>579
>>567
ＣでＤＬＬを作ってみようと思うのですが、
どのようなツールを使って、どうやって作ればいいのですか？
簡単に教えてください、あとは調べます

>>581
ＶＢだけ買ったのか。ＶisualＳtudio６ならＶＣ＋＋も入ってるのに。
ＤＬＬのソースは例えばこんな感じ。改行が多いって言われたので詰めて・・・
#define STRICT
#include <windows.h>
#include <windowsx.h>
__declspec(dllexport) VOID Hoge(HWND hWnd);
BOOL __export __loadds CALLBACK HemoDlgProc(HWND hDlg ,
UINT iMessage,
WPARAM wParam ,
LPARAM lParam );
#pragma data_seg("sharedat")
#pragma bss_seg("bss_data")
__declspec(dllexport) BOOL bFoo = FALSE;

LRESULT CALLBACK HemoDlgProc(HWND hWnd ,
UINT msg ,
WPARAM wParam,
LPARAM lParam )
{
// 処理
}
BOOL WINAPI DllMain(HANDLE hInst ,
ULONG ul_reason_for_call,
LPVOID lpReserved )
{
// 処理
}

>>581
まずは調べてから聞けよ

>>566
データ量わからんけど、少ないなら
ぜんぶ文字列にしちゃえばいいんじゃないの？

>>582
Visual Studio .NET2003というのがあります
これのＣ＋＋で作成しても大丈夫ですか？

>>583　ごめん
なんのツールで作ればいいのかもわからないので
聞いたほうが早いかと

そんな奴が作れるのか

>>587
何を使って作ればいいか、わかれば作れるでしょ
もちろん初めてだから時間はかかるけど

とりあえずもうVBの話じゃないからスレ違い

>>585
んー、Ｃ＋＋じゃなくて、生Ｃで作って。

DLLなんてウィザードで作れるじゃん

ウィザードよりウォーリアの方が好きです

早く教えてよ

http://www.angel.ne.jp/~mike/vb_dll/

ウェブ上のhtmlファイルの更新日時が知りたいんですが、
httpヘッダに書かれているLast-Modifiedヘッダじゃなくて、
ウェブサーバのファイルシステム上の更新日時を知るには
どうしたらいいんでしょうか。
ftpの場合だったらFtpFindFirstFileで調べられるんですが、
httpの場合のやり方がわかりませんので、教えてください。

>>595
できませんよ。

できないんですか。。。残念。

>>595
HTMLファイルの中に<!-- lastupdated=YYYY/MM/DD hh/mm/ss -->って
書いておけばいいんじゃねーの？
ってそういう質問じゃないのか。

>>595
それを知って何がしたいの？
実は、その「やりたい事」は、更新日時を知らなくても出来るかもよ。

>>519
遅レスですがありがとうございます。
いいアイデアです。助かりました。

ﾓｷｭﾓｷｭ

VBでタブブラウザ作ってみようと思うんだけど
おまえらだったらVBで作るのは無謀だと思う？

んーにゃ。

>>602
いいんじゃねーの？

そうか！無謀ではないか
よし、いっちょ作ってみるか(`・ω・´)

>>602
　!　 |　　!　　　',　　 ヽ　　　 ＼ 　 ',　　　ヽ　　　｀丶､＿＿,.ｨ
　|　 ',　　',　　　'､　　　ヽ　　 　 ヽ　!　　　　',　　　　　　 ＜´
　', 　 ', 　 ヽ　ヽ ',ヽ　 ヽ',＼;､　　!', !　 　 　 ヽ　　　　　　､ヾﾆ=-
　 ヽ　 ヽ 　 ヽ､ ヽゝヽ､ ヾ￣__ヽﾉ-ﾘ',　　 　 　 ＼ 　 　 　 ＼＼
　　 lヽ　 ',ｰ- ､ヾｰ　　　　'"´i { ij } } ヽ　　　　　　＼　　　 　 ',ヽ',
　 　 ', ヾ＞‐''iヾ´　　　　　　 ヽﾞﾆ´ﾉ　 ヽ　　 　 　 　 ', 　 　 　 !
　　　 ','"{ iヾ! } }　　　　　　　´"' ' ﾞ｀ 　 |＼　　　　　　} 　 　 ', |
ヽ､　　 ヽヽﾞﾆ´'､　　 　 i　 　 　 　 　 　 !'" ヽ　　　 　 !　　 　 ﾘ
　!i丶､＿_＼ﾞ ｀　　　　　　　　　　　 　 /　 　 ',i　 　 ',i'　 　 ,　}
､ ヽヽ=ヽ ￣　　 　 　 ⊂つ　　 　 　 , '　　 　 ｿ　/　!ﾘ　 　 ! /
.|｀ﾞ''｀''ーヽ､　　　 _,,　　　　　　 　 ／　　　　　 |ノ'ﾉ/　　　{ l/
.|　　i　ヽ､　｀｀´´ ﾆ=-　　　 　 ,.イ　　　　　 ／　//　　 ; /ヾゝ
. '､　ヽ､　 ｀ﾞ''ｰ‐＜｀ﾞ ｰ -- ‐'"　{　　　　_,..{ ∠´ノ 　 ／'　　　挑戦する事は素晴らしいわ・・・
　,＞'"´ﾞヾヽ''ヾ)ヽｰ｀　　　 _, ---ﾞ==､'´　 '´　 ｀ヽ | i
'´　　　　　ヾヽ ヽ|､ー ,.イ´i ! | ! ヽヽヽ｀ヽ､　_　r､_ヽ|
　　　　　　　}'ﾞ|　 ', ! /　i l| ||　!',ヽ_}ヽゝ', ､､ヽ｀´　 ｀ﾞr‐､
　　　　　　　 }|　　', }! i |r:::ヽヾヾ {｡:::}　',', ', !､',　　　　　}
　　　　　,　　 !!　　i !| | |ヾ-'　　　｀ﾞ´　 ヾ! !|ﾉﾞ'　　　 　 |
　　　 　 {　　 ',|＿__',i ',ﾞ' ､＿rっ-‐'´　　 ,}| |_,ﾍ'ヽ,ｲノｰ;､}
　　　　　',／´　　　　｀ﾞヽ　　｀´　　　　　ノﾞ´　　　 /　/''´

すいません、
以前あった、MSCD70-175と70-176をもとにいま〜　勉強しようと思っているのですが、
どちらから取り組んだほうがよろしいですか？

>>607
MSCD70-175と70-176て何？

Live2chはVBだ

とりあえず、タブブラウザ制作開始した
MDIにしてツールバーのところをIEちっくにCoolBarにしてみたら
CoolBar上に置かれたコントロールにフォーカスが行くたんびにちらつく・・・orz
まったく、俺がいったい何をしたというんだ・・・(´・ω・`)

質問です。
spreadにsettextされているデータ同士を
加算し再びspreadのセル内に出力したいのですが
いい方法は御座いますでしょうか？

>>610
細かいことは後回し後回し！
出来ることから勢いに乗ってやって行けばいいじゃん

っていうか、どうせ趣味ならExpressでやりたいと普通は思うんじゃないかと。。
VB6に固執していいことあるか？
仕事ならそれも仕方ないだろうけどさ。

やっぱ軽いし起動も早いからなぁ->VB6
でも.NETの楽さも捨てがたいが。

タブブラウザなんてまさにVB向きなんじゃないの。
IEコンポーネント使って作るサンプルが転がってるしな。
ちらつくぐらいは気にスンナ

>>614
処理は.NETの方が速いらしいよ。
起動速度も改善可能。

って、こんな事誰でも知ってるか・・・

この場合の早い軽いってのは､開発環境のことじゃないの?

>>615
　　　　 　,一-、
　　　　 /￣　l |　　　／￣￣￣￣￣￣￣￣￣￣
　　　　■■-っ　＜　んなーこたーない
　　　　´∀｀/ 　　　＼＿＿＿＿＿＿＿＿＿＿
　　 ＿_／|Ｙ/＼.
　Ё|＿_　| /　　|
　 　　　| У..　　|

んなことあるよw

この場合の早い軽いってのは､開発環境のことじゃないの?

>>617
ホントにそう思ってんの？
ギャグだよね・・・

引き続きタブブラウザ、結構出来てきた
メニューの項目をIEちっくに、一通り必要な機能を乗せたら
「編集 -> 切り取り」を実行したら選択してたコントロールとか消えた・・・orz
まったく、俺がいったい何をしたというんだ・・・(´・ω・`)

この場合の早い軽いってのは､開発環境のことじゃないの?

ここはお前の日記帳じゃねえんだ
チラシの裏にでも書いてろ

>>621
だって切り取ったじゃん。

なにこの糞開発日記。

この場合の早い軽いってのは､実行のことじゃないの?

文字列が、”山田町*-**-*”のようになっている場合
（*は任意の数字）

最初の*の位置を探すエレガントな方法を教えてください。
今は二重ループでやってるのですが・・・

どう考えても二重ループにはならないのだが、どうやってるんだろう

正規表現使うのが一番簡単だな

>>627
普通に先頭から一文字づつ判断して数値かどうか見ればいいのでは。

文字数に対するループと､0〜9までのループで､0〜9のどれかが一致したら数字と判断とかやってたりしてな。
マヌケすぎる方法だが､二重ループって言うとこれくらいしか思いつかん。

>>630
「づつ」じゃなくて「ずつ」だよお兄ちゃん。あくまで本則が「ずつ」ってだけだが

>>632
そっちが正しいのは知ってるけど、好みで「づつ」を使ってます。
他にも、「必ず」が正しいのは知ってるけど、好みで「必らず」を使ってます。

>>627
一番重要な事は「正しく動作するコードを書く」事だと思うが。
で、正しく動作するコードは、美しく、エレガントだ。

>>633
キモイ

>>635
ttp://home.att.ne.jp/kiwi/momoi/frame.html

おいおい一体どんな教育受けてんだよw
「ずつ」も「づつ」もどっちがより正しいなんてないよ。
どっちも正しい。常識でっせw

ずつが本則ですが何か？

相変わらずｒｙ

ＶＢでＷＳＨ（？）とか使う場合、全部 Dim objData As Object とかで宣言すればいいけど、
それだと、折角参照設定してもインテリセンス（だっけ？）が使えませんよね。
その為に、Dim objData As XXXX と正しく宣言しないと駄目な訳だけど、それがどんな型
なのかがよく分からない場合、どうやって調べてますか？（XXXXの部分）

>>633
きもい

>>640
オブジェクトブラウザ使えばいいだけでわ？

>>633
言い訳にしては苦しいな・・・

>>640
同意。
あとは、素でIDLとかODLを読む。

>>640
手っ取り早いのはウォッチで変数の中身見ろ
オブジェクトの型・インタフェースも出てるよ
参照して無い型まで調べられるよ

Visual StudioのOLE Viewがあれば敵無しなんだけどね

>>642
私の勘違いかもしれませんが、ＸＸＸＸを調べる事は出来るけど、
逆は出来ない様な・・・

>>644
素で読む、ですか。成る程・・・

>>645
変数って、objData を、ですか？
objData をどう宣言するかが分からない訳で、As Object と宣言した
変数を見ても、Object 型のインターフェイスしか分からないのでは・・・
「参照して無い型まで調べられる」って部分かな。
Visual StudioのOLE View は調べてみます。

>>640
>>変数って、objData を、ですか？
そう
ブレイクポイントで止めて変数の中見る
As Object で宣言しても中にが何の型なのか丁寧に出てきてくれるよ


Dim O As Object
Set O = CreateObject("Scripting.FileSystemObject")

なら

O はObject/FileSystemObject って出るよ

そこで横から質問ですがVB良くしらないんでおしえてつかさい
クラスのインスタンスを作成するときの
Dim Objtest As class1
set Objtest = New class1

と
Dim Objtest As New class1

の宣言ってどうちがうんですか？下記の宣言をかいたとき
先輩にウンココードだと怒られて意味がわかないんですが

>>648
理由も言わずにウンコというやつこそウンコ。

>>648
イニシャライザの走るタイミングが違う

set Objtest = New class1
は Newした直後に走るけど

Dim Objtest As New class1
だと一番最初にメンバーにアクセスした時

Class_Initializeに処理が書いていなければどちらを使っても
さほど大差ない

>>648
お仕事コードなら前者のほうがベター
いつクラスが作成されるかハッキリするので可読性がよいから
それと将来Initializeに、処理が追加されない保障はないから
と書いてみたものの、うちは後者を使うことが多いw
趣味のプログラムなら好きなほうにすれヴぁ

>>632
きもい

参照設定したCOMのインスタンス作るときは
Dim fs As New FileSystemObject
とかやっちゃうけど､(VBからFSO使うことはまず無いが)
クラスの場合は､必ず
Set Objtest = New class1
でインスタンス作ってるな。
あと､COMは特殊な物を除いて
Set obj = Nothing
はやらないけど､クラスは不要になったら必ず明示的に破棄する。
このへんはVBSも共通だな。まあVBSでクラス使う奴は余り居ないだろうけど。

すいません初歩的な質問なのですが

Picture1.picture = LoadPicture("C:\〜〜.jpg")
という風にフルパスで画像を表示してるんですが
当然別PCで実行すれば無いんでエラーですよね

画像をまとめて別ファイルで参照すればいいんでしょうか？
適当な透明フォーム作って全部貼り付けてコンパイルしています
明らかに無理矢理なんで対処方法教えてｸﾀﾞｻｲ

>>653
画像を実行ファイルと一緒に配布して､
カレントディレクトリの画像を読み込ませればいいじゃん
数が多いなら､カレントにImageとかいの名前のフォルダ作ってそこにまとめてもいいし。

カレントならファイル名だけで参照できるし､
App.Pathでカレントのパスも取得できる。

>>653
VBメニューのアドイン -> アドインマネージャ を選択
一覧から「VB6　リソースエディタ」を選択して「ロード/アンロード」「起動時にロード」にチェックを入れる
VBメニューのツール -> リソースエディタ を選択
リソースエディタの「ビットマップの追加」ボタンを押して表示したいビットマップを選択する
すると１０１って名前のツリーが出てくるが、それがその画像の番号（リソースID）
画像を使用するときには次のようにすればよい
Picture1.Picture = LoadResPicture(101, vbResBitmap)

654,655さん有り難うございます

一緒に配布する方法も考えてたんですがApp.pathを知らなかったんで
わかりました、有り難うございます☆
リソースエディタの方法も試したんですが、BMPしか対応してないですね
jpgなんでめんどくさそうなので、一緒に配布したいと思います。
（ｽｲﾏｾﾝ情報不足でしたね）

初心者の質問に答えていただき有り難うございました☆

>>656
次のようなコードで画像読み込んでるならよく考えること
Picture1.Picture = LoadPicture(App.Path & "\画像形式言えよボケ.jpg")

ドライブのルートの場合 = C:\
フォルダ内の場合 = C:\FolderName

Picture1.Picture = LoadPicture(App.Path & "\ごめんなさい.jpg")
↑まさしくこの通りやってます、問題があるんでしょうか？

考えても分からない・・・(´Д⊂

>>658
> 考えても分からない・・・(´Д⊂

MsgBox App.Path & "\ごめんなさい.jpg"

を見てから考えろ。

>>647
これは知らなかった・・・有難う御座います。

>>648
後者だと不具合が起きる可能性があるので、前者の方が良いです。
実際、後者を前者に変更しただけでちゃんと動いた例が沢山あった。

>>657
この仕様の違いは本当に面倒臭いですよね。

Σ（・ｏ・；）　ハッ！

ルートで起動されると￥￥に・・・
ってことは判別コードも書かなくては

問題はこれですね、ありがとうございます☆

>>661
ｷﾓｲ

>>661
ﾓﾓｲ

>>661
ｴｽｹｰﾄｩｰ

Windows2000Pro、VB6.0でマルチスレッドを行いたいのですが行き詰まっています。
USBの値を取り込んで制御を行いたいのですが、
パイプオープンまではできて、
値を取り込むところで固まってしまいます。
スレッド部でReadFileを行うのは不可能なのでしょうか？
誰かヒントでもいいので教えて下さい。

>>665
VBはライブラリなどがマルチスレッドに対応してないので出来ません
CreateThread してみると動かないことも無いですけど
苦労して作っても、たまにバグる奇形児が生まれるだけですｗ
確実かつ安全なのは、別スレッドで行う処理を ActiveX EXE で作成して
CreateObject で作成して利用するようにすればよいです

>>665
マルチスレッドが必須要件ならVS2005への移行をお薦めします。マジで。

>>665
ＶＢ６でマルチスレッドは出来ないけど。

CreateThreadでスレッドは作成できるけど､
そのスレッド上でまともな処理が出来ない。
それがVB6の仕様。

まぁ一応・・・
ttp://www.naka-net.com/y-mac/63.html
ttp://www1.harenet.ne.jp/cgi-bin/cgiwrap/unaap/lib/libsmp.cgi?lang=&function=CreateThread
ttp://forums.belution.com/ja/vc/000/154/72s.shtml

即レス有り難うございますm(_ _)m
やはりそうでしたか。
マルチスレッド化のサンプルはあったのですが、
説明にも不完全とありました。
同じサンプルに、GUI部はVBで実現して、
マルチスレッド化のDLLをC++で実現するというものがありましたが、
こちらもサンプルのままで使用すると一応動作するんです。
が、狙った動作が行えず、
若干改変を加えるとエラーがでてしまって…
MSVCRT.LIBの"main"が未解決ですといわれます。

>>671
非同期通知＆マルチスレッドのサンプル
http://www.microsoft.com/japan/developer/library/vb98/vbsmpcoffeecoffeecoffee.htm
http://web.archive.org/web/20010417125807/http://www.microsoft.com/japan/developer/library/vb98/coffee.exe

>>671
そもそも何でマルチスレッドで処理する必要があるの？
Ｅｘｅ２つでプロセス間通信とかすりゃいいじゃん。

>>671
やりたい事は「マルチスレッドを行いたい」ではなく、「USBの値を取り込んで制御を行いたい」だよね？
「USBの値を取り込んで制御」は、「マルチスレッド」以外では実現不可能なんでしょうか？

そもそも何故VB6で作るかじゃないのか？
適材適所。

URL貼っていただいた方有り難うございます。
自宅に帰ったら覗いてみます。

いろんな意見有り難うございます。
説明不足すぎですね。
まず、やりたいことをお伝えせねば。
現在卒業制作にて課題に取りかかっているんですが、
そのプログラムに行き詰まっています。
その制御ですが、PCからDIOボードを使って外部に出力してラジコン飛行船を制御するというものです。
最初の段階ではＶＢでコマンドボタンを配置して、
それに対応して出力するというプログラムでした。
これは比較的容易で、ボードについていたサンプルを軽く弄る程度で良かったんですが…続きます。

>>675
続くのかよっ！

それが成功するとそのプログラムを生かしたまま、
VBのフォーム上に無線LANカメラの画像を表示するということになり、
webブラウザーを設置してコマンドボタンでURLを開かせるようにしました。

問題はここからで、
それが成功するとUSBゲームパッドでも制御できるようにする、
と追加されたのです。
いろいろ調べて汎用デバイスドライバをインストールして、
マスクオープン→パイプオープン→ReadFileで各ボタンの値とり込み→値によってI/Oの振り分け
という制御にしたんですが、
わからないながらも頑張って調べてなんとか値は取り込めて、
飛行船も制御できたんですが…
画像がコマ送りになるんです。
USBデバイスから情報を送っている間は
処理が完了するのかカメラの画像動くんですが、
デバイスから入力が途絶えると止まってしまいます。
どうやらデバイスから入力が途絶えると待ちに入って他の処理ができなくなるらしいのです。
そこで調べて行くとマルチスレッド化をして、
待ちに入った場合は他の処理を優先させる…といったものでした。
何故VBなのかがお分かりになられたでしょうか。
長文本当にすいません。
あと２ヶ月余りで仕上げなくてはならず、
時間も知識もなくて途方にくれてます。

>>678
素直にＥｘｅ２つにした方がいいよ。
これからの二ヶ月を無駄にしたくないなら。

んだね。
ActiveX-EXEで別プロセス作ったほうが良さげ。
俺だったら.NETかC++に行ってスレッド使うけど。

>MSVCRT.LIBの"main"が未解決ですといわれます。
プロジェクトがDLL作る用になってないだけだからすぐ直るよ。
ぐぐってみなされ。

馬鹿じゃねえの
678の問題が実行ファイル2つにして解決するような類のことかってw
素直にCでスレッドで処理するdll書くのが正解。

>>678
汎用ドライバって柏野さんの奴でしょ？
ずいぶん前にインターフェイスに載ってたやつ。
CQのインターフェイス別冊のUSB本（同じようなのが何冊もあって困るが）
にヒントが書いてあるよ。

COMに頼らなければスレッドを作れないVBを馬鹿にしやがってヽ(`Д´)ﾉ

ＶＢ可愛いよＶＢ

ttp://planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=26900&lngWId=1
マルチスレッドしたいならとりあえずコレを試すべし

>>待ちに入った場合は他の処理を優先させる…
優先？何のこと？マルチスレッドはスレッドを並行させることだよ

>>685
スレッド使ったことあるの?

デバイス入力待ちのところにDoEventsで解決したりして・・・んなわけないか．

VB完結ならやっぱActiveXかな

列挙型に名前付けるときの規則ってある？

>>688
分かり易く。

>>689
・名前をアスキーコードに直して先頭から足しこんでいった時に、素数で割り切れるように命名しなければならない
・日本語の読みをローマ字（大文字）にしたものを使わねばならない
・名前の長さは最低１６文字を超えていなければならない
・名前の末尾に命名した日の西暦を４桁でつけなければならない

>>691
お前のところは規則がそんなにも少ないのか

>>689
とりあえず、無難にモンゴリアン記法に従っておけ

初恋の女の子の名前は必ず入れとけよ

>>694
ハンガリー記法では・・・

>>694
ちょっとまてお前なんで俺のパスワードを知っている

>>650
Dim A as New Hoge
だと、AにNothingを入れてもまた参照すると勝手に作られるから、
イニシャライザの走るタイミングが違うだけ、ではないな。
また、このチェックのためにちょっぴり遅い、とも聞く。
まぁよく分からんうちは
Dim A as Hoge
set A = new Hoge
にするのが間違いないと思うよって言うか As New なんて使わないほうがいい

じゃあ
Enum 香代子
にしておきます。

最近全然ＶＢ触ってなかったのですが、久し振りに昔書いた自作ツールを
変更しようと思って色々弄ってた所で疑問が・・・
ShowInTaskbar = True で BorderStyle = vbSizable なのに、アイコンにした時
タスクバーに入らず、上に小さな長方形のアイコンになってしまいます。
後は何処を変更すれば良いんでしたっけ？

>>698
初恋の女の子を変更汁

>>695
モンゴリアン記法も知らないのか・・・

>>698
もうその質問飽きた

VC++習得後、VB6を勉強しているものなんですが、
VBでのクラス・インスタンスってすべてヒープ上に
できるんですか？組み込み系のクラス(Integerとか)も？

引き続きタブブラウザ、ついにタブブラウザ爆誕(　´∀｀)
ほとんどIEそのまんまな機能だけど、唯一劣る点が
お気に入りのメニュー上でのドラッグ操作が出来ない点・・・
これさえ何とかなれば、そこそこ使えるんだけどなぁ
今後はUserAgentの変更とかも手を出してみる予定〜

はいはい、チラシの裏チラシの裏

>>702
ＶＣ＋＋習得したなら、ＶＢ６なんてやる必要ないじゃん。
Ｃ＃．ＮＥＴとかＶＢ．ＮＥＴの方が。

>>705
そのレス意味あんの？

>>705
業務上 VB6の必要性がありまして。
これ、あれですか、Newキーワード使えないやつがスタック上ってことですかね？

>>707
Cだとスタックとヒープってはっきり分かれてるけど、
VBはどーなんだろうね。

VBだとよっぽど特殊なことをしない限り、
メモリイメージを把握する必要はないよ。

>>708
うーん、ちょっとWIN32 APIを呼び出す必要がありまして。
よくあるバッファを渡すパターンなんですけど、ちょっとサイズ
大きめなんですよ。

なんでスタック上に取られるとスタック領域の不足が心配で。
逆に、明示的にヒープとか確保する方法があればそれでも
OKなんですけどねー。

StringがBSTRであることなど考えれば･･･。
APIの呼び方講座がヘルプにあるんんだから熟読してから考えようよ。

>>702
VBでも同じだよ
IntegrtとかLongの組み込み型はスタックで
インスタンスはヒープで その参照はスタック上に確保される
配列とかも全部同じ．．．かも

VBはメモリ・ポインタを完全に覆い隠しているから
ドコから確保してるのかは正直分からないな

どうしてもヒープに確保したいならAPIで明示的に確保してやれば

>>703
出来たらオープンソースにして皆で改造しようや

>>707
スタックがどうの、ヒープがどうの、メモリがどうの、とか、
一切考える必要がないのがＶＢクオリティ。

>>709
ＡＰＩに渡すバッファは、普通ＡＰＩで確保するのでは。

>>710
えーと、すいません、よくわかってなくて。一応読んだつもりなんですが
WIN32 APIの文字列データの引渡しについては

・StringはVBで内部的にBSTR型として表現されること
・String()関数を使って長さを設定した文字列か、固定長文字列宣言で得られたインスタンスをバッファとして使う

あたりで理解したんですが、VBにおけるString=BSTR型のインスタンスが
スタック上で実現されているか、ヒープ上で実現されているかはわからない
ような気がするんですが...。

何か読み方か、考え足りてないのかな？

>>703
ソース公開しないなら､ここで報告などせずに
黙ってひっそりとやってろ。
ここで報告したいならソース出せ。


以上。

普通は
dim s as string

s = space(256)

ってやるよ。

>>713
ＶＣ＋＋的考えは全部捨てろよ。

as string * n
か
string(n,vbnullchar)
が普通だと思ってた漏れは炒ってよしですか?

>>711
配列はスタックかヒープかは分からんとｵﾓﾀ。
Cなら確実にスタックオーバーフローになるようなサイズでもVBでは確保できるんで、
内部で調整してんじゃないかな。
（ただ関数抜けたら開放されるはずだから、クラス的なオブジェクトとは挙動が違うけど）

>>713
>あたりで理解したんですが、VBにおけるString=BSTR型のインスタンスが
>スタック上で実現されているか、ヒープ上で実現されているかはわからない
だね。
型から確保している場所なんて分かんない。

そもそもスタックとかヒープってのはc言語用の仕組みなわけで

>>719
VBでもあるよ。
終了できない再帰関数作って実行してみなはれ。

>>719
実行ファイルは全てメモリはスタック・ヒープで管理されてるよ
最近はVB・JAVA・C#とかのメモリを意識しないでプログラミングできる言語が増えてきてる

>>719
VBにもスタックもヒープもあるだろ
PEファイルの中身覗いてみろよ

>>702
つ GlobalAlloc

ＶＣ＋＋のスキルがあるのにＶＢじゃないと駄目な業務って一体・・・

>>723
歴史のあるアプリのおもりってのは胃がいたくなるぞ。
一度やってみろ（・∀・）

>>723
下請けや出向なら、スキル云々関係ないじゃん
客が指定した環境で作るしかないだろ
俺も以前、勤めてた会社でVC++のプロジェクトのあと初VBだったぞ

>>724
そのとおりです。こちらもメンテナンスです(涙。

>>711,722
やっぱりAPI呼び出しで明示的に確保しかないんですかね。
アイディアありがとうございます。

>>717
大丈夫です。MSDN Libにはその2つの方法が基本として
書いてありました。そのどちらでもいいそうです。

まぁ、ＶＣ＋＋に較べればＶＢは遥かに簡単だし、
生ＣとかＶＣ＋＋でＷｉｎｄｏｗｓアプリを書いた事があるなら、
ＶＢなんて楽勝でしょう。

>>727
いや、VBはVBで奥深いです。
がんばって勉強します。

皆さまありがとうございまいた。

>>727
ちょっとしたツール作るだけなら楽ﾁﾝなんだけど
MSGridをもうちょっとExcel風に便利にしてみようだとか
用意されたお手盛り品から抜け出そうとしたとたんデスマだよなｗ
まあ、そんな開発に当たることが無ければいいんだけど・・・

あと、VBはVCに比べて罠が多いよな
全部あげたらキリがないけど、暗黙のオブジェクトとか、デフォルトプロパティとか
型宣言忘れてVariantだとか、AddressOfが引数構文でしか使えないとか・・・

>>729
そんな案件をＶＢでやる事自体、根本的に間違ってるからね。適材適所。
そのＶＢの罠も、生Ｃ／Ｃ＋＋から入った人は引っ掛からない。

>>730
>生Ｃ／Ｃ＋＋から入った人は引っ掛からない。
そんなアホな話があるかｗ
何から始めた人だって、プロパティ書き忘れることだってあるし
型宣言だって書き忘れないとは限らない

>>731
レベル低いな。

>>732
いや、お前のが低いだろ
ミスを犯すことを前提にコーディングするもんだ
俺は間違えない！なんて考えで書いてるようじゃ
どれだけ悲惨なコードか目に浮かぶよ

レベルって何よ・・・
RPGですか

>>732
基本的には >>733 の言うようにミスを前提でコーディングするべきだからな。
ミスする奴が悪いなんて言っているうちは間違っている。
ミスできる言語仕様が悪いに決まっているからだ。

でもさっき挙げられているのはVBらしさの重要な部分でもある。
誰でも使えて、ちょっと作って、ぱっと動かす。
これがもともとのVBの立場であるので、「高度なこと」をやろうと思えば
大変なのはまぁ仕方ナス
.NETで暗黙のFormインスタンスが無くなってよかったと思っていたが、2005で
戻っちゃったしなぁ

VB.NETは使ってないから知らんけど、多くの人がそれを望んでいたのかもしれないね。
最初のやつはC#とVB.NETを比べても、あえてVB選ぶような価値ってのは見えなかったわけだし、
言語仕様の曖昧さというのを受け入れてでもVBの特色を出すというのは仕方ないのかも。
VB6とは違ってベースは他のと同じの使ってるわけだし、他の言語の為に作成した開発支援技術の
流用も期待できるから、孤立しないで進歩できるようになる良い兆候だと俺は思ってる。

つOption Explicit

>>737
それ必須だよね。

Option Explicit はオプションで自動追加されるからいいよ
むしろ入れておきたいのはこっち
DefByte A-Z 'Byte
DefDate A-Z 'Date
DefObj A-Z 'Object
このへんをコンパイル引数で切り替えてチェックする

わかりやすい説明ありがとうございました。ありがとうございます。
納得しまして解決しました。
要は見やすいコードは前者というわけですね。
先輩がウンコと言った箇所は実は別の意味合いだったらしく、私が
判定文の間の条件コード内にDim test As New Class1　とNothing
をしていた事に文句いいたかったそうです。
おさわがせいましました

>>739
お、頭良いなそれ採用

VBからAccessのファイルを弄ろうとしていてわからないことがあるんですが、このスレで質問して良いですか？

>>742
ＶＢから弄るんだから勿論ＯＫなんじゃない。

では質問させていただきます。

Set oAccess = CreateObject("Access.Application")
Call oAccess.OpenAccessProject(strPath, True)

で、セキュリティ警告ダイアログがAccessから表示されていまいます。
開くときにAccessファイルを[Shift]+[開く]の形式で
Accessファイルの起動時処理を走らせずに開きたいのですが
どのようにすればよいのでしょうか？

つうか、そういう開き方しないで、普通に開けばいいんじゃないんか？

>>744
OpenAccessProject に第二引数はない様な・・・
OpenCurrentDatabase じゃなくて？
で、
Dim oAccess As Access.Application
Set oAccess = CreateObject("Access.Application")
oAccess.Visible = True
oAccess.OpenCurrentDatabase "Test.Mdb", True
oAccess.CloseCurrentDatabase
oAccess.Quit acQuitSaveNone
Set oAccess = Nothing

特にエラーは出ないけど・・・
単にデータベースパスワードの事か？
それなら
ttp://support.microsoft.com/default.aspx?scid=kb;ja;317113#XSLTH3194121121120121120120
この辺か。

補足です。
Accessは2003で、開くファイルはadpなんです。

------------------------------------------------------------------
セキュリティ警告
"C:\hoge.adp" を開いています
このファイルに、意図的にお使いのコンピュータに損害を与えるコードが含まれる場合、
ファイルは安全でない可能性があります。
[キャンセル]　[開く]　[詳細]
------------------------------------------------------------------

というダイアログが出てしまいます。


何をしたいかというと、vbからadpの接続プロパティを更新したいのです。
adpの使用者に接続プロパティの変更を自分でおこなってもらうのではなく、
vbから自動で接続プロパティのサーバーやデータベースを更新したい、
という要望なんです。
このvbアプリを実行することで、使用者は難しい設定をしなくても
自動で代替サーバーに切り替えてadpを使用できるようにしたいのです。

接続プロパティの更新はできました。


>746
どこかのサイトで調べてOpenAccessProjectという書き方が載っていましたので
そのようにしていました。
第二引数は、排他モードということです。

OpenCurrentDatabaseを使用して開いても同様の結果となりましたorz

>>747
それって、アンチウィルスソフトが出してるのではなく？

>>747
そのメッセージでググッたら、幾らでも解決方法が出てきた。

ttp://support.microsoft.com/default.aspx?scid=kb;ja;834420
ttp://support.microsoft.com/default.aspx?scid=kb;ja;831334

>748
Accessからのメッセージです。

>749
でも、欲しい回答がなかなかみつからなかったのでここにきました。

>750
Jet4.0のSP8パッチはあててありますが、現象が変わりませんorz


>747のダイアログで[Shift]キーを押しながら[開く]を選択しないと
起動時の処理が走ってしまうので困っているんです。。。

セキュリティを下げろって書いてあるが。

セキュリティを下げてもadpファイル内の起動時のコードは実行されてしまいます。

起動時のコードを走らせないような起動パラメータか何かないんでしょうか？？

ttp://support.microsoft.com/search/default.aspx?query=AllowBypassKey&catalog=LCID%3D1041&spid=1265&qryWt=&mode=r&cus=False

ここには [スタートアップオプションを無視する] ことを無効（つまり、[shift]+[開く]を無効）にする方法が
記述されていましたが、要はこれと逆の事をvbで実装したいのです。
しかし、その事の資料がなかなかみつかりませんでした。

実際問題として無理なんでしょうか。。。？

ExcelVBAの質問なのですが，ビジネスsoftのExcel板では，Excelに関係ないVBに関する質問は
VBスレで，ということなので，こちらで質問させてください。

デバッグのため，オブジェクトのプロパティの一覧を書き出したいのですが，方法がわかりません。
任意のオブジェクトのプロパティ名の一覧を配列などの形式で取得する方法はありますでしょうか。
（具体的には，WebBrowser.Document以下の，任意のNodeのプロパティ一覧を取得したいのですが）

>>755
つ オブジェクトブラウザ

>>756　　レスありがとうございます。
ちょっと説明が不十分だったかと思いますので，補足させてください。

オブジェクトブラウザでは，WebBrowser.Document以下のオブジェクトのプロパティを見ることは
できないようです。（おそらく内部的にはMSHTMLあたりと同じなのかと思いますが，知識不足の
ためよくわかりません。）
オブジェクトブラウザでなくても，ウォッチウィンドウなら確認することができますが，どちらにせよ
ExcelとVBEを頻繁に行ったり来たりしなくてはならず，効率的でないようです。

そこで，
1) フォーム上にWebBrowserコントロールを配置し，
2) WebBrowser.Documentの内容をTreeViewコントロールに表示し，
3) TreeViewコントロールの要素を選択すると，そのNodeのプロパティがListViewに表示される
というデバッグ用のフォームを作成しているのですが，3)の処理を行うために，
選択したNodeのプロパティ名の一覧を配列などで取得する方法を探しているという事情です。
何かいい方法か，代用策はありませんでしょうか。

つまりメンバをコードで取得したいってことか。

とりあえずこの辺を参考に
ttp://support.microsoft.com/default.aspx?scid=kb%3Bja%3B172988

>>758
おおっ、ありがとうございます
さっそく調べてみます

残念ながら，私のシステムにはTlbinf32.dll が入っていないようです・・・
VBをインストールしないと（VBAだけでは）このファイルはインストールされないようですね

しかたがないので，機械的にプロパティのリストを取得するのは諦めて
何か他の方法を考えようと思います。
レスしてくださった方々，ありがとうございました。

企業のイベントで使えるような、バーチャル福引をVBで開発しようと思います。
で、変数（くじの全体数や当たりの数）を設定・記録できるようにして、
くるくると多角形を回して、玉が出てくるなどといった形までは出来たのだが…

いかんせん、見た目が貧相なのだ。なんかこう、見た目がカッコ良くできないだろうか。
パチスロのリールみたいにした方が良かったかな…

本物の福引き回せばいいんでね？

>>760
ランタイムに含まれてるみたい。
ランタイムは配布可能だから配布すればいいじゃん。

ランタイム配布可能なのはProfessional以上持ってる人だけじゃなかったか？
まあベクターから拾ってくれって言えばいいんだろうけどさ。

>>764
そう。ＶＢ６ＳＰ６を。

>>763
情報ありがとうございます。
Vectorで「VB ランタイム」で検索してヒットした一番新しいもの（VB6.0SP6第３版とかなんとか）を
インストールして、Windowsフォルダを対象にTlbinf32.dllを検索してみましたが、
どうもこのパッケージではインストールされなかったようです。
どのパッケージにはいっているか、見当はつきますでしょうか。

↑訂正 >>763-765　失礼しました

>>766
ＶＢ５ＳＰ３ランタイム

OpenURLにて取得するデータの進捗率を表示する事は可能でしょうか？

>>755
Node(HTMLタグ)の属性を全列挙したいんだよな
IHTMLDOMNode.Attributes か HTMLElement.Attributesではイカンのか？
間違っていたら無視してくれ

>>769
無理。

>>768
情報ありがとうございます。
結局、目的のDLLは見つかりませんでした。

>>770
情報ありがとうございます。
取り出したいのは、タグの属性ではなく、オブジェクトのプロパティです。
ですがそれも有用な情報ですので、参考にさせていただきます。

質問の当初の目的（プロパティの取得）は実現できませんでしたが、
調べる過程で、当該のオブジェクト群のおおよその仕様は理解できました。
また、いくつかのプロパティと>>770さんの指摘くださった属性の組み合わせで
かなりの程度効率的なデバッグツールを作ることができましたので
この質問は一応終了とさせていただきます。
情報をくださった皆様、ありがとうございました。

vbComCtl使うと、クソなコモンコントロールから開放されるぜ

すみません。教えてください。
以前も書かせていただいたのですけれど、MSCDで過去にあった70-175
と70-176。この勉強をしろと言われているのですが、どちらを先に進めた
ほうがよろしいですか？お願いします。

>>774
「MSCDで過去にあった70-175と70-176」ってのが何の事が全然分からん。

説明するのは面倒なので分からない人は答えなくていいです。
知っている人だけお願いします<(_ _)>

>>776
ここはお前の日記帳じゃねぇんだ
チラシの裏にでも書いてろ、な？

>>776
以前も書いたのに誰も回答してないな。
つまりそういう事だ。
お前の様な莫迦には理解出来ないだろうがね。

ﾜﾛｽ

>>607ですでにいたのか。気付かなかった。

>>776
こいつって定期的に沸いてくる基地外でしょ？かまって君だから以後放置。

GetChunkでバイナリデータを取得したいのですが、思うようにいきません（データをファイルにすると1KBで生成されます）。
下記のコードはMSDNから引用し、改変したものです、ご教授お願いいたします。

Dim vtData As Variant
Dim bData As Byte
Dim bDone As Boolean: bDone = False

vtData = Inet1.GetChunk(1024, icByteArray)
DoEvents
Do While Not bDone
DoEvents
bData = bData & vtData
DoEvents
vtData = Inet1.GetChunk(1024, icByteArray)
If Len(vtData) = 0 Then
bDone = True
End If
Loop

>>774
70-176 から先に勉強しろ

>>782
実行してないけど・・・
Byte データを & なんかで繋げていいの？
後、icByteArray なんだからちゃんとバイト配列で受けた方が良いのでは。

>>784
レスありがとうございます
はい、そもそもGetChunkでバイナリデータを扱う方法がわかりませんので、自分なりに頑張ってみたところです
元のコードは文字列型を取得するコードだったようで、それを単に書き換えただけでございます

>>785
ＭＳＤＮのサンプルに

Private Sub Inet1_StateChanged(ByVal State As Integer)
Dim vtData As Variant ' Data 変数

Select Case State
' ... ほかの条件のコードは省略されています。
Case icResponseCompleted ' 12
' 出力先のファイルを開きます。
Dim intFile As Integer
intFile = FreeFile
Open "C:\Tmp\A.Html" For Binary Access Write As #intFile
' 最初のデータを読み取ります。注意: バイナリ ファイルを読み取る
' 場合はバイト (Byte) 配列 (icByteArray) を指定します。
vtData = Inet1.GetChunk(1024, icString)

Do While LenB(vtData) > 0
DoEvents

Put #intFile, , vtData
' 次のデータを読み取ります。
vtData = Inet1.GetChunk(1024, icString)
Loop

Put #intFile, , vtData

Close #intFile
End Select
End Sub

こんなのがあったけど。

一時ファイルを使いたくないなら、Redim preserve + CopyMemoryでバイト配列同士を連結しなきゃならないね。

解決しました、どうもありがとうございました。

どう解決したんだよ

>>788
正常な人間なら、何が間違っててどう変更して解決したかを書き込む訳だが。

俺異常だから別にいい

算数のお話なんですけど、10 ÷　（５−２）　っていう式を再現したいんですけど、どうやって記述したらいいですか？
res=10/(5-2)ってやったらダメみたいなんですけども￥

あれ？いけました（汗爆爆爆爆汗超笑

792 名前：デフォルトの名無しさん ：2006/01/31(火) 22:08:56
算数のお話なんですけど、10 ÷　（５−２）　っていう式を再現したいんですけど、どうやって記述したらいいですか？
res=10/(5-2)ってやったらダメみたいなんですけども￥

793 名前：デフォルトの名無しさん ：2006/01/31(火) 22:13:58
あれ？いけました（汗爆爆爆爆汗超笑

(残響音含む)

>>794
IE乙

引き続きタブブラウザ、ここにきて行き詰まった・・・(； ´Д`)
UserAgentの動的変更、JavaScript・サウンド・画像のON/OFF切り替え
IEのお気に入りメニューの並び順も再現（動的な並べ替えは無理だけど）
ベーシック認証ダイアログや、JavaScriptのアラートもカスタマイズできるようになった
しかし、ここで問題発生！（＞＜；）
window.close されたときに opener が True でないと　WindowClosing イベントの後に
「〜閉じられようとしています。閉じてよか？」って出るんだけど、
ここで、はい／いいえ の選択結果を取れない・・・orz
独自ダイアログにすれば可能だけど、オリジナルのままで結果を知りたいところだ
しかし、相変わらず Coolbar 使うと、なんか画面がちらつくのが許せん・・・

>>797
リファラを送る方法をｵｼｴﾃ下さい

>>797
http://yuukiremix.s33.xrea.com/chirashi/

>>794
どう駄目だったのか知りたい・・・

>>783 サンそのたの方ありがとうございました。
　がんばって、やってみます。

>>798
え？BeforeNavigate2イベントでサクッと変更できまつよ

>>802
WebBrowser コントロール使う以外で方法ありませんか

>>803
むー、WebBrowserを使わないでって・・・意味が分からないよ

WebBrowserコントロール使ってるのかよ('A`)
期待度一気にガタ落ちだなw

>>805
IEコンポ使わなかったらレンダリングやJavaScriptまでIE互換で自前実装するの？
VBで実装したら実用速度にならないし、IEと互換性無いと使い物にならないじゃん
２ｃｈブラウザみたいな特殊な環境限定なら、それでもいいだろうけどね

まあ､初心者はそう思うだろうな。

急に逆ギレ気味に偉そうになっててﾜﾗ

>>807
こんな夜中に即レスくれるのはうれしいんだけどさ
実際そうでないんなら、VBの独自エンジンブラウザ晒してみてよぅ

VBの独自エンジンブラウザって名前だけでうぇ〜ってなる

>>810
普通はそうだよねｗ

>>811
m9(^Д^)ﾌﾟｷﾞｬー

晒すことで何か晒した奴にメリットってあるの?
797も役にも立たない日記的なことばかりで何も晒してないし。

>>805
m9(^Д^)うぇ〜

>>813
恥ずかしかったらバイナリでいいよ〜

いや､俺は何も作ってないよ。
ただ､ソースにすろバイナリにしろ
晒すことでそいつにメリットがあるのかなぁと。

て言うか質問スレを私物化すんなよ糞が

>>809
嬉しいのかよ?

内心では悔しくて悔しくて堪ら(ry

議論を戻すよ。

803 名前：デフォルトの名無しさん[sage] 投稿日：2006/02/01(水) 01:34:44
>>802
WebBrowser コントロール使う以外で方法ありませんか

>>817
進行遅いスレだし、質問も1日に１回くらいなんだからいいじゃ〜ん

メリットなんてありませんよ
踊らされて晒した奴の負け

>>821
大丈夫だよ、バイナリならソース見られるわけでも無いしさ
IEコンポなしでも、VBでブラウザ作れるんだってとこを証明できるじゃん？

ぶっちゃけ優れたフリーのタブブラウザって腐るほどあるのに
VB6.0でIEコンポ利用して作ったタブブラウザって誰が使うんだろう

そして何で>>797は>>602以降このスレで一々
「どうしようか、あれができた、これができた」って報告してるんだろう
質問スレなんだから質問と回答のお礼意外は書かなくて良し、って言うか書くな

> いいじゃ〜ん
それはお前が決めていい事じゃない。

これがまかり通るならこのスレ(10〜20レス/日 程度)より進行の遅いスレでは
どんなスレ違いな話題でも個人的な日記でも嵐でさえも正当化されてしまう。

結局､ブラウザの彼が踊っただけ？

>>823-824
まぁまぁ、そう冷たいこと言わないで
こんな深夜にも活発にレスしあえるんだからお互い楽しいじゃん？
んじゃ、今日は遅いからもう寝るよっ(`・ω・´)

つかマジでチラシの裏はやめろ

こういうスレは、質問者意外にも有益な情報元になるんだよ
駄レスが増えれば増えるほど価値が落ちる
私物化してチラシの裏なんてもってのほか

寝るとか言いつつまだ居たりしてｗ
また少し出来たら報告するから期待してる人待っててね、んじゃ(`・ω・´)ﾉｼ

期待してる人居ないから､報告しなくてよろしい。

仮に完成しても､バイナリは誰にも喜ばれないだろうな。
ソース出せば初心者には喜ばれるかもしれないけど､
スキルの低い奴ってソース出すの躊躇うしw

>>828
死ね

>>822
前の会社に、Ｅｘｅだけあれば、その元になったソースのバグ迄分かる人が居た。
機械語が完璧に分かるその人にとって、バイナリもソースと同じだった。

>>829
VBにスキルも糞も

>>828
死ね

>>828
寧ろｲ�`

>>828
やっぱ氏ね

WebBrowser使わないでってのはMSHTMLかMSXML使ってってことじゃないの？
俺もその辺勉強したいんだけど、なぜかどこで聞いてもスルーされるんだよね

プロシージャ内の処理を別プロセスで行わせるには、
その処理部分をコンパイルしてCreateProcessで呼び出すしかないのでしょうか？

>>1
ガッ

>>837
ＥｘｅにしたんならＳｈｅｌｌでいいんじゃない？
>>838
ＧＪ！

831 名前：デフォルトの名無しさん　[sage]　投稿日：2006/02/01(水) 07:48:04 New!!
>>822
前の会社に、Ｅｘｅだけあれば、その元になったソースのバグ迄分かる人が居た。
機械語が完璧に分かるその人にとって、バイナリもソースと同じだった。

さすがVBスレｗ　アホが普通に居るなｗ

>>828
死ね

>>828
だがｲ�`

>>837
ActiveX EXEにする手もあるぞ

>>842-843
6時間以上前の書き込みにいちいちレスつけて荒らすなクズ

>>839
EXEにした時点で別プロセスになるんですね。
コンパイルせずに内部関数を別プロセスで...なんて出来ませんよね？

>>845
だから ActiveX EXE にしろって言ってんだろがｗ
VBからExcelを操作したことないのか？

>>844
そもそも何がやりたいの？

>>846
ActiveX EXEですか。調べてみます。ありがとうございました。

ActiveX EXE なんて、最初から全く使い物にならない技術だったな。

>>848
マルチスレッドのようなことをしたいのならActiveX.EXEは向いてない。
プロセスは別だがActiveX.EXEのメソッドは同期的にしか呼び出されないので
実質シングルスレッドと同じ。

>>850
メソッド呼ばれた側はタイマー起動するなり、自分にメッセージ投げるなりして制御返せばいいじゃん

>>851
非表示のフォームにタイマー貼り付けてという手がありましたね。
昔のことなんですっかり忘れてました。
ただ時間のかかる処理だといろいろ不都合も多かった記憶があり、
その手のActiveX.はC++で作って中でスレッド生成してました。

http://list4.auctions.yahoo.co.jp/jp/2084048851-category-leaf.html　　（・∀・）ｲｲ!!　

VBだけで非同期処理をする

http://www.int21.co.jp/pcdn/vb/noriolib/vbmag/0008/com/

>>854
初音氏のやつは、記事も書籍も良いのが揃ってるね。

>>836
あのーInetコントロールでなんとか操作できませんかね、POSTとか

VB6を起動するとプロジェクトウインドウwやプロパティウインドウが表示されますが、
これと同じようなウインドウを自作プログラムに使うことはできるのでしょうか

プロジェクトウインドウw

>>797
VB6？？

>>857
市販のＯｃｘで売ってないかな？

APIで画像を綺麗に表示（リサイズ、リサンプル）できるみたいですが、
その場合一度PictureBoxなどに表示させなくてはいけないみたいで、

そこで、質問なのですが、PictureBoxを使わずに
画像ファイルを読み込むと同時にリサイズ、リサンプルすることは可能でしょうか？

表示しなくても動くべ

>>861
折角ＶＢでやってるんだから、PictureBox は Hide にしとけばいいじゃん。

>>859
Yes

>>860
http://www.roguewave.com/products/stingray/
がVisualStudioのやつそのものだっけ？
VBからだと少ししか使えないから割高感が高いな。

別アプリケーションのクラス名を取得する方法を教えてくださいまし。。

866です、解決しました。。

バイト数をKBやらMBやらに自動変換する関数ってある？
それとも演算させるしかない？

>>866
何でこういう奴って「どうやって解決したのか」を書かないんだろ。
Ｑ＆Ａの意味が全く分かってないな。

>>868
Format$

>>866
"アプリケーションのクラス名"が何か気になった
ウィンドウのクラス名じゃないだろーな？

>>868
演算させるしかない

>>869
ウソツキ
できないよ

>>871
何か大切なものFormatしちまったんじゃないか>>869は

作ってみたけどこんな感じでオッケーかな

Dim sngRes As Single
Dim cRes

If cValue = "" Then
Exit Function
ElseIf cValue < 1022976 Then
sngRes = cValue / 1024
cRes = Format(sngRes, "0.00") & "KB"
ElseIf cValue < 1047527424 Then
sngRes = cValue / 1024 / 1024
cRes = Format(sngRes, "0.00") & "MB"
ElseIf cValue < 1072668082176# Then
sngRes = cValue / 1024 / 1024 / 1024
cRes = Format(sngRes, "0.00") & "GB"
End If

>>873
StringだったりSingleだったりDoubleだったりって、
もうちょっと型を意識したら？
個人的にIfよりSelectCaseの方がいいと思う

というより書いてみた。

Public Function foo(ByVal n As Double) As String
Static clc As Collection
Dim i As Long

If n < 0 Then Exit Function
If clc Is Nothing Then
Set clc = New Collection
clc.Add "B"
clc.Add "KB"
clc.Add "MB"
clc.Add "GB"
clc.Add "TB"
End If
i = 0
Do
If n >= 1024 And i < 4 Then
n = n / 1024
i = i + 1
Else
foo = Format$(n, "0.00") & clc(i)
Exit Function
End If
Loop
End Function