(*´д`*)ｱﾊｧ… VB初心者質問スレ Part21

0001デフォルトの名無しさん

NGNG

0002デフォルトの名無しさん

NGNG

漏れが２ゲットしてもいいのか！？

0003デフォルトの名無しさん

NGNG

3get

0004デフォルトの名無しさん

NGNG

(*´д`*)ｱﾊｧ・・・VB知らんけどこの顔が我慢できない・・・

0005まえすれの1000

NGNG

ハァハァしてる奴がいてね。
あ、とかいれといた

0006デフォルトの名無しさん

NGNG

密かに始めてｱﾊｧのAA入れたの漏れだけど。

0007デフォルトの名無しさん

NGNG

>>1
馬鹿が・・・・
前スレと同じ顔文字じゃねーか。

0008デフォルトの名無しさん

NGNG

８歳ぷろぐらまー
http://www.geocities.co.jp/Milkyway-Orion/4054/

0009デフォルトの名無しさん

NGNG

８歳ぷろぐらまー

いや～感動した。

0010デフォルトの名無しさん

NGNG

>>9
ﾄﾞｶﾞｲｼｭﾂ。

0011デフォルトの名無しさん

NGNG

馬鹿の使うVBスレはsage進行でお願いします

0012デフォルトの名無しさん

NGNG

>>11
(*´д`*)ｱﾊｧ

0013デフォルトの名無しさん

NGNG

馬鹿が使うのはCだろ

0014デフォルトの名無しさん

NGNG

>>13
Cが使えない事にコンプレックスを持っている開き直りVBオンリーPG

0015デフォルトの名無しさん

NGNG

(*´д`*)ｱﾊｧﾊｧﾊｧ

0016デフォルトの名無しさん

NGNG

VB.NET厨がVB厨をけなしてもしょうがないだろ。

0017デフォルトの名無しさん

NGNG

(*´д`*)ｱﾊｧ　C…C++…C#…　ﾊｧﾊｧ

0018デフォルトの名無しさん

NGNG

インストーラー無しのVB6ランタイムってどっかで配布してませんか。
もしくは、VB6ランタイムとして配布されているのに入っている
ファイル群が一覧で書かれているサイトを教えてもらえませんか。

あ、分かりそうなら、全ファイルを書き出していただけるとありがたいです。
(面倒でなければ)

0019デフォルトの名無しさん

NGNG

すみません、ageそびれました　('A`)

0020デフォルトの名無しさん

NGNG

>>18
ライセンスの関係上出来ないことになっているはず。

0021デフォルトの名無しさん

NGNG

マイクロソフトに尋ねりゃいいじゃん。

0022デフォルトの名無しさん

NGNG

>>21
ﾜﾗﾀ。ひでーな。

0023前スレ931

NGNG

前回質問して、リッチテキストボックスを使い出力される文字の色を変えようと思ったのですが
selcolorプロパティを使い色を変えようとしているのですが、全ての文字が同じ色に変わってしまったり
色が変わらなかったりと使い方がわからず困っています。
申し訳ないのですが。
フォームに
RichTextBox1が1つだけ配置されているとして
あいうえお（青色
かきくけこ（緑色
さしすせそ（黄色
と表示される例文を作っていただけないでしょうか？
よろしくお願いします。

0024デフォルトの名無しさん

NGNG

>>23
オーナードロー

002523

NGNG

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

0026デフォルトの名無しさん

NGNG

>>20
そうでもない。実行ファイルと一緒に配布さえしてりゃOK。

0027デフォルトの名無しさん

NGNG

>>23
RichTextBox1.Text = ""
RichTextBox1.SelColor = RGB(255, 0, 0)
RichTextBox1.SelText = "あいうえお" & vbCrLf
RichTextBox1.SelColor = RGB(0, 255, 0)
RichTextBox1.SelText = "かきくけこ" & vbCrLf
RichTextBox1.SelColor = RGB(0, 0, 255)
RichTextBox1.SelText = "さしすせそ"
'色は適当だ。

002823

NGNG

>>27
ありがとうございます。
すごく参考になり、上手く作っているプログラムの方に反映させる事ができました。
今まで、SelTextを使わず、
RichTextBox1.text=RichTextBox1.text & "文字列"
としてしまっていました。
今日はこのことでずーっと悩んでいたのですごく助かりました。ありがとうございました。

0029デフォルトの名無しさん

NGNG

よくあるスクリーンショットソフトの作り方を教えて下さい。

0030デフォルトの名無しさん

NGNG

>>29
DC取得してそれを保存すれば良し。

0031デフォルトの名無しさん

NGNG

>>28
よけいなお世話かもしれないけど、
RichTextBoxでそうやって色変えて出力するのを大量にやると、
NT系OSで描画がハンパじゃなく遅くなったり途中で固まったりする不具合があるから、
気を付けた方がいいよ。

0032デフォルトの名無しさん

NGNG

>>31
代替策はあるんですか？

0033ぱぱらぱー

NGNG

配列にデータ（文字）を格納して、コモンダイアログを使って拡張子を.txtで
保存したんですが、そのファイルを開いて見ると何も表示されていませんでした・・
listを使ってプレビューを見れるようにしてそれを表示しながら保存すると、表示されます。
ですが、"あいうお"を言うように" "がついたまま表示されてしまいます。

0034デフォルトの名無しさん

NGNG

(*´д`*)ｱﾊｧ

0035デフォルトの名無しさん

NGNG

(*´д`*)ｱﾊｧ

0036デフォルトの名無しさん

NGNG

>>33
安易に
open ～ output ～
で保存しちゃいけないのですか。

0037デフォルトの名無しさん

NGNG

Dirで指定Path内のフォルダをループ列挙している最中に、
探しているフォルダがあったら、さらにそのフォルダ内にaaaというフォルダがあるか
またチェックしたいのですが、このaaaフォルダ探索用にDir使いたい所ながら
そこで使ってしまうと、最初に書いたDirループが崩れちゃうし、ってことで困ってます。

こういう場合のチェックの仕方を教えて下さい。

0038デフォルトの名無しさん

NGNG

>>37
その１　Dirで得られるファイル・フォルダを先にまとめて取得しループで使う。
その２　APIを使う。
その３　FileSystemObjectを使う。

0039デフォルトの名無しさん

NGNG

>>38
FileSystemObject！
その手がありましたね。
ありがとうございました。

0040デフォルトの名無しさん

NGNG

>>37
FAQ
ここ↓とか参考になるんじゃないかな。

ttp://www.interq.or.jp/www-user/komurak/progtec/005.htm

今は亡きVBマガジンでも、2年ぐらい前の記事で見た記憶がある。

0041デフォルトの名無しさん

NGNG

>>37
その４　FileLen()でエラーに飛ばす。

0042デフォルトの名無しさん

NGNG

>>41 うん。なかなかつまらないネタだ。

0043デフォルトの名無しさん

NGNG

エクセルＶＢＡのフォームからＰＥＲＬのスクリプトを実行する方法てありますか？

0044デフォルトの名無しさん

NGNG

>>43
ない

0045デフォルトの名無しさん

NGNG

そか，残念。
回答，どうもありがとです。>>44

0046デフォルトの名無しさん

NGNG

>>44
厨房は引っ込んでろ。

0047デフォルトの名無しさん

NGNG

親切で頭のいい >>46 が、>>43 に回答してくださるそうです。

0048デフォルトの名無しさん

NGNG

>>47
俺は別に頭いいわけじゃなくてあんたが馬鹿なんだが。

>>43
Shell使えばいいだろ。

0049デフォルトの名無しさん

NGNG

Imageをタイマーコントロールで移動させると、一瞬黒くなってから表示されるんですが、そうならないようにするにはどうすればいいでしょうか？

0050デフォルトの名無しさん

NGNG

>>49
ダブルバッファ

0051デフォルトの名無しさん

NGNG

>>49
ちらちらはするけど黒くはならんねぇ。

0052デフォルトの名無しさん

NGNG

ダブルバッファというのがちらつきを無くすというところまで分かりましたが、
ＶＢでの情報がネット上に存在しなかったため、諦めることにしました

0053デフォルトの名無しさん

NGNG

まぁ諦めるのを止める事はせんが、
「ネット上に存在しない」事はないな。

0054デフォルトの名無しさん

NGNG

偽者登場（ｗ

005552

NGNG

（・∀・）ﾂﾚﾀ!

0056デフォルトの名無しさん

NGNG

２人のバッハ（・∀・）人（・∀・）

0057デフォルトの名無しさん

NGNG

合体（・∀（・）∀・）

0058デフォルトの名無しさん

NGNG

part20でも質問したのですが、WIN９８にはVB.NETはインストールできないようなので、WINXPにアップグレードしなけばならないみたいです。VB６はお店においてないところが多いです。VB6売ってるショップありますか？

0059デフォルトの名無しさん

NGNG

>>58
ないから糞VBなんかやめてDelphiつかえって。

0060デフォルトの名無しさん

NGNG

Delphiって何ですか？

0061デフォルトの名無しさん

NGNG

>>60
太陽神アポロンの神殿があるところです。
ギリシャにあります。聖地です。

0062デフォルトの名無しさん

NGNG

ようするに検索しろってことです

0063デフォルトの名無しさん

NGNG

リッチテキストボックスの行間を狭くして
見た目テキストボックスと同じにする方法教えて

0064デフォルトの名無しさん

NGNG

(*´д`*)ｱﾊｧ

0065デフォルトの名無しさん

NGNG

初心者に優しいスレッドありませんか？

0066デフォルトの名無しさん

NGNG

>>31
やっぱり、代替策は無いのか？

0067教えて！

NGNG

VBでADODBを使ってSQLのselectでテキスト型のフィールドを引っ張ってくると
中身が消えちゃうんだけど、ちゃんと取得するにはどうすればいいの？

0068デフォルトの名無しさん

NGNG

>>63
EM_SET*　系のメッセージだと思う

0069デフォルトの名無しさん

NGNG

private sub command1_clik
call PutText("txtA" & "1")
end sub

private sub (txt as object)
txt.text="test"
End sub

みたいな感じで「txt.text="test"」とし、
同じ名称＋数字　のテキストボックスにどんどん代入したいのですが、
どうすれば実現できますか？

普通のテキストボックスならコントロール配列でインデックスを指定すれば済むのですが、
アクティブレポートのField（テキストボックスと同じ）にはコントロール配列がなく困っています。

0070デフォルトの名無しさん

NGNG

private sub Command1_Clik()
for i = 1 to 100
call PutText("TxtA"& i)
next i
End sub

private sub PutText(Byval Text as object)
Text.text = "abc"
End sub

というイメージで、
TxtA1
TxtA2
TxtA3
　・
　・
　・

call PutText("TxtA"& i)
private sub PutText(Byval Text as object)

を実現するような方法はないでしょうか？

0071デフォルトの名無しさん

NGNG

>>70
こんとろーるはいれつ？

0072デフォルトの名無しさん

NGNG

>>69-70
「アクティブレポート」ってどこぞの市販 ActiveX のことか？
どっちにしろまったく知らんため推測に過ぎんし
そもそも 69 = 70 なのかどうかも判らんが (w
Field というのの上位のオブジェクトやコレクションがあんじゃねーのか
例えばこんな感じで
ActiveReport.Fields("TxtA" & i).Text = "abc"

0073デフォルトの名無しさん

NGNG

オシロの波形をGPIBで取得するにはどうしたらいいですか？
オシロはLeCroyのLT354でGPIBはInterFace社のPCI-4302です。

0074デフォルトの名無しさん

NGNG

>>69-70
AccessではFAQなコントロール配列「もどき」が使えるかも？

0075デフォルトの名無しさん

NGNG

(*´д`*)ｱﾊｧ

0076デフォルトの名無しさん

NGNG

69=70 です。

返事ありがとう！！
解決したいことをそのまま文にしたためわかりにくかったですね・・。

要は、
txttext1から100までテキストボックスがあるとして、
コントロール配列を使わずに
"txttext" & lngI　としてtxttext1　のテキストボックスとして認識させたいのです。
このtxttext1から100をループできないかなと。

007769=70=76です

NGNG

実現したいこと

For I=0 to 100
　　(txtText & I).text = いろんな値
Next I

です。

0078デフォルトの名無しさん

NGNG

>>77
時間かける秒足す分 mod 100とかどうだ？　

0079inet

NGNG

VB6 sp5 winXP or winMe

Inetコントロールで指定ファイルをダウンロードする手順はわかった。
では、ダウンロード完了だけ知らせるのではなく、ダウンロードの進行状況を表示するには、
どうしればいいのだ？！
非同期ダウンロードでステータス見張るところまでは見当ついた。でもバッファの使い方が詳細な部分まではわからない・・・
誰か助けて！

0080デフォルトの名無しさん

NGNG

>>70
Winsockコントロールで作る

0081デフォルトの名無しさん

NGNG

> txttext1から100までテキストボックスがあるとして、

ここからして既に何かが間違っていないか？

0082デフォルトの名無しさん

NGNG

>>77
CallByName(Me, "txtText" & I , VbGet).Text = 値

>>81
同感

0083デフォルトの名無しさん

NGNG

DataFieldプロパティってのは、決められたオブジェクトにしか
存在しないのでしょうか？
例えば自分でクラスを作ってDAtaFieldプロパティを備える事は
不可能なのでしょうか？
よろしくお願いします。

0084デフォルトの名無しさん

NGNG

(*´д`*)ｱﾊｧ

0085デフォルトの名無しさん

NGNG

>>83
クラスモジュールでそのように書けば可能だけど・・・。

0086(*´д`*)ｱﾊｧ ◆GiU01Db3Z6

NGNG

008783

NGNG

>>85
ええ。ソースを書くことが出来れば問題がないんですが・・・。

0088デフォルトの名無しさん

NGNG

>>77
これを変形してみそ
Dim a As Control
For Each a In Me.Controls
MsgBox a.Name
Next

0089デフォルトの名無しさん

NGNG

>>88
Command1 から 100 までボタンがあったらどうするんだ

0090デフォルトの名無しさん

NGNG

>>89
何か問題が？

0091デフォルトの名無しさん

NGNG

>>90
漏れの気のせいだった。

0092デフォルトの名無しさん

NGNG

>>91
だろ

0093デフォルトの名無しさん

NGNG

>>92
漏れ最近、頭の回転が鈍いのだが何とかならんか？

0094デフォルトの名無しさん

NGNG

>>93
漏れもなんだよ。寄る歳なみにはさからえんの。

0095INET

NGNG

ｺｰﾙﾊﾞｲﾈｰﾑなんてあるんだねェ～。
ﾄｺﾛﾃﾞ79に意見ｷﾎﾞﾝﾇ（⊃Д｀）
・゜・(つД｀)・゜・

0096デフォルトの名無しさん

NGNG

>>93
元は回転が速かったと言いたいのか？

0097ActiveReports

NGNG

ActiveReportsについて。
ActiveReportsの中で、如何すれば詳細行の一行で五明細を
印刷できるのか？

グループも条件によって変更しなければなら
ないし、ページも。

どこのサイトを見ればいいのでしょうか？

0098デフォルトの名無しさん

NGNG

>>97
とりあえず、マルチするな。

0099ActiveReports

NGNG

マルチにしなければいいのでしょうか？

0100デフォルトの名無しさん

NGNG

>>99
その通りだ。
もう来るな。

0101ActiveReports

NGNG

何様だ！笑
おもろかったです。
では