(´д`)ウッ…　VB初心者質問スレ Part15

**エロチカセブン** · NG

**VB信者** · NG

>>793がｲｲ事逝った

**デフォルトの名無しさん** · NG

そもそも気の弱い人は２ちゃんに来ない。

**デフォルトの名無しさん** · NG

ひろゆきが好きでないと2ちゃんに来れない

**デフォルトの名無しさん** · NG

vb6のdirlistboxやfilelistbox等を使用して
ftp接続したサーバー(linux)のディレクトリを
表示することはできますか？

**デフォルトの名無しさん** · NG

正直ＶＢを全くのド素人の状態から初めて１ヶ月チョット。
このままＶＢを頑張るか、他の言語へ乗り換えるか･･･。

なんか色んなスレＲＯＭってると、
ＶＢでは難しいこと出来ないみたいなことばっかかいてあったし。
どうなんでしょう？

**デフォルトの名無しさん** · NG

自分が何作りたいかによるだろ。

**デフォルトの名無しさん** · NG

そもそも難しいことが何かわからない。

VBで出来ないことも実際あるけどそれが難しいこととは別の話しだし。

**デフォルトの名無しさん** · NG

VisualBasic6.0上では、隠しファイル（フォルダも含む）を参照することが出来ません。
そこで、getattr関数を使って、ファイルの属性を調べ、隠しファイルであれば
setattr関数を使って属性を変更してまた戻しています。

で、質問なのですが、
「最近使ったファイル」を調べたいのですが、これは「隠しフォルダ」になっています。
MSDNで調べてみると。setattr関数って、ファイルしか属性変更できないみたいなんですけど、
どのように、フォルダの属性を変更すればよいのでしょうか？

あるいは、属性変更せずに隠しフォルダの中身を参照することはできるのでしょうか？

どなたか分かる方ご教授願います。

**デフォルトの名無しさん** · NG

>>801
参照ってなにで参照してんのよ？

> そこで、getattr関数を使って、ファイルの属性を調べ、隠しファイルであれば
> setattr関数を使って属性を変更してまた戻しています。
つか、やめれ。

**801** · NG

802様
>参照ってなにで参照してんのよ？
フォルダの中身を調べて、中のファイルのパス名を取り出したいのです。

>> そこで、getattr関数を使って、ファイルの属性を調べ、隠しファイルであれば
>> setattr関数を使って属性を変更してまた戻しています。
>つか、やめれ。
申し訳ございませんが、なぜ駄目なのか教えていただけないでしょうか？

**追記@801** · NG

質問の回答にはなってませんでした。
>参照ってなにで参照してんのよ？
フォルダの中身を調べて、中のファイルのパス名を取り出したいのです。
ですから、Dir関数を使おうかなと

**デフォルトの名無しさん** · NG

>>798
ハードウェアよりのことはCやアセンブラ。
データベース系はVB。
VBやってるとVBscriptが使えるASPの習得も楽で、
ASP + SQL Server を運営して2ちゃんのようなサイトを作ることもできる。

**デフォルトの名無しさん** · NG

（　´_ゝ｀）ﾌｰﾝ　

**デフォルトの名無しさん** · NG

駄目だこりゃ

**デフォルトの名無しさん** · NG

>>805
なるほど、これはもう少し慎重に選択してみたいと思います。
ありがとうございました。

**デフォルトの名無しさん** · NG

ここはとても温和で気軽にカキコめるスレだと思うがな
他に比べれば

**デフォルトの名無しさん** · NG

>>804
ヘルプでDir関数の第2引数を調べろ

**デフォルトの名無しさん** · NG

なんでも知ってる人は聞かれなくても自分からどんどん教えたくなるもんさ

**デフォルトの名無しさん** · NG

>>797
不可能。

**デフォルトの名無しさん** · NG

>>797
そｎ二つで出来るかは知らないが、普通のリストボックスじゃダメなん？

FTP接続は、アップロード、ダウンロード、ディレクトリ表示などどれも超簡単。

**デフォルトの名無しさん** · NG

>>801-803
801のプログラムが実行中に、OSが落ちようとも電源が落ちようとも
どんな事態が起きようとも絶対に、ファイルの属性を元に戻す自信があれば、
別にそのように作ってもいいんじゃない。

**デフォルトの名無しさん** · NG

>>798
VBを一ヶ月ちょっとやって、まだまともに出来ないのであれば、
他の言語に移るのは止めておいた方がいい。

かつ、難しいといわれるプログラムもしない方がいい。

**デフォルトの名無しさん** · NG

>>814
マルチタスクって知ってるか？

**デフォルトの名無しさん** · NG

814 名前：デフォルトの名無しさん[sage] 投稿日：02/10/08 22:07
>>801-803
801のプログラムが実行中に、OSが落ちようとも電源が落ちようとも
どんな事態が起きようとも絶対に、ファイルの属性を元に戻す自信があれば、
別にそのように作ってもいいんじゃない。

816 名前：デフォルトの名無しさん[sage] 投稿日：02/10/08 22:23
>>814
マルチタスクって知ってるか？

**801** · NG

810様　レスありがとうございます。
ヘルプを調べました。フォルダに関する記述は「vbDirectory」のみです。
これはつまり、「隠しフォルダ」については、
普通のフォルダに属性を変更することができない、ということをあらわしているのでしょうか？

814、817様レスありがとうございます。
よく分かりました。なぜ隠しフォルダなのか分からないまま
突発的なエラーが出たときにきちんと対処できるか
どうかという問題ですね。

**デフォルトの名無しさん** · NG

VBで出来ないことって何━━(ﾟ∀ﾟ)━━ｯ??

**デフォルトの名無しさん** · NG

816は何が言いたいのか？

**デフォルトの名無しさん** · NG

>>818
んーと、そろそろアレなので解答というか…。
「vbDirectory or vbHiddon」とか。
罠があるのでgetattrしてチェックした方がいいとか、そのgetattrには罠があるとか。
こそらへん調べるといいかな。

**デフォルトの名無しさん** · NG

>>819
大抵のことはできるでしょ。
VBの基本コンポーネントだけでAPI使用禁止、とか言われたらかなり無理が
出るけど…。
ただ、APIを大量に使い出すとVBである意味がなくなる罠。
まぁ、VBにも他の言語にも向き不向きがあるってこった。

**デフォルトの名無しさん** · NG

>>819
OSがWindows以外で動作させる事。
つまり、最高精度でWindowsだからあんまり精度を求める処理は無理。
また、高速なスピードを要求する処理。

マルチスレッドは無理すれば何とか。

**801** · NG

821様。レスありがとうございます。
どうやら私的にもう少しヘルプの熟読と、VisualBasic解説HPの検索が必要みたいです。
第２引数の複数選択が出来るみたいですね。
getattr関数、dir関数ともに勉強し直してきます。

ここのスレの皆様、ご教授大変ありがとうございました。
またどうしても分からないことがありましたら、
よろしくお願いいたします。

**816** · NG

>>820
そのプログラムが属性変更して動いている最中でも
別のプロセスが動く可能性があるということですが。

これでもまだ理解できませんでしょうか？

**デフォルトの名無しさん** · NG

排他ロックが必要か

**デフォルトの名無しさん** · NG

ファイルリストボックスやコモンダイアログでファイルを複数選択して、同じ操作を
させたいのですが、どのような記述をすればいいでしょうか？
内容は、バイナリデータをデコードして、CSVファイルにして出力させるというものなのですが。
よろしくお願いします。

**729** · NG

>動作中のVBアプリがタスクマネージャのアプリケーションの項目に表示されないようにしたいのですが、可能でしょうか？

自己レスです。
過去ログにShowWindowで出来るようなことが書かれていたので試してみました。
hWnd = FindWindow(vbNullString, "キャプション")
ShowWindow hWnd, SW_HIDE
で、"キャプション"に自分以外のアプリのキャプションを指定するとそのアプリはタスクマネージャに表示されなくなりました。
しかし、自分自身のキャプションを指定すると、画面上には表示されなくなるのですがタスクマネージャには相変わらず表示されていました。
これはこういうものなのでしょうか？ご存知の方教えて頂けないでしょうか。よろしくお願いします。

**デフォルトの名無しさん** · NG

>>828
オーナーウィンドウの方を操作すればできそうだが。

**729** · NG

>>829 さま
アドバイスありがとうございます。
オーナーウィンドウのハンドルを取得してShowWindowしたところ、願っていた動作をするようになりました。
ほんとに助かりました。やっと眠れます。
オーナーウィンドウの意味がまだよく分かっていませんが、ぼちぼち勉強していきたいと思います。
ありがとうございました。

**デフォルトの名無しさん** · NG

>>798
むずかしいことをすれば、むずかしいこともできる。

>>811
能ある鷹はチンコを隠す

**デフォルトの名無しさん** · NG

ちんこみたい

**デフォルトの名無しさん** · NG

クラスに開始メソッドと停止メソッドを追加したいんですが
予約語で命名出来ません。この場合何てつけますか？

ダメな例 start stop, start end, begin end, open close

**デフォルトの名無しさん** · NG

質問です。
ダイヤルアップ環境で、オフライン中にインターネットに接続しようとすると
ダイヤルアップのウィンドウが表示されますが、
これを画面に表示させないでWebアクセスなどを試みることは可能でしょうか？
(バックグラウンドで無理やりダイヤルアップ接続する方法とかではありません。)
繋がっていなかった場合はなんらかのエラー検出が出来る方法であればありがたいです。
どなたかご存知でしたら教えてもらえないでしょうか。よろしくお願いします。

**デフォルトの名無しさん** · NG

ダイヤルアップのプロパティで「ダイヤルしない」にすれ。

**デフォルトの名無しさん** · NG

>>833
start too stop, start too end, begin too end, open too close

start stoped, start ending, begin ending, open closed

**834** · NG

>>835 さん
情報ありがとうございます。
ちょっと手元にダイヤルアップ環境がないので調べられなかったのですが、
VBアプリでそのプロパティの項目を「ダイヤルしない」に変更してしまえばよいということですかね？
で、終わったら元に戻してやればいいと。変更の仕方を調べてみます。(分かるかなぁ？)
どなたか他にも情報ありましたらよろしくお願いします。

**デフォルトの名無しさん** · NG

>>835
丁寧な説明は大いに結構だが、肝心の>>834氏が理解できるかどうか、
甚だ疑問と思われ。
無駄な努力（猫に小判、豚に真珠に値する行為）は放棄すべし。ｗ

・・・他のROM者にはプラスになるのかもしれないが・・・。

**834** · NG

>>838
そこまで言う事無いでしょう？
なんなんだ？あんたは

**デフォルトの名無しさん** · NG

「この板はプログラムを作る人のための板です。」

**デフォルトの名無しさん** · NG

>>839
ダイアルアップ接続中かどうかを調べるAPIならいろいろあるよ
対象のOSは何？

**デフォルトの名無しさん** · NG

>>839
コピペにマジレスカッコ(･∀･)ｲｲ!!
って　どこでみたんだったかな>>838の文章。。

**デフォルトの名無しさん** · NG

838はコピペ

そんなこと言うなら、 838が 834が理解できるように説明しろ。
説明できないのに否定だけするな。

**834** · NG

すみません、言葉が足りませんでした。
「VBアプリ」でWebアクセスなどを行う場合にダイヤルアップのウィンドウを表示させない方法を探していました。

>>840 さん
そうなんですか！
対象OSはWindows95OSR2以降、WindowsNT4ServicePack3以降のWindowsです。
(幅広くてすみません。)よろしくお願いします。

**デフォルトの名無しさん** · NG

「このスレは初心者のためのスレです。」
ですが、とりあえず勉強してる、調査したなどの努力はみせましょうね。

**834** · NG

まことにすみません、>>840 さんではなく>>841 さまでした。

**834** · NG

>>845 さん
ご忠告ありがとうございます。
ダイヤルアップ関連については初めてでしたので、つい何も考えずに質問してしまいました。
これからは気をつけたいと思います。

少し調べたところRASというAPIがなにやら使えそうなので、もう少し調べてみようと思います。

**834** · NG

ホントすいません。

**デフォルトの名無しさん** · NG

VBScriptですが

フォームのドロップダウンリストの値を取得するには
form.name.options.value

では、ラジオボタンの値を取得する場合はどうすれば良いですか？

**デフォルトの名無しさん** · NG

>>849
それは質問ではなく、問題ですか？

**デフォルトの名無しさん** · NG

よろしくお願いします。

１．ListBox上で、項目が選択されていない状態で右クリックしたとき、
項目が選択されて、かつ右クリックメニューが表示されるようにするのはどうしたら言いのでしょうか。
（右クリックメニュー表示は実装しています。）

ListBoxのクリックイベントと、MouseDownのイベントどちらかに記述するのでしょうか。

MSDNで引いても、ググってもわかりませんですた。
ご教授よろしくおながいします。

**デフォルトの名無しさん** · NG

ふつう右クリックのメニューがポップアップするのはMouseUp時だろ。

**>>851** · NG

>>852
>>718-720
だったもんで・・・・・

すみませんね。

引き続き回答おまちしております。

**デフォルトの名無しさん** · NG

すみません、型の違いがよくわからないので教えてください。

**デフォルトの名無しさん** · NG

>>864
それぞれの型によって入れられる値の種類が違います。

**デフォルトの名無しさん** · NG

ふつうWM_CONTEXTMENUが来たときだろ。

**デフォルトの名無しさん** · NG

>>856
わざわざコンテキストメニューを出すためにサブクラス化したりするの？

**デフォルトの名無しさん** · NG

うわVBってこんなのもできないんだ

**デフォルトの名無しさん** · NG

>>858
何を出来ないと思っているかＣ言語を用いて述べよ。

**デフォルトの名無しさん** · NG

>>833
>クラスに開始メソッドと停止メソッドを追加したいんですが
>予約語で命名出来ません。この場合何てつけますか？

旧VBの楽しいところだね。

>ダメな例 start stop, start end, begin end, open close
Prev(ious)とNextとか、ReadとWriteとかもあるね。

例えば、時間を扱うクラスとして、
StartTime、StopTimeとかにしてるよ。
オブジェクト指向的には冗長かつ邪道なネーミングだけど。

**デフォルトの名無しさん** · NG

VBでゲームソフトを作っていて、ヘルプの所に
自分のホームページへのリンクを貼りたいのですが、
こういう場合にはどのようにすれば良いのでしょうか？

**デフォルトの名無しさん** · NG

ShellExecute

**デフォルトの名無しさん** · NG

>>862
ありがとうございます。調べてみたら使う事が出来ました。

もう一つお伺いしたいのですが、Labelの上にマウスカーソルが来た時、
マウスカーソルを手の形にし（ブラウザのハイパーリンクのように）、
Labelの上から離れたら元に戻したいのですが、
これはどのような処理をしたら良いのでしょうか。
Screen.MousePointer = vbなんとかでカーソルの形を変えられることは分かったのですが、
どんなイベントの所でこれを書けばいいのか分からず困っています。

**デフォルトの名無しさん** · NG

>>863

Formのマウスムーブのイベントでラベルのところに x,y が入ったらポインタを手に変えたら
いいんじゃないのか？
それで、それ以外は、元に戻すとかする。

**デフォルトの名無しさん** · NG

>>863
ラベルのプロパティをデザイン時に変えるだけ。

**デフォルトの名無しさん** · NG

ああそれが一番カンタンだった。
label1.MousePointer = 15
とかＦｏｒｍＬｏａｄ時にやっとけ。

**デフォルトの名無しさん** · NG

WritePrivateProfileString　を使ってINIファイルに書き込むと、
空白が入ってしまいます。

回避方法を、教えてください。

**デフォルトの名無しさん** · NG

>>867
すみません、自己解決しました。m(_ _)m

**デフォルトの名無しさん** · NG

>>867
Nothingで書き込んで、セクションを削除してから
再度書き込む。

**デフォルトの名無しさん** · NG

>>867
Killステートメントでファイルまるごとあぼーん。

**超初心者かも** · NG

VisuualBasic6.0で質問です。

DoEvents以外ウィンドウズに制御を渡すってどうするんでしょうか？
DoEventsは遅い気がするので。

**デフォルトの名無しさん** · NG

制御を渡すって、具体的に何がしたいの？

**デフォルトの名無しさん** · NG

>>871
if (PeekMessage(&msg, NULL, 0, 0, PM_REMOVE)){
TranslateMessage(&msg);
DispatchMessage(&msg);
}

**デフォルトの名無しさん** · NG

VBで実行中のアプリケーションがアクティブかどうかって
どうやって判断するのですか?
アクティブじゃない時は処理を中断させたいのですが。

**デフォルトの名無しさん** · NG

>>873
85点。

**デフォルトの名無しさん** · NG

>>874
GetForegroundWindow()

**デフォルトの名無しさん** · NG

>>875
１００点の回答を教えてくれ。

**デフォルトの名無しさん** · NG

>>875
教えを乞う態度とは思えん
（答えを求めておいて、結果を採点か？）

**デフォルトの名無しさん** · NG

>>878
5/100点

**デフォルトの名無しさん** · NG

よくVB製ソフトはダサイとか遅いとか糞とかVB製と知ったら落とすきダウンロードする気無くすとか言われてるけどどう思う？

**デフォルトの名無しさん** · NG

>>880
お前の日本語のほうが糞だと思う

**デフォルトの名無しさん** · NG

>>880
仕方ないと思う

**デフォルトの名無しさん** · NG

俺の場合は（オンラインソフトね）セットアップ形式だとダウンロードしようか迷うな
いや、落とすのが決まってる場合はいいけど、Vectorでいろいろ探す場合ね。

**デフォルトの名無しさん** · NG

(ﾟДﾟ≡ﾟДﾟ)

◆5VLaSsH.hA · NG

InetでGetChunkしてるんですけど(VB6)
1024バイトごとに取得しているので丁度区切りの所に漢字が来ると
化けてしまいます。
これどうにかならないんですか？

◆5VLaSsH.hA · NG

age

**デフォルトの名無しさん** · NG

>>880
VB製は糞の割合がかなり高いと思う。
つまり、Vectorで同一カテゴリで手当たり次第DLして試してみる時、
VB製だとなんじゃこりゃ、というレベルのまで掲載されている可能性が高い。

しかし、そのような糞ソフトを除けば、特にVBが重いとかダサいとかいうことは無いかと。
つまりそれなりに定評があるなら言語は何だって関係ないというか。
糞が多すぎるからVB全体のイメージが糞に引っ張られるのだろうな。

**デフォルトの名無しさん** · NG

>>885
第２引数をicByteArrayにしてバイト配列として取得し、
あとから結合するなりするといいんでないかい？
1024バイトごとにデコードしたいなら、最後の文字が２バイト文字か
どうか判別するルーチン作ってなんとかするとか。

**デフォルトの名無しさん** · NG

>>885
もしかしてこれ？

' 最初のチャンクを取得します。
vtData = Inet1.GetChunk(1024, icString)
DoEvents
Do While Not bDone
DoEvents
strData = strData & vtData
DoEvents
' 次のチャンクを取得します。
vtData = Inet1.GetChunk(1024, icString)
If Len(vtData) = 0 Then
bDone = True
End If
Loop

txtData.Text = Replace$(strData, vbLf, vbCrLf)

私も今までこのまま（MSDNどおり）にやってたけど、そんなだとは気づかなかったよ。

**デフォルトの名無しさん** · NG

>>889
あちらさんは2バイトコードなんて
地球外言語だと思ってるよ（藁

**デフォルトの名無しさん** · NG

バイナリで取得してくっつけてStrConvすれ。

**デフォルトの名無しさん** · NG

>>889
私なら、
Do While 1
にして、
If Len(vtData) = 0 Then Exit Do
にするけど、上記のMSDNに書いてあるやりかたの方が効率いいの？

**デフォルトの名無しさん** · NG

>>892
If Len(vtData) = 0をWhileの条件文にしないのはなんか意味あるの？

(*´д`*)ウッ… VB初心者質問スレ Part15

(´д`)ウッ…　VB初心者質問スレ Part15