▼ VB初心者質問スレ Part 10 ▼

遂にパート10突入です。

前スレはこちら
　　Part 1 http://piza.2ch.net/tech/kako/968/968328471.html
　　Part 2 http://piza.2ch.net/tech/kako/990/990793224.html
　　Part 3 http://piza2.2ch.net/tech/kako/1000/10005/1000523122.html
　　Part 4 http://pc.2ch.net/tech/kako/1006/10069/1006922992.html
　　Part 5 http://pc.2ch.net/tech/kako/1010/10106/1010624646.html
　　Part 6 http://pc.2ch.net/tech/kako/1013/10138/1013844542.html
　　Part 7 http://pc.2ch.net/tech/kako/1015/10158/1015836357.html
　　Part 8 http://pc.2ch.net/tech/kako/1018/10187/1018794901.html
　　Part 9 http://pc.2ch.net/test/read.cgi/tech/1020830472/

Win32 API関連スレ
　　Win32API 質問箱 Build3
　　http://pc.2ch.net/test/read.cgi/tech/1017072275/

心得
壱．質問する前に過去ログにも目を通してみる。
弐．質問する前に MSDN などで調べてみる。
参．VBScript もこのスレでＯＫ。
四．インストーラーなどの質問もＯＫ。

ずさ

ブビ厨は一生このスレから出ないでください
APIスレには来ないでください
おながいします

印刷のところでﾌｧｲﾙに出力を選ぶと生成されるファイルを
VBから印刷するにはどうしたらいいんでしょうか？

ActiveXEXEをアンレジストする方法はどうでしたっけ？
Regsvr32ではできないので、たしかコマンドライン引数で
アンレジストするような記憶があるのですが

自己解決しますた /unregserver ですた

>6
俺は　/u　でしかやったことなかったな

エクセルにユーザーフォームでボタンを作成し、そのボタンをクリック
するとシートにウェブ上からHTMLのテーブルデータを読み込みます。
続けてボタンをクリックすると、前回表示されていたテーブルデータ
が削除されずに、右方向に移動されてしまいます。つまり
新しいテーブルデータが前回あったデータの前に挿入されてしまいます。
続けてボタンを押すと前回あったデータが消えて、新しい
データが挿入されるようにしたいのですが
どうしたらよろしいでしょうか？
アドバイスよろしくお願いします。

最近初めて構造体を作ったFunctionに渡すのには超便利
Function Fx(x0 as single , y0 as single , …)
Function Fx(xyz as _XYZ)
連立常微分方程式数値解をやってローレンツ近似常微分方程式をやりました

>9
いや、そんなこと自慢げに話されても困る（ｗ

>>10
vbにはそれが限界ﾌﾟﾌﾟ(ﾜ

意味が分からないなら素直に教えてもらえよ>>10(VB廃人)

>>10
呼ばれてから出没するように
以後 気をつけなさいよ シッシッ
っで最近どう？

あれ？ 雑談スレになってる？

じゃあ、VBで共用体ってどうやるの？
とふってみる。

http://www.google.com/search?num=100&filter=0&q=共用体+vb

http://www.users.gr.jp/ml/archive/vb/4528.asp

>>16
http://www.interq.or.jp/dog/singwei/research/cgi_ssi/cgi07.html#enco

ＶＢでオナってる場合じゃないココ行け http://choco.2ch.net/ogame/

case文の条件で、
case (１から１０まで)　ってやつをやりたいのですが、（　）の中へは
どう記述すればいいんですか？

>20
1 to 10

>>21
どうもです〜

>>21
それだと1と10しか出来ません

>23
バカ？

Win98＆VB5の環境で作ったプログラムをWinXPで動かすと、
テキストボックスに２バイト文字を入力した場合、文字化けしてしまいました。
（確定後に化ける）
Win98の方では正常に動作しています。
フォントはMSPゴシックを使っています。
原因と対処法を知ってる人がいたら教えてください。

EXCELに線を引かせる方法ってありますか？
マクロじゃだめなんです、どうか教えてください。

>>26
VBAつかえ。

アクロバットリーダを使わずに、
ＰＤＦからＧＩＦに変換する方法知ってる方がいたら、教えてください。

>28
ファイル名の拡張子をGIFにしてごらん
それっぽく見えるから

ありがとうございました。
さっそくやってみます。

>>25
日本語ランタイムが入ってないだろ。
英語版ランタイムは最初から入ってるんだがなぁ…。

拡張子かえるは、ナシってコトで。
ほかにないですか？

>>32
Adobe製品買おう。

>>32
adobeに聞け

>>32
それじゃ、Adobe Acrobatでも買いなさい

了解。

すいません、>>10-13 の意味がよくわからないのですが、
ネタかなんかなのでしょうか？

>>37
俺にはあんたがネタに見える

新スレage

もう終わったよ。

.NETでAutoRedrawがなくなりましたけど、DrawLineやDrawStringで
描いたグラフィックが消えないようにするにはどうすればよいのでしょう？

>>41
Paintイベントで描画し直し。

Filter,InitDir,FileName,Pictureプロパティ,LoadPicutre関数
の使い方がわかりません。
どなたか御教授お願いします。

>>43
Filter,InitDir,FileName
何のメソッド OR プロパティか書いてくれ。
プラットフォームと言語名も書いてくれ。

最後2つはこう。
Picture1.Picture=LoadPicutre("c:\hoge.bmp")

>44
Filter,InitDir,FileName
すべてプロパティです。

>プラットフォームと言語名も書いてくれ。
言語はVBなんですが、「プラットフォーム」はわかりません。。

>>45
何のプロパティかが問題なんだよう。(; ´Д｀)
「対象のオブジェクトは？」と書くべきだったか。

言語はVB.NETかVB6かで、プラットフォームは
WinXp,2000,NT,9x,Meなどのどれ？

>46
言語はVB6.0で、2000、だと思います。
Imageコントロールでグラフィックスデータを表示し、
ファイル選択をできるようにしたいのですが。
（「対象のオブジェクト」でもわかりませんでした。。ｽﾐﾏｾﾝ）

CommonDialogね。OK。

Filter
選択できるファイルの種類。
CommonDialog1.Filter="ビットマップ|*.bmp"とすると、
ビットマップだけ選択できるようになる。

InitDir
表示した時の最初のディレクトリを指定する。

FileName
選択後、選択したファイルが入ってる。
CommonDialog1.ShowOpen
Msgbox CommanDialog1.FileName
とすると、選択したファイルが表示される。

とりあえずMSDN読んでみれ。
コモンダイアログコントロールを選択してF1を押すんだ。

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

すみません、もうひとつ。
Graphicsオブジェクトのメソッドで描画した物をBitmapにしたいのですが、
どうすればよいのでしょうか？

>>49
Picture1に描画したぁとPicture1.SavePicture。

と思ったらNETﾀﾞﾀﾈ。悪り。

ﾈｰ>>44
Pictureプロパティはオブジェクト参照だから
Set Form1.Picture = LoadPicture(…
ではＳｅｔがいるんでは？

おお基本だね　VBのPicture関係は
最初覚えるのってやはり表示系だよね
懐かしいので、ではひとつ基本テクをあげちゃうよ
ゲームとかのキャラのように必ずしも、写真のような品質ではなく、むしろシンプルでよいとか
背景の画像が1024*768サイズ欲しいけど、メモリサイズを取りたくない場合には…
元画像を用意する 320*240だとする
Dim Pic As StdPicture : Set Pic = LoadPicture(パス)
この画像を用意したPictureBoxに拡大描画しておく(AutoRedraw=trueでメモリ保存しておく) Call Picture1.PaintPicture(Pic,0,0,640,480)
これで640*480の画像ができた、変数Picは元画像の読み込み用だったので不要、Set Pic=Nothing
危険を侵してまでAPIでメモリデバイスコンテキストを使う必要はない。PictureBoxをメモリにするべし
JPGやGIFで済むんでは？いや　どうしてもBitmapでないとダメな場面はある わかった？？

>>52
VB6ではVBがやってくれるのでいらん。
NETは知らん。

なんとか資料探しあてました。
metafileオブジェクトを使えばいいのですね、多分。

質問です。
HPの一部を会員制にしたいのです。
よくいろいろ情報を入力して登録会員になって閲覧できるHPがありますが
作成方法などが載っているサイトなど知りませんか？

板違いっす
http://pc.2ch.net/hp/
こっちで聞いてください

VB6sp3をインストールしている状態ですけど、ＳＰ４をダウンロードして
インストールするとき、ＳＰ３はアンインストールしておかないといけませんか？
ＳＰ３とＳＰ４の両方ををインストールしとくのってできますか？まずいですか？

解決しますた。

>>57
そっちできいたらプログラムの知識が必要だから
こっちできけと言われたんです。
結局誰もわからないんですね・・・T.T
あきらめますです。

>>56
むしろこっちじゃないか？
http://pc.2ch.net/php/
行ったこと無いけど。

どっちにしろCGIの知識ぐらいはいる。

WebProg板へ逝ってよし
http://pc.2ch.net/php/

xpでVB6.0LEのアプリケーションウィザードって普通に使えます?

>>63
動くはず。

透過させたい部分のあるリソースのビットマップを
ピクチャボックスの任意の位置に描画するには？

>>65
他のピクチャにLoadResPictureで読みこんでPaintPicture。

おまえら、教えてくださいな。
例えば、デスクトップ上で右クリックしたときに出るような、コンテキストメニューは
どうやって実現しますか。
枠無しのフォームを開く、みたいな安易なの？

>>67
メニューはﾒﾆｭｰですが何か？

>>67
悪いこと言わんからVB.NETに移行しよう！たばこ、清涼飲料水
などを２，３ヶ月我慢するだけだよ。

VB.NET,ASP.NETを体験すると、VB6なんて触れないよ。

>>68
ああ、なるほど。ポップメニューすか！
>>69
どう良いのかが分かりません。
ちょと例をあげてください。

>>70
完全なオブジェクト指向指向。
充実しすぎているクラスライブラリ。
言語間の境界が無くなりライブラリの再利用製などがあがる。

>>71
なんかすごい感じだけど、コンテキストメニューの実現に枠無しフォームとか言っちゃう
初心者ですがいけますかね？

>>72
旧VBで製品的にもプログラマ的にダメになる前に勉強した方が良いと思われ。

>>73
なるへそ。ちと金貯めるとしますよ、師匠。

>>67
わるいことはいわん。猫でもわかるプログラミングからやれ

>>75
悪いこと言うね

ToolBarコントロールで、アイコンの横にテキストを表示するようにして使ってるんですが、（tbrTextAlignRight）
すべてのボタンの横幅は、一番横幅の大きなボタンに合わされます。
しかも、テキストがすべて右寄せになってしまいます。（アイコンとテキストが離れた状態）
バラバラの長さのキャプションが設定されていると、非常に見た目がおかしいです。
これを改善することはできませんか？
ToolBar.Buttons(Index).Widthで設定できると思ったら、値取得しかできませんでしたし・・。

>>77
テキスト表示やめたらいい。
Tooltipで代用せれ。

ゲームを作ろうと思うのですがＵＳＢにつながれたコントローラで
操作するにはどうしたらいい？
それぞれのボタンに対応した値を返す命令とかある？

>>79
DirectInput

>>66
スマソ
透過をどうすりゃいいかわからんかった
で結局 GetBitmapBits と SetBitmapBits で処理した

VBでデータベース処理をしたいのでデータリンクファイルを新規作成したいのですが、
どうやっても新規作成できません.エクスプローラの画面でファイルから新規作成
としてもデータリンクファイルの作成がないのです。右クリックしてもないし・・・。
どうしたらよいでしょうか？

>>82
テキストファイルを新規作成して拡張子を udl に変えてみ
つーかそんなの使わず直接記述しろよ

VBでADOデータベースを作成しているのですが、
あるコンボボックスに、任意のレコードセット（全レコード分）を表示させる
ことはできるんですが、その任意のレコードセットの一部のみ（IDで同じ番号
のだけ）を表示させることができなくてこまっています・・・。
レコードセットに「Filter」とか「Find」等を使っているのですが、反映してく
れません。データグリッドなら反映してくれるのですが・・・。
どなたか教えて下さい・・・。

ORACLE詳しい人いる？

NetMessageBufferSendでNT系のコマンド「net.exe send」を
Windows上からもやれたのですが、「net.exe view」はどうやったら
いいんでしょうか？netapi32.dllに入っているのでしょうか？

ていうか別に無理してAPI使わなくても
なんかコントロールとかコマンドとかでやれるなら
そっちのほうがいいです。

ちなみに今は「net.exe view > tmp.txt」
っていうbatファイル作っておいて、call shell("netview.bat")
ってやってからtmp.txtを読み込んで頭の「\\」を取り除いてます。
そんな方法はオカシイと思っています。

すみません、教えてくださいテキストボックスに文字を入れてるんですが、
その内容をペーストによって変更できないようにしたいのですが。
このテキストボックスにはスクロールバーが付いているので、ラベル
のキャプションでまかなうってのはダメなんですわ・・・
右クリック禁止でも良いんですけどね。
なにとぞ、よろしくお願いします。

>>88
貼り付けない普通の書き込みはいいの？

通販サイトで申し込み欄を埋めて送信すると
Microsoft VBScript compilation error '800a03f9'
と出てきてしまいます。
私のパソコンが悪いのかと思い
違う機でやってみたのですが同様にエラーになってしまいます。

MSDNで調べても載っていないし
GOOGLEで検索かけると英語の解説らしきページがでてきたのですが
http://wdvl.internet.com/Authoring/ASP/FormHandling/smart.html
↑ここ
チンプンカンプンです。
すみませんがどなたか
どうすればよいのか教えていただけないでしょうか？

>>89
レスありがとうございます。
普通の書き込みもしないです。
ボタンを押して、ファイルの内容を読み出すみたいな感じです。

>>88
クリップボードを強制的に消去。

>>92
おお、なるほど・・・・・それって、ＷＩＮ３２ＡＰＩでしょうか？

>91
プロパティにReadOnlyだかLockedだかってなかったか？

っていうか、どのタイミングでクリアすれば良いんだろ・・・

>>94
最初、Lockedで、制限してたんですよ・・・たら、ペーストできてしまって
あら、大変って事なのです。

>>91
LoackedプロパティはKeyPressイベントでKeyAscii=0にするのと同じなので、
普通の書き込み(Ctrl+V含む)と右クリックによるペーストはできないが、
Shift+Insertとかその他のペースト方法ならペーストできるので、
厳密にやるならこれだけでは不完全。

VB.NETからはReadOnlyプロパティ。
こちらはCtrl+VでもShift+Insertも右クリックのメニューからも
貼り付けはできないようになっている。

＞おお、なるほど・・・・・それって、ＷＩＮ３２ＡＰＩでしょうか？
Clipboardオブジェクトをヘルプで見るべし。

＞っていうか、どのタイミングでクリアすれば良いんだろ・・・
MouseDownやらKeyDown等でクリアするとか。

あ、97の後半は、
>>93 と >>95 宛てね。

>>97
なるほど、分かりました、ありがとうございます。
明日、試してみます・・・皆さん、まだ仕事場なんすか？？？

そうそう、上の方法はやや乱暴なんで、
本当は、サブクラス化してWM_PASTEを握りつぶす方がいい。

サブクラス化って何？って場合は、忘れてくれ。

>>88
ピクチャボックスにテキストを表示して、
スクロールバーを付ける手もある。いちおう。

vb.netで良書ってある？

>>102
どういう観点から？
まったくの初心者向けというのはない。
・VB6からの移行を意識したもの
・基盤の話、アセンブリの話、リフレクション、スレッドについて
ちょっとずつ語っているもの

がある程度。

MSDNで十分。

strTmpの後に&h0を挟んで&hFA,&hEd,&hFE,&hCEの繰り返しを
合計10文字のデータにして送信するために

Winsock1.SendData strTmp + Chr(0)+ DummyData(10 - Len(strTmp))
（中略）
Private Function DummyData(Length As Integer) As String
Dim X As Integer
X = 0
Do While Length > 0
Select Case X Mod 4
Case 0
DummyData = DummyData + Chr(&HFA)
Case 1
DummyData = DummyData + Chr(&HED)
Case 2
DummyData = DummyData + Chr(&HFE)
Case 3
DummyData = DummyData + Chr(&HCE)
End Select
X = X + 1
Length = Length - 1
Loop
End Function

というプログラムを組んだところ、string型への格納時に&hFAと&hEDが自動的に変換されて
両方とも&h0として送信してしまいます。
変換されずに送信する方法を教えていただけないでしょうか？

>>104
バイト配列で飛ばせばよい。
String型で化けた原因は、いったんUnicodeに変換されたため。

.NETです。複数のファイルをFormにドロップして開く時なのですが、
Form1_DragDropの中･･･

Dim strFilename() As String
strFilename = e.Data.GetData(DataFormats.FileDrop)

動くには動くのですが、Option Strict Onのオプションを入れるとエラーになります。
Stringの１次元配列に変換するにはどうしたらよいのでしょう？

>105
巧く行きました。
ありがとうございました。

String型の変数にLen関数を使ったところ、
返値の値が実際の長さより短いのですが…
どうすれば本当の値が帰ってきますか？

>108
多分勘違い LenB(strcnv("ほげほげ",vbFromUnicode))
で目的の結果が返ると思われ。

VBで、ADOのレコードセットをセットした「コンボボックス」の再クエリーの記述の仕方を教えてくれ
ませんでしょうか？

>108
・109補足
Len関数は文字数を返す。
LenB関数はデータ長を返す。

VB.NETでコマンドボタンのClickイベントを書いたら
Private Sub Button1_Click(ByVal sender As System.Object,
　　　　　　　　　　　　　　　　　ByVal e As System.EventArgs) Handles Button1.Click
こんなのが生成されるけど、これのSenderやeって何？
MSDNのここ見れ！でもいいので教えてください。

質問なのにsageちゃった・・age

クリスタルレポートに関してですが、
１ページに詳細５件のみ出力、以下は改ページ、という処理は可能でしょうか？
また、改ページの際にはグループフッター出力後に改ページしたいのですが・・・
セクションに式を書くとグループフッターが出力される前に改ページされてしまいます。
どなたか方法をご存知ないでしょうか？

他アプリのリストビューに対して
Call SendMessage(ListView_hWnd, LVM_SCROLL, 0&, 0&)
これを実行すると、常に最下部に行ってしまうのは何故でしょう？
使い方がおかしいのでしょうか？
ご存じの方、ご教授お願い致します。

変数をつかっての記述の仕方がわかりません・・・
　例えば、"題名"というフィールドがあったとしたら、
　rs!題名 = ・・・　と、Update、deleteとかの場合によく使っているのですが、
　その"題名"という所を、変数daimei　と置き換えたい場合、rs!（なんて記述すればよいですか？）
　＆とかいろいろつかったのですが、うまくいきません。
　教えていただきませんか？

>>116
RS![daimei]
RS("Daimei")
でだめか？

matigatta !
utudasinou...

>116
rs.Fields(daimei)

daimei="題名"
RS(daimei)

desu...IME okasii...

VBでのデータベースプログラミングをしたいと思っているのですが,
なにか良い参考書又はお薦めなものとかありましたら教えて下さい.

>>117〜120
　親切にありがとうございますっ！あとで、試してみますね。
>>121
　僕は、谷尻かおりさんのVB本で勉強していますよ。

自己解決出来ました。(汗)

strconvについてです
W_str="ハイヒテ゛シテ゛ョン テレヒ゛"
str=strconv(W_str,vbwide)

とやった場合
"ハイビジョン　テレビ"
となってしまいます

"ハイヒテ゛シテ゛ョン　テレヒ゛"
というふうにスペースのみを全角にしたいんですが
どうすればいいのでしょうか?

str=replace(W_str," ","　")
じゃあかんのか？

>109
>111
109の方法でいけました。
ありがとうございました。

バブルソートを教えてください。
簡単なﾋﾝﾄでも良いです。

>>127
まずWebブラウザでURL"www.google.co.jp"を打ち込み該当ページを表示させる。
表示される入力欄に"バブルソート"と入力して[Google 検索]ボタンをクリックする。

以上。

>>128
レスありがとうございます。
書き込んだ後にプログラム打ったらできました(^^;
本当にすみません。

>>106
strFilename = CType( e.Data.GetData(DataFormats.FileDrop), String())
でどでしょ。

>>107
>Private Sub Button1_Click(ByVal sender As System.Object,
>　　　　　　　　　　　　　　　　　ByVal e As System.EventArgs) Handles Button1.Click
>こんなのが生成されるけど、これのSenderやeって何？

Senderはイベント発生源のオブジェクト
つまり、この場合Button1が渡される。

イベント用のプロシージャは今までのVBと違って固定じゃない。
代わりにプロシージャの後ろにHandles句をつけて、そいつにやらせる。
このButton1_ClickってプロシージャはButton1.Clickを処理するってこった。
Button2のClickもこのプロシージャで処理するなら、Handles句を
Handles Button1.Click, Button2.Click
とすればいい。

で、複数のオブジェクトのイベントを処理できるので、どのオブジェクトで
発生したイベントかを特定するのにSenderを使うわけ。

eはイベントの補足情報だ。MouseDownとかなら、左ボタンが押されただの、
X座標は・・・Y座標は・・・みたいな情報がパックされてる。
ちなみにMouseDownイベントのときのeはMouseEventArgs型だ。

やっとVBにもハンドルという言葉が必須になるか。
よくここまで来たなあ、ホント

>>131
ハンドル違い。

>>131
つぅかハンドルはWindowsの機能なので本来隠匿されるべき。

>隠匿
隠しておいてはいけないものを隠すこと。

前スレでネットへの送信バイト数、ネットからの受信バイト数を取得したい
といっていたものですが
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/rras/mibref_0b07.asp
ここのリンクを答えとして出され、見てみたんですけど英語でわからん。
しかも使い方がサンプルコードとか無いし・・・
どう使えばいいんでしょうかね、これ（泣

age忘れ・・・

>122さん
有難う御座います。オラクル等のマイクロソフト社以外のデータベースソフトとの
リンクの仕方とか詳しく書いていますか？

Byte型配列を２つ結合したいのですが、CopyMemoryを使うしか無いのでしょうか？

Dim test1() as Byte
test1 = ChrB(22) + ChrB(100)
などという風に連続したデータを入れることはできるのですが、
同じような使い勝手でByte型配列同士を結合する方法は有るでしょうか？

age忘れました

>>130
ありがとうございます。すっきりしました。
ついでに107さんへのレスも非常に参考になりました。

>130
107です。すごい分かりやすい説明、ありがとうございました
おかげでよく理解できました！！

あ　107じゃなくて112だった 鬱だ死のう。。

コントロールについて聞きたいのですが、
プロジェクト＞コンポーネント　でいろいろなコントールが付加できますけど、
コンポーネントのメニュー自体の形のコントロール（コントロール、
デザイナ、挿入可能なオブジェクト　と切り替えれるダブ付きフォーム）
も付加できるんですか？できるんでしたら、付加の仕方も教えていただ
きたいのですが・・・

>>135
VB房ってこれだから。
一回Cやってから出直してくらはい。

>>144
ここは「VB初心者質問スレ」です。

>>145
んじゃ、説明してやれよ。
サンプルコード付きでな。

>>146

>見てみたんですけど英語でわからん。

こういうのを頑張って読むように促すのもスレの存在意義ではないか、と。

>>147
TrayMeterのソースまで提示されているのにそれを読もうともしないやつに
何言っても無駄無駄

>>148
そんなやつに気軽に回答を教えたくないよう（泣

今VB6で作ったのを.NETに移行しようとしてるんですが
GetとかLetがなかったりCSｔｒの引数が違ってたりとかで苦戦してます｡

1から作り直すしかないんでしょうか？

>150
選択肢は３つ。
苦戦して修正するか１から作り直すかそもそも移行しないか。
判断するのは自分しかいないでしょう。

>151
すばやいレスありがとうございます。
実際は納期寸前なので、次のプロジェクトまでは移行しない
と言うことになりそうです

連カキすまそ
http://www.microsoft.com/japan/msdn/vbasic/techinfo/upgrade/transition/default.asp
これ見る限り、ｶﾅｰﾘ違うんですねぇ。
1台にだけ入れてみてよかった

個人的には既存プロジェクトを.NETに移行させるのは
相当難しいと思っている。規模にもよるけど。
本当に普及するのかどうかもあやしいしねえ・・

ヽ(`Д´)ﾉｳﾜｧｧｧﾝ!!
一応TrayMeterのソースは読みましたよ・・・RawMonitor.cppって奴です。
C++で全くわからんかったんですけどね（泣

英語のページだって翻訳かけてがんばって、、、
でもやはり専門用語は上手く訳せないらしく意味不明。
もといDQNな俺の英語力じゃァ自力で読解なんてのは・・・正直無理でした。

一応やるだけやってからここで質問したんですけど、
やはりこれでも教えて君として処理されちゃうんですか(汗
すみません。出直しますか・・・。

当方VB5使ってますが、ちょっと質問。

WaitForSingleObjectを使ってる時に、フォームのコントロールのイベントも受け取りたいので
TimeoutIntervalを１００くらいにして、DoEventsを挟んでぐるぐる回してます。
ただこれだと負荷かかりそうなんだけど、他にいい方法ないでしょうかね？

アホみたいな質問で吸いませんが

text1.text=" ほげ １行目 "
　　　　　　 "　　ほげ　２行目　　　　　　　"

のような感じで複数行表示を初手からｺｰﾄﾞで設定はできないのでしょうか？
とりあえずmultiline プロパティーはＴｒｕｅ　に設定して
文字コードで改行させようとしたところ　　・　　と表示されてあっけに取られてますです

プロパティーウインドウからは書いた通りに設定できるのですが、ｺｰﾄﾞではどのようにしたらいいのでしょうか？

自己レス　わかった

復帰の　ｃｈｒ（１０）　がいるのか

ていうか　ｖｂｃｒｌｆ　なんていうのがあるのね・・・

Ｃなら　￥n で　終わりなのに

日記は他でやれ。

>>155
>>135のリンク先のHP見てサンプル作ってみた。とりあえず動いたみたいだ。

#include <windows.h>
#include <stdio.h>
#define MAX_INTERFACE_NAME_LEN 256
#define MAXLEN_PHYSADDR 8
#define MAXLEN_IFDESCR 256
#define ANY_SIZE 8
typedef struct _MIB_IFROW {
WCHAR wszName[MAX_INTERFACE_NAME_LEN];
DWORD dwIndex; // index of the interface
DWORD dwType; // type of interface
DWORD dwMtu; // max transmission unit
DWORD dwSpeed; // speed of the interface
DWORD dwPhysAddrLen; // length of physical address
BYTE bPhysAddr[MAXLEN_PHYSADDR]; // physical address of adapter
DWORD dwAdminStatus; // administrative status
DWORD dwOperStatus; // operational status
DWORD dwLastChange; // last time operational status changed
DWORD dwInOctets; // octets received
DWORD dwInUcastPkts; // unicast packets received
DWORD dwInNUcastPkts; // non-unicast packets received
DWORD dwInDiscards; // received packets discarded
DWORD dwInErrors; // erroneous packets received
DWORD dwInUnknownProtos; // unknown protocol packets received
DWORD dwOutOctets; // octets sent
DWORD dwOutUcastPkts; // unicast packets sent
DWORD dwOutNUcastPkts; // non-unicast packets sent
DWORD dwOutDiscards; // outgoing packets discarded
DWORD dwOutErrors; // erroneous packets sent
DWORD dwOutQLen; // output queue length
DWORD dwDescrLen; // length of bDescr member
BYTE bDescr[MAXLEN_IFDESCR]; // interface description
} MIB_IFROW,*PMIB_IFROW;
typedef struct _MIB_IFTABLE {
DWORD dwNumEntries; // number of entries in table
MIB_IFROW table[ANY_SIZE]; // array of interface entries
} MIB_IFTABLE, *PMIB_IFTABLE;

int main()
{
HINSTANCE hDLL;
FARPROC GetIfTable;
FARPROC GetNumberOfInterfaces;
MIB_IFTABLE IfTable;
DWORD i;
ULONG buf;
DWORD cnt;
hDLL=LoadLibrary("iphlpapi.dll");
GetIfTable = GetProcAddress(hDLL, "GetIfTable");
GetNumberOfInterfaces = GetProcAddress(hDLL, "GetNumberOfInterfaces");
GetNumberOfInterfaces(&cnt);
buf = sizeof(IfTable);
memset(&IfTable, 0, sizeof(IfTable));
if (GetIfTable(&IfTable, &buf, TRUE) == NO_ERROR){
for(i=0;i<cnt;i++){
printf("%s\n", IfTable.table[i].bDescr);
printf("%d\n", IfTable.table[i].dwIndex);
printf("%d\n", IfTable.table[i].dwOutOctets);
printf("%d\n", IfTable.table[i].dwInOctets);
printf("\n\n");
}
}
FreeLibrary(hDLL);
getchar();
return 0;
}

しまった。インターフェイス数ってIfTableに入ってるじゃん。

int main()
{
HINSTANCE hDLL;
FARPROC GetIfTable;
MIB_IFTABLE IfTable;
DWORD i;
ULONG buf;
hDLL=LoadLibrary("iphlpapi.dll");
GetIfTable = GetProcAddress(hDLL, "GetIfTable");
buf = sizeof(IfTable);
memset(&IfTable, 0, sizeof(IfTable));
if (GetIfTable(&IfTable, &buf, TRUE) == NO_ERROR){
for(i=0;i<IfTable.dwNumEntries;i++){
printf("%s\n", IfTable.table[i].bDescr);
printf("%d\n", IfTable.table[i].dwIndex);
printf("%d\n", IfTable.table[i].dwOutOctets);
printf("%d\n", IfTable.table[i].dwInOctets);
printf("\n\n");
}
}
FreeLibrary(hDLL);
getchar();
return 0;
}

＞159
すまん

日記にする気は全くなっかったです

まじで少しはまってました

>>160-162
どうでもいいが、何故そこでCのサンプルを作り始める？（ｗ

>>155
http://netpassport-wc.netpassport.or.jp/~whkama/vbasam/IfInfo.htm
↑これなんてどうだ？正確にはVBAのサンプルだが、流用できるだろう。

VB で ASP.NET Web アプリをつくりたいです。
TextBox をがんがんドラッグ & ドロップしていくと、
デフォルトで ID が TextBox1、TextBox2、...みたいにつきますよね。
そこで、
TextBox1.Text = 1
TextBox2.Text = 2
...
TextBox10.Text = 10
のような処理を for 文で処理することは可能ですか ?

>>165
tagに値入れなされ。

>>164
俺の苦労はいったい(w

>>167
・・・・・・・・よくがんばった。

>>165
配列って知ってる？

>>165
コントロール配列にして（TextBox1(index)って形）

Dim i As Long
For i=1 to 10
TextBox(i).Text=i
Next i

>>170
単なる配列の間違いね。.NETなので。

>>156
MsgWaitForMultipleObjects

画像のフィルタ加工してみたいのですが、下記ページのソースのような事は可能でしょうか？
http://www.codeproject.com/csharp/csharpgraphicfilters11.asp

> byte * p = (byte *)(void *)Scan0;
この辺の扱いをどうやってVB.netで書けばよいのかわからなくて。
Setpixelを使うと処理が遅くなってしまいます。

.NETのソフトもう配布してるやついる？
どんなもんか見せてみ〜

タスクに常駐するプログラムを書いたんだが
ポップアップメニューっていうの？あれがちゃんとした位置に来ないんだよ・・・
普通はマウスカーソルの位置がメニューの角になるような位置に
メニューが開くじゃん。右クリックとかでさ。
Webで拾ってきたサンプルを丸ごと叩き込んだんだけど
位置がおかしい・・・どっか間違ってるんだろうと思うんですけど。

環境 VB6 WinME
そのポップアップの関数のソースが
　http://xax_neutral.tripod.com/popup.txt
です。本当にこれが解決できなくて・・・。

あつかましいと思いますが、どうかお願いいたします・・・！

>>175
ちょっと待って。ソース読んでみるから。

>>175
ｽﾏｿ。俺のDQNな技術じゃわからん（藁
もうちょっとスキルあるやつの降臨を待っていてくれ。

>>173
VB.NETでやろうと思ったら、Byte配列にCopyMemoryかなんかで
コピーしてくるしかないんじゃないかなと思うけど、自信なし。
.NET版のCopyMemoryの宣言をどうするか。ポインタ使えんしな・・・
ちょいちょいやったら、見事に落ちた・・・

>>175
そのサンプルは、メニューがタスクバーにくっついた形で出るように
調整してるんじゃないの？
マウスカーソルの位置に出したければ、マウスカーソルの座標を
そのままTrackPopupMenuに渡せばいいはず。

マウスやキーボードがどれくらいの時間操作されてないかを取得する方法はないでしょうか？
自分でつくったソフト上だけでなく、Windows全体で。
えっと、スクリーンセーバー起動の時みたいな感じです。
言語はVB6です。

"DoEvents"というやつの使い方がヘルプをみてもイマイチわかりません。
「Windowsに処理をかえす」・・・？
どのようなときに使うのですか？

ものすごい数のループするときとかDoEvents挟まないとフリーズしたようになるから入れる。
でも処理が遅くなる諸刃の剣。
素人はそのままループ一回ごとに入れるが、玄人は必要以上にDoEventsを呼ばないように組むらしい。
俺は素人だからしらん。

ものすごい数のループっていうか、ものすごい時間のかかるループか。

>>181
一番よく使うのは、時間がかかるループの中で。
自作ソフトがCPUを100％近く使うと、Windowsによるフォームの
再描画が出来なくなり、フォームが白くなる。
同じく巨大ループ処理に対する中断キーを付けるときとかも。

>>180
そういうAPIはないんじゃなかろうか。
自力でやるとしたら、GetCursorPos使えばマウス動いたかわかるぞ。

>>181
例えば、ループでまわしてる処理があったりすると、ループ中にDoEventsがないと
他の処理（キーボードが押されたとか、コマンドボタンが押された･･･つーか押せないんだけどな）
とかは受け付けてくれない。
ところが、ループ中に「DoEvents」があれば、これらを受け付けてくれる。

逆に言うと、DoEventsがないと、無限ループに陥った場合にお手上げになる可能性がある。

無意味だけど一番わかりやすい例
Do
Loop
これだと無限ループで(ﾟдﾟ)ﾏｽﾞｰ　Ctrt+Del+Altの出番。

Do
DoEvents
Loop
これなら大丈夫。


わかりにくくてスマソ

>>180
キーイベントとマウスイベントをフックする。

>>182
間引きするだけ。
下はCPUによって差が出るけど、あくまでもサンプル。
If i Mod 1000 = 0 Then DoEvents

>>180
あ、キーボードのほうも調べたいのか･･･
すまん、こっちはわからん（汗
（´-｀）.。oO(　やるとしたらDirectInputあたりだろうか　）

>>185（自己レス）
わかりやすい例と書いてて「わかりにくくて」ってなんだよ俺。
回線切って寝る前に吊って来る。

>>181
ひとつのプロシージャ内でイベントは発生しない、DoEventsは一時外部を監視するのだ
以下のコードを実行されたい、フォームにコマンドボタンひとつCB1で貼りつけて欲しい
リアルタイムゲーの基礎モデルである
Private Declare Function GetAsyncKeyState Lib "user32" Alias "GetAsyncKeyState" (ByVal vKey As Long) As Integer

Private FLAG_END As Long
Private CB1_Click()
CB1.Visible=False
Call Test
End Sub

Private Sub Test()
Dim i As Integr,x As Long,dx As Long
START:
dx=(GetAsyncKeyState(vbKeyLeft)<>0)-(GetAsyncKeyState(vbKeyRight)<>0)
if dx Then
Select Case x+dx
Case 0 To ScaleWidth
currentX=x:CurrentY=64:Me.Print " "
x=x+dx
End Select
End If
currentX=x:CurrentY=64:Me.Print "A"
DoEvents
If FLAG_END Then Exit Sub　
Goto START
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
FLAG_END = 1
End Sub

DoEventsの重要な点は
一度外部のイベント発生をチェックする、イベントが起きるようなら、それを実行する
つまり一度そのプロシージャ内から出るということだが
必ず、戻って来る…この点に注意されたい
Exit Sub,Exit Function とは　違うのがわかるだろう

DoEventsで一度出て、どんなにイベントの連鎖、一般プロシージャの呼び出しでらい回しにされても
戻ってくる・・・
その性質は間違えないように
　

シツコイｗが解説しておく
ボタンCB1が押されるとSub Testが呼び出される
Sub Test内はGoto STARTを見ればわかるようにラベルSTART間での無限ループである
無限ループなのは、ひたすら、キー入力を拾うリアルタイムゲーには必須と思われる
どうもVB厨はイベントに頼りすぎて、リアルタイム入力系に弱い＜蛇足

もし、DoEventsがない場合、イベントは起きない、イベントプロシージャは実行されない
DoEventsで一度出る、もし、フォームが閉じられるなら、QueryUnloadイベントが発生するから
そこで変数FLAG_ENDを１にする、
必ず戻って来るから、FLAG_ENDが1なら終了だ　そこで　このプロシージャを出る

補足：188のコードは左右キーでAが動く、それだけ

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

実はMsgWaitForMultipleObjectsも調査済みだったのですが、
使い方がよくわからなかったので（サンプルは全然見つかりませんでした）
単にコントロールの.hWndを一緒に渡してみたんですけど、
すぐ帰ってきてしまってしまうんですよね。
戻り値は１だったからエラーではないみたいなんだけど・・・。

良かったら使い方も教えて下さい。

>>191
イベントオブジェクトを渡すのですよ。

Win32API散歩道に少し載ってる。

>>165さんと同じことで悩んでますが、
>>166さんの「tagに値を入れる」ことで
なぜあれが解決できるのでしょうか？
２重ループにしてtagの値を探し出せってことでしょうか。
それだとずいぶん非効率な気がしますが・・
VB.NETになってからコントロール配列が使えなくなって、
本当に不便だと思っています
いい解決方法ご存知の方、お願いします

>>193
すべてはSystem.Objectから派生している。
すべてのコントロールはControlから派生している。
子クラスは親クラス型の変数に代入できる。
VB.NETはObject型の配列を宣言できる。

>>194
やば、UserControlもあるかも。

まぁ、コントロール配列とオブジェクトの配列は紙一重。

>>175
リンク切れﾀﾞﾀﾖ

>>180
98以上、2000以上限定でもいいなら
GetMouseMovePointsExが使える。（未確認)

それ以外は･･VBだけ使うならマウス位置の監視かな。

>>181
とりあえず最初はDoevents入れないでループすると
イベントが発生しない、と覚えとき。

>>193
VB.NETはVBではないと見抜けない人は、
（VB厨房のレッテルを剥がすのは）難しい。

>>181
面白いので先生が来るまで語ります。

Windowsはメッセージ駆動のOSです。

アプリケーションはWindowsから

「マウスが押された」
「キーが叩かれた」

などのメッセージを受け取ってそれにしたがって各種処理をします。
VBではこのメッセージをわかりやすい形に変換してイベントとしています。
この辺はVBのイベントドリブンでなんとなくわかっているかと。

ここで、確認しておきたいのは、
一つのプログラムの中で二つのイベントは同時に実行できない点です。
（スレッドは無視）

例えばOnClickで無限ループを作った場合ほかのイベント処理は一切行えなくなります。
そこでDoEvent。
これは一旦現在の処理を地中断して別のイベントや処理を行うためのプロシージャ？です。
別の処理を実行後、またもとの処理を再開します。

>>192

書籍なんですね。
今度探して立ち読みしてきます。

とりあえずはWaitForSingleObjectを回すよりはタイマーで処理した方が
いいような気がしてきたので、そうしてみる事にします・・・。

ありがとうございました。

>194
つまりいったんObject型の配列を作成してコントロールを代入、
それをループで使えばいいということでしょうか？
イベントの受け取りなんかは、やっぱり
Handles Button1.Click, Button2.Click,Button3_Click,.......
のように延々書いていくしかないんでしょうか
一か月分のデータ入力でテキストボックスが３０個もあるような
画面の場合、どう対処すればいいのか頭が痛いです。

>>200
private components

オーマイガー！
それは、VB6 Runtimeライブラリをインストールしようとするときにエラーが出ていると言うことデースネィ？

お手上げです。

プログラム板に行って、MSDN Library Visual Studio 6.0を持っている人を見つけ、
その人に、Visual Basic Runtime LibraryのInstall時に出るError 6とはどういう意味ですか？　また、回避方法について教えてください。
とでも質問してみてください。
＞＞教えて下さい

>201
components や IContainer をキーワードに調べてみたんですが、
さっぱり分からないです・・・ 201さんがくれたヒントは、
Windowsフォームデザイナが生成する
Private components As System.ComponentModel.IContainer
という変数を使えばどうにかなるということなんでしょうか？
自分でもまだ調べてみますが、よろしければもう少しヒントを
お願いします。

>>203

ComponentCollectionにGetEnumeratorがあるのでC#ならforeachで
フォーム上のすべてのコンポーネントにアクセスできる。
後はtagの値かnameで判断。
VBは知らないでう。

>>202
他のランタイム入れてみれ。

>>205
ゲームやＶＢ等のセットアップ画面で
（後ろの画面が青色になるところ）セットアップをはじめますか？
ってでるんですけど、そこでＯＫを押すと
Run-time error6
Overflow
とでてセットアップができないんです。。どうすれば？本当に困ってます

>204
Dim obj As System.Object

For Each obj In Me.components.Components
　　　Debug.Write(obj.GetType.Name())
Next

こんなコードを書いてみたんですが、実行エラーに
なってしまいます　(~_~;)

For Each obj In Me.components.Components.GetEnumerator()
　　　Debug.Write(obj.GetType.Name())
Next

こっちではそれ以前にビルドエラーです。
一体何が悪いんでしょうか・・

あの…私、もしかして凄く見当違いの質問していたんでしょうか？

>>208
見て無かったよ。すまんね。
dim byte1() as byte,byte2() as byte,byte3() as byte
byte1=cstr(byte2) & cstr(byte3)

こんな感じかな。正常に動くとは思うが。

>>206
それはインストール時にコードが間違ってるからエラーが出る。
ランタイムソフトなら他のランタイムを入れる。
通常のソフトなら作ったところに聞いてみる。

>>182-185
>>188-190
>>196
>>198
みなさんありがとうございました。

すみません素朴な質問なんですが、よくVBでデータベースソフト処理とか
いいますが、アクセスやオラクルなどのデータベースソフト単品と
VB+アクセス・オラクルとではどう違うのですか？どういう利点があるのですか？

>>179
ソース見直してみたら確かにそうでした・・・。
ワケわからんサンプル置いた奴は誰じゃ！（ｗ
GetCursolPosか何かでマウス位置とってそこにメニュー出せばいけますね。
ご教授ありがとーございますた。

VB5で「プロジェクト」−「プロジェクトのプロパティ」で、
「コンパイル」のタブにある、コンパイルの違いは何ですか？

DQNな質問でｽﾐﾏｾｿ・・・。

VB6.0を使ってるんですが質問です。

Dim hogehoge

hogehoge = "あいうえお"

Open hoge.txt For Output #0

Write #0,hogehoge

Close #0

上のような処理でhoge.txtとに「あいうえお」という文字が記述されるテキストを
作成したときに、かならずhoge.txtの中が「"あいうえお"」のようなカンジで、
ダブルクォーテーションで囲んだようになってしまいます。
これがつかないようにする方法ってないのでしょうか…？

>>214

すんません。自己解決しました。失礼いたしやした

プレステのエミュレーターって重いですか？スムーズにゲームできます？

>>200
イベントはAddHandlerで追加すればOK。

例)
Public Class MyForm1
Inherits Form

Friend textBox1() As TextBox = New TextBox(30){}

Public Sub New()
MyBase.New()
Me.ClientSize = New Size(640, 480)

Dim i As Integer
For i = 0 To 30
textBox1(i) = New TextBox()
textBox1(i).Size = New Size(30,30)
textBox1(i).Location = New Point((i mod 5)*30, (i \ 5) * 30)
textBox1(i).Text = CStr(i+1)
Me.Controls.Add(textBox1(i))
AddHandler textBox1(i).KeyPress, AddressOf textBox1_KeyPress
Next
End Sub

Public Shared Function Main(ByVal CmdArgs() As String) As Integer
Application.Run(New MyForm1())
Return 0
End Function

Private Sub textBox1_KeyPress(ByVal sender As Object, ByVal e As KeyPressEventArgs)
e.Handled = True
End Sub
End Class

>>212
VBの方がいろいろ細かい制御が出来るし
フロントエンドなら軽いし、
ネイティブコンパイルもある。

>>214
コンパイルの仕方を決める。
p-codeはコンパイルが早くて実行が遅い。
ネイティブコンパイルはその逆。

つか、MSDN見れ。コンパイルタブを
選択してからF1を押すのだ。

>>216
スレ違い、どころか板違い。
Bleem!が一番動くが動作率は60%ぐらいだな。
動作は400MHzのMX400あたりで十分動く。

>>217に補足
System.Collectionsのクラス使った方が便利。

テキストボクースにでもMailアドレス入力させて
隣のコマンドボタン押したら、デフォルトのメーラの新規メールが起動して、
テキストボクースのアドレスを送信アドレスに貼り付けたいのですが、
どうしたら良いですか。

>>218
大丈夫か？なんかレス番メチャクチャだぞ。
お疲れ｡

>>220
ShellExecuteで"mailto:メールアドレス タイトル"とかやってみたら？
間違ってる可能性大だけど。

>>220
・Shell関数(CreateProcess)
・ClipBoardオブジェクト
・SendMessage
・EM_PASTESPECIAL
かな。（未確認）

>>221
うわ。ほんとだわ。すまん。

>>220
>>222でいけた。楽チンなのでそちらでどうぞ。

kakasi.dll を VB から呼び出す時のパラメータと戻り値教えてください

>>173
unsafeポインタは無理なんで、配列←→ポインタ間は
Marshal.Copyを使ってコピーしてみました。
以下、InvertのVB.NET版。(Try〜Catchは実験用に入れてる)
・サイズ指定とか引数指定とか間違うとTry〜Catchでも引っかからずに落ちるので注意。

Imports System.Runtime.InteropServices　' Marshalクラスに必要

Public Shared Function Invert(ByVal b As Bitmap) As Boolean
'// GDI+ still lies to us - the return format is BGR, NOT RGB.
Try
Dim bmData As BitmapData = b.LockBits(new Rectangle(0, 0, b.Width, b.Height), ImageLockMode.ReadWrite, PixelFormat.Format24bppRgb)

Dim stride As Integer = bmData.Stride
Dim Scan0 As System.IntPtr = bmData.Scan0
Dim p As Byte() = New Byte(stride * b.Height-1){}

Marshal.Copy(Scan0, p, 0, stride * b.Height)

Dim nOffset As Integer = stride - b.Width*3
Dim nWidth As Integer = b.Width * 3
Dim y , x As Integer
Dim index As Integer = 0
For y=0 To b.Height-1
For x=0 To nWidth-1
p(index) = (255-p(index))
index += 1
Next
index += nOffset
Next

Marshal.Copy(p, 0,Scan0, stride * b.Height)
b.UnlockBits(bmData)
Catch ex As Exception
MessageBox.Show(ex.StackTrace + " " + ex.Message + " " + ex.GetType.ToString())
Return False
End Try

Return True
End Function

VB6で、フォルダを指定すれば
その中にあるファイル名を全て抜き出すようなことをやりたいのですが
Dirでやってもファイルの属性によって出る結果が違ってどうにもなりません・・・
サブフォルダの中は考えなくていいものとして、これはどうやったらできますか？
具体的にやりたいことはフォルダを指定したらその中にあるファイル名を全て
ListにAdditemしたいのですが・・・
よろしくおねがいします。

恐ろしくｱﾌｫな質問するねえ。

>>228
初心者ですので・・・。
こんな私でもそれなりに一生懸命調べて、考えたんです！
それでもわからなかったから質問してるんです。
こんな私にでもわかるように教えてください。

>>226
NETではもう少し環境が整うまでグラフィックは難しいかなぁ･･･と
めげてたのですが、動きました、凄い！ありがとうございます。
これでまた目標をもって勉強できます！

>229
それが教えてもらう初心者の取る態度か？

まんこ、まんこ、まんこ、まんこ！

初心者は
　　　何を言っても　
　　　　　　　　許される

>>231
いいじゃないですか・・・
それぐらい教えてくれても。もったいぶった言い方して！
ここは質問をするところなんでしょう？
だから質問しているのに、なんで怒られなくちゃいけないんですか。
わからないから教えて欲しい、と言っているだけなのに。

>>233
ここはｱﾌｫな質問をするVB初心者を叩くスレです

質問させて頂きます。環境はVB6 Win98SEです。
変数を宣言するのですが、この変数、いくつまでの配列を使うかは
わからないんです。あとからどんどん足される可能性があって。
たとえば100コ分を宣言しておくんだったら
Dim TestPos(100) As RECT
のような記述になると思うんですけど、
不特定多数になる場合にはどうすればよいのでしょうか。
その都度、新しい分を追加することなどで対処できるのか
それともはじめに10000とか、有り得ないぐらいでかい数を取っておくのか・・・。
よろしければ、教えてくださいまし。ヽ(´ー｀)ノ

>>227
228のしょうもない煽りに反応しなさんな。

Dir関数の第２引数で取得したいファイル群の属性を指定できる。
属性の指定はOrで複数指定できる。要は、全属性指定してやれば、
全部取得できるわけだ。

>>235
Dim TestPos() As RECT
で宣言しておいて、必要になったらRedimで確保。ヘルプ見れ。

>ヽ(´ー｀)ノ
あっそ。

杉良太郎が仲裁！
サラ金地獄　借金どろぬま夫婦

>>238
はげしくスレ違い

ファイルを読み込むときに、
先頭200バイトだけ、みたいに読み込ませることはできますか？

おっとっと、あげ。

200バイト分のバイト配列を用意して、それにGet #。

>209
正常に動きました。
非常に助かりました。ありがとうございました。

VBでＣ言語みたいに関数を自作する事って出来ますか？

>>244
できますよ。
流石にそこまでクソ言語じゃありません。

でわ，VBで文字列の足し算をする事って出来ますか？

おしえてください。
「DBCombo」と「DataCombo」の違いはなんでしょうか？
コンボに連結したレコードセットの中身を毎回更新しながら、
同時にコンボに表示されるものも変えていきたいのですが、
どちらを使った方が良いのでしょうか？

>>245
できればやり方をおしえていただければありがたいのです。

VBでgosub・return命令ってどうやるんだっけ?

誰か教えてく。

>>247>>249
私の話が終わってからにしませんか？
お願いします。

ほんとにアフォばっかりだな
ここは

>>251
賢い方と見込んでぜひお答えお願いします。

>>225
?

>>231
初心者を煽るなよ。

>>244
function a()
end function

>>249
function mona()
Gosub hoge

msgbox "´Д｀"
exit function

hoge:
msgbox "´∀｀"
return

end function

これで分かる？

使えねえヤツばっかりだな
ここは

>>253
助かりました。ありがとうございます。

えと、質問です。
ユーザーコントロールってあるじゃないですか。
自分で作るActiveXコントロール。
あれ作ったんですよ。それで普通にLetやGetのプロパティ
とか作ったコントロールは、フォームに貼り付けたら
プロパティウィンドウにちゃんとそのプロパティが
出てくるんです。これは良んですが、ここにリスト
で設定するようにするにはどうすれば良いのか分からないです。

標準であるListBoxコントロールのプロパティウィンドウ
に出てくるListやItemDataみたいなやつです。

プロパティのコードで引数２つ（１つ目がIndexで２つめが
プロパティ設定値）持つような形で作ったら
プロパティウィンドウにそのプロパティ出てきませんTT

教えてエロい人！

教えてあげたいけど、エロくないからダメだ

なんかtimerオブジェクトでファンクション関数を使うとエラーになるのですが。
どうすればよいですか？

話は変わるけどよくVBでデータベース処理とか
いいますが、アクセスやオラクルなどのデータベースソフト単品と
VB+アクセス・オラクルとではどう違うのですか？どういう利点があるのですか？

>>258
＞ファンクション関数
関数関数

ン？

ンじゃーこの際エロくなくてもいいや！
教えてYO!

>>262
エロいけど知らないから教えられない。

>>256
俺もエロい方だが無理っぽい。
配列で渡すと表示されないからな。
プロパティページつくって代用しとく？

>>258
凄まじく情報不足。

>>259
>>218の>>212は>>211の間違い。
DB系は少し苦手なんだけどね。

すでに同じアプリが起動している場合に
先に起動していたアプリのとあるプロシージャを実行させ自分は終了
これどーすんの？

>>265
メッセージでも送れ。

VBでアクセスと接続してデータベース処理をする勉強をしているのですが、
この知識はそのままVBとオラクルやSQLサーバー等のデータベースソフトとの
接続及び処理することに応用できますか？それともアクセスとオラクルとでは
接続の仕方などは違うのですか？

表面的には似てる。

>>267
クリソツ

richtextコントロールで色を変えたいのですが例えば

With screen
　.SelColor=vbRed
　.Text=.Text+"Red"
　.SelColor=vbYellow
　.Text=.Text+"Yellow"
　.SelColor=vbBlue
　.Text=.Text+"Blue"
End With

のようにやっても、結局すべての文字色が最後のvbBlue
になってしまいます。どうすれば分けられるのでしょうか？
エロにかかわらず、教えてください。お願いします。

データを読み込みたいんですけど、
テキストとかの形式のファイルなら、そのままOpen 〜〜〜 for input as #1
とかでできるんですけど、rarとかの中身がぐちゃぐちゃになってるような
ファイルだと、ちゃんとファイルの内容が取得できくなってしまいます。
rarなら、　rar!　と、ここまでしか読んでくれません。
こういうデータを秀丸のように、文字化けしながらでも読み込ませるには
どうやったらいいのでしょうか。

270ではないですが、エロにかかわらず、ヨロシクお願いします

>>270
そりゃそうなるだろ（ｗ

>>272
うすうす気づいきながらやってみたのですが、やっぱそうなりました。
でも、そうならない方法がどうしてもわからないです。

俺はエロと言うよりむしろ女好きなんだが。

>>270
With RT1
.Text = ""

.SelText = "Red"
.SelStart = 0
.SelLength = 3
.SelColor = vbRed

.SelStart = 3
.SelText = "Yellow"
.SelStart = 3
.SelLength = 6
.SelColor = vbYellow

.SelStart = 9
.SelText = "Blue"
.SelStart = 9
.SelLength = 4
.SelColor = vbBlue

.SelLength = 0
End With

普段RichTextBox使ってないのでこんな感じ。ちぇ。
もうちょっとスマートにできそうだけど。

>>271
Binaryで読んでStrconvで文字列に変換すれ。

>>274 即レスさん
おぉ！なるほど！ありがとうございました

女好きですか。

>>274
おぉ〜。バイナリで開くとそうならないんですか。
よくわかりました。早速やってみます。ありがとうございました。

>>275
はい。可愛い女の子はもっと好きです。てへ。

所詮は即レス

即レスって現実世界で相手にされてなくてエロゲオタなの？
マトモに女と話したこと無い兼話せないタイプなの？

>>278-279
なんだよ、ただ好きなもの言っただけじゃんか。ふんだ。

.net　にアップしたんだけど、新規にプロジェクト作って、
勝手にForm1ってクラスできてるでしょ？
そのNameを　Form1　から　frmMain　に変えるとビルドエラーが起きるんだけど
原因教えてください。
Sub　Main　が　〜.Form1　に見つかりません、ってエラー表示なんですが

前はあの方法でいけて助かりました。どうもです。

ところで、例えば1000バイトあるファイルのうち、
500バイト目〜700バイト目までを読み込もうとすると
700まで配列を確保しておいて、700まで読み込んでから
500〜700を切り出すしか方法はないのでしょうか。
これぐらいの小さい数字ならいいのですが
数百Mもあるファイルの中の520Mバイト〜521Mバイト、
とかを読もうとするといちいち521Mも読み込まなくてはならないことになり
こんな不便なことがあるわけないと思いました。
もしこういうことが楽にできる方法があるのなら、
どうか教えていただきたいのですが、質問ばかりですみません・・・・

>>282
Seek関数で読みこみ位置変更。
必要な分だけ配列確保。

>>283
うっ・・・速い！
しかも的確なお答えありがとうございます！
さすが「即レス」さんだけはありますね。

プログラミングが行き詰まってる時は2chに入り浸るので。(ｗ
ま、がんばれ。

俺は可愛くなくてもいい。
おっぱいが大きければいい。

VB5エンタープライズをWin2000にインストールしてたら、
途中で「このインストーラはこのOSには対応してません」
みたいなエラーが出た人、います？

If 巨乳 then
　　（･∀･）ｲｲ!!
Else
　　Exit Sub
End If

>>281
VS.NETはbeta2どまりだが、
スタートアップフォームの指定を変更すればOKじゃないかな。
プロジェクトを選択して、右クリックで指定のダイアログを出せたような。うろ覚えすまそ。

>>287
VS97をWin2000に俺入れてるけど、そのメッセージは見たことないな。
(環境的に問題ないわけではないが、標準コントロールしか使わない俺には関係なし)

If 巨乳 then
　　（･∀･）ｲｲ!!
Else
　　MsgBox Err.Number & Err.Description, vbCancelOnly, "貧にゅう"
End If

メモリの解放は明示しなくても、プログラムの終了時に
行われているのですか？

Dim a(100) As Long
Erase a←不要？

>>291
プロセス終了時のプロセスが所持していたハンドル、
メモリの解放などはOSが保証している。9xでも一緒。
9x系のメモリリーク問題はメモリの再利用の問題だったかな。

つーわけでいらんと言えばいらんが、不用になったら解放するのがマナー。

あと、その例じゃ解放されないぞ。Eraseで解放されるのは動的配列。
固定配列は初期化するだけ。

>>291
そうでした。ｽﾏｿ＜初期化するだけ
なるほど、マナーの問題ですな。ちゃんと消します。ありがとございました！

VBでハッシュ関数を作りたいンですけど、
もう全くどこから手をつけていいやら・・・。
MD5とかSHA-1とか種類がありますが、
これ、どうやってつくればいいんでしょうか。

なんだよ、童貞なだけじゃんか。ふんだ。

>>295
おお、初めての騙りだ。

っつーわけでトリップつけるので
家に帰るまでレスしないよ。

即レスってハンドルだったのか！（禿藁
ｱﾌｫ丸出しですね

つけました。

>>295-298
荒らすな

300はいただいた

>>294
そんなあたなにﾄﾞﾄﾈﾄ

前はファイルの一覧を取得したいというのを教えていただきありがとうございました。
ところが、サブフォルダの中にまだファイルがある場合、それも取得しなくては
いけないことに気付いてしまいました・・・。
ファイルの一覧を取得
　↓
フォルダの一覧を取得
　↓
一つ目のフォルダに移動
これを繰り返せばできるような気もするんですが、
普通にDirを使ってがんばるしかないのでしょうか。

>>302
再帰呼び出しすれば簡単でそ？

VBで開発したexeをお客に納品するとこなんだけど
アイコンの変更ができない！だれか教えてください。
アイコン変更ツール使ってもVBのexeは変更できないんだよね〜
みんなどうやっているの？

できるはずだが…

>>304
スタートアップフォームのアイコンプロパティを変更すればいいでそ？

>>304
コンパイルする前に設定すればいいんじゃねーでしょうか？

＞コンパイルする前に設定すればいいんじゃねーでしょうか？
そんなとこありました？

>>308
>>306のとおり

>>308
今見たら、プロジェクトのプロパティにあったよ

実行可能ファイルの作成ってとこ？

>>311
それ！

>>303
再帰よくわからん・・・
関数内で自分自身を呼び出してその処理が帰ってくるんだよねぇ。
と理屈を言えても実際どう書けばいいのやら・・・

>>313
例えばこんな感じ

Option Explicit

Private Sub Form_Load()

Call hoge(0)

End Sub

Private Sub hoge(hage As Integer)

If hage = 10 Then Exit Sub

MsgBox "hoge=" & hage
Call hoge(hage + 1)

End Sub

なんかフォーム名しか選択できません。。。。

＞＞３１５
そのフォームのアイコンはプロパティで変えれるでそ？

>>314
ん〜　なんとなくだがわかったような。
やってみますありがとうございました。

dirは再帰に使えなかったような

>>318
まじで？
いや、あんまりVB知らんの。本物じゃないからさ

>>317
dirで一覧を取得しながら、取得したのがﾌｫﾙﾀﾞならまた自分を呼べばそのﾌｫﾙﾀﾞの一覧を取得するでしょ。
そうやってれば、ﾌｫﾙﾀﾞがいくら深くても平気でそ？

>>318
Dir()で一覧取得してる途中に再帰しちゃうとね。

>>321
ｶﾞｰﾝ!!
じゃあ、>>320のなんてだめだね。ごめそ

>>319
ありゃ、ばらしちゃったの？面白かったのに。

>>323
たぶん、すぐぼろがでちゃうよ。だって、厨房だもーん。

ということで、どうしよぅ（ｗ
APIか何かで代用が効くものがあるのかもしれない・・・
調べてみよ。

＞即レス
アイコン変更できました！ありがとうございます
ほんとにレス早速いですね！
>>314 なんか信じられないです。

>>325
んにゃ、再帰であってるよ。
Dir()で一覧取得し終わってから
再帰すればいいだけ。

俺はいつもそうしてるよ。

>>324
いや、頑張れ。
間違っててもイイじゃん。
誰かフォローしてくれるよ。

>>325
FindFileとかどうでそ？

ここに思いっきりそんな話題がのってました
ttp://www-user.interq.or.jp/~komurak/progtec/005.htm
このサンプルを片手にやってみようと思います。

>>329
すばらしいです。わずかなヒントから解答を見つけることはとてもよいことでそ

君ら時代に取り残されてないか？
Dir関数で一覧取得した後に再帰するのでもいいが、
FSO使えばもっと簡単だろうに。

Win95でIE4以降を導入していない環境だと使えないけどさ。
別にそういう環境を考慮しての話でもないでしょ？

>>331
動作環境が少しでも限定されるのがいやって気持ちもわかる気がする。
いまだにSDKレベルの開発がすき！

>>331
その条件ちょっと違う。
FSOはWSHがインストールされてないといけない。
WSHはWin98標準では入ってない。

自分で使うだけならFSOの方がいいんだろうけど、
俺はFSO嫌いなんで。

>>333
Win98ってIE4標準で、IE4にはWSHが標準で付属していたような・・・
未確認。

Private Sub Timer1_Timer()
k = kyori(3, 4)
Print k
End Sub
Function kyori(x As Double, y As Double) As Double
kyori = Sqr(x ^ 2, y ^ 2)
End Function

タイマーオブジェクトとファンクションを組み合わせるとどうしても
エラーになっちゃうんですが、何故ですか？

そういえばNT4.0にもWSHは標準じゃないなー

>>335
その前にSｑｒ関数でエラーになっちゃうんですけど

>>335
Sqr関数はルートを取る関数で引数は１つだぞ。

>>335
,じゃなくて+だよな？

>>335
ああ、分かった。2点の距離を求めたいのか。
×kyori = Sqr(x ^ 2, y ^ 2)
○kyori = Sqr(x ^ 2 + y ^ 2)
だ。

（　´∀｀）ｻﾝｶｸｶﾝｽｰ

ふと思った。なんていい時代なんだろう。
ちょっとつまづいたらこうして２ｃｈで聞ける。
昔は、２，３日悩むのは普通だったような気がする。

>>334
WSH1.0がWin98に入ってる、というドキュメントを見つけた。
しかし俺がFSO嫌いになった理由ってWin9xでの開発を始めた頃に
FSOが使えなかったからなんだが。

うーむ。俺が馬鹿だったからなのか？むう...明日調べてみる。

>>342
お前厨房やったんちゃうんかと小一時間。

>>342
本物に化けた偽者を演じている本物ですか？

>>344
本物じゃないよ。

厨房だけどリアル厨房でないだけの話では・・・

昔は、ネットはおろか、本、雑誌もあんまりなかったよ。
だからひたすらソースと睨めっこ。マニュアルと睨めっこ。
何日でも悩むものは悩むもんさ。

ま、言っても、最近のプログラミングは知ってるか知らないかの差っていう
部分のウェイトがかなりを占めるからわからなくて悩んでても仕方なかったりする罠。

>>346
＞ま、言っても、最近のプログラミングは知ってるか知らないかの差っていう
＞部分のウェイトがかなりを占めるからわからなくて悩んでても仕方なかったりする罠。

これは、今も昔もそんなに変わらない気はする。
基本が身についてしまったから、そう思うだけだと思うけど。

>>346-347
アルゴリズムも知ってるか知らないかのもんだからな。
まあ確かにいい時代だと思うよ。

ネットってスゴいね、なんて言ってみたり。

や、ほんとだね。
リア工房時代困ってたもんなぁ。
まだネットも無かったし近くの本屋にプログラム関係本なんて一冊も置いてないような状態だったからね。
聞ける人間も１人もいねえし。
今は調べたい事にvbとかサンプルとかキーワード追加してググれば分かっちゃう。
スゴイ。

Byte型配列の途中から一定の長さ分を、
他のByte型配列に移したいのですが、良い方法は有るでしょうか？

Mid$()やLeft$()のようなことをByte型配列でも行いたいのです。

ageます。

>>350
英語版VB6をインスコする。

>>331-334
>>336

今更・・・な議論ですが、そもそもOSとブラウザが密接にバンドルしてる時点で
MSが激しく嫌い・・・。

>>350
自力で処理する関数かいとけば？
Forループで回して地道にコピーするやつ。

>>350
ちょっとやってみたよ。どうかな？
Option Explicit

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)

Private Sub Command1_Click()

Dim aaa(100) As Byte
Dim bbb(100) As Byte

aaa(20) = Asc("a")
aaa(21) = Asc("b")

Call CopyMemory(bbb(50), aaa(20), 2)

MsgBox Chr(bbb(50)) & Chr(bbb(51))

End Sub

てすと。

どーも。本物です。
正直出てくるかどうか迷ったんだけどね。
頑張れ、>即レス ◆ok/f5F1o

>>350
一応こんな感じで。

Function hoge()
Dim a(255) As Byte, b() As Byte
Dim i&
ReDim b(255)
For i = 0 To 255
a(i) = i
b(i) = i
Next i

b = MidB$(CStr(b), 1, 100) & CStr(a) & MidB$(CStr(b), 101)

Stop
End Function

止まった所でローカルウィンドウでbの中身見るのだ。

でも正直お勧めはしない。CopyMemoryの方が速いし
メモリリークも少ないからね。

>355
>357
共にちゃんと動きました。
ご忠告に従い、CopyMemoryを利用させて頂きます。
ありがとうございました。

俺もやってみる。

うぉ！超適当にトリップ入れてみたのに>>355と同じかよ！

ネタですか？

俺も逝くぜ

まんまだしね＞トリップキー

>>359-363
荒らさないでね

>>364
ｵﾏ（以下略

◆ok/f5F1oは、このスレでの共通トリップになりました。

本物です。めちゃ、笑ってしもーた。(w

やり方教えれ

>>368
どうやったら間違えられるんだ？

test

もうだめだ、死ぬしかない。

?

うえーん

>>373
ﾜﾗﾀ

>>374
そのトリップは本物の証ということでOK。

どうすれば自分好みのトリップになるんですか？

うあーん。

>>376
とりあえずこっちへ行け。
http://www.geocities.co.jp/SiliconValley-Bay/6637/trip.html

なんで分からんのか分からんぞ。

お前等に災いが降りかかりますように。

うえーん。

.NETでどうなるのですか？

>>379
今は亡きまとれすの発言。

----------------------------------------------------
363 ：まとれす ◆mato/KTI ：02/05/12 18:27
>>361
いっぱいありすぎて書ききれないくらい変わったぞ。MSDNの「Visual Basic 言語の新機能」を
見てみると、

「継承」、「例外処理」、「オーバーロード」、「プロパティとメソッドのオーバーライド」
「コンストラクタとデストラクタ」、「データ型」、「インターフェイス」、「デリゲート」
「共有メンバ」、「参照」、「名前空間」、「アセンブリ」、「属性」

などが紹介されているな。もちろん、これ以外にもコンポーネント（CLR）も変わってるし、
ADOなどのミドルウェアも変わってる。

はっきりいって、別の言語だと思ったほうがよいかもしれん
----------------------------------------------------
ということ。

まとれす帰ってこないのかな。

すいません教えてください。
Set pr_Form1 = p_Form2
Set p_Form2 = Nothing

なぜパブリック変数をプライベート変数に代入する必要があるのですか？
メモリリーク問題に関係があるのでしょうか？初心者なもんで、教えてください

>>380
何でいなくなったの？まとれす。

まぁ俺はおっぱい大きい女が好きだがﾅｧ。

>>381
既に作成されてるパブリックオブジェクトを
プライベートで再参照しても参照カウンタが増えるだけで
メモリの無駄使いにはならない。

他の所でそうしたほうがうまく行くからじゃない？

その情報だけではこれぐらいしか言えん。

必要なし

>>381
それどっからひっぱってきたソース？
それだけじゃなんだかさっぱりわからねっす。

まぁ俺はおっぱい大きい女が好きだがﾅｧ。

>>382
>何でいなくなったの？まとれす。
帰ってきて欲しいんだけどな。

>まぁ俺はおっぱい大きい女が好きだがﾅｧ。
俺は可愛い子が好きだっつってんだろ。

>>386
女はおっぱいが大きいにかぎるぜ。やわらかくてあったけーぞぉー。

まぁ俺はおっぱい大きい女が好きだがﾅｧ。

アドバイスさんくすです。これはform2からちがformにうつるときに記述されて
いたものです。プライベートにしたほうが、他のモジュールから参照できなくて
いいのですかね？もとのフォームに戻るのにもかんけいあるのでしょうか？

↑違うフォームに移るときのまちがいです。

>>388
むう、難解なコード＆難解な文章だな。

多分パブリックオブジェクトをプライベートにしたがってるようだが
そもそもそんなことをする理由が不明だ。

全体を見れば分かるかも知れんぞ。
作者の趣味の可能性もある。

きっとバグだよ
気にするな

>>381
例えば
form2に新たに（又は再び）移ってきたときにはpr_form2の値は常に
初期化されていなければならないような場合。
そして違うformでpr_form2の値をしようするような場合。
であれば私はそうするかもしれないですね。
form2のloadイベントで初期化すればいいという話もありますが・・・・・。

まぁ俺はおっぱい大きい女が好きだがﾅｧ。

>>391
実はちゃんとした理由があるのかもしれないじゃん。
思いつきでバグとかいうなよ。

パブリックで渡してるフォームを弄れるところを明示したいんじゃない？

ゆれるおぱい

それは謎だが、親子関係のあるフォームなんかな。
元のフォームをたどりたいとか、イベント拾いたいとか。
pr_Form1にWithEventsが付いてるか知らんけど。

まぁ俺もおっぱい大きい女の方が好きだがﾅｧ。

あせだくなおぱい

俺は脚がすき。おっぱいはどうでもいい。

ところでpr_form2の値はいったい何が入っているのか？って話は
もうでてるんだっけ？なんか勝手にformオブジェクトになってる観対だけど。

まぁ俺はおっぱい大きい女が好きだがﾅｧ。

やわやわなおぱい

RAGNAROK Onlineというオンラインゲームの補助ツールを作ってみたい
んですが、有志が作っているツール（有名なものでは『自動芋』等）の
いくつかで、ゲーム中の経験値やHP・SPを表示させる機能があるんです。
VB5で開発するつもりなんですが、そういったデータはどこに格納されて
いてどうやって取得すればよろしいんでしょうか？
サーバーから受け取ったデータはメモリに書き込まれてかもと他所で
言われたんですが、メモリにあるデータを抜き出す関数等がわかりません。
どなたかご教授願えれば幸いです。

？

>>401
ここで聞くのは間違ってるな。
有志に聞くがよい。

とあるWebサイトのスクリーンショットを画像データとして保存したいのですが、
この「スクリーンショットを取る」という事を、実際のモニタに表示せずに行う事は
可能でしょうか？

>>401
メモリにあるって言ってもどこにどういう属性で入ってるか、とか
どうやって公開してるのか、とかが分からんとどうしようもない。
403の言うとおり制作元に聞け。

>>404
GetDCでもkeybd_eventでPrintScreen送るんでも
どっちでも可。

即レスたんのおぱい・・・

ここに来る前にROの質問スレで聞いたんですが、スレ違いと言われたので
こちらへ来たんですが…　こっちもダメっすか(；´Д｀)
ツール作者にどういう方法で表示してるんですか？と尋ねるのは、なんか
失礼かと思ったので…　ソフト作者に「どういう方法で○○してるんですか？」
などと、普通は尋ねにくくないですか？(；´Д｀)

>405
さんきゅです。
M$のページでGetDCのサンプル見つけたんで、これ使って挑戦してみます。

>>407
気持ちは分かるが仕方ないな。
DLLやらWinSockやらフックする方法もあるし
逆汗も手段の一つだがVBだけじゃ出来ない。

もしかしたらROのヘルプあたりに書いてるかもな。

>>406
もうええっちゅーねん。

萌えっちゅーねん。

>>407
ここで質問するより、検索するほうが早い。

まず、データファイルやレジストリをパラメータが変化する
前後で比較するのが第一歩。
他アプリのメモリを参照するのは面倒だから。
VBでやってるツール＆サイトもいちおうあったが。

ここってさ、検索しろと言うだけで具体的なヒント教える人少ないね。一応
初心者スレだし、検索ワードぐらい教えてあげた方がいいと思うんだけど…
初心者は、知りたい情報がどういう方法か、どういう仕組みかすらわからない
のが多いし、検索ワードすら分からないんじゃないかと。とりあえずヒントを
与えて、あとはそいつに自己解決させるようにした方がいいんじゃないかな？

>>412
ま、
・APIの関数名をテージされたら、"関数名　VB"で検索。
・MSDNで検索
これで良しじゃない？

原因はただﾞレスつける人間が面倒なだけという事実に65,536ﾊﾞﾄﾞｴﾙ

Winsockコントロールの使用中に何らかの理由でこちらから切断すると、
再度の接続時にconnectするところでVBが反応しなくなります。
Windows2000+Visual Basic6.0を使用していますが、原因がわからずに困っています。
何か心当たりが有れば教えて頂けないでしょうか？

ageます…

>>412よ、だったら、
401に、君には無理だからあきらめなさいと言ってあげなさい。
そうじゃないなら、なんかヒントだしなさいな。単なるごみレスじゃん。

俺からのヒントは以下の通り。
ReadProcessMemory
WriteProcessMemory

たぶん411の言ってるツール知ってるわ。

オプションボタンって、どう使うんだ？

結構教科書を調べたんですが、載ってないので質問させてください。
ファイル名をたとえば、No.1、No.2・・・・No.iというような名前にしてファイルを
作成したいのですが〜、
ファイル名の中の「i」が、ファイルの中の変数のiと一致するようにしたい
のですよ。
このようなことはできるのでしょうか？
たとえば、Open "C:\WINDOWS\ﾃﾞｽｸﾄｯﾌﾟ\No.i.xls" For Input As #1
のようにして、ファイルを作成すると、当然iの部分は""の中にあるので
変数にはなりません。
どーしたらいいんでしょうか？

>418
Open "C:\WINDOWS\ﾃﾞｽｸﾄｯﾌﾟ\No." & i & ".xls" For Input As #1
でいけると思う。

追記です。
Localportを設定しなくても、Localport=0をconnectの前に入れても、症状は同じです。
VB本体を再起動すれば、普通に繋がりますが、
やはり一度切断すると再接続でVBがフリーズします。

>414
接続要求を受ける側のプログラムも自作？
もしそうなら、そっちが複数接続を受けられる作りになってる?

>>200ですが、いまだに「同じコントロールが数十個ある場合の
イベントハンドラをどう簡素化するか」の疑問が解消していません。
MSDNの「Visual Basic .NET におけるコントロール配列の変更点」の
トピックを読んだんですが、イベントハンドラについては単に
ズラズラと書き並べる方法しか書いていませんでした。
もっと効率的にソースを記述するにはどうすれば良いのでしょう？
いい方法があれば教えてください。よろしくお願いします。

いつもお世話になっております。

Public Fugu(1 To 35, 1 To 20) As Variant

Fugu = array("
これに6桁のデータを最後までびっしり入力すると
コンパイルエラーに。。。
括弧なんかは一応ついているはずなのですが
これって容量の問題なのでしょうか。
どなたか・・・。

教えてください。

文字のバイト数を知るのはどうしたらいいですか？
ためしに、LENB関数で調べてみたら
"あ",”ア","ｱ","a"　全て2バイトで帰ってきます。　
全角か半角かの判別をしたいんですけどうまくいきません。
だれか、教えてください・

>>424
LenB？だっけな？

StrConvで変換したあとLenBでせう。

>>424

それはFAQ。

StrConv(Source, vbFromUniCode)

してから、長さを判定すれば、半角 = 1, 全角 = 2
と判定されるはず。

>421
受け側は自作では有りませんが、複数接続は大丈夫です。

ありがとうございます。
UNICODEが問題だったんですね。
やってみます。
また、教えてください。

tsvファイルの読み込みで難儀しています。(VB6.0,win2000)

tsvファイルのレコードを１件読み込み
→読み込んだレコードの各フィールドをそれぞれ変数に代入
→各フィールドの書式が正しいかどうかチェック
→チェック結果をtsvファイルで出力

という処理を作りたいのですが、
Line Input#を使うと、フィールド毎に分割することが出来ないし、
split関数を使うと、動的配列に各フィールドの文字列が
代入されてしまうのでその後のチェック処理が上手くいきません。

分かりにくい質問とは存じますが、どうかよろしくお願いします。

VB5で作ったプログラムってメモリリークの心配はないんですかね？
あるとしたら、どうやって調査したらいいでしょうか？

>>431
バイナリダンプ。ランタイムも含めて。

とかいってみる。

>419
そうか。気がつかなかった。恥ずかしい。どうもありがとうございました。

>>414
切断するときにサーバ側のwinsockをcloseしないとだめだよ。

>>422
217で書いたコードで、AddHandlerを使ったイベントハンドラの一括登録はわかった？
イベントハンドラでそれぞれのコントロールに対して何がしたいか知らないけど、
イベントが発生したオブジェクトはsenderを見ればわかるから、
例えばそれがTextBoxなら、

CType(sender, TextBox).Text = "イベントのあったテキストボックス"

とか普通に使えばいい。
別のやつが書いてたようにTagプロパティに番号を入れておけば、
それを今までのIndexのように使うこともできる。

VBの開発での見積もりってどんな感じなんでしょうか？
例えばマスタメンテ画面なんかだとテストとPGでどれくらいなんでしょうか？
ちょっとスレの趣旨と外れているのかなぁ？どなたか教えていただけませんか？

>VBの開発での見積もりってどんな感じなんでしょうか？
工数？ 金額？

> 例えばマスタメンテ画面なんかだとテストとPGでどれくらいなんでしょうか？
大雑把すぎ。機能と仕様しだい。
それと工数だったら、担当者の技能による。

>>437
工数でおながいします。

機能と仕様はマスタのメンテ（追加・更新・削除）
レコードの一覧を表示してそれを選択することでメンテしたいものを
指示できるようなリストボックスなどがついていたりする。
ってところですかね。DBはMSDEにしておこうかな。

DCOMってactiveXExeじゃないとできないんですか？
activeXDllは？

>>438
おれなら1.5日。
って、フィールド数100列とかやめてね。

>>440
なるほど。それぐらいなんですね。
ちょっと頑張りすぎてしまったかも。もうすこしゆっくりやります。
ありがとうございました。

>>440
それって設計とかテストとかデバッグとか入れた工数？

マスタメンテの作成でプライマリキーが2つあるものを2つで一意にするための
コードはどんなふうにしたらいいのでしょう？
invチェックのセクションを増やすだけでしょうか？

>>443
DB側でエラー返ってこないの？
というかDBは何よ？

oracleです

>>442
>それって設計とかテストとかデバッグとか入れた工数？

その辺、不明確だったな。一応、以下のつもりでの工数。

不明点の確認、詳細設計、コーディング＆デバッグ、単体テストの工数。
前提：基本設計は除く＆DBのテーブル定義がまともなこと。

追記。
不明点の確認は、上司またはお客様から即時に回答頂けるものとします。

>>435 NETレスさん
>>200です。おかげさまで、ようやく自分でも動く
サンプルを作ることができました！！
まだ動き的には理解しきれていない部分も多いんですが、
とっかかりができたので何とかなりそうです。
ありがとうございました。

>>423
1 行に記述できるコードは 1,023 バイトまで。
そこらへんで引っかかってないか？

>>430
Line Input で１レコード読み込んで
SplitをVbTabで割ってフィールドごとの
処理が出来るんだが。
それじゃいかんの？

>>431
最初はタスクマネージャで調べるのが普通かな。

>>439
DCOMは分散COMの略で複数のコンピュータで
処理を分け合う技術。DLLだけじゃどうしようもない。

モジュールのGeneral部分で、Public と Private 、それから Dim で宣言する変数の違いって何でしょうか・・・。
どれもモジュールレベルで、ほかのプロシージャから参照できる、だけどほかのモジュールからは参照できない。
そう思っているのですけど・・・。

>>450
合ってるよ。

Visual Basic .NETでのオブジェクトの開放ってどうやるの
ＶＢだと

　　　SET オブジェクト変数 = NOTHING

でいいけどわからんで困っとります。　だれか教えてください。

VBでデータベース処理の勉強をしているのですが,アクティブXの
Data EnvironmentデザイナやData Reportデザイナ、ビジュアルデータマネージャー
はVBでのデータベース処理をする上で必須ですか？
僕の持っているのはラーニングエディションなので使えないのです.

>452
オブジェクト変数 = Nothing
だけでいいと思ったけど、違うのか？

>453
知っているにこしたことはないけど、必須ではないと思う。
ミドルウェア(ADOとかoo4oとか)と、SQLを使えるってのが基本だと思う。

>>454
ホントはそれでいいとおもうんだけど
ＶＢ６から.NETに移行したんだけど
UPGRADE_NOTE: オブジェクト gRec をガベージ コレクトするまでこのオブジェクトを破棄することはできません。 詳細については、'ms-help://MS.VSCC/commoner/redir/redirect.htm?keyword="vbup1029"' をクリックしてください。
って真上に書いてあった。

Windows Common Controls 6.0にはいってるTabStripコントロールで
ダブルクリックを検出したいんですが、どうすればいいでしょうか？
Clickイベントしかないのです。
MouseDownイベントが短い間隔で2回呼ばれたら・・・という処理をするしかないですか？

Keycode=0
でキーボードの動作を殺せたんですが、どうも　.net　ではうまくいきません。
どうすれば　Keycode=0　と同じ結果を得られますか？

すいません、お聞きしたいのですが
ＶＢでメニューエディタを使わずに、動的にメニューを作成したいのです。
ＡＰＩを使う方法はわかったのですがＡＰＩはなるべく使わずに
メニューを動的に作成する方法はありますでしょうか？
下記のようにCommandButtonを動的に作成できるのと同じように
メニューも作成できると思ったのですができないんどえす。
お知りの方おられましたらお教え下さい。

Option Explicit
Private WithEvents DynButton As CommandButton

' ・動的コントロールを実際に追加するコードは、次のようになる。
' プロパティは､追加するコントロールで必要なものを設定する｡

Private Sub Command1_Click()

Set DynButton = Form1.Controls.Add("VB.CommandButton", "DynButton")
DynButton.Caption = "動的コントロールボタン"
DynButton.Left = 400
DynButton.Top = 100
DynButton.Width = 2000
DynButton.Height = 400
DynButton.Visible = True

End Sub

Private Sub DynButton_Click()

MsgBox "DynButton クリック"

End Sub

>>451
ありがとうございます。
そうしたら、モジュールレベルの変数を宣言したい場合は、General部分に
Public、Private、Dimのどれで書いてもいいってことでしょうか？

質問です。
ListViewコントロールを使っているのですが
これで全ての項目の全てのカラムをひとつごとに選択できる
（エクセルみたいに・・・）ようにはできないのでしょうか。
標準だと最初のひとつのカラムのものしか選択できないのと
各行ごとに選択するのとしか設定できなかったようなのですが。
おながいします。

>>461
FlexGrid使ったほうがよさそうだよ

>>462
使ったことないYO！
ヽ(`Д´)ﾉｳﾜｧｧｧﾝ!!　勉強してこないと無理か・・・

>>463
ListViewより簡単だYO! ヽ(`Д´)ﾉｳﾜｧｧｧﾝ!!　

>>457
MouseDown、Upを組み合わせて判定する。
ダブルクリック時間とマウス移動距離は
GetDoubleClickTimeとGetSystemMetricsで取得。

別にClickで判定してもいいけど。

>>459
メニューはインデックス付けてLoad/Unloadで
同じ階層のメニューの追加/削除は出来るが、
新しく作成、などは出来ない。

ＡＰＩで出来てるんならそっち使っとき。

◆◆反復型の成績判定◆◆
　10人分のプログラムについて、一人ずつ成績判定を行うプログラムを
作る。途中までコードを記述してあるので、残りのプログラムリストを
完成させなさい。

ヒント:成績判定の部分は多分岐構造になるので、Select〜Caseステート
メントを使うといいでしょう。以下　プログラム　リスト

Sub 反復型の成績判定()

'　10人分の得点を設定
Dim X As Variant
X = Array(60, 82, 87, 50, 86, 89, 76, 58, 68)

'　判定文字列の設定
Dim hantei As Variant
hantei = Array("不可", "可", "良", "優", "対象外")
Dim h As Integer

Const N As Integer = 10
Dim i As Integer
Dim tokuten As Integer

For i = 1 To N
tokuten = X(i - 1)

>>446
宿題は自分でやれ

>>466
とりあえず自分でやってみよう。
そして何がわからんのか再度質問してくれ。

それができないのなら明日友達に写させてもらえ。

友達が居ないのなら氏ね。

エクセルVBAの質問もあり？

モジュール消したいんですけど
「消したい標準モジュールを右クリックで開放」を
VBAで書くとどうなりますか？

>>467
ハァ？日本語読めますか？

>>446と>>466を間違えただけじゃないの？？？

>>460
そのモジュールでしか使わない、なら
PrivateかDimにしとき。ややカプセル化に
なるから。

>>470
>>471に一票。

>>469
Modules(0).Deleteとやると自分自身を殺すことになるからエラー
多分Modules("Module1").Deleteも同じ

>>473
ありがとう。
でも、Modulesじゃ駄目なんですよ。

下の一行で消えてほしいが消えてくれない・・・
ActiveWorkbook.VBProject.VBComponents.Item(7).Remove
（消したいモジュールが７番目だったら）

佐藤 \ 鈴木 \ 田中 \ 伊藤 \ 山田 \ 加藤

という文字列を、"\"で分割して順番にコレクションにためていくには、どうすればいいですか？

splitとかどうざます？

自己レス。７番目を消したいなら
ActiveWorkbook.VBProject.VBComponents.Remove ActiveWorkbook.VBProject.VBComponents.Item(7)
で出来ました。すまん。

>>477
splitを、どう使えばコレクションに順番にためれますか？
いまいち使い方がわからないのです・・・。

Private Sub Command1_Click()
Dim s() As String
Dim c As Control
Dim i As Long
s() = Split("佐藤 \ 鈴木 \ 田中 \ 伊藤 \ 山田 \ 加藤", "\", , vbTextCompare)
For Each c In Form1.Controls
c.Caption = s(i)
i = i + 1
Next
End Sub

Form1にコマンドボタン５,６個配置してやってみてくらさい。
>>478

>>479
いいたいことは分かるんだけど。
コレクションに順番にためれますか？の説明にはなてないね。
配列にためられるんでごわすといったんさいな。

早速詰まっちゃったじゃんか！ヽ(`Д´)ﾉｳﾜｧｧｧﾝ!!
縦列は additemとかで出来た。これは簡単だったんだけど
横列はどうやって追加すりゃいいんだ？
あと「2列目の3個目の項目のテキスト」を変える方法とかもｻﾊﾟｰﾘ
糞みたいなこと訊いてると思うんで申し訳ないがヒントでも下さい・・・。

ｃｏｌｓ
ｒｏｗｓ
ｔｅｘｔｍａｔｒｉｘ

>>479
>>480
いやいや、参考になります。ありがとうございます。

まずは.NET関連から。
>>452
変数 = Nothing
とできるがあまり意味はない。これでメモリが解放されるわけではないので。
参照されていないオブジェクトはガベージコレクションが適当なタイミングを見計らって、
自動的にメモリを解放する。
まぁ、Nohtingにしておいて、GC.Collectメソッドを使えば、
ガベコレが動くが、ガベコレがメモリ解放をする動作はそれなりに重い処理だから、
基本的に自動でやらすのが妥当。

>>458
>Keycode=0
>でキーボードの動作を殺せたんですが、どうも　.net　ではうまくいきません。

どうもうまくいかないって何をやったん？
KeyDownイベントのe.KeyCodeプロパティはReadOnlyだから代入はできんはずだが。

>どうすれば　Keycode=0　と同じ結果を得られますか

e.Handled = True
でいけるよ。
＃KeyPressイベントの(KeyPressEventArgs)e.Handled=Trueで文字のASCII文字の入力は防げるが、
＃どうやら日本語はうまく防げない。

従来のVB。
>> 450
Publicの場合は、他のモジュールから参照できるぞ。
Form1で宣言してるなら、
　Form1.そのPublic変数
でアクセスできる。

>>459
どっちみちイベント拾わないと意味ないから、
API使っとき。さもなくば.NETだ。

>> 478
Splitは文字列の配列を返すから、
それをループでコレクションにAddしなさい。

VBでa.txtとb.txtを結合してa.txtというファイルを作りたいのですが
DOSプロンプトで

copy /c c:\a.txt+c:\b.txt c:\a.txt

とやった場合は結合したa.txtファイルを作れるのでスが
VBで作ったソフト上でshell関数を使い

Shell "command.com /c copy c:\a.txt + c:\b.txt c:\a.txt", 1

とやった場合b.txtのデータだけのa.txtというファイルができてしまうのですが
どうすればShellをつかいファイルを結合してふたたびすでに存在するファイル名で保存できるのでしょうか？

>>476
いいざます

>>477
謝ることないよ！

>>478
応援してます

>>479
お疲れさまです

>>480
「ごわすといったんさいな」どこの言葉ですか？

>>481
がんばれ！

>>482
全角かよ！

>>483
よかったですね

>>484
お疲れさまです

VB.NETのDir関数挙動おかしくないですか？

勘違いかな・・・。

なるほど！ToStringで連結してなかったから
おかしかったのか！
しかし、文字列型に変換されてたはず！
なぜなんだー！さてとｶﾞﾝﾊﾞﾛ

◆◆反復型の成績判定◆◆
　10人分のプログラムについて、一人ずつ成績判定を行うプログラムを
作る。途中までコードを記述してあるので、残りのプログラムリストを
完成させなさい。

ヒント:成績判定の部分は多分岐構造になるので、Select〜Caseステート
メントを使うといいでしょう。以下　プログラム　リスト

Sub 反復型の成績判定()

'　10人分の得点を設定
Dim X As Variant
X = Array(60, 82, 87, 50, 56,　86, 89, 76, 58, 68)

'　判定文字列の設定
Dim hantei As Variant
hantei = Array("不可", "可", "良", "優", "対象外")
Dim h As Integer

Const N As Integer = 10
Dim i As Integer
Dim tokuten As Integer

For i = 1 To N
tokuten = X(i - 1)

厨な質問で申し訳ないのですが
VB6.0とVB.NET、今からプログラミングを勉強しようと思ったら
どちらを始めたほうが良いでしょうか？

すみません。また質問させてください。
ファイルを開いて、その中に文章をPrintで書き込みたいのですが、その本文中に
「"　"」があって、その部分がプログラムだとみなされてしまうのですが、
こういう場合「"マーク」を無視させることはできるのでしょうか？

たとえば
Open "D:\bb.txt" For Output As #i
Print #i,""hello"aiueo kakikukeko "sasisuseso"kekeke"

とかなって、わけわかんないことになってしまうのですが・・・。

>>490
467 名前：デフォルトの名無しさん 投稿日：02/06/04 20:09
>>446
宿題は自分でやれ


468 名前：デフォルトの名無しさん 投稿日：02/06/04 20:35
>>466
とりあえず自分でやってみよう。
そして何がわからんのか再度質問してくれ。

それができないのなら明日友達に写させてもらえ。

友達が居ないのなら氏ね。

>>487
そろそろFileSystemObjectに切り替えろよ21世紀なんだから

>>491
VB.NETに決まってる。今からVB6なんてやっても何のアドバンテージにもならん。

>>492
ダブルコーテーション中のダブルコーテーションは二つ続けて書け
Print #i,"""hello""aiueo kakikukeko ""sasisuseso""kekeke"

>>490
くだらんプログラムだな。
途中まで記述しているコードをコメントアウトして、
クラスとコレクションを使ったプログラムを作って提出したれや

いらん記述が多すぎる。せめてここから始めろ

'********************

Sub 反復型の成績判定()

Dim X As Variant
Dim hantei As Variant
Dim tokuten As Integer
Dim h As Integer
Dim i As Integer

'　10人分の得点を設定
X = Array(60, 82, 87, 50, 56, 86, 89, 76, 58, 68)
'　判定文字列の設定
hantei = Array("不可", "可", "良", "優", "対象外")

For i = LBound(X) To UBound(X)
tokuten = X(i)

>>465
メニューの件ですが、お返事ありがとうございます。
やっぱり無理なんですねー　
参考になりました。

API関数では下記のような方法でできるのですが、とてもしんどいです。
'●ポップアップメニュー作成
hMenuPopup_Disp = CreatePopupMenu()
'ポップアップメニュー項目作成
Call AppendMenu(hMenuPopup_Disp, MF_ENABLED Or MF_STRING Or MF_CHECKED, IDM_DISP_ICON, "大きいアイコン(&G)")

>484
情報ありがとうございます。
当然、Kyecode=0　で代入できるわけもなく、いろいろと試行錯誤してました。

>＃KeyPressイベントの(KeyPressEventArgs)e.Handled=Trueで文字のASCII文字の入力は防げるが、
>＃どうやら日本語はうまく防げない。

これ、これを正におききしたかったんですが、日本語は難しいのかなー
他の代替手段も考えてみます。
ありがとうございました。

>>485
パスはショートパスに変換して渡してる？
ちなみにそのDOSの例間違ってるぞ。

>>491
まあNETなんだろうなあ。
MSが推奨してる技術でこけた物はいっぱいあるが
NETは言語的にも楽そうだし。

>>497
ポップアップメニューの表示の話かい！

そんなら、Form1.Popupmenu [メニューの名前]だ。

>>497
あ、ちなみに動的にメニューを作成できないから
既に作成してるメニューの名前を使う必要があるぞ。

>>499
ショートパスに変換とはどういうことでしょう？
>ちなみにそのDOSの例間違ってるぞ
ありゃりゃ。どこがまちがってます？

>>501
どうせ対象ファイルはc:\a.txtじゃなくどっかのファイルなんだろう？
スペースが入ってたりすると認識できないので
ショートパス（DOS名とも言う）に変換する必要があるんよ。

>ありゃりゃ。どこがまちがってます？
COPYは"/c"なんてコマンドはない。

>>502
なるほど、ショーとパスについてはわかりましたが
例で上げた

c:\a.txt + c:\b.txt c:\a.txt

の用にパスにスペースが入ってない場合でもうまくいかないのですが

>>503
俺んところはうまくいったぞ。どううまくいかない？

Part8か9の真ん中あたりに同じような質問あったから
一度見てみるのもいいかもな。

送り先の内容がなくなりました
ファイルをコピーしました
となって
a.txtとb.txtを結合したのにb.txtの内容のみのa,txtができあがってしまいます
とりあえずPart8か9のほうもみてみます

もしよければ即レスさんのうまくいっている
shell関数を使ったVBのコードをかいていただけたらたすかります

一緒だと思うが。
Option Explicit

Private Sub Command1_Click()
Shell "command.com /c copy c:\a.txt + c:\b.txt c:\a.txt", 1
End Sub

こうだ。c:\a.txtは"a"、c:\b.txtは"b"が入ってる。
実行後はc:\a.txtに"ab"だ。他に何か理由があるかもな。

ありゃ、名前間違えた。失敗。

すいません
そのコマンドだけでformで作って結合だけさせたらうまくいきました

実はその結合コマンドの前にデータ内容を入れたa.txtを作成してまして
作成したあと
さらにそのあと作成したa.txtとすでに存在しているb.txtを結合させて
a.txtという名前でふたたび保存しようとすると
コピー前に送り先側の内容がなくなりました。
となってb.txtのみの内容のa.txtができてしまうようです

解決方法などありますでしょうか？

>>508
暇なら見てやるからコード出してみ。
他のどこかが悪い。それだけじゃ分からん。

>>509
すいませんすこし調べていたのでちょっと時間が空いてしまいました
すこし省略しましたがこんな感じです

Private Sub Command10_Click()
Dim i, ii,iii, deta
i = "c:\a.txt"
deta = "a"
Open i For Output As #1
Debug.Print i
Print #1, deta
Close #1
'テキスト結合
ii = "command.com /c copy c:\b.txt + c:\a.txt c:\a.txt"
iii = Shell(ii, 1)
End Sub

どうも

c:\a.txt + c:\b.txt c:\a.txt

の場合はうまくいきますが

c:\b.txt + c:\a.txt c:\a.txt

と逆に結合した場合はうまくいかないようでこまってます

>>510
すごく揚げ足取りで悪いんだが、

＞Dim i, ii,iii, deta
　　　　　　　　　↑
　　　これはいくらなんでも・・・。

>>510
＞"command.com /c copy c:\b.txt + c:\a.txt c:\a.txt"
コピー元とコピー先を同じにしない。これ基本。

基本なのはわかるんですが
できないもんなんですかね
できるならできればそうしたいのです方法があるなら教えてくださいってことなんですが

ああ、なるほど。1ファイルずつ結合してるから
bをa書き込んだ後には古いaが存在してないからだな。
COPYの仕様か。

>>512の通り、"c:\b.txt + c:\a.txt c:\c.txt"でcを作って
cをリネームしとき。

>>513
＞コピー元とコピー先を同じにしない。これ基本。
これを「場合によってはいける！」と読むあなたに乾杯。

すでにa.txtが存在してるのにc.txtをa.txtにリネームできます？

>>516
世の中便利になってね、CP/Mの時代にdelと言うコマンドが開発された。

>>516
それぐらいは削除してくれよ・・・

デスクトップなどに保存してる場合で常にクリックしやすい位置に保存しておきたいのですが
自動並び替えなどになっていた場合ファイルを消した場合自動的にファイルが並び変わってしまい
リネームしたものは最後尾に行ってしまうと思うんですが
できれば常に同じ位置になるようにしたいんです
DOSプロンプトから実行した場合はそのままの位置でできるので
SHELL関数を使った場合でそうできないものでしょうか

>>519
そもそも、

読み込みモードで開いて変数に内容保持。
書き込みモードで開きなおして保存。もしくは追記モードでファイル開く。

>>520
それだと、データ量が多い場合ものすごく時間がかかってしまうので
COPYコマンドで結合しようと思ったわけなんです

>>521
中ではおんなじことやってると思うぞ。お兄さんは。

圧倒的に速度違うけどな

>>523
後学のために、ファイルのコピーを高速で行うアルゴリズムってあるの？
それとも純粋にDOS API+アセンブラとWin32API+VBの速度差？

copyは文字を記憶してるんじゃくて
バイナリで直結させてるから早いんだろ？

>>525
申し訳ない、もうちょっと噛み砕いて。
appendモードで開いてるって話？

開いてもねーし読み込んでもねーだろ
ただ直結させるだけ
だから早いんだろ

>>527
command.comってFAT直接操作してるんすか・・・。
DOSの標準シェルの癖にDOS API無視？

500Mのファイル500個に分割してあるとする
それを結合しようとしたとき
一個づつ開いて読みこんで変数に記憶ってこと500回やってるとおもいますか？
そんなことやってあれほどすばやく結合できない
後は自分で考えてくれ

ファイル読み込まないでどうやってcopyするんだよ。

.Net　もここで良い？
VS買うほどカネもないからStandard買っていろいろやってるんだが、
コンパイルできんのか、VSないと。
コマンドラインからできるみたいなんだけど。

>>531
F5押してみ？

>>532
あ、デバッグはわかります。
今までVS上でしかVB触ってなくて、VSだと、
ファイル　＞　Project.exeの作成　ってできたんだけどなーってことです。

copyするとき読みこむってどこに読み込むんだ？

『だから出来ないって言ってるでしょ』と説得しつづけてきた、Windowsでの
シリアルプリンタによる連続固定帳票への印刷。だが今回、とうとう手をつけ
ることになってしまいまった。
ということで、お勧めの帳票ツール、システム構成上での注意事項、コーディング
のコツなどの情報があれば是非教えてほしいのココロ。
帳票ツールは、出来れば独立してて直接DBから読み出せるのが吉。が、安定性
一番、値段が二番ということでよろしくお願いいたしまする（拝）

>>534
メモリのバッファ変数

>>536
やめとけ。やられるぞ。

>535
Access。

いろいろと叩かれてるが、あのレポートだけ独立させて
くれんかなーと常々思う。

ふーん。DOSのCOPYコマンドの実装はファイルをメモリに読み込まないでコピーしてんのか。
どういう仕組みなんだろ。

VBでPINGを送りたいのですが、
どうやって送りますか？

>>540
死ぬ気でICMP実装。

>>539
たしかディスク上に分割しているデータは
セクタに次のデータへのセクタ番号が
書いてあるんじゃなかったかな。

メモリ使わずに連結、ならそれを書き換えてるんだろう。
（自信なし。あてにしないでね。）

>>540
簡単にしたいのならDOSプロンプト。
DOSとの通信はたしか名前なしパイプで出来たはず。

>>542
ありがとうございます。
DOSプロンプト無しでは無理でしょうか。
ネットワークの通信テストソフトを作りたくて、一定時間おきに永久にPINGを打つ
ソフトにしたいのです。細かいこと書かずにすみませんでした。

>>543
＞一定時間おきに永久にPINGを打つ
DoSを使わずには無理ですなｗ

>>543
ICMP関係のAPIがあるからそっち使うか？
まあいつものごとく英語だけど。

サンプル。
http://www.geocities.co.jp/SiliconValley-SanJose/3279/scrap.html

ListViewで特定位置のテキストはどうやって取得できますか？
ListView.ListItems(ListNum).SubItems(SubNum)
のような形で取れるかと思いきやできないっぽいんですけど・・・。

>>546
出来るよ

>>546
ListView.ListItems(ListNum).SubItems(SubNum)
　↓
ListView.ListItems.Item(ListItem).SubItems(CheckNum)

これじゃないの？

みす

ListView.ListItems(ListNum).SubItems(SubNum)
　↓
ListView.ListItems.Item(ListNum).SubItems(SubNum)

こうだね。

[質問]
ファイルのサイズはFileLenで取れますが
いちいちフォルダ内全てのファイルに対してFileLenする、など以外の方法で
フォルダ全体のサイズを取得することはできますか？

age

ミスりました・・・
そんなことできるわけないですよね（汗

いちいちファイルを一つごとにDirする等以外の方法で
フォルダ内のファイルの数は調べれますか？の間違いです・・・

>>538

>Access。
>いろいろと叩かれてるが、あのレポートだけ独立させて

……出来る？(^^;
いや、Accessにはあまり偏見は無い。叩かれるのは使い方を判ってない
バカな開発者のせいだ。Accessは、Accessで出来ることだけに開発範囲を
留めておけば、VBよりよっぱど開発効率は高い。

が、そもそも、Windowsで連続固定帳票へ印刷できるとは考えてなかったので、
自然とAccessは選択しから外れてしまいまったのよ(^^;　穴明き帳票をWindows
で印刷するには、何かしらイリーガルな操作をしなけれ
ばならない、って固定観念ですわね。

正直、クリレポやActiveReportを使わずに出来るのか？＞連続固定帳票印刷
＃もちろん、「実用になるか」っつー意味ですので(^^;　←ツッコミ防止用

>>552

http://www.microsoft.com/japan/developer/library/default.asp?URL=/japan/developer/library/vbenlr98/vaobjFiles.htm

フォーム上にコマンドボタンが二つある状態で
下矢印を押したときにイベントを発生させたいのですけど、
フォーカスが移動するだけなんです。
どうすればいいでしょう？
もちろん、フォームのKeyPreviewはTrueにしました。

失敗例
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyDown Then

>>555
Thenの後が激しく気になる！

>>556
マジレス。
スクロールバーを動かしたいのよ、っていうか動かさなきゃいけないのですよ。

つまんないこたえでスマソ。

>>557
コマンドボタンをサブクラス化してWM_KEYDOWN
あたりを補足すれば逝けそうな気がしないでもない。
面倒くさそう。

>>557
テキストボックスで代用なんてのはダメかな？

>>558
そんなめんどくさいことを入社２ヶ月
新人にやらすようなドキュソ会社は
逝ってよしですか

>>560
プロならまずそのクソ仕様に噛み付く。
Windowsの標準操作に合わせないと
そりゃ〜おそろしいことになるぞ〜って脅かしておけｗ

エクセルのＶＢＡでＷＥＢ上のＤＢからデータをやり取りしろとのことです。
この板にまします神々！お教えくださいm(__)m

まずは.NETから。

>>531
> VS買うほどカネもないからStandard買っていろいろやってるんだが、
> コンパイルできんのか、VSないと。

532の言う通り。F5でOK。今までのVBと違ってVC++とかと同じで、
毎度ビルドで実行ファイル作って実行してる。
だから、別途、実行ファイル作成なんてメニューはない。

ソリューションかプロジェクト辺りを選んで右クリックして
出てくるダイアログでReleaseビルドとDebugビルドを切り替えられたと思う。
＃VS.NET beta2は使ってたけど、
＃今はVS.NET(VB.NET、VC#.NET含む)は持ってないんで、
＃細かいところはヘルプで調べてみてくれ。

> コマンドラインからできるみたいなんだけど。
vbc /t:winexe /out:HelloWorld.exe /r:System.dll /r:System.Windows.Forms.dll HelloWorld.vb
例えば、こんな感じでできるぞ。

コンパイラのオプションについては.NET Framework SDK ドキュメントの
.NET Framework SDK
　 - リファレンス
　　 - コンパイラおよび言語リファレンス
　　　 - Visual Basic
　　　　 - Visual Basicのプログラミング
　　　　　 - Visual Basic コンパイラ オプション
以下に載ってる。
ちなみに、これらのコンパイルのオプションはVS.NETではサポートしていないのもある。

で、従来のVB
>>540
Shell関数でPing飛ばしてリダイレクションでファイルに書き込んで、
そのファイル読むのじゃだめ？

>>552
まじめな手で一番楽なのは552だろうな。
ファイル数32767までじゃないとアウトだが、
FileListBoxのCountプロパティって手も。
自分用のちょっとしたツール程度ならこれでもOKだけど・・・

>>555
Windowsの仕様。

>>562
それだけじゃ意味わからんよ。落ちケツ！

>>540
バッチファイルにしとけば？

>> ごみレス 殿
初心者なのでよく分からないのですが。。。
ＡＳＰとかならブラウザ上で入力すると
ＷＥＢ上のＤＢからデータを取ってきて
表示できたりするじゃないですか。

それを既にあるエクセルの管理表から行いたいのです。
どういう方法があるのでしょうか？
どんな本にやり方が書いてあるですか？

教えてください。おながいします。

>>566
Webのは普通、外部からはDBにアクセスできないと思う。
Webサーバ上のあるプログラムがDBサーバからデータを取ってきて表示してるだけ。

LAN上での話ならWebは関係なく、VBでDBに接続するのとかと同じような感じで、
ExcelVBAからもできるだろう。

＞＞５６６
バッチでエクセルのデータをＤＢにいれてからにしたほうがいいよ

>>561
日本電気様がうちに丸投げした仕事なんですけど
そんなことしたら倒産なんですけど

心配するな、その前に君が首になるから。

>>567殿　>>568殿
ありがとうございます。
DAOを使う方向で考えてみます。

>>555
LostFocus時に押されてるキーを取得、とか
その条件ならCommandButtonにフォーカスが来た時に
スクロールバーにフォーカス移すとか。

サブクラクス化が一番手っ取り早いけどな。

たまに来たので、ちょいテクを晒す

★ActiveXコントロールをフォームに貼らないで使用する
　※ただし、タイプライブラリが提供されていること
　　ここではWinsockコントロールの例で、クラスモジュールを使っている
　　
　Private WithEvents MySock As MSWinsockLib.Winsock
　
　Private Sub Class_Initialize() 'クラスの初期化と同時に作成
　Set MySock = New MSWinsockLib.Winsock
End Sub
　
後はこのクラスモジュールに自分でPublicの独自イベントや、プロパティ、メソッドを公開するべし
このクラスモジュールをClsSockとクラス名にしたとすれば
フォームや標準モジュールで
　Public(Private) ObjSock As ClsSock　'ClsSockクラスよりオブジェクトの作成

　Sub Main
　　Set ObjSock = New ClsSock 'これでインスタンス作成
End Sub

　配列やコレクションを使うと便利。やってごらん（´・ω・｀）

>>573
ごめんごめん
参照設定忘れてた（´Д｀；）
コンポーネントとしてではなく
タイプライブラリ参照で、Mswinsck.ocxを直接参照してね
でも正常に動くか保証はないよ　
なんだそりゃ
だから糞レスなんだよ（´・ω・｀）

>>574
わらた

DLLって、レジストリに登録するタイプと、パスの通った
ディレクトリ(SYSTEMディレクトリ)に置いておくだけの
タイプのがあるけど、区別ってできるの？

>>572
>LostFocus時に押されてるキーを取得
このやり方激しくキボンヌ

他の方々、サブクラス化というのも含めて調べていますけど、
自分には難しいです。
LostFocus時に押されてるキーを取得
ができれば逝けそう。調べてて半日つぶれてしまった

>>577
APIになるけどGetASyncKeyStateとかで。
ただLostFocusとキーボード入力の時間差が
結構あるから注意ね。

>>576
レジストリ登録タイプはDllUnregisterServerとかの
関数がエクスポートされてるはず。

>>578
　即レスTHANX！ ということはregsvr32.exeで登録できない
ものは、パスが通ったディレクトリに置いておけばいいって
ことやね。

VB自体が駄目というより、VBしかできない奴が駄目なんだろうな。
ちなみにVBオンリーユーザって、過去にVC++にもチャレンジ
してたりするんだけど、殆どが挫折してVBに戻っちゃうんだよな。
VB自体が駄目というより、VBしかできない奴が駄目なんだろうな。
ちなみにVBオンリーユーザって、過去にVC++にもチャレンジ
してたりするんだけど、殆どが挫折してVBに戻っちゃうんだよな。

常駐しているアイコンを右クリックするとメニューが出るようにしたくて
調べてやってみていたら　サブクラス化で右クリックを取得して、
TrackPopupMenuExでメニューを出す、と理解できたのですが
TrackPopupMenuExの使い方が・・・。
これでのウィンドウハンドルの指定はどういう意味になるのでしょうか。
それと「オーバーラップ領域」と書かれていたのですが
これは何の意味なのですか？教えていただきたいです。

ＶｉｓｕａｌＢａｓｉｃ使い始めた初心者なんですけど、
時間をｍｓｅｃまでだしたいんです。どうやったらいいのでしょうか？

どうか、教えて下さい。

>>582
Timer関数が実数を返すんじゃなかったかしらん
秒以下を調べたきゃ小数点下を見ればいいと思うのん。

正確にってならAPIな。
TimeGetTimeﾄｶ。

95系はタイマーがいいかげんなのでマジでやろうと思ったら
パフォーマンスカウンター使うの

>>582
時間だったら、WindowsAPIのGetLocalTime関数を使え。

>>583
PC98系で小数以下はないという罠。

>>584
正確にってなら、timeGetTimeな。
timeBeginPeriodも。

すいませんReDimがわかりませんです。
教えてください。

>>587
動的配列で調査されたし

>>569
チミの実力を試しているんだよ。出来なければクビ（げらげら

まぁサブクラス化でキー押下とっても２、３０行程度でできるじゃん。
作った後で「こんな仕様で本当にいいんですか？」とかいって
ささやかな反撃かましておけｗ

555だけど、いや、ほんとたすかった。
みなさんマジ感謝です。結局LostFocusでできました。

>>589
実力も何も、会社入ってVBさわったんだけどね。
2ヶ月もやってりゃ普通できるのかな？
ちょっと鬱になってきた。

こんどはマウスホイールだと、会社のMSDNが2000春
なんだけど、そのころってホイール付きマウスってあったっけ？

>>590
>実力も何も、会社入ってVBさわったんだけどね。

そんなとこじゃなく、柔軟にいろんなことを吸収できるかどうかが試される。
要は伸びないやつはいらんってこった。

> こんどはマウスホイールだと、会社のMSDNが2000春
> なんだけど、そのころってホイール付きマウスってあったっけ？

この文章で何をいいたいのか、だいたい予測はできるが、日本語変だぞ。
555の質問文見てても思ったが、もちっと日本語をまともにかけるようになろう。

Excel VBAのコードを書いているのですが、

.Range("セル名").Formula = "=COUNTA([" & ブック名 & "]" & シート名 & "!$A:$A)"

で、ブック名に"a-b.xls"のような、-や+が入るファイルを指定すると、
アプリケーションまたはオブジェクト定義のエラーを吐いて止まってしまいます。
どうやったら回避できるのでしょうか?

Excel VBAのコードを書いているのですが、

.Range("セル名").Formula = "=COUNTA([" & ブック名 & "]" & シート名 & "!$A:$A)"

で、ブック名に"a-b.xls"のような、-や+が入るファイルを指定すると、
アプリケーションまたはオブジェクト定義のエラーを吐いて止まってしまいます。
どうやったら回避できるのでしょうか?

二重カキコすみませんです。

>>579
まぁそれでも出来るだろうが。
LoadLibraryとGetProcAddress使うのもいい。

#つか、そういう時はDLLの付属のドキュメントに
#どちらか書いてあると思うが。

>>581
ウィンドウハンドルはメニューのメッセージを取得するウィンドウ。
オーバーラップ領域はこの場合表示可能な領域。

Popupmenuで同じ事出来るのでそっち使っとき。

>>582
timeGetTimeか
QueryPerformanceCounterと
QueryPerformanceFrequency。

timeGetTimeは20msec以下の数字は
どのOSでも不正確なので注意。

>>587
アバウトすぎ。

>>590
よかったな。
2ヶ月じゃあAPI使わせるのはどうかと思うぞ。
「VBだけで出来るだろ」と思ったんでないの？

ホイールは95世代でもあったはず。

>>592
'a-b'みたいに ' でくくって見れ。

いつもの名前入れ忘れ。スマソ。

>>595
試してみましたが、エラーが取れません。

>>597
× "=COUNTA([a-b.xls]Sheet1!$A:$A)"
○ "=COUNTA('[a-b.xls]Sheet1'!A1)"
これで分かるか？

>>595
作成済みアプリの配布パッケージを手動で作ってたもので･･･。

マウスホイールを扱うにはどうすればいいですか？
できればＤＬＬ等は使いたくないんですが。

WM_MOUSEWHEELかWM_VSCROLLを見る。

>>601
ソーリィ
VB6でというのが抜けてました。

hwndがわかっているあるコントロールに、
任意のイベントを発生させたいとおもいます。
どうすればいいですか？
たとえばマウスアップで、エンターキーとか。

せんどめっせーじ

>>604

Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

これですか？
でもこれをどう使うのかがわからないです。

>605
えむえすでぃーえぬ

>>602
俺はVB使えないから知らんが、さっきぐぐってたら
VBでホイール制御してるページあったぞ。所望のものとは違うかもしれんが。
http://www.google.co.jp/search?q=vb+WM_MOUSEWHEEL&hl=ja&btnG=Google+%8C%9F%8D%F5&lr=lang_ja

>>606
えっと、私がやりたいのは、たとえば、
XXX というコントロールがあって、
それの、hwnd は判明している。
hwnd を頼りに、
XXX_Click というイベントが起きるようにしたいんです。

判明しているのは、hwnd であって、XXX は不明です。

>>608
対応するWindowsメッセージを投げてください。

>>608
レイズしろ

>>608
Windowsはメッセージで動いてるってことを知ってますか？

>>490
以下のプログラムを技術点、速度点、メモリー使用量点の平均で判定するように直せ。

[Form1]
Option Explicit
Private Sub Form_Load()
　　Dim marks As clsMarks
　　Dim n As Long
　　Set marks = New clsMarks
　　With marks
　　　　.SetTestData
　　　　For n = 1 To .Count
　　　　　　With .Item(n)
　　　　　　　　Debug.Print (.sProgrammerName & "の得点は" & .nPoint & "点、成績は" & .sMarkString & "です。")
　　　　　　End With
　　　　Next
　　End With
End Sub

[clsMarks]
Option Explicit
Private m_col As Collection
Private Sub Class_Initialize()
　　Set m_col = New Collection
End Sub
Public Property Get Item(vIndex As Variant) As clsMark
　　Set Item = m_col.Item(vIndex)
End Property
Public Property Get Count() As Long
　　Count = m_col.Count
End Property
Public Sub SetTestData()
　　Call AddNew("A氏", 60)
　　Call AddNew("B氏", 82)
　　Call AddNew("C氏", 87)
　　Call AddNew("D氏", 50)
　　Call AddNew("E氏", 56)
　　Call AddNew("F氏", 86)
　　Call AddNew("G氏", 89)
　　Call AddNew("H氏", 76)
　　Call AddNew("I氏", 58)
　　Call AddNew("J氏", 68)
End Sub
Private Sub AddNew(sProgrammerName As String, nPoint As Long)
　　Dim mark As clsMark
　　Set mark = New clsMark
　　mark.sProgrammerName = sProgrammerName
　　mark.nPoint = nPoint
　　Call m_col.Add(mark, sProgrammerName)
End Sub

[clsMark]
Option Explicit
Public sProgrammerName As String
Public nPoint As Long
Public Property Get sMarkString() As String
　　'Select Caseでは得点の範囲が分かりづらいため、ElseIf を用いた
　　If (nPoint < 60) Then
　　　　sMarkString = "不可"
　　ElseIf (nPoint < 70) Then
　　　　sMarkString = "可"
　　ElseIf (nPoint < 80) Then
　　　　sMarkString = "良"
　　ElseIf (nPoint <= 100) Then
　　　　sMarkString = "優"
　　Else
　　　　sMarkString = "対象外"
　　End If
End Property

ListViewで
「どの項目も選択されていなければ」
というのはどうやってあらわせばいいのでしょうか。
SelectedItemなどを探ったのですがわからず・・・・。
おねがいします。

>>602
601の回答の通りだ。
サブクラス化せい。

>>615
試してないけど、
If listview1.SelectedItem Is Nothing Then
MsgBox "選択されてない"
End If
じゃだめかな？

>>617
でけますた。
なるほど、Nothingを使って判定すりゃよかったんですか。
すばやいレスありがとうございました。

winsockを使ってのデータのやり取りをするソフトを製作中なのですが、
データをＳＥＮＤするときに、
winsock1.SendData Chr(&H65) + Chr(&Hfa) + Chr(&H86) + Chr(&Hed)
とやると送るデータが、パケットエディタで見てみると　"65 00 00 00" となって、ぜんぜん

違うデータが送られてしまいます。

そして、送られてきたデータもパケットエディタで見てみると
winsock1.RecvData "86 ed 02"　が送られてきたはずなのに
データを受け取るともうすでに"00 00 02"に変わってしまってどうしようもありません。

どなたかこれを打開する方法をご存知の方はいらっしゃいませんでしょうか？

>>619
そんなはずはありません。

>>619
文字列で暗黙のUNICODE変換が起きるのは常識。
バイト配列を使えばその問題は回避できる。

>>621
言いたいことはわかるが、説明は違ってる。

&HFA、&H86、&HEDのどれももSHIFT JISで(というかASCIIコードで)
未定義だから、送信云々の前に文字化けしてるだけ。

イミディエイトウィンドウで以下のように打ってみるとわかる。
? Asc(Chr(&H86))

なるほど。

ふむふむ、バイト配列で送ればいいのですか。
そうすると、
dim byte1() as byte
winsock1.recvData byte1
で、データを受け取って
ええと、送信時に　&H65　&Hfa &H86 &Hed
をＳＥＮＤするのはいったいどうやったらいいのですか？

VBでソートを書く課題がでて
どうソートするかをパラメータで渡そうと思ったのですがうまくいきません。
Cでいう関数へのポインタみたいなのがあればいいんですが・・・。
VBではどうすればいいんでしょうか？

>>624
>をＳＥＮＤするのはいったいどうやったらいいのですか？
何がわからんのかわからん。受信と同じじゃないか。ヘルプ見れ。

それとWinsockコントロールならrecvDataじゃなくてGetDataじゃないのか？

こういうところも貼っておいてやろう。
ttp://www.cs.k.tsukuba-tech.ac.jp/labo/koba/software/winsock.html

>>622
英語版のVB6では、あれでうまく行くんだけど。

>>625
>どうソートするかをパラメータで渡そうと思ったのですがうまくいきません。

どうソートするってのが、比較方法のことを言っているのだったら、
イベントを使うべし。

>>628
>イベントを使うべし。
イベントって「ボタンが押された」とか「ウィンドウが閉じられた」
ってのですか？
「降順が選ばれた」「昇順が選ばれた」というイベントを作るということでしょうか？

>>629

Cでならどう作るつもりだったんだい？
qsort関数のように比較する部分を別の関数にしてそれのアドレスを渡すよね。

RaiseEventステートメントでイベントを起こすことができるが、
これはつまり処理の一部を別の関数に渡すようなもの。
ソート処理の途中の値の比較をする部分でCompareイベントを起こし、
Compareイベントには実際の比較を行う処理を書く。

現在、開発する時に困っていることが有ります。
コントロールを配置しようとして、フォームにマウスポインタが
入るとポインターが消えてしまうのです。
配置はできるのですが、ポインタが見えない為、非常に困っています。

これといった設定はいらっていない筈なのですが、
VBの環境設定で配置時にポインタを消したり表示したりする項目
が有るのでしょうか？。
自分で設定部分を見回しましたのですが見当たらなかったので
対処できなくて困っています。
ご存知の方対処方法をお教えください。

>VBの環境設定で配置時にポインタを消したり表示したりする項目
>が有るのでしょうか？

ありません。
再起動してもなおりませんか？
最近、入れたソフトとかバージョンアップしたソフトとか環境的に
何か変えませんでしたか？

最悪、VBの再インストール、あるいは、OSからの再インストールくらいですかね。

早速のレスありがとうございます。
ご指摘の内容から推測して、多分FAVOタブレットドライバを
をインストールしたのが原因なのかもしれません。
先ほど、そのドライバをアンインストールしてみたのですが、
解決しないので、これからVBの再インストールを試みます。
ありがとうございました。
後ほど、あらためて結果報告をします。

>>633
>ご指摘の内容から推測して、多分FAVOタブレットドライバを
>をインストールしたのが原因なのかもしれません。

うーん、私もFAVO使ってるけど、とりあえずそういう現象は起きてないな。
Win2000SP2+VB5SP3+FAVO F-410

VBで作ったアプリをWin起動時に実行したいんですけど
スタートアップにはいれたくありません。
どうすればよいでしょうか？

>>635

HEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\run
にアプリのパスを登録しとけ。

>>630
ヘルプで調べてみたんですが、
「イベントに戻り値は存在しません。」
イベントを起こして比較処理をそこに飛ばしたあと
比較した結果をどう得るんでしょうか？

すいません。今日でVB4日目なんです・・・。

>>636
さんくす。

>>637
イベントの引数は参照渡し(ByRef)にしておけばいい。
ByVal/ByRefを引数に指定しなかった場合は、
VB6まではByRef扱いだから、意識してByVal指定にしてなければ、
引数をイベント内部で変更すれば、そのまま呼び出し元でそれを使える。

>>639
ありがとうございます。
それでやってみます。

イベントの作り方をしらべないと。

>>637
VB4日目でソートのお勉強か、うちの会社なんて4年もVBやってて
バブルソートもできない奴らばっかりだぜ。
C経験者なのかな?

ICompareインターフェースを用いたソートのソースが
http://www.gj.il24.net/~nakasima/
の「汎用アルゴリズムライブラリ （未完成・開発中） 」
で落とせるよ。

>>641
サンプルありがとうございます。

VBのことを検索しても、なんか「VisualBasicというアプリ」の使い方
を説明してるようなところが多かったので、そういうページを
教えていただいて助かりました。

Cは少しやってたので、アルゴリズム自体は問題ないんですが、
それをVBでどう書いたらいいのかがわからないんです。

ま、勉強します。

質問です。

今、或るフォルダに10000枚ぐらいのファイルがあるんですけど、
そのファイル名を全部取得したいです。

ファイルシステムオブジェクトを使うとやたら遅いので、標準コントロール
のFileListBoxを使ってみました。そうすると無茶苦茶高速に取得できました。

ただ、FileListBoxはコントロールをフォームに貼り付けないとダメみたいです。
実行時にバインディングするような方法はないでしょうか？

結局は、標準コントロールを実行時にバインドする問題だと思いますが。

例えば、
Dim A as FileListBox
のようにして使いたいのです。

＞＞６４３
API使ったら？

使いたいのは、やまやまなんですが、どんなAPIを使ったらいいのか分かりません。

で、今、調べたら、標準コントロールは、実行時にバインディングできないみたい
ということが分かりました。

あ〜〜、うつ・・・・

なんかいいAPIあったら教えてください。

>>643
Dirの方が速いと思うけど、

Option Explicit
Dim WithEvents O As FileListBox

Private Sub Command1_Click()
Set O = Form1.Controls.Add("VB.FileListBox", "O")
O.Visible = True
End Sub

Private Sub O_Click()
MsgBox "Ouch!"
End Sub

こういうことかい？

コードで生成するなら、はなっからフォームにはっつけといてもいいんではないの？
なんかコードで生成することの利点ってあるの？

レス、ありがとうございます。

Dirをちょっと試してみます。

Controls.Addの方は、ちょうど今やってみました。

さっき書いていませんでしたが、クラスを作りたいので、
Controls.AddだとコンテナであるForm1が必要になるわけで、
無駄に引数を増やすし、もっと簡便な方法はないのかと思います。

取りあえず、Dirをやってみます。

ありがとうございました。

＞＞６４３
http://thanks22.cool.ne.jp/sample/ex101.html

お〜〜、ありがとう！！！
と、思ったら、Cですね＾＾；
頑張って、読んでみます。

Dirできました。高速でした。

いらないかもしれないけど、コード書いておきます。
短時間にいろいろとレスありがとうございました。


'あるフォルダの中にある、ファイル名を取得する。
Public Function GetFiles(ByVal strFolderPath As String, _
Optional strMatch As String = "*.*", Optional isFullPath As Boolean = False) As String()
On Error Goto eh

Dim strA() As String
Dim i As Long
Dim aFile As String

If Right(strFolderPath, 1) = "\" Then strFolderPath = Left(strFolderPath, Len(strFolderPath) - 1)

aFile = Dir(strFolderPath & "\" & strMatch, vbNormal + vbHidden + vbSystem)
i = 0
Do While aFile <> ""
ReDim Preserve strA(i)
If isFullPath Then
strA(i) = strFolderPath & "\" & aFile
Else
strA(i) = aFile
End If
i = i + 1
aFile = Dir
Loop

GetFiles=strA()

Exit Function

eh:

End Function

Form1で全体に宣言した（Form1のコードの一番上に書いた）
変数があるのですが、これを別Formから読み取りたいんですけど
どうすればいいんでしょうか。コントロールの値とかなら
Form1.Label1.Caption　という形でとれますが
変数の場合はどうやったらいいのか・・・。
それともまた別のところで宣言しておかなければならないのでしょうか。
VB始めたばっかなんでふざけた質問だと思うんですが
よろしくお願いします。

標準モジュールとかでパブリックな変数として宣言、とか。
関数で渡す、とか。

public a as string

で

form1.a

でOK

>>652
できますた。ありが�d！

おっとみす。　>>652-653　だね。また頑張ってみます

>>614
＞'Select Caseでは得点の範囲が分かりづらいため、ElseIf を用いた
＞ElseIf (nPoint < 70) Then
ずっと見やすいと思うけどなあ。
Select Case nPoint
　　Case 0 To 59
　　Case 60 To 69
　　Case 70 To 79
　　Case 80 To 100

質問です。

動的配列が割り付けられているかどうかを判断するような方法はないでしょうか？
例えば、

Dim a() as Byte

といった場合、isArray(a)を使うと、割り付けられていなくても、Ｔｒｕｅを返してしまいます。

Nullかな？と思ったけど、違いました。

一筋縄じゃいかないということなのでしょうか？

>657
VBはよく知らないが　
Dim a() as Byte　で a は　BYTE配列の属性となるので（多分）
isArray　でなく配列の要素数を得るメソッド／プロパティが
あるんじゃないの？

>>657
UBound＋エラーで判定。

>>659
なんかすっきりしないけど、それしかないのでしょうね。
う〜〜ん・・・。

>>660
SafeArrayGetDim。（未確認)

>>641のリンク先にソースがあったよ。

Inetコントロールについてっす。

今、cgiを使ったHPの結果として次のようなアドレスを持つHPが表示されたとします。
http://www.aaa.co.jp/cgi-bin/bbb.cgi?ccc=ddd&eee=fff&ggg=hhh

この操作をInetコントロールで実現しようとした場合、

Inet.Execeute "http://www.aaa.co.jp/cgi-bin/bbb.cgi",POST,"ccc=ddd&eee=fff&ggg=hhh"
をして、
Inet1_StateChangedのicResponseCompletedのあとに
GetChunkをやればいいようですが、どうもうまくいきません。

自分としては、POSTの後の引数の&が引っかかるのですが、解決方法が分かりません。

むずかしい・・・

結果報告。
VBをアンインストールして、
その後インストールして試しました。
結局、カーソルの表示がされないままでした。
次のOS再セットアップまで、我慢して使うことにします。

>>660
即レスさんのSafeArrayGetDimでやったことあるけど、
UBoundをエラートラップするのが一番シンプル。

前にソートのことで質問した者です。

何種類かのソートを書いて実行時間をはかりたいんですが、
時間をはかる関数は

start = 今の時間
ソートする
end = 今の時間
end - start を返す

という流れになるので、何ソートなのかは関係ないですよね？
こういうのもイベントを使って処理するのですか?

いまは、各ソート関数毎に上のような処理があってきれいでないです。

PopupMenuについて質問です。
Form1上では　Popupmenu メニュー名　でちゃんとポップアップメニューが出るんですが
Form2（vbModal付きで呼び出した）で同じようにPopupを出そうとしても
なぜかメニューが表示されません。
Form1、Form2では別々にメニューを作って
表示させない（VisibleをFlase）ようにしてそのメニューをPopupMenuで
呼び出しているのですが・・・。

こういうものなのでしょうか。それとも本当はこれで出来るはずなのでしょうか。
もしこれではうまくいかないはずなら、対処法を教えていただきたいです。

>>665
１．Sortメソッドを持ったインターフェースなんかを作っておいて、
各ソートはそのインタフェースを実装したクラスにする。
２．Collectionにあらかじめそれらのソートを登録しておく。

Dim sorter As ISort
Dim sortCollection As Collection

For Each sorter In sortCollection
　　データ用意
start = 今の時間
sorter.Sort(引数)
end = 今の時間
end - start を返す
Next
とかどう？

すみません。ShellExecuteをつかってファイルを開くことをやっているのですが
これだと関連付けされていないファイルだと何も起こりませんよね。
そこで
関連づけされているかされていないかを調べたいのです。
もちろんVBのコード上から（ｗ　どうやればいいのでしょうか。

VB6です。

age忘れた・・・

>>665
一度にすべてのソートの実行時間をはかるのではなく

「バブルソート」ボタンでバブルソートをして時間をはかり表示
「クイックソート」ボタンでバブルソートをして時間をはかり表示

という風にしたいんです。

でも、教えてくれた方法をちょっと変えて
ISortが
public sub Sort(target() as long)

ISortをimplementsした各ソートクラスをつくり

時間をはかる関数の引数を
public sub getSortTime(target() as long, sorter as ISort)
として
呼び出すときに
Call getSortTime(myarray, new BubbleSort)
や
Call getSortTime(myarray, new InsertionSort)
とするようにしてみました。

ありがとうございました。

>「クイックソート」ボタンでバブルソート
「クイックソート」ボタンでクイックソート
です。

ファイルをリネームしたいんですけど
何か簡単な方法があるのでしょうか。
コピーしてから元を削除、とか危険っぽいのでやりたくないのですが。

>>668
ならFindExecutableで分岐すべし。

>>672
Name oldpathname As newpathname

昨日の夜からVBはじめた中2のコーです。

すっごい初心者の質問ですみませんが、簡単に書きますと、

Sub Command1_Click()
Message "Command1"
End Sub

Sub Command2_Click()
Message "Command2"
End Sub

Sub Command3_Click()
Message "Command3"
End Sub

……
のようにCommandボタンが50個ほどあって処理はすべて同じなのですが、
こういう場合はどうしたら簡単にまとめられるのでしょうか。
Command1〜Command50のコマンドボタンのうち、どのボタンが押されたかという
条件をつくればいいのでしょうか（やり方がわかりませんが…）。
それとも上記のように、サブプロシージャを50個用意しなければいけませんか？
お手数ですが、教えていただければ助かります。

>>675
コントロール配列を調べれ。

Messageとはなんぞや？？？

Msgbox　とやりたいんだろ・・・。

すみません、他のアプリケーションで表示させるためにMassageと使っています。

他の　アプリケーション　で　表示　させる　ため　

・・・？

えと、htmlにvbsを埋め込んでCommand1というボタンの画像が押されたら
アプリケーション側でそのボタンが押されたというメッセージを表示するという
スクリプトを作っています。
Massageを使うと、アプリケーションログに表示されるのでアプリケーション側で
用意されているものでした。

上記の例ではMsgboxで書けばよかったですね。混乱させてすみません…。

ほとんどのコントロールにある Tag プロパティは、どのような用途に使うのがベストでしょうか。
そのコントロールと全く関係無い「情報の置き場所」として使うのはやはり邪道ですか？

そんな
ことは
ない

>>682
Tag は訳すと「札」
札にはお経を書こうが、値段を書こうが、名前を書こうがなんでもいい。
なのでTagには何を書いても(･∀･)ｲｲ!と思われる。
だから「何がベスト？」と言われても答えれん。

>>662
URLエンコードしてみたら？

Tagプロパティという存在がある意味邪道だから、
何を入れてもOK。

ありがとうございました。
何に使ってもいいけど、濫用は禁物ってとこですかね。

(´-`).｡ｏＯ（……誰も濫用は禁物なんて書いてないと思うんだが……)

>>685
ん？
URLエンコード？？？
どうするんですか？

http://motsu.design-eyes.jp/motsu/jb_cgi/bbs/bbs.cgi

>>675
どこかにCommandとかいうコマンドボタンおいといて
Private Sub Form1_Load()

Dim I As Long

For I=1 To 50

Load Command(I)
Command(I).Vislba=True

Next I

End Sub

Private Sub Command_Click(I As Integer)

Msgbox "Command" & I

End Sub

Command(1)から(50)までは同じ座標に出されるので注意。

>>682
そのうちわかる。

質問です。

DataReportを使ってACCESS2000（MDB）からのレコードを抽出したいのですがどうしてもうまく行きません。

ソースはこんな感じです。
特にバグは出ないのですが、最後の一個（一行）しか表示してくれません。

ListBoxで選択された物（No）をレポート表示すると言う物です。
-----------こんな感じのソース--------------
Private Sub sql_module()
　　For n = 0 To List1(Klist).ListCount - 1
　　If List1(Klist).Selected(n) Then
　　　　List6.AddItem List1(Klist).List(n)
　　　　Add1 = List1(Klist).List(n)

　　K_sql = "SELECT * FROM 製造受付表 WHERE No='" & Add1 & "'"
　　Set K_Connect = CreateObject("ADODB.Connection")
　　K_Connect.ConnectionString = K_PROVIDER
　　K_Connect.Open

　　Set K_recordset = New ADODB.Recordset
　　K_recordset.Open K_sql, K_Connect

　　' レコードセットを取得する
　　Set K_recordset = K_Connect.Execute(K_sql)

　　Set DataRep3.DataSource = K_recordset
　　With DataRep1.Sections("Section1")
　　　　.Controls("Text1").DataField = "日時"
　　　　.Controls("Text6").DataField = "No"
　　End With
　　End If
　　Next n
　　DataRep1.show
End Sub
---------------------------------------

>>691さんありがとうございます。

どうも、htmlに埋め込んだVBSではできないようです…。
ちょっと先の例だと、VBになってしまうのでもういちど書きますと、

html上でボタンの画像を50個配置します。それぞれの名前をCommand1、Command2、…　Command50にします。
このボタンのいずれかが押されたときにそのコマンドの名前を取得したいのです。

Sub Command1_OnClick
Msgbox "Command1"
End Sub

Sub Command2_OnClick
Msgbox "Command2"
End Sub
…
単純にこの方法ならわかるのですが、VBSで「Sub Command2_OnClick」の「2」をコントロール配列の
要素番号のように区別する方法がわかりません。
htmlの画像にはどうもVBのように配列要素の番号はつかないためどのようにすればいいのでしょうか…。

INIファイルから情報を取り出そうとして、
GetPrivateProfileString Lib "kernel32"
というＡＰＩを使ってみたんですが、
予想される文字列の長さよりもあらかじめ長いバッファを取っておくために、
帰ってくる文字列は後ろに･･･みたいなのがくっついてきます。

これをきちんととるにはどうすればいいんでしょうか？

Text1.Text を通すと後ろのゴミが切り取られるようなので、
とりあえずそれにしておきました。

>>696
それ以外の方法確認してない

strValue = Left(strbuf, InStr(strbuf, vbNullChar) - 1)

これがよかった。

構造体の質問なんですが。
type aaa
Name As String
Flag As Long
Size As Long
end type
dim wka as aaa
・・・とかって宣言した変数の値を、配列に時みたいに記述して取得する方法ってありますか？
　たとえば、「Size」の値を取得したいとき、「wka(1)」とかって書きたいんですけど。

　バージョンは、ＶＢ６ＳＰ５で　ＯＳはＷＩＮ２０００ＳＰ２です。おねがいします
　

>>699
無理じゃないかな・・・。わからんけど。
どんなメリットがあるんだろ？

>>700

　固定長のテキストを読み込む処理なんですが、レイアウトが８種類ほどあるんです。扱うデータは同じなんですが、、、
　
　実際には、、、
type aaa
　　Name As String(10)
　　Flag As String(2)
　　Size As String(10)
end type
type bbb
　　Name As String(12)
　　Flag As String(4)
　　Size As String(8)
end type
　という構造体を用意して、Getでそれぞれに読み込んで使用してるのです。
　で、読み込んだ値を参照するときに、今は、
dim wka as aaa
dim wkb as bbb
sub subuu(kubun as integer)
dim NameDisp as string
　　select case kubun
　　　　case 1
　　　　　　NameDisp = wka.Name
　　　　case 2
　　　　　　NameDisp = wkb.Name
　　end select
end sub
と書いているんですが、レイアウトの種類が今後さらに増えた時に対処が
このままだと大変かなかなぁと思ったもので、、、

type aaabbb
　　wka as aaa
　　wkb as bbb
end type
という構造体を追加して、
dim wkab as aaabbb
sub subuu(kubun as integer)
dim NameDisp as string
　　NameDisp = wkab(kubun).Name
end sub
と記述できないかと思ったわけでした。

ありがとうございましたです。

　ちなみに、すなおに構造体の変数を配列に入れようとすると、
　「ﾊﾟﾌﾞﾘｯｸｵﾌﾞｼﾞｪｸﾄﾓｼﾞｭｰﾙで定義されたユーザー定義型に限り、変数に割り当てることができ、
実効時ﾊﾞｲﾝﾃﾞｨﾝｸﾞの関数に渡すことができます。」っていうコンパイルエラーになりますよね。
　

>>701
Name Flag Size という名称は、変わらないわけね。
面白いアイデアだけど、8種類レイアウトがあるという仕様がアフォ。

>>703

　まぁ、ふつうこんな仕様にはしないですよね・・・
　でも、１９９９年のデータから、年のフィールドが４バイトになっているあたりは、
しょうがないかぁ、と思って書いてたりしてますです。

皆さん、木構造を作るときはどうされてるんでしょうか？
ポインタ無しだと、配列でやるしかないですよね。一応VB6です。

>>705
ポインタが無い代りに参照がある。

>>701
いまいち内容を理解していない気がするが、

共通の構造体を作って、
type kyotu
　Name As String
　Flag As String
　Size As String
end type

読み込んだ値を参照するときに、それぞれの構造体から見るんじゃなく、
共通構造体への代入関数をレイアウトごとに作って、最初に共通構造体
に入れておけばいいんじゃないの？

音量をコントロールしたいのですが、
簡単なやり方を教えてください。

msiでインストールした任意のアプリケーションのフォルダを、
VBアプリから検索するにはどうすればいいんですか？

>>709
おやすみなさい。

>>708
キャプションに「音量コントロール」と書かれたボタンをフォームに貼り、
ボタンが押されたら「ボリュームのつまみを回して音量を調節してくだい」と
メッセージボックスを出す。

>>708
耳に両手をあて、
音量を小さくしたいときは密着させるように、
大きくしたいときは離すようにする。
フィルター効果で特定の周波数域をカットする効果もあるので一石二鳥。

>>710
あら？もう寝ちゃうの？
おやすみなさ〜い♪

UNIXにはgettimeofdayというUNIX 時間を求める関数があるのですが、
同じ機能を持つ関数はVBにありますか？
1970年1月1日0時0分0秒からの経過時間ということはわかっているので
TimeとDateを使って自前で計算するしかないでしょうか？

>>714
そだね。

>>715
わかりました。
GetSystemTime APIも視野に入れてみるか…
どうもです。

VBから、cabファイルを解凍しよと思い、

Public Declare Function ExtractFileFromCab Lib "vb6stkit.dll" (ByVal Cab As String, ByVal File As String, ByVal Dest As String, ByVal iCab As Long, ByVal sSrc As String) As Long

というのを使うことにしました。
ところが、引数に何を入れればいいかよくわからず、
いろいろ試してみましたがうまくいきません。

どうしたらよいのでしょうか？

結局わからなかったので、CAB32.DLL の方にしました。
こちらの方はweb上に参考になるのがたくさんあったので。

ＶＢでコマンドプロンプトを操作することは可能ですか？
例えばボタンを押したらコマンドプロンプトのDIRを実行するとか、
すごく簡単なことかもしれませんがお願いします。

>>719
Shellで
cmd /k dir
を実行すればいいんじゃなかろか。

>>701まったく意味不明だ。
設計が間違ってると思うとかそういうのはおいといて・・・
というかコンパイルより前に文法的にそのコードは通らないと思うが。

formにwebbrowserコントロールを追加して起動時に同じディレクトリにある
index.htmlを表示させたいのですが、実行するとﾌｧｲﾙの一覧が表示されるだけ
になってしまいます。どうやったらindex.htmlを表示できるでしょうか？
ｺｰﾄﾞはこう書きました。
Private Sub Form_Load()
WebBrowser1.Navigate App.Path
End Sub

10 rem
20 dim a(20),b(20)
30 for i=i to 20
以下略

で数値をいくつか入力するとその数字と順位が表示
されるようにしたのですが平均値も表示するには
どうしたら良いのですか？

WebBrowser1.Navigate App.Path & "/index.html"
にしたら解決しました。

スレッド間違えました

>>714-716
VBにはDateDiffっつうチョー便利な関数があるですよ。
俺も昔はこの関数の存在を知らないでDateとTimeで計算してた。ｶｺﾜﾙｲ。

>>723
合計して、データ個数で割る。

>>723
平均値を計算して表示するといいよ

VB6のランタイムセットをインストールしようとすると
not　found　になります
過去すれ見ても乗ってません
誰か教えてください
ちなみにXPです

>>729
PC初心者
http://pc.2ch.net/pcqa/

相手してやるから来い。

お聞きしたいのですが、
CreateMenu
CreatePopupMenu
AppendMenu
上記の３つのAPIを利用してメニューを動的に生成する関数を作ったのですが、
ショートカットの割り当て方がわからないのです。
最上位階層メニューのキャプション名に"メニュー１(&h)"と言う風に指定すると確かに
ALT+h でショートカット起動できるのですが、下の階層のメニューを起動しようとしても
できないのです。
メニューエディタではショートカットを選べ Ctrl+A　と言う風に指定できるのですが、
その設定はメニューのどのプロパティを指定すればいいかわかる方おられましたら
お教え下さい。
よろしくお願いします。

WIN2000上で、vb上からワークフォルダを作成して、
その後rmdirなどで削除しようとしても削除できません。
そのvbアプリ起動中は、時手動でも削除できなくなってます。

削除するにはどうすればいいですか？

>>732
ファイル開いて閉じてない。
中にファイルが残ってる。
なんで削除の時だけ外部コマンドやねん。

>>733
当然中のファイルは
kill Path & "*.*"
ですべて消してからの出来事です。

RemoveDirectory でもだめでした。

アプリでフォルダをつかんでるためだと想われるんですが、
どうやって解放すればよいかわかりません。

らっきー♪
解決しました。

731ですが、C++プログラマに聞いてみたところ
LoadAccelerators
というAPIを使うとメニューにショートカットが追加できるみたいです。
でも、このAPIはVBから呼べるのでしょうか？
お知りの方おられましたらお願いいたします。

>>736
VBから呼べないAPiってあんまり無いと思われ。
取りあえず聞く前にAPIビューアで登録して試して見なされ。

一昨日から始めました。
試しに電卓作ることにしました。
８進も１６進もあるのに
どうして２進変換だけ標準関数にないんですか・・・？
なんとか作れましたが無駄な労力を使った気がして納得行きません・・

>>738
滅多に使わないもんって言うのが理由泣きがします。

>>738
作者がアルゴリズムを思いつかなかったからです

>>729
not foundってなんじゃい。何が見つからないのかわからんじゃないか。
Path Or File Not Foundじゃないのか？
だったらFAQだ。

>>738
HexやOctは旧時代のBASICからあるからね。
マシン語を普通に直打ちしてた時代からな。

こんにちは！
２つほど質問させてください！
１、Ｆ１キーを押してもいないのに押した状態にするにはどうしたらいいでしょうか？
２、ExitWindowsEx(API)でWindowsＸＰを終了させようとしているのですが、「電源を切れる状態になりました」になってしまい、電源がおちません。これはなんとかならないのですか？

>742　１．
ハンドル取得して、SENDMESSAGEではいかが。
あれ・・・んっ？まさか、物理的にF1キーが自然に沈む状態を希望してるのかっ。

>>742
２．OSにﾀｽｸを返せばﾖｼ!
Sleep()使ってミソ

>まさか、物理的にF1キーが自然に沈む状態を希望してるのかっ。
不覚にもﾜﾗﾀ

１．のやり方（関数）の説明
http://www68.dns.ne.jp/~bbs2/upload3/helen/OB00014094.jpg

>743
ハンドル取得して、SENDMESSAGE
ごめんなさい、ネットでしらべてはみたんですが、その辺の情報が見当たらなかったのでよろしければもうすこし詳しく書いていただけませんか？
>744
Sleep()って関数ないみたいなんですが・・・

>>742
(回答1)
1.セロハンテープ(超極薄)で微妙に固定。
2.コンセントを抜く。
------------------
(回答2)
1. keybd_eventかSendInput関数でどうだろう。
2. 権限ある？EWX_POWEROFFを指定してる？
http://www.bcap.co.jp/hanafusa/VBHLP/tap_winEnd.htm

>>744の意図は知らんが、
SleepはAPI関数だぞ。>>747

質問ですVB上からアクロバットを起動させるプログラムを作りたいんですが
そのためにインストールしてあるパスを取得させたいんです。

アクロバットの場合VerごとにEXEまでのパスが違くなってしまうので、
何処にインストールされても起動できるようにRegOpenKey関数を使ってみたんですが
これだと最初に"\\パス\ファイル名.pdf"の形で渡してやらなければインストールパスを
返して貰えず必要の無いダミーのPDFファイルを用意することになってしまい
よろしくなさそうです。

どなたか良い方法があればアドバイスお願いします。

>>749
VBは知らないが、Win32API で直接レジストリから引っ張ってくればよい。

>>749
オチの予測　RegOpenKeyをファイルをオープンする関数だと思っている。

だぁーすいません
使っていたのはこっちの関数です。
FindExecutable（）

RegOpenKey関数は使ってませんでした。

数値データをテキストで保存する方法教えてください。
読み出す方法も教えてください。

>>753
プログラマやめろ。日曜でもそうじゃなくても。

>>754
プログラマではなく高校生です。

>>755
じゃ高校中退して、何か体を動かす仕事でもしなさい。

>>753
openでファイル開いてputで書き込んでcloseでファイルを閉じる
読むときはgetで読み込む
ガッコいけよ、、、

>>754
なんでここはそういうﾔｼが多いんだ。
純粋に勉強始めたばっかかもしれんだろうが。
君にだって最初はあったはず。

最初にそういうころはあった。当然あった。誰にでもあった。
でも、そんな基本的なことはそこらへんに情報が腐るほど転がってる。
それを自分で調べることは当たり前。
でも、いきなり聞いてきた。
だから叩かれた。
それを理解しないとネ。
まぁ、言い方きつすぎるとは思うけど。

引数に、ロングファイルネームを使うにはどうしたら良いか分かりません。
調べる手がかりだけでもいいので教えてください。お願いします。


Set WshShell = CreateObject("WScript.Shell")
WshShell.Run "xxxx aaaa"

という感じで、xxxx aaaaの部分をロングファイルネームで書きたいのです。

WshShell.Run """xxxx"" ""aaaa"""

で動きました。お騒がせしました。

>>760
問題を分けるために、
1) c:\temp\aaaaaaaaaaa.exe みたいな簡単フォルダ名＋ロングファイル名で試す
2) c:\a b\a.exe みたいな間にブランクをはさんだフォルダ名で試す
で試してみるといいかもしれん。

Windows で、検索を行っている時などにでる、
虫めがねがくるくるしているやつを利用したいんですが、
Visual Studio のどっかにあるんですか？

>>763
検索の時に出てくるのはShel32.dllのカスタムリソース"AVI"の151だな。

Shel32.dllじゃなくてShell32.dllだ。

>>765
丁寧な解説ありがとうございます。
でも取り出しかたがわかりませんです。

>>766
Win32APIでやるならLoadLibraryしてGetProcAddressだがVBは知らん。ｽﾏｿ
ついでに>>764の情報はWin 98での場合だ。NTとかはもしかすると違うかもしれないが
手元にNTマシンがないから未調査。

>>767
APIビューアで宣言探してきてソースにコピー。

>>757
ありがとうございました

>>763
C:\Program Files\Microsoft Visual Studio\Common\Graphics\Videos
に似たようなのがあったが、これじゃだめ？

コントロール配列を使ってるんですが、
特定のindexのコントロールが存在するかどうかを判定するにはどうすればいいでしょうか。
エラートラップするしかないですか？

>>771
ループって言う便利な構文がある。

うお、めちゃめちゃレス早いですね。
ループは当然回します。
そのループの中で、そのindexが使われてるかどうかを知りたいわけです。

変数の前にたまについてる$ってなに？

>>774
文字列。

>>773
もしある値のindexがあれば

条件分岐と言う便利な構文がある。

>>770
ありがとうございます。
私のは、
Common以下にそのようなフォルダがありませんでした。
インストールされてなかったのかな。

>>776
用はそのコードが知りたかったわけです。
存在しないindexのコントロール配列のプロパティをいじっちゃうとエラー出るので。

「知りたかった」
じゃなくて
「知りたい」
か、まだ分からない。

For i=0 to command1.count
　if iのindexあったら then
　　command1(i).caption="なんか"
　end if
next i

ってしたいわけです。
ifのぶぶんの、”iのindexあったら”って部分の書き方がわからんのです。

>>778
でもコントロール配列はデザイン上で自分で決めるから、
実行中に変更されることはないだろ。

>>779
For i=0 to command1.count - 1

この範囲のインスタンスは保証されてないか？

>>780
Load コントロール名(index)
ってやると動的に生成されますが何か？

ユーザーが動的にスキなindexのコントロールをunloadしたりloadしたりできるんです。
だから123があって4がなくて5があって6がなくて78があるとか、バラバラで。

>>779
それをやるなら、

For i=0 to command1.UBound

だよ。

>>783
その情報をプログラム内で管理しとけばいいだけのことじゃないのか？

>>785
ええ、そうやってるんです。今は。
だから知的好奇心で聞いてるだけです。
「そのindexが使われてるか知ることができるのかなー？」って
わざわざ自分でユーザーのunloadやloadを管理しなくても、
if文一発で使われてるかわからんかなー？と。

Dim cmd As CommandButton
For Each cmd In Command1
Debug.Print cmd.Index
Next cmd

エラートラップした関数を用意すれば一発だ。

うーん、やっぱり簡単な方法はないみたいですね。
色々参考になりました。
ありがとうございました。

行き詰まり中です。
Win2000の環境で、LAN接続状態をVBでひろいたいのですが
何か良いAPIとかないですか。
なにか良い方法があればご教授ｷﾎﾞﾝﾇ。

790ですが。ホントにすんまぞん。API板に逝ってきます。

APIスレ、でした。鬱

>>789
こういう関数用意すれば IF 文で一発だよ。

Private Function isExists(obj As Object) As Boolean
On Error GoTo M_Error

Dim lngRet As Long

lngRet = obj.TabIndex
isExists = True

M_Error:
End Function

>>793
今私もちょうどそんな関数を作ってみたところでした。
↓こんな感じで。

Function ExistenceIndex(CheckObject As Object, Index As Integer) As Boolean
On Error GoTo err

dim temp
temp=CheckObject(Index).tag
ExistenceIndex = True
Exit Function
err:
ExistenceIndex = False
End Function

Private Function IsExsist(ByVal obj As Object, ByVal index As Long) As Boolean
Dim o As Object
For Each o In obj
If o.index = index Then
IsExsist = True
Exit Function
End If
Next o
IsExsist = False
End Function

どっちの方が早いんだろうね。
エラートラップ方式と>>795方式。
俺は試す気ねーけど。

>>795
はループ回数が多くなって遅そうだけど、
エラートラップも実は気に入らない。。
っていうか、それなら最初から、

Dim o As Object
For Each o In Command1
o.caption="なんか"
Next o

ってやるのが一番いいんじゃない？

>>796
はぁ、そんなこと書くから試してしまったじゃねーか。
比較したのは>>794と>>795のコード。
ただし>>794はTagがいやだったのでIndexに変更(もちtempの型もね)

Indexが存在する場合、ループの方がエラートラップ方式の最低で3倍かかる。
ループの方はIndex番号が大きければ大きいほど、時間が増える。
Indexが小さい順に取得されることが保証されているなら少しは改善できるけど。
エラートラップの方はIndex番号に関わらず一定。
ハッシュでも使ってるんだろうな。

Indexが存在しない場合、、ループの方がエラートラップ方式の3倍かかる。
Indexが存在する場合に比べてエラートラップ方式が極端に遅くなる。

まぁ、適当な測定なので信用しないでくれ。

ループ方式は遅いがエラートラップ方式は設定により停止することがあるからデバッグがしづらくなる。
俺のお勧めは、IDE実行時はループ方式、EXE実行時はエラートラップ方式に自動切換え。

唐突に質問。
VBから起動したExcel（名前はまだなし）を
プログラムで所定のフォルダに名前を付けて保存するには
どうすりゃいいの？
初心者につきコード希望です。

>>799
http://www.bcap.co.jp/hanafusa/
ここにＶＢでエクセル扱う方法載ってるからみれ。

>>800
あんがと！
行ってくる。

どうもExcelとかWordとかの多いんだな

>>801
マ板で質問してた奴だね

教えてください

VBでソケットコントロールを使ってサーバプログラムをつくりたいんです
TCPで教えてください

手順１　sock.localport = 4545
手順２　sock.listen

これでﾎﾝﾄにいいんですか？
バインドがないようなきがします。

ちょっと手順おしえてください

　　　　　　　　　　　∧ ∧　　　　／￣￣￣￣￣￣￣￣
　　　　　　　　　∩(　ﾟДﾟ)∩ ＜　あげ
　　　　　　　　 //　￣￣　| |　　＼＿＿＿＿＿＿＿＿
　　　　　　　　//　 　 　 　| |
　　　　　　　　| |　　　　　//
　　　　　　　　| | 　 　 　//
　　　　　　　　| | ＿＿ //
　　　　　　　　＼　　　 　|
　　　　　　　　　 |　　　　|
　　　　　　　　　 |　　　 /
　　　　　　　　　/ 　　 /
　　　　　　　 　 |　　 /
　　　　　　　 ∫| 　| |
　　　　　　　　　|　|| |
　　　　　　　 　 | / | |
　　　　　　　　 //　| |
　　　　　　　 //　　| |
　　　　　　 //　　　| |

　　　　　　　　　∩ 　 　 　 ∩　　　　　　　∩ 　 　 　 ∩
　　　　　　　　 // 　　　 　 | |　　　　 　　　| |　　　　 //
　　　　　　　　//　 　 　 　 | |　　　　　 　　| |　 　 　//
　　　　　　　　| | 　　　　　//　　　　　　　　| |　　　//
　　　　　　　　| | ∧ ∧　//　／￣￣＼　　|ΛΛ//
　　　　　　　　| |(　ﾟДﾟ)// ＜　 あげ　 ＞ |('∀`)/
　　　　　　　　＼　　　 　|　　 ＼＿＿／ 　 (　：　)
　　　　　　　　　 |　　　　|　　　　　　　　　　(　：　)
　　　　　　　　　 |　　　 /　　　　　　　　　　 (　：　)
　　　　　　　　　/ 　　 /　　　　　　　　　　　(　：　)
　　　　　　　 　 |　　 /　　　　　　　　　　　　(　：　)
　　　　　　　 ∫| 　| |　　　　　

>>758
少なくとも俺は基本は本で学んだ。
今はWebと言うすばらしいツールがあるにもかかわらずこんな所で質問する始末。
自分で調べて考えられない奴にプログラマとしての未来はない。

bindはudpと思われる。
それでよいと思われる。

|
|⌒彡
|冫、） 　／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
|` ／ ＜ BINDは複数のセッション管理で使用するのか？
| / 　　＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
|/
|


|
| 　ｻｯ
|）彡
|
|
|

>>808
どうも

WINSOCKコントロールを使うなら２つはりつけてね。

Open "sample.txt" For Output As #1

↑この#1ってなに？

>>812
ファイル番号。ファイルポインタのようなもの。

>>813
ありがとうございました。

VB6の質問
If 1 = "0001" Then
この場合式は True で問題ないようなのだが
文字列は Clng("0001") みたいに数値に変換しとくほうがいいの？