1001コメント289KB

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

レス数が1000を超えています。これ以上書き込みはできません。

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

NGNG

00021

NGNG

面倒だったけどたてますた。

>>3-20は煽りと乙。

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

NGNG

こっちにこれない奴は低脳　by VB.NETプログラマ一同

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

NGNG

　　　　　　　　　　　　＿_
　煽りじゃない　　　 /〃　┼‐┼〃＿＿　　だ
　　　　　　　　　　　　　/＼　　　ノ　　　　　　　　　　　　　　 __
　　　　　　　　　　　　　　　　　　　　　　__　　, -――-、　　/＼ﾉ
　　　　　　　　　　　　　　　　　　　　　ヽ/＼l::::::::::::::::::::＼ /: : /
　　　　　　　　　,..-―-､／）　　　　　　　|: : :|::::::::::::::::::::::／: : /
　　　　　／⌒Ｙ　　　　（_ノ　 /）　　　 |: : :|:::::::::::::::::::::|: : : /
　　　　　￣l￣l､　　　　）／｀〉　　　　　ヽ:: :|::::::::::::::::::::l: : :/
　　　　　 l: : :｀ー--‐'‐'´: :/　　　　　　＼|∧ハ/l／: ::〈
　　　　　　　＼: : : : : : : : : :く　　　　　　　　　|: : : : : : : : : : ｀ー-┐　　,.､
　　　　　　　　　l: : : : : : : : : :｀ー―┐ ,､　　　|: : : : : : : : : : : : : : |二lニﾉ
　　　　　　　　　ヽ.: : : : : : : : : : : : : :|ニﾉ　　　|: : : : : : : : : : : : : : |
　　　　　　　　　ヽ: : : : : : : : : : : : :|　　　　　ヽ: : : : : : : : : : : ／
　　　　　　　　　　　＼: : : : : : : : :／　　　　　　　＼ : : : : : : ／
　　　　　　　　　　　　￣￣￣￣　　　　ノ|　　　　　￣￣￣　　　　　　　ノ）
　　　　　　　　　　　　　　　　　　　ノしノ　し'（　　　　　　　　　　　ノ)__ノ　（ノ(

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

NGNG

まぁ、乙華麗>>1

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

NGNG

　　　　　　　　　　　　　　　　　　(（　　　　　　　　　　　　　　　)）
　　　　　　　　　　　　　　　　　　　　ミヽ　　∧＿∧　ヽ彡
　　　　　　　　　　　　　　　　　　　　　＼＼(｀,,,,,,´　) ／／
　　 ┌┐　　 ┌──┐　　　　　　　＼,;´;:`;´`; ／　　　.　　　　　　.　　　　　　.┌─┐
┌─┘└─┐│┌┐│　　　　　　　　　`;:´:;`;´';;、　　　　　　　　　　　　 │　 │
└─┐┌─┘│└┘│┌───┐　　　　`;:´;;``;:',／⌒ヽ　　　　　 ┌───┐│　 │
┌─┘└─┐│┌┐││　　　 │　　　　　ヽ;;`;:`(　／＼＼　　）)　.│　　　 ││　 │
└─┐┌─┘└┘││└───┘　　　　　／ヽ;´;´　　　.`ヽミ. 　　└───┘└─┘
　　 ││ 　　　　 ││　　　　　　　　　　 (　／ﾉ|ヾ＼　　　　　　　　　　　　　 ┌─┐
　　 └┘ 　　　　 └┘　　　　　　　　　　　＼)´^'^'´'`　　　　　　　　　　　　 └─┘

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

NGNG

VBってなに？

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

NGNG

> 壱．質問する前に過去ログにも目を通してみる。

これ無理だろ。

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

NGNG

>>8
なんで？
Ctrl+F駆使しる。

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

NGNG

.　　　　　　／■＼　／■＼　／■＼　　(::::::::::::::::::
　　　　　　（´∀｀∩）（´∀｀∩）（´∀｀∩） (::::::::::::::::::::
　　　　　　（つ　　ノ（つ　　丿（つ　　(´⌒;;:::::::::::::::
　　　　　　 /　　 / (´/　　 (´⌒;;(´⌒;;:::::≡≡(´⌒;;;
　　　　　（＿/し'≡（__(´⌒;;(´⌒;≡≡(´⌒;;≡≡
　　　　　　　　　(´⌒(´⌒;;;::
　　　　　　ズザーーーーーッ

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

NGNG

いまさら、女子大生の顔にモザイクかけてもおそいんだよ、ゴラァ

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

NGNG

＞7
VirtualBasic
要は、ベーシック使ってる気分にさせてくれるンフト

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

NGNG

>>11
まわされまくったとわかった今、素顔はだせんでしょ。

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

NGNG

あるコギャル談
「ワゴンで拉致られてまわされて、山に捨てられた。キャハハハハ。」

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

NGNG

にしても薄いモザイクだなぁ

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

NGNG

>>14
夏休みになると三流大学のバカ学生がよくやってるよ

0017

NGNG

i=1
Do while i=1

loop

無限ループや処理に時間のかかっているものを途中で止めるためのコマンドボタンを作りたいのですが、そのボタンにはどんなステートメントを書けばいいのでしょうか？
今は仕方なくCtrl+Alt+Delで強制終了しています。

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

NGNG

>>17
無限ループで回ってる間はボタン自体押せないよ
DoEventsで検索しる！あとはフラグで解決

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

NGNG

age

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

NGNG

すいません探したんですけど見つからないので教えて下さい。
6.0で、新規に作成するフォームとかのデフォルトフォントを
変更するのはどうしたらいいんでしょうか？
MSPゴシックじゃなくて、MSゴシックにしたいんです。。

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

NGNG

>>20
嘘付く名やボケ。

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

NGNG

>>20
俺の知る限りそんな方法はない
地道に変更かけるしかないのでは？

>>21
知ってるなら教えてやれば？

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

NGNG

>>2
VB初心者質問スレとVB質問スレに分けようぜ！
厨の吹き溜まりだもんね。ここ

(*´д`*)ｱﾊｧ…

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

NGNG

>>23
そう思うなら自分でスレ立てて誘導すればいいのでは？

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

NGNG

>>24
ププ
>>2

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

NGNG

>>23
VB厨質問スレとVB初心者質問スレに分けようぜ！
厨の吹き溜まりだもんね。ここ
(*´д`*)ｱﾊｧ…

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

NGNG

VB6のMSHFlexGridで
SelectionMode=1(flexSelectionByRow)
に設定しているんですが、このときに
選択している行はどのようにしたら
わかるのでしょうか？

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

NGNG

>>27
MSHFlexGrid1.Row

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

NGNG

テキストボックスにコピペされるのを防ぎたいのですが､
・右クリック
・Shift+Ins
・Ctrl+V
これだけ封じればｵkでしょうか。

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

NGNG

APIでLPCTSTR型の引数に対してNullを渡したいのですが
どうすればよいでしょうか？
Dim strNull As String * 1
strNull = Chr(0)
だとAPI内で識別できるNullにはなりませんよね？

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

NGNG

>>17
亀レスだが、Ctrl+Breakで処理止められるけど、これは違うの？

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

NGNG

vbNullString

0033yoko

NGNG

どうも厨房な質問ですみません。
VB.NETでコード書いてるんですが…
イベントハンドラAで指定したフォルダ内のファイルの有無を
監視して、その他もろもろの処理をしているんですが
このイベントAが10分間発生しなかった場合に別の
プロシージャを呼び出したいんですが、どうするのが
ベストでしょうか？TimerとTimerDelegateのサンプルを
使おうとしたのですが、イベントAが発生しない状態を
どうやってモニターしていいのかわかりません。。。

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

NGNG

>>32
できた！ありがと！

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

NGNG

>>33
寝釜ｷﾀ━━━━━━(ﾟ∀ﾟ)━━━━━━ !!!!!

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

NGNG

>>33
知らないけど、.NETスレがあるよ。

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

NGNG

>>35
すげーよくわかるな。あんた天才だぜ

0038yokochin

NGNG

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

NGNG

>>33
フラグ立てれば？

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

NGNG

>>38
フラグ立てれば？

後、集合論とか勉強した方がいい。ある集合の否定はある集合以外の集合。

0041yoko

NGNG

レスありがとうございます。
.NETのスレでもきいてみたいと思います。
フラグ。。。。ですか？
もうちょっと具体的にご教授いただけると幸いです。
すみません。

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

NGNG

>>41
つーかわざわざ別ｽﾚあるんだから最初からVB.NETのｽﾚで聞け

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

NGNG

.NETスレ「でも」きいてみたいと思います。
　　　　　　↑

004429

NGNG

すみません、板違いでしたかね？
取り下げさせてください。余所逝きます。
スレ汚し申し訳なし。

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

NGNG

>>17さんへ
DoEventsは初めて聞く言葉で調べて見ましたが、DoEventsを実行させてからフラグを入れ替えられるボタンを押せるようにしてみます。
>>31さんへ
デバッグ中の停止ではなく完成品に処理中止ボタンをつけたいので。

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

NGNG

教えて君ですみません
「ABC/DEF=99/GHI」という文字列があります。
これの両側を取って「99」だけ取り出したいのですが、
「99」及び「/GHI」は文字列長が可変なので文字数で削ることができません。
何か方法は無いでしょうか？

0047チェッキー

NGNG

初心者で良く分からないのですが、VBでチェックボックスの色は変える事が
出来るのでしょうか？
もし出来るのでしたら、方法を教えて下さい。
よろしくお願いします。

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

NGNG

>>46
あなたは何をもって「両側」と判断している?

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

NGNG

>>47
チェックボックスの色って、中のチェックの色のこと？
だとしたら無理だと思う

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

NGNG

>>48

数値「99」です。

ごめんなさい、書き忘れた事があります。
「GHI」の部分には数値が含まれる事があります。

0051>>47

NGNG

自分でチェックボックスみたいな画像用意してチェックボックスのような動作をするプログラムを書くべし

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

NGNG

>>51
あんた、初心者にそんなこと言うなんて鬼だなｗ

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

NGNG

>>48
数値の文字列"99"と分かっているなら、別に抜き出す必要もない。
s = "99"

マジレスすると、正規表現で書いてもらえる?

005453

NGNG

Call Replace(, >53, ">48", ">50")

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

NGNG

>>53
^(.*).*(.*)$

です。よろしくお願いします。

0056チェッキー

NGNG

>>49
そうですかやはり無理なんですね。
ありがとうございます。

>>51
私には難し過ぎますね。
諦めるとします。

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

NGNG

大きなファイルをコピーするときに、プログレスバーで状況を表示したいのですが、
filelenだと送り先側のファイルｻｲｽﾞをリアルタイムに取得することができないようです。
何か良い方法はないでしょうか？

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

NGNG

>>57
SHFileOperation使うとか切り分けながらコピーするとか

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

NGNG

>>58
×ボタン押されて中断されたくないので、後者を試してみたいと思います。
どうもでした。

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

NGNG

Set DD = DX.DirectDrawCreate("")

↑
これってどういう意味ですか？

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

NGNG

>>60
入門書買っておいで。

多分DirectXでも使おうとか考えてるんだろうけどまだ早いと思われ。
後、人の話も聞けない奴がおもしろいゲームだなんてちゃんちゃらおかしい。

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

NGNG

>60は人の話を聞かないで質問するゲームを作ってます。

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

NGNG

>>62
ドラクエ方式ですなｗ

0064り

NGNG

Microsoftのグリッドコントロールで、セルの上とか右とかの線だけ太くしたり、色を変えたりすることはできますか？

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

NGNG

>>60
MSDN嫁っつーの。レス読めよｳﾞｧｶ

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

NGNG

>>60
お前みたいな奴がそんな質問平気でするからVBがｳﾞｧｶにされるんだ

と言ってみるﾃｽﾄ

006760

NGNG

今日ヨドバシ行ってdirectx7 for visual basic
ていう本かってきました
これさえあればもう俺に怖いものなしです。
ざまミロカスドモ。ﾜﾗ！

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

NGNG

>>67
表紙がエロいからおまいの負け

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

NGNG

まあまあ別にいいじゃん。馬鹿だとおもうならほっとけば

　　　　 ,, ,=､　　,, , =､
　　　　　ff |　}!、,､〃 / "
　　　　 ,ﾘ/ .ﾉﾟ∀ﾟ）'〃ｱﾋｬ...ｱﾋｬ...ｱﾋｬﾋｬﾋｬﾋｬﾋｬﾋｬﾋｬﾋｬ
.　　　　{{ {　′ 　 v' 《　　いちいちつっこむんじゃねー
　　　　ヾ.＼.　　　＼ヾ
　　　 _,,二、》　狂. ＼. 三,_
　　(( ﾞー=､｀″〃起＼. ＼-‐' ,ﾘ
　　　　　ﾞｰ=″ 　　ﾞ' 一'

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

NGNG

callってなに？
ただ関数を呼び出すためのもの？
だとしたら自分今までcall省略して
関数名だけを書いてたんだけど。どうなの？

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

NGNG

なんでVBってCやC++に比べて遅いの？

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

NGNG

>>70
ソース見やすくなるから書いてる

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

NGNG

>>71
アセンブラでVB　VC作れるようになったら、よく理解できるよ。

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

NGNG

GOSUB foobar(…としたい　ﾊｧﾊｧ

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

NGNG

>>71
　遅い原因
１、元はインタプリタ言語として設計されていて色々な親切機能がどうしても重くなる為
２、DLLを呼ぶ等がオプションの為にオーバーヘッドが大きい
３、OCX(COM)を呼ぶためのオーバーヘッドが大きい
４、VBのプログラマはどういう処理が遅いかなんてて気にしないから

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

NGNG

>>75
ホォ

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

NGNG

Microsoftのグリッドコントロールで、セルの上とか右とかの線だけ太くしたり、色を変えたりすることはできますか？

0078あいな

NGNG

スレたてて怒られちゃったのでこっちで聞いてみます。

行き詰まっています。
ファイルを読み込んでそれを配列に格納するとき、
配列の数をファイルしだいで動的に決めるにはどうしたらいいのでしょうか？
どなたか教えてください。

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

NGNG

>>78
配列の数とは要素数の事か？
動的配列を宣言しておいてファイルを開いてLOFでサイズ取得してRedimする。
各単語はMSDNで調べれ。

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

NGNG

コモンダイアログを詳細表示で開いたり、
大きさを大きくしてから開いたりできますか？

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

NGNG

CにできてVBにできないことってなんですか？

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

NGNG

>>81
VBソースの中にASMって入れてコンパイルできたっけ？

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

NGNG

>>82
よりによってそんなおまけ機能挙げてどうするよ。

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

NGNG

この板じゃないような気もしたのですが、ここの方が詳しい方が居ると思い、
質問させてください。
今までMEで使っていたVBを使用したソフトがあったんですが
XPをクリーンインストールしたらランタイムをセットアップできなくなりました。
(なんかファイルが見つからないとかで途中で止まります)
MEからのバージョンアップの場合はそのソフトが使用できていたから
ランタイム自体はXPで使えないとか無いと思うんです。
ただ、インストールが出来ないためどうしようもありません。
ソフトの添付テキストによると使用ソフトがVisualBasic 6.0 SP3 (Enterprise Edition)
必要なファイルはVisual Basic 6.0 のランタイム（ActiveX , DAO 3.51）らしいんですが
ぐぐるやベクターでもそれらしきものはありません。or同じくセットアップが出来ないです。
なにか方法は無いのでしょうか？

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

NGNG

このソフト恐ろしく快適ですね

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

NGNG

>>81
ActiveXじゃない普通のDLLが作れないこととかー。
VBでDLLつくってどうするって話もあるけど、できたら便利とも思う。
あとは、コンソールアプリを簡単に作ることができないこととかがあるな(笑

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

NGNG

>>86
言語仕様の時点でどう考えてお買ってると思うが。

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

NGNG

>>83
あれってオマケ機能だったんか？
知らずに何のありがたみも無く使ってたよ
CじゃなくてC++だけど。

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

NGNG

>>78
テストしてないけど、これでイイはず。

Dim array() As String
Dim i As Integer
Dim cnt As Integer
Dim buf1 As String
Dim buf2() As String
Dim num As String

Redim array(Empty) As String
num = FreeFile
Open DataFile For Input Shared As #num

Do Until EOF(num)

Line Input #num, buf1
buf2 = Split(buf1, ",")

For i = LBound(buf2) to UBound(buf2)
Redim Preserve array(i + cnt) As String
array(i + cnt) = buf2(i + cnt)
Next

cnt = cnt + i + 1

Loop

Close #num

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

NGNG

directxで画像を読み込んで表示しようと思ってるんですが
バックバッファーをつくってファイルを読み込むところで
型が違いますとかいってエラーになっちゃいます
どうしたらいいですか？
Set secddsurf = objdd.CreateSurfaceFromFile(App.Path + "\sample.bmp", ddsd2)

↑この部分

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

NGNG

>>90

だ　か　ら　先　に　set　の　意　味　を　調　べ　て　こ　い　と　あ　れ　ほ　ど　言　っ　て　い　る　だ　ろ　う　。

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

NGNG

>>91
よく見たら宣言部で違うクラスを書いてました
どうもどうも。

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

NGNG

(*´д｀*)ｱｯ、ｱﾊｧ・・・

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

NGNG

サーフェイスを作成するときって
ddsdcapsを有効にしてからそのあとにlcapsにサーフェイスを
指定したりしてるけどなんで
ddsd1.ddscaps.lcaps=ddscaps_primarysurface
ってかんじで直接指定したりできないの？
いちいち有効にする意味ってあるの？

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

NGNG

Excelやなんかのヘルプみたく、常に手前に表示しているのに
フォーカスを後ろのフォームに移せるタイプのフォームって
どうやって作れば良いのでしょうか。

あと、VBのコードエディタの自動メンバ表示ぽいのを実現しようと思ったら、
上記の手前に表示フォームで作るべきでしょうか。

009694

NGNG

ちょっと説明が変だった
＞ddsd1.ddscaps.lcaps=ddscaps_primarysurface
＞ってかんじで直接指定したりできないの？
↓訂正

ddsd1.ddscaps.lcaps=ddscaps_primarysurface
だけじゃだめなのはなぜ？

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

NGNG

リストビューコントロールに、Winampみたいなドラッグアンドドロップでの
順番入れ替えを実装したいのですが、
順番入れ替えはなんとかできました。ちょっとおかしい気もするけど。
ただ、カーソルを最上部、最下部に持っていったときに
自動スクロールさせる方法がわかりません。
どうやればよいのでしょうか？

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

NGNG

>95
SetWindowPosで最前面に表示させてやりゃ同じ動作にならなかったっけ?
あと、自動メンバ表示はこの方法で別窓に出すんじゃなく、自Window内に
直接描画するのが普通だと思う。

009997

NGNG

自分はこんなコードかいてます。＞最前面表示

Public Declare Function SetWindowPos Lib "user32" _
(ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

Private Sub Check1_Click()
SetFormTopMost Me, Check1.Value
End Sub

Public Sub SetFormTopMost(DstForm As Form, nYesNo As Integer) '最前面

Dim lngResult As Long
lngResult = SetWindowPos(DstForm.hWnd, nYesNo - 2, 0, 0, 0, 0, &H10 Or &H2 Or &H1)

End Sub

多分SetWindowPosのテキトーな数字がつっこみどころ満載な気がしますが
とりあえず動いてます。ダメっすかね？

0100初心者＠

NGNG

ログに書き出す為に　エラーが発生した時に、その時点で動いている
関数名を取得したいなと考えているのですが
そんな事は可能なのでしょうか？
色々調べて見たのですがはっきりしないので
どなたか教えていただけませんでしょうか？
よろしくお願いします。

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

NGNG

Microsoftのグリッドコントロールで、セルの上とか右とかの線だけ太くしたり、色を変えたりすることはできますか？

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

NGNG

かなりな厨な質問ですみません。
FileListBoxの選択される部分をカーソルキーで上下に移動するようにするには
どうしたらいいんでしょうか？

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

NGNG

いや　何もしなくても出来るけど。。。。汗

0104103

NGNG

＞102ね

0105102

NGNG

たぶん解決しました。
sub File1_click()
を書いていたので動かないだけでした。
どうもすみません。

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

NGNG

>>105
関係ないと思うけど…
(*´д`*)ｱﾊｧ…

0107102

NGNG

>>106
違いました。

sub File1_click()の中に Unload Meが書いてあって
カーソルキーを押すと閉じてしまうのでした。

0108102

NGNG

すみません。やっぱりお願いします。

カーソルキーでFileListBoxの選択位置を移動
↓
CommandButtonでファイルを開く

としたのですが、Enterキーを押してファイルを開くようにするにはどうしたら良いですか。
他のファームでは、Private Sub Form_KeyPress(KeyAscii As Integer)で
そういうショートカット作ったのですが、今回はうまく行きません。

0109103

NGNG

keypressじゃなくてkeydownのほうでやってみよう！

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

NGNG

>>108
ってかこれで取得できたけど？

Private Sub File1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Form1.Caption = File1.FileName
End Sub

0111102

NGNG

>>103
たびたびすみせん。
それ以前にKeyPreviewがFalseになってました。

0112102

NGNG

>>110
お手数かけました。

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

NGNG

書き込む前に今一度よく見直しな

0114ビンボー

NGNG

誰かWindows_Sockets_APIを解説しているＨＰしりませんか？

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

NGNG

>>111

まああれだな、もう少し丁寧にいえば？

>>113
そういうときはF8キー押して、トレースするんだよ。デバッグの基本だからさ、学校で教わることですよ

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

NGNG

>>115
ごめん相手が逆だった

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

NGNG

すみません、少々ご教授願いたいのですが、
dllのデバッグをしているとフォーム型のデータをオブジェクト型で受けて、
そのオブジェクト型（フォーム型）の変数を別のフォーム型の変数に代入する処理があるのですが、
「型が違います」というエラーメッセージが出てしまいます。
ちなみにデバッグしないで普通に実行すると出ません。
なんかデバッグウィンドウを見るとオブジェクト型の変数に入ってるフォーム型内容を
フォーム型として認識してないようなのですが、どなたかこの症状の回避方法か
フォーム型にオブジェクト型を代入する方法を教えてください
よろしくお願いします

0118　

NGNG

ddsd1.lFlags = DDSD_CAPS
ddsd1.ddsCaps.lCaps = DDSCAPS_PRIMARYSURFACE
この2行がどうしてもりかいできません。
この部分は形式的に覚えるしかないのでしょうか？

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

NGNG

>>118
１行目：ddsCapsを使いますよ～、という意味。
２行目：これはプライマリーサーフェスですよ～、という意味。

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

NGNG

COMポートの外部接続機器に10ミリ秒オーダーの正確なインターバルでもって
交信を行いたいんですが、timeSetEvent関数を使えば大丈夫でしょうか？

家にコンパイル環境も目的の機器もないので、テキストエディタで打って
ちいち持っていかないといけないのでトライ＆エラーがしにくいんです。

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

NGNG

>>120
その分解能をソフトリアルタイムOSでどうだすか。

0122120

NGNG

>>121
まあオーダーということで実際に10ミリ秒で割り込みできなくても構わないんですが、
50ミリ、100ミリ秒の割り込みに対して数ミリ秒の誤差が出るのは困るんです。

一応１.5GHz程度のPC(ライセンスの都合でOSは98かXP）において
タイマ割り込み＞呼びかけ＞返答＞返ってきた数値をグラフに図示＞（タイマかキー入力の）割り込み待ち
の流れになります。

0123　

NGNG

>>119
レスありがとうございます。
よく理解できました。
でもその1行目にかんして意味がまったく理解できません
素人目からみるといちいちddscapsを有効にしなくても
そのままサーフェイスを指定できるようになっていたら
手間が省けて楽なのではないかと思うのですが。
なんでそんなめんどくさい仕組みになってるんですか？

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

NGNG

>>123
こういうコトを平気で聞ける頭の構造を知りたくない。

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

NGNG

VB6の無料版って無いの？
あったら詳細キボンヌ

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

NGNG

>>100
俺がよく使うのは、1個エラー処理関数を作って、
別の関数でエラー時に、そのエラー関数に自分の関数名を
パラメータで渡す。あとはエラーが発生するのを待つだけ。
こんなんじゃダメかい？

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

NGNG

こんばんは。
初心者の質問です。よろしいでしょうか？

ＶＢでPrinterメソッドを使って印字させたいのですが、
ドットプリンターとレーザー式プリンターではコーディングの書き方が
違うのでしょうか？
レーザープリンターではうまく出来たのですが、ドット式だとうまく
動いてくれません。
printer.NewPageを書いても改ページしてくれません。
なぜなのでしょうか？教えてください。

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

NGNG

>>125
無いのでお引取りください

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

NGNG

>>125
MXで落とせるよ

0130123

NGNG

lcapsを指定する前にddscapsを有効にしないといけないのは
どうしてですか？なんでデフォルトで有効になってないんですか？
こういう仕組みになってて何かメリットはあるんですか？

誰か教えてーーーーー。

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

NGNG

黙れ。その口調虫唾が疾る。

0132123

NGNG

>>131
わからないなら黙ってろよ

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

NGNG

虫のくせに偉そうだな

0134123

NGNG

>>133

132をよくよめ。かんじがわからないならじしょひけ。

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

NGNG

MXで落とせる。

0136131

NGNG

131≠133であることを明言しておく。

次の質問ﾄﾞｿﾞｰ

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

NGNG

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

NGNG

それを知らないと何か不都合なことでもあるのか？

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

NGNG

>>138
directxのすみからすみまでちゃんと理解したいのですよ。
あ、もうこれ以上煽らないでね。返事書くのがめんどくさいから。

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

NGNG

Microsoftのグリッドコントロールで、セルの上とか右とかの線だけ太くしたり、色を変えたりすることはできますか？

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

NGNG

マイクロソフトにでも聞け

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

NGNG

>>117
本来 Activate かなんかで触ってるせいで、参照が途切れなくて exe でうまく
行ってるとか？

つか、それ以前に該当する変数をウォッチで、内容変更されたら Break とか式
のウォッチで isEmpty(frmHoge) とか iif(TypeName(a) = "Noting" ,True,False) とか、適当なところの #if 内にif typeof とかやった？

つか、やんなさいよ。

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

NGNG

>>140
オーナードローにして自分で描くしかない。

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

NGNG

>ddsd1.lFlags = DDSD_CAPS
>ddsd1.ddsCaps.lCaps = DDSCAPS_PRIMARYSURFACE
DirectX なんざこれっぽっちも知らんが、ddsd1.lFlags = DDSD_CAPS で ddsd1.ddsCaps の扱いとかインスタンスの種類が変わるとかそんなんじゃないの？

いずれにせよ ddsd1.lFlags の意味をドキュメントで引けばはっきりしそうだけど、無いの？

つか、言語やってるくせに順番変えたいとか要らないんじゃないのかとか、そう言う発想が出てくる自体変態。

0145142

NGNG

んごご、オブジェクトに isEmpty しちゃう漏れ…。

014697

NGNG

97ですけど、どうでしょうか～？

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

NGNG

>>146
ListView.ListItem.EnsureVisible
これか？

014897

NGNG

>>147
うん。
それだとは思うんだけど、どこでそれやればいいか分からない。

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

NGNG

DragOver かなんかかな

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

NGNG

>>146
rc = SendMessage(FileView.hwnd, WM_VSCROLL, SB_LINEUP, ByVal 0&)

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

NGNG

訂正
FileView.hwnd -> ListView.hwnd

015297

NGNG

>>150
スクロールはコレで出来ますね。

ドラッグアンドドロップでの順番変更の実装を
OLE DragDropとかじゃなくて、ItemClickとMouseMoveでやっちゃったんです。
ふつうDragDrop使いますかね？やっぱ？

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

NGNG

>>148
ListView_MouseMoveかなにかでHitTestしたらどう？

Dim Li as ListItem
Set Li = ListView.HitTest(x, y)
Li.EnsureVisible
みたいな。

015497

NGNG

>>153
お、なんだこりゃ。よくわかんないけどスクロールするね。
下方向だけに（ｗ

上方向にスクロールしてくれないです。なんでかな？

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

NGNG

>>154
んーと、
Dim i%
i = Li.Index
ってやって、
上の場合はi=i-1、下の場合はi=i+1して、
ListItems(i).EnsureVisible
とかやればどうかな。細かい点は工夫してね。

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

NGNG

>>126
自分は>>100では無いですが、
やはり現在の関数名を取得する方法というのは無いんですね。
ということはエラーが発生するたびに関数名を直に渡す(もしくは定数を使う？)必要があるのか…。
関数名が変わると、渡すパラメータ(もしくは定数の宣言部分)も書き換えないといけないということになりますよね？
参考になりました。

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

NGNG

アドインって作ったこと無いから全く知らないけど、アレ的クラスの中にコールスタックの情報持ってる奴とか無いのかねぇ…。

015897

NGNG

>>155
ん？
いや、ですから、その、上に行ったか下に行ったかをどうやって判別しよう？
と悩んでいるのです。
x,y座標から求めてもよいですが、
ColumnのHeightってどうやって調べるのでしょう？

というか、めちゃめちゃ言い忘れてますが、ListViewの詳細表示モードです。

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

NGNG

>>158
一つ前の状態を覚えておけば済む話では？

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

NGNG

>>84
半角英数のユーザー名でログイン、インストールしてみては。

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

NGNG

>>84
ここより Windows 板のXP とか、くだ質スレとか逝った方が早いと思われり。
プログラマ＝PC詳しいなんて思っちゃダメダーメ

0162120=122

NGNG

すいません。一度だけ再質問させていただきます。
>>120-122ですがなんかご意見いただけないでしょうか。

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

NGNG

フォームのBorderStyleをプログラム中で変化させようとしたら
変化しませんですた。おまえら教えてください。

Private Sub Command1_Click()
Form1.BorderStyle = 1
End Sub

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

NGNG

>>163 実行中にBorderStyleでの変更はムリ。　でもＡＰＩ使えば可。

ここを見れ。　むずかしくないから。
ttp://www.geocities.co.jp/SiliconValley/4805/vbtips/vbtips083.htm

016597

NGNG

結局未だうまくできてないなぁ
(*´д`*)ｱﾊｧ
定石ってあると思うんですが。

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

NGNG

>>165
常識を学ぼうか。

0167色々試すの大事の事

NGNG

>158(97)
> ColumnのHeightってどうやって調べるのでしょう？

ListView1.ListItems.Item(1).Top - ListView1.ListItems.Item(1).Top

MSDN の ListItem オブジェクトの項には出てないみたいだけど、こーど補完に
出るので試した。

画面の単位って苦手だから、出てきた値が、ホントにアイテムの TOP なのかどうかは知らんが。
その検証はそっちでやって。

# もし、これが正解で、今日半日これで悩んでたなら、君の休日半日分は俺の休日5分の価値以下とも…

Private Sub Form_Load()
　　Me.Show
　　Call ListView1.ListItems.Add(1, , "hoge")
　　Call ListView1.ListItems.Add(2, , "pyo")
　　Text1.Height = ListView1.ListItems.Item(1).Top - ListView1.ListItems.Item(2).Top
End Sub

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

NGNG

>>165
さすがに馬鹿らしくなってきたが…。

Private Sub ListView_MouseMove(x,y)

　　Dim Li as listitem
　　Dim i%
　　Static iPrev%

　　set Li = ListView.HitText(x,y)
　　i = Li.Index
　　
　　If i > iPrev Then
　　　　i++
　　ElseIf i < iPrev Then
　　　　i--
　　Else
　　　　Exit Sub
　　End if
　　
　　ListView.ListItems(i).EnsureVisible
　　iPrev = i
　　
こんなんでどうよ。

0169167

NGNG

言っちゃった（ｗ

017097

NGNG

ふ～
>>168さんのでも上方向がやはりうまくいかない

Dim Li As ListItem
Dim i%
Static iPrev%
Set Li = ListView1.HitTest(X, y)
i = Li.Index

If i > iPrev Then
iPrev = i
i = i
ElseIf i < iPrev Then
iPrev = i
i = i - 1
Else
Exit Sub
End If

ListView1.ListItems(i).EnsureVisible

こうしたらばっちりでした～。やた～

017197

NGNG

げ、崩れまくり。

0172126

NGNG

>>156
>関数名が変わると、渡すパラメータ(もしくは定数の宣言部分)も書き換えないといけないということになりますよね？

エラー処理の共通関数を作って、エラー時にそいつに関数名を渡すんだよ。
そしたら、何処で落ちてるかは分かるよね。
関数に渡すパラメータが変わると、何か問題あるのか？

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

NGNG

>>170
If文内の iPrev = i は外に出してひとつに纏められるし
i = i はいらんやろ…

0174156

NGNG

>>172
Private Sub AAA()

On Error GoTo ErrHandler

'適当な処理

ErrHandler:

'エラー処理の共通関数の呼び出し
Call CommonError("AAA",…,…)

End Sub

という感じですよね？あってますでしょうか？初心者なんであんまり自信が無くて。
この場合、関数名がAAAからBBBに変わると
エラー処理の共通関数に渡す"AAA"も"BBB"に変更するということで。
問題は無いですけど、現在の関数が取得できれば便利かなあと思った次第です。

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

NGNG

>>170
>>168はネタでエラー突っ込んどいたから動かなくて当然(w
というか、検証してないから素で間違ってたかもしれないけど。

あと、i=iの所は、i=i+1にしとかないと、ListViewの窓サイズによっては
動作しないよ。
それから、EnsureVisibleの前にiの値が適切かチェックすること。
（あるいはエラートラップかけること。）

017697

NGNG

>>175
1++とかのことですよね？
i=i+1にするとなんかうまく動かないんですが。
>>173
まとめるとうまくうごきません。
iprevの値が振動してしまいます。
iに代入する前にやらないとダメぽ。
i=iはいりませんね。

0177

NGNG

Do Until i=5
～
Loop
というのはi=5のときにループ内のプログラムを実行するんでしたっけ？

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

NGNG

>>177
ﾈﾀでつか

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

NGNG

>>178
VB厨をなめちゃ行けません。奴は本気です。

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

NGNG

>>177
英和引け

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

NGNG

あぼーん

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

NGNG

>>177
動かしてみればいいじゃん。

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

NGNG

>>177
VBってものすごく奥が深いね、難しいね

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

NGNG

オレもよくわからん

0185１７７

NGNG

少し書き忘れました。
i=0
Do Until i=5
～
i=i+1
Loop
でした。おねがいします。

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

NGNG

>>185
って言うかBASIC・・・？

0187177

NGNG

もちろん Until が～までという意味なのは知ってますが・・・。
確かめるためにプログラムを組むのも体力のいる話なので。
ネタじゃないです。

0188177

NGNG

>>186
Visualなほうです。

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

NGNG

>>187
＞確かめるためにプログラムを組むのも体力のいる話なので。
人に苦労させるのか。何様？

お前才能無い、あったとしても伸びない。プログラムなんぞやめて適当に楽な趣味なり仕事なり見つけろ。

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

NGNG

>>185
デバッグしてみ

0191177

NGNG

>>189
趣味でやってるだけなのでかんべんして。

0192177

NGNG

デバッグすると3分、聞くとそれよりはやいかなーと思ってたんですけ。

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

NGNG

>>187
人任せかよ。自分でやれ。10行もあれば確認できるだろ。
DoEvents入れたらリスクもかなり小さくなるし。

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

NGNG

ここはバカな>>117の貴重な時間を３分以上浪費させるスレになりました。

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

NGNG

>>192
プログラム向いてません。

0196177

NGNG

こんな板の空気じゃ親切に教えたがってる人も書き込めないじゃないか！

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

NGNG

>>177
i=5が偽の場合にループ内を実行するから
i=5の場合は実行されない。

Dim i As Integer
i = 0

Do Until i = 5

Call MsgBox(CStr(i))
i = i + 1
DoEvents

Loop

皆さんの言うとおり、自分でやっても短時間でできる場合は
やってみたほうがいいと思いますよ。

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

NGNG

>>177見たいなやつに教えたい人がいるとは思えんな。
人を人柱にしてるわけだし。

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

NGNG

>>198
これだからVB厨は。

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

NGNG

>>197
間違ってるぞ。６行目。

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

NGNG

Oracle使うときにはObjectBrowserっていう便利なソフトがありますが
SQLServerは使えませんでした。
SQLServer用の同様の便利なソフトってどんなのがあるのでしょうか？

0202197

NGNG

>>197
MsgBox使ったのはまずかったかも…。
Debug.Printの方がいいかな。

0203177

NGNG

>>197
親切レス感謝です。
実はVBではUntilを使ったときi=5を偽として扱うのかどうかが知りたかったんです。
Untilを使ったとき＝の左辺を偽として扱うというのがVBの仕様であるということは覚えておきます。

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

NGNG

>>203
普通にむかついたから二度と来るな。

0205177

NGNG

スレの管理人の1に来るなと言われたならもう来ません。

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

NGNG

>>203
死ね。

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

NGNG

>>203
ねらいすぎ萎え

0208177

NGNG

203は
＝の右辺
と書くつもりが間違えました。しばらくさようなら。

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

NGNG

>>208
永遠にさようなら。を希望。

0210177

NGNG

>>207
本当にi=5のときループ内のコードが実行されるかどうか知りたかったのに

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

NGNG

>>210
そんなこと自分でコード書いて確認しろ。
人柱にされたからこっちはむかついてるんだ。
いいかげんウザイ。分かったらさっさと失せろ。

0212177

NGNG

おまえらは理屈っぽい話に耐えられずに楽しい話しかしないいまどきのやつだということがよくわかったじゃあな

0213１

NGNG

>>177　
来るなとは言わん、が、自力でできることを他人任せにするな。
本ｽﾚ閲覧者はお前の召使いではない。

0214177

NGNG

うっせぇよ、全員死ね

0215177

NGNG

0216177

NGNG

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

NGNG

>>212
はいはい、そう思ってて良いから二度とこないでね。♥

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

NGNG

まぁ、句読点も満足に書けない奴だ。すぐに社会的に自滅する。

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

NGNG

>>214
逆ギレか。

0220177

NGNG

↑荒らしはオレじゃないぞ

スレ管理人の「来るなとは言わない」という言葉はさすがです。

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

NGNG

改めてVB厨のうざさを実感した。

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

NGNG

>>220
誰も信じるとは思えんな。

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

NGNG

>>221
本格的に迫害する必要がありそうだな。

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

NGNG

お
ま
え
ら
構うな

0225221

NGNG

>>223
今でも充分迫害になってる罠。(w
同じVB使いとして恥ずかしいよ。

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

NGNG

答えが出た瞬間攻撃し始める。
アホの典型だな。学校とかでもうまく太刀振る舞えていない可能性が高い。

と、言うか、

登校拒否－＞手に職を－＞VB－＞わからない－＞聞く－＞死ね－＞荒らし

非常にわかりやすいな。

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

NGNG

放置放置。
次の方どうぞ～♪

022897

NGNG

おいおい、どうかしたの？

皆さん変数名とかどうしてます？
自分はnXとかnYとかnKaisuだか
変数名には頭にnをつけて
Subにはs、Funcitionにはfをつけたりしてるんですが。
どうかしら。

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

NGNG

>>228
どうもこうも見たらわかるでしょう。どれが変数か手続きか関数か。

配列にはaX、構造体にはrX、クラスにはcXとかならまだしの。

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

NGNG

１77はリアル厨房なんじゃないか？
VBだけしか触ったことないんだろ？

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

NGNG

１77はリアル厨房なんじゃないか？
VBだけしか触ったことないんだろ？

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

NGNG

>>231
ただの社会のゴミです。多分VBもwarezです。

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

NGNG

ｺﾞﾒｿ >> ２重

お詫びに変数命名
整数はiX,、iY
文字列はstrTempとかstrナニナニ
ブールはblTempとか
そういう接頭辞をつけてる

0234177

NGNG

227で放置と書いてあったからもう書き込みしないとおもってたけど230でまた呼ばれてしまった。
VBとJavaScriptとHTMLを少々かじったていど。SQLはselect,update,deleteとか基本的なことしか知らないし。

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

NGNG

>>234
消えろ、ゴミ人間。

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

NGNG

１77はリアル厨房なんじゃないか？
VBだけしか触ったことないんだろ？

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

NGNG

>>236
ただの社会のゴミです。多分VBもwarezです。　

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

NGNG

>>234
ホントにVB厨って痛いんだな。

023997

NGNG

そ～すね。やっぱ変数でも種類によって分けた方がいいよね。

ここであがるコードとかみてると i だけとか多いのでどうなのかな～と
思ってみたりしました。

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

NGNG

>>239
ああ。Win32APIの影響じゃない？
構造体のメンバとかdwSizeとか型名付けるのが慣例だから。

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

NGNG

>>239
ごめん、まちがい。

iってのはカウンタ用の変数の代名詞みたいなもん。
ループさせるときは取りあえずi使っとけって感じ。
理由は知らないです。

0242177

NGNG

Integer

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

NGNG

>>239
iはループ用変数専用だな。暗黙の了解でそうなってる。

0244197

NGNG

>>239
それに便乗して質問したいんですが、
ループカウンタの変数名って皆さんどうされてますか？
参考書などはiとかnとか単純なものが多いのですが、
やっぱり接頭辞つけてiLpCntとか分かりやすい名前にしたりするのでしょうか？

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

NGNG

>>242
アホがなんかしゃべってます。

0246177

NGNG

共同作業するのでないなら自分のスキな名前でよいのでは？

024797

NGNG

>>244
自分はそのループカウントがほとんどnXになっちゃってます。
変？

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

NGNG

>>244
ループのカウンタって名前付けるほど重要じゃないから。
その変数に指定された増減で値が入ってくれてれば良いわけで。
それなら簡単に利用できるように1文字の方がいい。

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

NGNG

>>244
普通i。それだけで充分すぎるほど分かるしな。

025097

NGNG

あ、んでループの中のループだとnY、nZ・・って感じにしてます

0251177

NGNG

お前ら人の話聞けや！

0252177

NGNG

0253177

NGNG

↑にせものの177

0254177 ◆2ip6tn6c

NGNG

俺が本物。トリップ付いてないのは偽者。

0255197

NGNG

なるほど、回答ありがとうございました。

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

NGNG

>>244
コーディング規約で強制されない限りは i,j,k で済ませてる。

0257177

NGNG

トリップつけると不利になるだけやんか

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

NGNG

>>177はこの世から^H^H^H^H^H消えろってんだろうが

iはindex説、iteration説などがあるが、iterationが有力。

0259177

NGNG

VBのちゃんとした質問いいですか？

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

NGNG

>>259
死ね。

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

NGNG

せめて名前変えろ

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

NGNG

>>261
DQN臭ですぐわかる罠。

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

NGNG

おそらく偽者だろうし、やめれ>>177

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

NGNG

そういやXやYを変数として宣言する？
引数でXやYが使われてたりするから、
XやY一文字だけだとどうしても抵抗がある。

0265177

NGNG

結局VBがプログラム言語の中で一番だと思うんですが？
なんでみんなCとかやってるの？

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

NGNG

>>264
スコープが解決してくれるので基本的には問題ないかと。

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

NGNG

i,j,kがIntegerに使われるのはFORTRANの流れだろ。
漏れがFORTRANを覚えたときは、iからnまでが整数ﾀﾞﾀｰﾖ

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

NGNG

>>262
ホントだ。すげぇ臭うよ。(w

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

NGNG

俺ループカウンタにq,rをよく使う…

0270177

NGNG

今日は名前変えても意味なさそうです。ほとぼり冷めてから変えます。
質問なんですけど
aという変数をパブリックで使っているときに
GoToのラベルに
a:
という名前をつけてもだいじょうぶなんでしょうか？

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

NGNG

>>270
自分でやってみろｳﾞｧｶ

0272177

NGNG

>>265は偽者

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

NGNG

ﾏｼﾞﾚｽ
FORTRAN,N88BASIC,F-BASIC,C++,
最近業務でVB

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

NGNG

>>270
消えろ、ボケ。

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

NGNG

>>270
偽者おもんない。偽者は偽者なりに、ちゃんとしたネタをふれ。

0276１

NGNG

>>270
だから、試しに自分でやってみれば済むことをここで聞くなと小一時間

0277177

NGNG

ねたじゃないって。重箱のスミをつつくような知識は検索キーワードとかも思いつかないし。
オレの方がみんなよりよっぽどプログラムの細かい部分を気にしてるじゃないか。

0278177

NGNG

他の人にも参考になるように掲示板で質問してるのにな。

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

NGNG

>>277
＞重箱のスミをつつくような知識は検索キーワードとかも思いつかないし。
お前が単にアホだからだ。

＞プログラムの細かい部分を気にしてる
と、言うか知ってないとプログラムなんぞ組めない常識。
お前には教えないだけ。

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

NGNG

>>277
自明すぎて頭痛いだけ
しかも試せば五秒
検索する必要は全くなし

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

NGNG

>>278
良かったな。他行け。

0282ﾏｼﾞﾚｽ

NGNG

>>278
ならばあなたが実験して結果を報告

>>277では上手いことを言うものだと感心したよ

0283177

NGNG

>>282
ありがとう。
実験結果はみんなとおなじで秘めておくつもり。

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

NGNG

>>283
＞>>277では上手いことを言うものだと感心したよ
皮肉だと思われ。

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

NGNG

>>283
どうでもいいから、早く回線切って首釣りなさいってば。
お前には生きてる価値がないんだから。

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

NGNG

>>283
＞実験結果はみんなとおなじで秘めておくつもり。
なんだ、脅しかそれは？まぁそのほうがスレが汚れなくていいがな。

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

NGNG

>>286
全員が知ってることわざわざ書かれてもなぁ・・・。
全員じゃないな。ただ一人わかってないのがいらっしゃる。

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

NGNG

>>286
禿同、知ってることを書かれてもｳｻﾞｲ

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

NGNG

>>287
知らないとしても自分で確認してみればいい訳だしね。

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

NGNG

>>283の欠陥人格は浅原ショウコウと同程度。

For i = 1 To 小一時間
　　Debug.Print "早く回線切って首吊れ"
　　DoEvents
Next

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

NGNG

よって>>177はアホと。

合点していただけましたか？

0292177

NGNG

うたがわしきは使うべからず。
疑問は晴れないがaを使ったらa：は使わないようにした方がよいみたい。
ただ変数名にaを使うのも好きだし、GoToのラベルにa：を使うのも好きだから可能なら両方使いたいと思ってさ。
こんなこだわり捨てないとね。

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

NGNG

>>292
＞ただ変数名にaを使うのも好きだし、GoToのラベルにa：を使うのも好きだから
…………。

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

NGNG

仮にさぁ、177はｶﾞｯｺでVB弄ってるけど、自宅PCにはVBが入ってなくてってんなら、
「ｶﾞｯｺで実験しる！」ってレスも返るのにね。

0295177

NGNG

myAryとかmyCounterよりは好き

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

NGNG

>>292
>うたがわしきは使うべからず。
検証なくして進歩なし。
177は学習意欲を捨ててます。

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

NGNG

>>296
何を今更。こいつは成長しないよ。ただ無駄に電気使ってる廃棄物。

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

NGNG

こういうDQNが就職すると、大勢の人が迷惑するんだろうな。

自己中の塊のような奴だから、コードの保守性とか可読性なんか、一生
考えんだろーし。

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

NGNG

VB厨ってこんなのばっかかよ？

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

NGNG

>>296
その疑わしきを人にやらしてるからな。
で>>177はそれで叩かれてることをまだ気付いてない。

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

NGNG

>>299
まさかVBユーザーは>>177みたいなやつばかりじゃないだろうけどね。
ここで回答してる人も少なくともVBを使えるわけだし。

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

NGNG

>>301
ブビー。私使えません。

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

NGNG

>>300
バカは自分のことをバカだと気づけないからバカなのです。

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

NGNG

>>301
VB使ってても、それだけではないからVB厨ではないと言い逃れ

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

NGNG

177 GoTo 177

0306177

NGNG

>>187
の「確かめるためにプログラムを組むのも体力のいる話なので。」
は失言です。思っても無いのになんでこんな文を書いてしまったのか・・・。
とにかく自分で調べるより聞くのが好きだということです。
いや、それがたたかれる原因なんですけど。ちゃんとわかってるし、失言してしまってたことに気づいたのでもう許してください。
ところで
ttp://wwww.aaa.com/folder/
のアドレスを開いたときに
index.htmlを開いたのか、
main.htmlを開いたのか、
default.htmlを開いたのか
を取得するにはVBでどんなオブジェクトやコントロールを使えばよいのでしょうか？

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

NGNG

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

NGNG

の「確かめるためにプログラムを組むのも体力のいる話なので。」
は失言です。思っても無いのになんでこんな文を書いてしまったのか・・・。
とにかく自分で調べるより聞くのが好きだということです。
いや、それがたたかれる原因なんですけど。ちゃんとわかってるし、失言してしまってたことに気づいたのでもう許してください。
ところで
ttp://wwww.aaa.com/folder/
のアドレスを開いたときに
index.htmlを開いたのか、
main.htmlを開いたのか、
default.htmlを開いたのか
を取得するにはVBでどんなオブジェクトやコントロールを使えばよいのでしょうか？
の「確かめるためにプログラムを組むのも体力のいる話なので。」
は失言です。思っても無いのになんでこんな文を書いてしまったのか・・・。
とにかく自分で調べるより聞くのが好きだということです。
いや、それがたたかれる原因なんですけど。ちゃんとわかってるし、失言してしまってたことに気づいたのでもう許してください。
ところで
ttp://wwww.aaa.com/folder/
のアドレスを開いたときに
index.htmlを開いたのか、
main.htmlを開いたのか、
default.htmlを開いたのか
を取得するにはVBでどんなオブジェクトやコントロールを使えばよいのでしょうか？

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

NGNG

頭痛してきた。

0310177

NGNG

↑荒らしはやめなさいって

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

NGNG

頼む、もう勘弁してくれ。漏れが悪かった。

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

NGNG

プログラマになんかなるんじゃなかった。
何が楽しくてこんなのと同類に見られなきゃならないんだ・・・。

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

NGNG

なかなか上手いな

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

NGNG

177お前年齢いくつだ？

0315177

NGNG

すべてホントに教えて欲しいことですが本でもさがしてきます。
>>314
20代です。

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

NGNG

>>315
２１としてお前を軽蔑した。

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

NGNG

>>315
中学生か高校生かと思ってた。マジで。

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

NGNG

>>315
いい年して、↓はないだろう
>とにかく自分で調べるより聞くのが好きだということです。
小学生並だぞ？
俺の下にいたら怒鳴り散らされること必至だ。

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

NGNG

>>315
こんな20代がいるのか。いや特別な例だろうけど。10代として呆れた。

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

NGNG

>>319
大丈夫。年代問わず呆れてる。

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

NGNG

>>317
まさか人間とは思わなかった。
てっきり猿か犬か猫(以下、略)

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

NGNG

>>318
俺なら解雇。

0323177

NGNG

今ここで終了と言ってもあまり終止感がないけどもう自分で調べるので私のカキコは終わりにします。

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

NGNG

>>323
つぅか死んでくれ。ソフトウェア業界の癌だ。

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

NGNG

PC初心者板の糞スレに>>177の小学生並みの発言が何故かコピペされてた。

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

NGNG

何でPC初心者とこの板一緒に見てる奴が居るんだよ…。

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

NGNG

>>326
犯人と発見者。少なくとも二人な。

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

NGNG

VB使いとして情け無い｡･ﾟ･（ﾉД`）･ﾟ･｡

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

NGNG

>>193
DoEvents使うのでもいいけど、Ctrl+Breakを押せば無限ループ中でも中断できる。
意図しない無限ループにはコレ使え。

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

NGNG

>>329
Ctrl+Breakすら利かなくなることもしばしば(；´Д`)

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

NGNG

おい、177よ。
お前は開発には向いてない、引退しろ。
お前に向いてることが、他にあるはずだ。
人間、引き際が肝心だぞ。

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

NGNG

>>331
あなたも何時間前の人間に説教しているのか。

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

NGNG

面白い（ｗ

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

NGNG

8時間前だろ>>332

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

NGNG

>>334
うわ、俺そんなにインターネットやってるのか・・・。

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

NGNG

クリップボードの監視というのはどうやればよいのでしょうか？

また、その監視している最中に
フォルダやファイルをクリップボードにコピーした時
フルパスで一旦、変数に保存してまた任意の時にクリップボードにデータを返す、という
クリップボード補助ツールもどきを作りたいと思っているのですが・・・

テキストや画像ならば検索するとよく出てくるのですが上記のやり方をしらべきれなかったので
ここによらせて頂きました。よろしければご教授お願いします

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

NGNG

>>336
いろいろAPIがあるよ。

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

NGNG

>>337さん
APIで捜せばいいのですか、どうも親切にありがとうございます。
ちょっと荒れていたので厨な質問で蹴られるかと心配しておりましたが
大変嬉しいです。捜してみるとします。わざわざご教授してくださってありがとうございました。

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

NGNG

>>336
SetClipboardViewer
ChangeClipboardChain
を調べてみ。

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

NGNG

ありがとうございます

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

NGNG

VBってクリップボード関連自前で持ってたろ

0342336

NGNG

すいません、途中送信してしまいました。
Set～の方は自力でなんとか探しましたが後者は初めて見ました。
わざわざ、しるしてくださって助かります。ありがとうございました。

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

NGNG

>>342
ソレしないとクリップボード破綻するから。

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

NGNG

>>336
質問如きで揚げるなカスが
あーあこれだからVBなんてカスだね
>>341とかの知ったか厨までいるしな（藁

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

NGNG

>>344
質問こそageないでどうする？
初心者質問ｽﾚだぞ。

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

NGNG

>>344
>>341はClipBoardプロパティの事を言ってるんだろ。

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

NGNG

>>346
とはいえ質問の答えとしたら不適切だとは思ったけどな・・
まぁ>344は論外として

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

NGNG

ホント。
今後あらゆる質問の答えは「VBなんか使うな」の方向で。

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

NGNG

↓コレじゃダメかい>>336
http://vbvbvb.com/jp/gtips/0051/gSetClipboardViewer.html

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

NGNG

>>160
そのやり方で出来ました。
私の長年の疑問を解いてくれてありがとうございます。
これはきっと他のインストールできないプログラムでも
応用できそうですね。つうか、もしかして有名でしたか？
一応色々検索はかけてみたんですけどねえ。
>>161
いやいや、私と比べれば皆さん詳しいですよ。
くだ質スレは考えたんですけど、こちらのほうが詳しい人が居るかなぁって。
自分でも調べていたけど、それらしきものが出てこなかったから難しいのかなって。

Win板では数ヶ月前に似た質問をしましたが返ってこなかったか、
無理って結論だったような。
あと、VBスレならもしかしたらXPでも普通にインストールできる
>>84のランタイムを持ってる人が居るかもって期待もあったんで。

いずれにしても、板違いの質問に答えてくれた二人の方に
ありがとうございました。
sage

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

NGNG

>>201
Oracleは知らんが、EnterpriseMangagerというのを使っている。

0352336

NGNG

皆様ありがとうございました
最終的に>>349さんで示してくださってページ他にたどり着きなんとかなりそうです。
親切に応えてくださって本当に嬉しいです。
お手数おかけしてすいませんでした。

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

NGNG

C:\Document and Settings\Administrator\ﾃﾞｽｸﾄｯﾌﾟ

Labelコントロールに上のような長い半角スペースの入った文字列を入れると、
自動的に半角スペースの位置で改行されるのですが、これをさせない方法を
ご教授いただけませんか。
文章がいきなり切れたようになって困っています。

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

NGNG

ＶＢの寿命ってあとどのくらいなのでしょうか。
いまさらＶＢの勉強をするのは無意味でしょうか。
Ｃ＃かＣ＋＋をやったほうがいいのでしょうか。
教えてください、よろしくお願いします。

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

NGNG

>>354
無駄です。

0356354

NGNG

>>355
何が無駄なのでしょうか。
ＶＢが無駄？
Ｃ＋＋，Ｃ＃が無駄？

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

NGNG

>>354
どうせやるならC#かVB.NETの勉強しる！

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

NGNG

>>355
いやいや、無駄ということはないですな。
VBから他の言語に移植するとか、
「昔、こういう言語があったんだ」と語ったり。
あらゆる勉強に無駄なんてものは無いものです。

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

NGNG

>>358
非常にコストパフォーマンスは悪いけどね。
ステップアップすべき言語もないわけで。

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

NGNG

>>358,359
ってことは結論としてはVisualStdio.net で　COBOLをやれってことですね。

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

NGNG

>>359
うん、ですね。
つまり、「まったくの無駄ではないが、それほど得にもならない」ってところでいかが？
漏れはなぜか今、MASMを再勉強させられてるし。

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

NGNG

↓コレじゃダメかい？>>353
Label1.AutoSize = True

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

NGNG

>>361
別の選択肢があり、その選択し群の方が明らかに効果が大きい。
その現実がある以上、やっぱりVBは存在が悪かと。

0364336

NGNG

なんとかクリップボードを監視させるのは皆さんのお陰で実装できました
ありがとうございます
また質問で大変恐縮なのですが
> また、その監視している最中に
> フォルダやファイルをクリップボードにコピーした時
> フルパスで一旦、変数に保存してまた任意の時にクリップボードにデータを返す、という
というのは出来ないのでしょうか？

例えば
C:\Super_pi\readme.txtをctrl+Cでコピーする
それを監視していて変数Clip_f(1)にフルパスで保存させClip_a(1)に場所情報？を保存させる
C:\Documents and Settings\Administrator\デスクトップ\desktop.datを同じくctrl+cでコピーする
また同じく変数Clip_f(2)にフルパスで保存させClip_a(2)に場所情報を保存する

コンボボックス辺りで、履歴を保存させておいて
フルパスをテキストボックスにでも出力させて、ボタンをクリックすると
場所情報？が、クリップボードに返されて任意の時に
過去のコピー、切り取りなどの情報をクリップボードに戻せて
貼り付けなどが出来る、ということをしたいのですが・・・

当方の知識不足故、言葉で言い表し難く読みづらいかもしれませんが、再度助言をお願いいたします

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

NGNG

こんなこと書くとみもふたもないが、できるやつは
ひとつの言語をマスターすれば別の言語へも
スムーズに移行できると思う。ただ、その元になる一つの
言語は、少なくともオブジェクト指向的であってほうがいいと思う。
VB6もクラスが使えるので、一応可。
この際、厳密な意味でのオブジェクト指向云々の話は抜きでね。
欲を言えばC++かC#のほうがいいのかな。敷居は高くなるけど。
VB使いでも、クラスってなに？とか言ってるﾔｼは、他の言語への
移行は厳しいと思う。
そんなこという俺は、C/C++ VB COBOL BASIC 使いなんだけどね。

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

NGNG

>>365
＞VB6もクラスが使えるので、一応可。

初めて鼻で笑った。

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

NGNG

>>366
初めて鼻で笑った。

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

NGNG

>>364
入力内容と一致する履歴を、クリップボードに保存したいってことか？

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

NGNG

>>367
初めて鼻糞食った

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

NGNG

>>369
記念日だな。

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

NGNG

>>369
頼む、やめてくれ

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

NGNG

>>368さん
というよりも
クリップボードの履歴を（テキストやファイルのコピーなども含めて）変数に格納して
またあとから参照できるようにしたいのです。

0373368

NGNG

>>372
クリップボードは監視できるんだよね。
じゃあ、クリップボードの情報は取り出せるんだよね。
だったら、それを配列や構造体にでも保存すればイイんじゃないの。

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

NGNG

>>368さん
再度レスありがとうございます
ええ、それをやっているのですがファイルをコピーしたりしても反応してくれないので・・・
全く別なんでしょうかねぇ・・・・

0375353

NGNG

>>362ｻﾝ
それは正直つらいです。
>>353に書いた現象はどうしようもない事なのでしょうか。

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

NGNG

>>375
自前で改行したい位置で改行させるとか。

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

NGNG

>>375
いろいろ試してみたけど回避方法ないみたいだね。
どうしてもイヤなら自前でユーザーコントロールでも
作って描画するしかないのでは。

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

NGNG

001.exeというファイルにはForm1とForm2があり、スタートアップでForm1が起動するとして、
また別の002.exeから001.exeのForm2を呼びたいのですが、こんなことは不可能ですか。
できるのであれば教えてくだされ。

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

NGNG

>>351
どちらかというとクエリアナライザのような気がしないでもない

0380353

NGNG

>>376ｻﾝ、>>373ｻﾝ
ありがとうございます。
無理と分かっただけでもありがたいです。何か別の方法をとることにします。

0381ななしちゃん ◆xEQ8vQ62

NGNG

http://uramon.com/top.htm
このサイト、書き込みの文字色が少ないんだけど他の色を出す方法
ありますか？たまに、違う色で書いてる人もいるんだけど、やりかた
教えてくれない(泣　教えて下さい。お願いします！！

0382362

NGNG

>>375
改行されないようにしたいのか？
それとも、指定位置で改行したいのか？

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

NGNG

>>381
板違い。

0384353

NGNG

>>382ｻﾝ
前者です。テキストボックスみたく、幅を超えた文字はそのまま右側に隠れてほしいのですが。

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

NGNG

>>384
TextBoxつかえ。
背景色変えたりEnableはFalseにしたりして
見た目上ラベル見たくすれ。

0386353

NGNG

>>385ｻﾝ
うーん、それのが良さそうですねぇ。
EnabledをFalseにした時の文字色って変えられましたっけ？

0387353

NGNG

あ、Lockedを設定すれば良いのか。
すみません、ありがとうございましたー。

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

NGNG

>>387
フレームの中にラベルを入れりゃいいだろ

0389382

NGNG

>>387
そういえば、俺も同じことで悩んだことがあったなあ。
結局その時は、TextBoxで代用したんだった。
昨年のことなんで、すっかり忘れてたよ。

0390368

NGNG

>>374
一体どれができないんだ？
①クリップボードの監視ができない。
②クリップボードの情報が取り出せない。
③配列および構造体に保存できない。

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

NGNG

>>390
通知メッセージが届かないのでは？VBは。

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

NGNG

>>390さん
②ですね
TEXTなどの情報は取り出せるのですが・・・
宜しくお願いいたします

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

NGNG

機種依存文字。

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

NGNG

>>393
申し訳ございませんでした
ついつい忘れていました
"2”です

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

NGNG

>>378
コマンドライン引数で分岐すれば？

>>388
フレームは、WinXPで見た目トラブる。

0396390

NGNG

>>394
↓コレは参考にならんかい？
http://www.koalanet.ne.jp/~akiya/vbtaste/vbp/#shell2

↓タイプライブラリを直下に展開すれば動くから。
http://www.koalanet.ne.jp/~akiya/vbtaste/tlb/

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

NGNG

　　　　カシワモーチ
　　　　　　　　　　　　　＿＿＿＿＿＿
　　　　　　　　　　　　`=､;;;;;,,,,,,,:::,,,,,;;;;;,,,,`""''';;;;,, ､__
　　　　　　　　　　　　 ,.-'ﾞ''''',='";;;;;;;;",-,,;;;;;;ﾞ;;;;;;;;;l;;;;`,､
　　　　　　　　　　　／　　　`ｰ-...,;;;;;;;;;;;;,-‐/;;;;;;';;;;;;;;;;;;
　　　　　　　　　　./　　　　　　　　　　　　　`''''''""i;;;;;;;;ヽ
　　　　　　　　　　l　 ■ 　|,,,____/　　　　　　　　　　　|;;;;
　　　　　　　　　　|　　　　|.:::::/　　■　　　　　　　　ﾉ;;;;
　　　　　　　　　　ヽ、　　　|:::/　　　　　　　　　　_,／;;;'゛
　　　　　　　　　　　 `ヽ､_　|/　　　　　　　 _,,.,;‐';;;;゛゛
　　　　　　　　　　　　　　"'''=ｰ;‐---‐‐'';';"-''"゛

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

NGNG

おまいら。
VBでタスクマネージャーつくってみれ。

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

NGNG

>>398
頼むから起動してるプロセスの列挙くらい自分でやってくれ。

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

NGNG

>>393
どうせこのスレ住人はWinなんだから、①②③とかⅠⅡⅢくらいは構わないだろ。

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

NGNG

頼むからVBで黙ってポインタ使えるようにしてくれ

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

NGNG

>>393
どうせマカーなんてカスなんだから、①②③とかⅠⅡⅢくらいは構わないだろ。

0403400

NGNG

>>402
チャレンジャーなんだな

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

NGNG

>>401
参照あるから良いじゃん。

0405398

NGNG

というかよぅ。
NT系についてるタスクマネージャーがあるじゃん。
あれと同じようなのVBでつくれるかなーって練習のつもりで初心者ちゃんの
漏れはやってみたわけですよ。

プロセス列挙やらメモリの使用率とかは普通にできたんだけど、
CPUの使用率だけわけわかんなくて憂さ晴らしですよ。

もう漏れのヘタレっぷりに激しく鬱。

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

NGNG

つーかWin9x系でCPUの使用率って取得できるのか教えてくれ。

0407398

NGNG

>>406

Win9x系はレジストリ読めばできるみたいなんですよ。
その手のサンプルは結構あったんですよ。
んでもNT系ってレジストリに値があるわけじゃないようなんですよ。

なんか特殊なAPI使うらしいけど、参考資料が何もないからわからんです（；´Д｀）

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

NGNG

>>407
そうなのか。でもそれってプロセスごとじゃなかったりする？
友達のうちでなぜかマシン(Win Me)が異常に遅くなるからプロセスごとのCPU
使用率を調べたいんだが出来たりする？
そういうフリーソフト探したが見つからなくてヘルプ探したが見つからんかった。
逆に質問してｽﾏｿ

0409398

NGNG

>>408
んー。
自分が探してたのがNT系だったんで、9x系の参考資料は思いっきり流し読み
してたんで断定はできないけど、プロセスごとの使用率の資料もあったと思う。
もし、方法を探してるうちにまた見つけたらカキコするYO!

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

NGNG

>>409
漏れも必死に探して結局見つからなかったことが(;´д`)
SETI@homeとかUDとかの負荷を除いたCPU負荷が知りたかったのだけど…。
もしかして隠しAPIかなぁ。MSが公開してくれると嬉しいなぁ…。

0411398

NGNG

>>410
NT系では隠しAPIでいけるらしいです。NTDLLとかいうやつ。
過去スレの４で、↓みたいな書込みをやっとハッケソ…Win9x系はわからないけど…

253 名前：デフォルトの名無しさん投稿日： 01/12/12 00:37

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

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

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

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

NGNG

パフォーマンスオブジェクト使え

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

NGNG

'rs1.Close
rs1.Open "select str from replace where grp = 1001 and id = " & rs("goodsunit"), conn, 3, 1, 1

上のコードだと２行目で「オブジェクトが開いている場合は操作が許可されません」とエラーがでて

rs1.Close
rs1.Open "select str from replace where grp = 1001 and id = " & rs("goodsunit"), conn, 3, 1, 1

上のコードだと１行目で「オブジェクトが閉じている場合は操作が許可されません」とでました。

なんかおちょくられているようでとってもいい気分なんですが、
なぜでしょう。

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

NGNG

つれなくなったな・・・・

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

NGNG

>>413
3, 1, 1じゃなんのことかわからんから考える気もせんな。

0416398

NGNG

>>412
ありがとうございますた。
このヒントでいけました！

PdhAddCounter hQuery, "\Processor(_Total)\% Processor Time", hCounter

こんな感じでPDH関連のAPI関数を利用して成功しますた。
ただ、このCPU計測自体が使用率を上げているという罠。

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

NGNG

>>413
rs("goodsunit")と rs1 は別の物?

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

NGNG

>>417
別のものだけどまじめに考えないでね。

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

NGNG

アーヴァインがデルファイだから見たくても見れないよー

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

NGNG

同じユーザー定義型の変数２つを中身が同じか
比較したいんだけどユーザー定義型変数同士をIfで比較できますか？

できなければ何かいい方法あるかな？

メンバが１００個とか大量のユーザー定義型だと
メンバごとにIf文書いて比較って超大変ぽ・・・。

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

NGNG

みなさん、こんにちは
VB6.0を使ってます。

HTTPSでPOSTさせ、結果を取得するには
どうしたら良いでしょうか？

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

NGNG

>>421
SocketでHTTPクライアント実装する。

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

NGNG

Excelのクエリウイザードみたいにドラッグで列を入れ替えられる
コントロールってありますか？
無ければ、何か同じ動きが出来るコントロールは無いでしょうか。

0424421

NGNG

>>422
＞SocketでHTTPクライアント実装する。

レスありがとうございます。
具体的にどうすればよいのでしょう・・・

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

NGNG

>>424
キーワード貰ったらどうするのが大人？

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

NGNG

>>420
中身が全部数値型だったら、memcmpで
できそうな気がしなくもない

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

NGNG

>>424
具体的ってちみはいったいどこまで知りたいわけ？

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

NGNG

>>424
そういうのを一般に「丸投げ」と言います
良識ある大人はやらない行為です

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

NGNG

>>428
うちの社長はよくやります。
そのくせ出来上がったものには文句つけまくりです。
しかも納期の直前に

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

NGNG

>>429
その上納期直前に突然仕様追加とか変更とか？

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

NGNG

>>430
そのとおりです。仕様の変更追加です。
うちの会社自分しかSEいなくて
プログラマーはだれもいない。
外部から２社プログラムに手伝いにきてる
うちの会社ベンチャーでしかも、
プログラムできるやつ俺しかいないから、
仕様の変更がどういうことになるかわかってない。
盆休み無かった上に土日も休み無い

　タ　ス　ケ　テ

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

NGNG

丸投げするほうもするほうですが、丸受けするほうもｲｹﾅｲと思います。

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

NGNG

エラーの発生した関数名を取得する方法なんてありますか?
やっぱり関数の先頭でグローバル変数に名前を書き込むとかしないとダメでしょうか。

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

NGNG

>>432
イクナイといわれてもキョヒデキナイ

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

NGNG

>>433
一般的には出来ないってことになってるな。
個人的にはスタックのデータとかタイプライブラリの情報とか
デバッグ情報とか組み合わせれば出来るんじゃないかと思っているが
わからん。

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

NGNG

皆さんこんにちは。
NetMeetingをフォームに埋め込みたいのですが、
何か方法がございますか？

Webページには、
<object ID="NetMeeting" CLASSID="CLSID:3E9BAF2D-7A79-11d2-9334-0000F875AE17">
のようにHTMLに埋め込んでうまくいったのですが、
VBでは、よくわかりません。
参考にしたのは、
http://www.fukumi.co.jp/tips/netmeet_ftw.htm
です。

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

NGNG

>>420
>メンバが１００個とか大量のユーザー定義型だと
COBOL製システムからの移植とかか？
でなきゃ、それはひどいユーザ定義型ですね。

>メンバごとにIf文書いて比較って超大変ぽ・・・。
そのユーザ定義型にはどうやって値を設定するの？
それもたいがいだと思うが・・・。

* ファイルに書き出して、FCコマンドで比較するとか。

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

NGNG

>>434
丸投げ→丸受け→丸戻し(納期までの残り減少、仕事量倍増)
されたぞ・・・・。

丸投げするDQN。
丸受けしといてろくでもない状態で丸戻しするDQN。
火消し約で入らされて漏れ。
ま、もう終わったプロジェクトだけど。

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

NGNG

webBrowserに表示されている文字だけをとりだして
textboxに表示させたいのですが
どのようにすればよいのでしょうか
どなたかお願いします

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

NGNG

テキストのエンコード(？)をシフト JISにしたいのですが
どうすればいいのでしょうか？バカですみません

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

NGNG

>>440
ばーかばーか。

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

NGNG

>>441
そうなんですよ…この前数学で赤点取っちゃうし…助けてください

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

NGNG

>>442
こうゆう奴が将来入ってくるの？
鬱だ

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

NGNG

>>442
安心してください行きません

0445444

NGNG

>>443
の間違いでした

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

NGNG

>>445
ばーかばーか

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

NGNG

>>446
教えてもらえませんか？？

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

NGNG

>>447
いや

0449443

NGNG

ではお手軽な方法のヒントを
NKF32.dll
以上

0450443

NGNG

>>440
ついでに指摘
×：テキストのエンコードを
〇：テキストのコードを
エンコードは符号化、複合はデコード
文字コードはASCIIとかJISとかUNICODEとかS-JISとか。

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

NGNG

>>450
で、テキストのコードって何さ？

文字＝テキストとか言ったらバカにする。

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

NGNG

>>450
どうもありがとうございました。出来ました。

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

NGNG

>>450
そうでした･･･ありがとうございます
DLL使わない方法はないんですか？

0454443

NGNG

>>451
ヤベッ　揚げ足取られてバカにされた

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

NGNG

>>453
ほう、心意気やよし。

変換テーブルを自前でこしらえて変換しろ。以上。

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

NGNG

>>454
揚げ足を取る≠間違いであろう点を指摘する

0457443

NGNG

>>454
テキストだって、盛れってバカ丸出し。
キャラクタじゃねーかよ、氏ね->漏れ

0458443

NGNG

>>453
RFC読め

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

NGNG

DLLの使い方が分からないなんて言ったら怒ります？

0460443

NGNG

>>459
怒る前に脱力死

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

NGNG

443を殺したお前は177か？

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

NGNG

>>459
なんで生きてるんだろう・・・こいつ。程度。

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

NGNG

>>459↓読め
ttp://www.geocities.co.jp/SilkRoad/4511/vb/vb.htm
ttp://www.geocities.co.jp/SilkRoad/4511/vb/nkf32dll.htm

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

NGNG

本当にすみません、始めたばかりなもので…
177ではありません。DLLの使い方勉強してきます

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

NGNG

>>463
ありがとうございます！

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

NGNG

>>463
そこを見ようとしたんですが「ページが表示されません」ってでるのですが
リンクが切れてるのですか？

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

NGNG

>>464
がんばれ。

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

NGNG

>>467
がんばるぅ～。（*^_^*）／~~

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

NGNG

>>466
今、見えてるぞ

0470工房

NGNG

httpからバイナリファイルをDLする際、HEADでヘッダのサイズを調べて、
GETでヘッダごとファイルに落とし、その後ファイルからヘッダ部分を抜き取る…
という手法でバイナリファイルをDLしているのですが、変ですか？

本などをまったく見ずに自分で考えた手法なので、漠然とした不安があります。
もっと効率のいいDLの仕方があったら教えてください。

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

NGNG

>>470
GETだけでいいじゃん。ヘッダ付いてくるし。

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

NGNG

>>470
そのためのcontent-lengthだと。

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

NGNG

一回目の\r\n\r\nで切るってのはダメなのか？

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

NGNG

Printerオブジェクトと、印刷ダイアログボックスで返ってくる、
hDCの連携についてだけど、

リッチテキストボックスの印刷とかでは、
RichTextBox1.SelPrint CommonDialog1.hDC
ってやって､プリンター選択してるみたいなんだけど

Printerオブジェクトには、「.SelPrint」ってメソッド無いでしょ
どやって、Printer選択すればいい？

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

NGNG

>>474
いくらフランクな掲示板でも、最低限人に物を聞く態度ってあると思うよ。

0476工房

NGNG

>>471-473　
レスありがとうございます。
GETだけでやる場合は
GetData buff,vbarray+vbbyte,totalbytes
put #*,,buff
みたいな感じでしょうか？
ヘッダとバイトがくっついてる場合はどうすればいいんでしょう？
それとも両方とも落としてから区切るわけですか？

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

NGNG

>>476
＞ヘッダとバイトがくっついてる場合
ッテナンデスカ？

0478工房

NGNG

>>477
あれ、もしかして恥ずかしい発言をしてしまいましたか？
GetData str,,totalbytes
text1 = text1 & str & "あいうえお"
って感じでやってみたら

HTTP/1.1 200 OK
(略)
Content-Type: application/octet-stream + 改行×2
]蓋E;あいうえお

ってテキストに表示されたんですが、最後の文字化けの部分は多分バイトだと思ったので
"ヘッダとバイトがくっついてる場合 "って表現しました

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

NGNG

ヘッダとバイナリ　が正しい表現という意味では

0480工房

NGNG

>>479 以後気をつけます(恥

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

NGNG

>>479
に、してもそんな現象あるわけ？
\r\n\r\n後は本文っしょ。

0482工房

NGNG

一番最初の cr lf cr lf を受け取る前はstring型に収納して、
受け取ったあとはbyte配列に収納、という方法でやってみましたが、
その配列で書き出したファイルは正常に動きませんでした。
通常はそんな現象はおこらないのですか？
一般的におこらないとされているのならば、もう一度コードとにらめっこしてきます。

0483工房

NGNG

僕があほでした
つきあってくれたみなさん申し訳ありません。

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

NGNG

>>483
取りあえず。

ケアレスミスでした、僕がアホでした。

か

こんなところで聞いた、僕がアホでした。

どっちかはっきりさせてちょうだいな。

0485474

NGNG

>>475
君は、喋らなくいいよ。

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

NGNG

非常に初歩的な、あれだが、
ReDimやると、中身消えちゃう？

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

NGNG

>>ばか
RFC読め。

0488486

NGNG

Preserveでした。
「てへぇ!」

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

NGNG

トップページを更新しました！！
只今韓国のサイバーテロを生でみれます。
是非皆さんもご協力おねがいします。
http://kankokufubai.hoops.ne.jp/bbs
もう、言われるだけの日本は卒業です。
がんばれ日本！がんばれ日本人！

0490464

NGNG

おかげさまで解決しました、ありがとうございました！

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

NGNG

一つ、教えていただきたい。
あるテキストボックスに数字を入れてその比較を行いたいんです。
で、例えばtxtAと言うテキストボックスとtxtBと言うテキストボックスに
数字を入れて、どちらが大きいか比較したいんだけど、その場合単純に

If txtA>txtB Then

って入れても何故だか最初の一文字しか判定してくれないんだよね。
例を挙げると555と4444と言う数字を入れると前者の方が大きく判定されてしまう。
これって上手く判定させるにはどうしたら良いの？
誰か教えてください。

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

NGNG

>>491
最初の１文字はうまくいくのか？？？？

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

NGNG

>>491
アホ
if Val(txtA)>Val(txtB) Then

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

NGNG

うぉ、そうやれば良かったのか。
>>493感謝っす。

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

NGNG

>>493
あほといいながらも答えを教える>>493がカワイイ

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

NGNG

Do While i=5
～
Loop
というのはi=5になるまでループ内のプログラムを実行するんでしたっけ？

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

NGNG

>>496
>>177以降読んで反省してね。

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

NGNG

>>496
つぅかおまえしね。

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

NGNG

ちょいと教えて欲しいのだが、テキストボックス二つ作って、
その中に日付(YYYY/MM/DD)をいれて、どちらがより古い日付かを判定したいんだけど、
どうしたら良いのか分からんのです。
誰かわかる人いたら教えてください。

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

NGNG

>>499
やり方はいろいろあるけど

YYYYMMDDって言う整数を生成するとか。

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

NGNG

ださい。

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

NGNG

>499
CDateを調べてみなされ

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

NGNG

Formatなんかも見よ

0504499

NGNG

>>502
申し訳ない、まだVB初めて3日の初心者なのであまり良く分からないのです。
教えて君で非常に申し訳ないのだが、CDateって何ですか？

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

NGNG

>>496
だからやってみれと、何度書かれたことか。
ちっとも反省しないんだな。

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

NGNG

>>504
Helpから検索してみれ

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

NGNG

>>504
ここはおまえのサポートセンターか？
キーワード与えられてヘルプも読まないような
クズは二度とくるな　ヴォケが

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

NGNG

今>>507がいいこと言った

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

NGNG

>>504
キミに言いたいことが３つある。

・初心者は免罪符にならない。おまえが何日前に始めたかなんて知ったこっちゃない
・教えて君で申し訳ない・・・とあらかじめ言えば許されるってものではない
・回線切って首吊って死ね

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

NGNG

水でもかぶって反省しなさい

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

NGNG

　　　　　　　　＿＿_
　　　　　　　,∠==､ヽ `i'ｰ- .
　　　　　　/　　　　ヽ|　｢｀'ｰ､`ｰ､　　　　　　　　　　　
　　　　　l　　　　　ﾐ| /　　　`ｰ､ヽ　　････ｺﾞﾒﾝﾅｻｲ
　　　　　　j　　　　 R|ｲｰ-､.　　ﾉ7┐
　　　　　　`Vﾊﾊﾊ/ヽ.｢~￣　｀''ｧf‐┘　　　　　　　　
.　　　　　　　　 `､ }ｰ-`､__..._／::l　　　　　
　　　　　　　　　　`|:::::::|ヽ／l:;:;:;|

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

NGNG

>>511
謝ってすむなら警察いらねーんだよ。

警察呼べよｺﾞﾗｧ

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

NGNG

どなたか教えてください。
Dim Tmp(1) As Byte
Dim IntVal As Integer
こう定義されているとき
バイナリでIntegerの値が
Tmp(0)に上位バイトTmp(1)に下位バイトが格納されています、
その値をIntValに入れるにはどうしたらよいのでしょうか？

IntVal = Tmp(0) * 256 + Tmp(1)だとうまくいかないです。

たとえば Tmp(0) = &HFF, Tmp(1) = &HFEだったら
IntValには-2が入ってほしいのですが。

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

NGNG

>>513
memcpyするか、そこまで分かっているなら自前で
マイナスかどうかの処理を分けたらどうでしょう

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

NGNG

>>514
でもmemcpyはｽﾚ違いって奴だな

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

NGNG

>>515
なんで？

0517513

NGNG

>>514
Cなら楽勝なんですが。
VBの使い勝手がよくわからない。
VBに共用体があればなぁ。
美しい方法が思い浮かばない。
もうちょっと考えてみます。

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

NGNG

>>516
だってVBじゃないじゃん。このスレではVBで回答を示さなくては･･･

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

NGNG

>>517
共用体があったところで何なんだと。

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

NGNG

formを開くと
windows media playerを使って
a.aviという名の動画ファイルを見られるようにしたいのですが
どのようにすればいいですか。

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

NGNG

>>520
a.avi引数にして起動させればいいじゃん。
ヘルプなり軽く読んでね。

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

NGNG

プログラムにはどうかくの？

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

NGNG

ヘルプなり軽く読んでね。

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

NGNG

Private Sub Form_Load()
test="a.avi"
MediaPlayer1.〇〇〇
End Sub
見たいに書くんですよね。

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

NGNG

>>524
ヘルプなりいい加減に軽く読んでね。

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

NGNG

ヘルプのどこを読むの？
キーワードでも教えて下さい。

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

NGNG

Hide で隠していたフォームを SetWindowPos を使いあるタイミングで最前面にするのですが
その際実行ファイルだと今までアクティブだったウィンドウからフォーカスを奪ってしまいます
常に最前面になって且つフォーカスを奪わない方法を教えてください

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

NGNG

>>527
StayOnTopは？

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

NGNG

VBとAccessとExcelと複数関連した話なんですが、
Accessのデータを集計してExcelの棒グラフに表示させるプログラムを作りたいのです。
（VBラーニングエディションなのでチャートコントロールが使えません）
このようなことはExcelVBAで可能なのでしょうか？
VBAのどの本を読んでもAccessのSQLクエリをExcelと連動させて
グラフ表示という話はありません。

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

NGNG

>>529
VBA使わんでもCOMで操作すればいいのでは？

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

NGNG

>>530
VBA使わんでCOMで操作するってどーいういみですかー。

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

NGNG

>>530
MSDNでCOMを検索してみたけど関連がありそうなトピックはありません。
CreateObjectとかNewでExcelグラフを指定（作成）する、とか
そんなかんじですか？

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

NGNG

>>532
そう思ったら試せぽげ。

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

NGNG

>>513
IntVal = CInt(Val("&H" & Hex(CLng(Tmp(0)) * 256 + Tmp(1))))

はどうよ？

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

NGNG

>>533
すいません、はじめてCOMという言葉を聞いたもので
さっぱりわからないのです。

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

NGNG

Dim xlApp As Object
' オブジェクトへの参照を格納する変数を宣言します。

Set xlApp = CreateObject("excel.application")
' アプリケーションを表示する場合は、
' Visible プロパティに真 (True) を設定します。
xlApp.Visible = True
' Microsoft Excel の他のオブジェクトを操作する場合も、
' オブジェクト変数 xlApp を使います。
xlApp.Quit ' 処理終了後、Quit メソッドでアプリケーションを終了し、
Set xlApp = Nothing ' オブジェクトの参照を解放します。

0537513

NGNG

>>534
感謝！！　うまく動いてるみたいだ。
If文使って-判定して2の補数とってたりしたけど。
こっちの方がいいので使わせてもらうよん。

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

NGNG

>>533
お前が試せぼけ

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

NGNG

まぁまぁマターリ逝こうぜって言うかココはいつもなんでこんなに荒れるんだチンカスども。

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

NGNG

>>539
VB厨の巣窟だから。

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

NGNG

>>540　スレタイに「VB厨」とかいてあるでしょ

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

NGNG

>>539
お前がちんかすだろぼけ

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

NGNG

　　ぶっちゃけるけど、
　　　　お前らが思っている以上に
　　　　　　ヘルプとGoogleは

　　　　　　　　　有用。

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

NGNG

正解

0545ななし

NGNG

良識ある人はあきれ果てて近寄らなくなる罠・・・。

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

NGNG

>>545
質問者にプログラミングの知識はもちろん人間としての常識すらない場合が多いですし。
誰もいなくて然り。

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

NGNG

ヘルプとググルで調べてみても分からなかったから聞きます。
ＶＢにおけるLowValueとHighValueってなんですか？
Cだったらnullとかって思いつくんだけど･･･。

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

NGNG

>>547
意味不明かつ検索不足。

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

NGNG

>>547
本人がわかってない為、有効な検索ができない典型例

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

NGNG

誰かわかりませんか？
LowValueとHighValueも使われませんか？

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

NGNG

>>550
とりあえずCOBOL専用用語を使っても知っている人は少ないだろう。
あとCだったらnullってのも間違いだ。

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

NGNG

プログラマーの適性がないﾔｼって、全角半角が
入り混じっていたり、やたらtypoが多かったりするのは
気のせいか？

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

NGNG

>>552
右脳系PGはそんなもんだよ。

0554ななし

NGNG

>>552
前いた職場で、「機種依存文字やめれ！」って注意書きを社内掲示板に3回ぐらい
（一覧表の画像ファイルまでつけて）アップしたが、理解できなかった奴が複数人
いた。
正直、こいつらに何言ってもムダだと思った。

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

NGNG

>>554
ごめん、お前みたいな奴が居たら正直引く。

0556ななし

NGNG

>>555
無論、「やめれ！」という言葉遣いではないよ。
WEBコンテンツに転載する可能性のある文書や、E-mailでは
当然の配慮だと思うけれど？（おかしい？？）

0557 ◆774RR8Ig

NGNG

>>556
おかしくない、いるよ、そう言う奴
ドコモの絵文字をAU機に送ったり(ちょっと違う)

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

NGNG

要するに>>555はﾌﾟﾛｸﾞﾗﾏの適性ないってことで。

0559ななし

NGNG

>>554
正直に白状すると、文字化けが気になったのではなく、社外、特に同業他社から
機種依存文字すら知らないDQN会社と見られるのが怖かった。
(ひとことで言うと、「世間体」)

実際、販社向けの同報メールでも機種依存文字入りで流してる
奴がいたし。

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

NGNG

ソースコメントの箇条書きに
丸付き数字を書いてよこしてきた外注には引いた。

0561ななし

NGNG

>>560
非常識なものでも、日常的に見慣れると、感覚がマヒして何とも感じなくなる罠。
（100個のグローバル変数とか、2000行超のスパゲティ関数とかでも、同様・・・）

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

NGNG

Web,Mailで機種依存文字バリバリは引くけど、
Windows用ソフトをWindowsで作ってるのに
丸数字ごときでガタガタ言う奴もちょっとウルサイと思うけどね。
当然自分じゃ使わないけどさ。
あとこのスレで使うのもそんなにガタガタ言うことじゃないと思うが。

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

NGNG

>>562
ちょっと同意。

>>560とか、このスレに書いてるって事はVBのソースだろ？
VBのソースなんてWindows環境でしか見ないだろうから、別にいいと思うが。
メールとかどんな環境で見るかわからないものには使わないってのは当たり前だけど。

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

NGNG

>>563
はげ堂。

というか>>560等は機種依存文字の意味を本当には理解していないと思われる。

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

NGNG

RFCばか出番だぞ。

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

NGNG

>>560
漏れは、ＶＢに限らんけど、コメントを分りやすくするのに、
全角つか、日本語使いまくっとる。
英語だけのコメントっつーより、英単語並べただけのコメントって分りずらい。

例
'Data Number
データの個数？、データの番号？どっちだ！

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

NGNG

>>566
コメントは日本語使うだろう。そら。何を訳のわからんことを。

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

NGNG

>>562-564
ハゲ同だけど、まぁ>>560みたいな奴に馬鹿あつかいされるのは面倒だから、
何にせよ機種依存文字は使わない方がいい事は確かかもしれないなｗ

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

NGNG

機種依存ぐらいどうってことない

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

NGNG

ら抜き言葉を使うと怒ったり、
「確信犯」「役不足」を間違った用法で使うと「あ、それ意味違うんだぜ？」
と、いきなりしゃしゃり出てきて得意げに話し始める奴とか、
そういう奴と同じウザさを感じる＞機種依存文字過剰嫌悪野郎

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

NGNG

>>570
自分を正当化するいいわけですかいな？

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

NGNG

>547
lbound ubound?
ぜんぜん違う?
Ｃしらんからよくわからんが、、、

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

NGNG

>>572
全然違う。COBOL用語だって。たぶんな。もしかしたらなんかのプロパティや定数かもしれんが。

0574572

NGNG

>573
ほんとだ、、、
ﾋﾞｯｸﾘするくらい全然違ったよ

0575? ◆GQrDul2E

NGNG

a(general int)とa:は同時に使えた

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

NGNG

int a;
goto a;
a:;

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

NGNG

VBのアプリを開発しています。
複数の事業所で使いたいのですが
日本全国に散らばっています。
バージョンアップなどのときに
自動でバージョンアップしたいのですが
どのような方法がありますか？

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

NGNG

インターネット使うしかないだろ。

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

NGNG

あー、「使うしかない」わけじゃないよね。
そりゃ当然他にも方法はあるだろうが。
（極論を言えば長距離データ転送できる独自ケーブルと通信規格を作って転送とかね）
インターネットが一番現実的じゃなかろうか。という意味で。
一応突っ込まれる前に訂正・・・。

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

NGNG

>>579
本社に数枚コピーおいておいて分社に取りに来させる。

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

NGNG

>>580
それは自動とは言わない、手動だ。

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

NGNG

>>546
お前が常識無いんだろ
ぼけ

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

NGNG

>>548
>>549
こたえねぇんならむこうへいけ
ぼけ

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

NGNG

>>552
お前が適正をかたってんじゃねぇよ
ぼけ

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

NGNG

お前ら一生機種依存文字の注意だけして退社してください
ぼけ

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

NGNG

ドイツもこいつも厨ばかりだな
ぼけ

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

NGNG

>>577は何処いった？

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

NGNG

>>577はインターネットを使うということを前提に質問したのに見当ハズレな回答が帰ってきたので
ここぞとばかりに遅レスかまして荒らしになりますた

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

NGNG

だったらWebサーバーにVerUP用のデータとバージョン情報を置いて、
ソフト本体にhttpクライアント実装してverチェックして古かったら
DLして更新するだけじゃん。

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

NGNG

ム板にもID欲しいねぇ…。
それはともかく、サーバに更新ファイル置いて、クライアントは
起動時に(裏タスクかなにかで)更新チェックかけて、
更新あったらダウンロードして再起動促す(か次回起動時に差し替え)
ってやりゃええんでない？
経路はインターネットでも、独自の何かでもやり方は同じようなもんでしょ。
正直、VBかどうかは関係ない話であるけど…。

0591ちょっと詳しく説明すると

NGNG

hontai.exe（仮名）とverup.exe（仮名）を作って、
ソフトはverup.exeから起動するようにする。
verup.exeを起動するとWebサーバーに問い合わせてバージョンチェック。
最新バージョンだったらhontai.exeを起動して自らは終了。
古かったらhontai.exeをDLしてローカルのファイルに上書き、のちにhonrai.exeを起動して自らは終了。
これで良し。
てゆーか自動更新できるソフトは全部こんな感じの仕組みだろ。

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

NGNG

ｶﾌﾞﾀ

0593577

NGNG

>>591
すごいっ！！
目からうろこです。
ありがとうございました。
バージョンアップアプリを先に起動する発想がまったくできませんでした。
感動の嵐です。

0594577

NGNG

ちなみに荒らしたりしてません。

0595577

NGNG

ちなみにランタイムライブラリはどのように配布したほうがいいでしょうか？
やっぱり本体exeとは分けたほうがよいでしょうか？

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

NGNG

別にオンラインソフト作ろうとしてるわけじゃないんだろ？
だったらインストーラー作るのが当たり前だと思うが・・・。

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

NGNG

>>594
うそ

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

NGNG

>>588
　　 ||
　Λ||Λ
（ / ⌒ヽ
　| | 　　|
　∪ 亅|
　 |　|　|
　 ∪∪
　　：
　　：

　‐ニ三ニ‐

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

NGNG

>>595
どうせ一回こっきりの配布でいいんだから、インストーラなんぞ要らないのでは？

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

NGNG

>>499
DateDiff関数使うとかとかとか渡嘉敷。

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

NGNG

ADOをつかって、レコードセットのオープンに失敗したとき、
再取得する際にはみなさんどうしていますか？

レコードセットオブジェクトを破棄してから、再度取得しますか？
それともコネクションオブジェクトを破棄してから再度取得しますか？
それともオブジェクトは破棄しないで、ただ単純にオープンを繰り返しますか？

0602naoto

NGNG

こんばんは！はじめまして！

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

NGNG

下のコードで、「エラーが発生していないときに、resumeを実行できません」といわれました。
ヘルプを見ても解決できませんでした。解決方法わかるかた、教えてもらえないでしょうか。

状況説明
　error 1 でエラーが発生、　エラールーチン　err1: に入る。
　resumeで問題のエラーが発生

Public Sub ShopGoodsMonitor()
　
処理省略

On Error GoTo err1
For J = 0 To GoodsCount - 1
Rs.Open "select * from shop_goods_monitor where shop_goods_ID = " & gSGID(J), Cn, 3, 1, 1
If a = 0 Then
a = 1
Error 1　　　＜－－－－－－－－－－－－－ここ
End If
Rs1.AddNew
For I = 0 To 3

Rs1(I) = Rs(I)

Next
Rs1.MoveNext

Rs.Close
Next

Rs1.Close
Exit Sub

err1:　　＜－－－－－－－－－－－－－－－－－ここ
Cn.Close
Sleep 10000
Cn.Open OpenStr

Rserr.Open "C_err", Cn_LocalDB, 3, 3, 2
Rserr.AddNew
Rserr("err_time") = Now
Rserr("name") = m_Name & 111
Rserr.Update
Rserr.Close
Form1.Print "err111"
DoEvents
Resume <----------------------ここ

err2:
　処理省略

End Sub

0604naoto

NGNG

検索ソフトをつくろうとおもうのですが、検索文字列が完璧に一致しなくても
ある程度一致していればＯＫなものはどうしたらいいのですか？
ＩＦ文ではできないのでしょうか？教えてください。

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

NGNG

>>604
ある程度の程度がわからない。

0606naoto

NGNG

例えば小文字、大文字やスペースの有無などを関係無しにしたいのですが･･･

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

NGNG

>>606
すべて大文字か小文字に変換して評価すればよし。

スペースの有無で単語の意味は変わってしまうと思うが・・・。

0608naoto

NGNG

あと検索語の文字が含まれているものを検索したいときはどう
したら良いのですか？
例
　　検索語：win
検索結果；windows
winmx
windows98
windowsxp
等

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

NGNG

>>608
indexof位あるだろう。いくらクソ言語でも。

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

NGNG

VBって難しい・・・。

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

NGNG

>>608
instr

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

NGNG

>>610
心配せんでも他の言語はもっと難しい。

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

NGNG

>>612
それでVBがよく使われるわけですね。

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

NGNG

>>613
余命幾ばくもないけどな。

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

NGNG

>>614
残念ですね。

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

NGNG

エラールーチンの処理の流れがつかみにくいので正しいのか正しくないのか
教えてください。

実際にステップで動かしてみてそうなっていたのですが、
プロシジャー内でエラーがおこると
そのプロシジャー内のエラールーチンに飛びます。
そのエラールーチン内でエラーが起きると
そのプロシジャーを呼び出したプロシジャーの中の
エラールーチンに飛びます。

sub B
on error goto err1
call A
err1:
エラールーチン
end sub

sub A
on error goto err1
err:
エラールーチン
end sub

ヘルプにはこのことは書いていなかったのですが、
自分が理解しているので正しいのでしょうか？

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

NGNG

>>616
要はプロシージャの始めから終わりまでがtryブロックで囲まれてる状態？

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

NGNG

>>616
On Error ステートメントのヘルプにちゃんと載ってますよ。

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

NGNG

>>616
そりゃそうだべさ

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

NGNG

>>617
ちっと関係ないんだけど、俺の行ったことある現場って、ほぼ大体が、その状態を強制するコーディング規約があったんだけど、他の言語の人から見て、やっぱ気持ち悪いもん？

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

NGNG

>>620
ちゃんとcatch以下で起こりえるエラーを処理するかstacktraceするなら全然OK。

catch内で何もしない（要は例外隠し）とかならそんな会社のソフトは使いたくない。

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

NGNG

>>621
>catch内で何もしない
あ、ソレはないよ。共通エラー吐きプロシージャ呼んで、DB閉じてログ吐いて落とすとかそう言うのだから。
どうも。

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

NGNG

WindowStateで最大化させたフォームに画像を貼り付けたのですが、
最大化すると画面の解像度によってフォームのサイズが変わってしまうので、
ストレッチさせて貼り付けようと思ってAPIのStretchBlt()や
イメージコントロールなどを試しましたが、上手くできませんでした。
どうすればいいのでしょうか？

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

NGNG

>>601
自己レスです。
レコードセットのオープンの際に使用した、コネクションオブジェクトを、
破棄しないと再接続できないようです。

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

NGNG

>>616
sub B
on error goto err1
call A
err1:
エラールーチン
end sub

sub A
on error goto err1
err1: <-------------------修正
エラールーチン
end sub

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

NGNG

>>617
VBでtryブロックってつかえるのでしょうか？
ヘルプではVCとVJ?しかなかったけど・・・

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

NGNG

>>616
子関数はエラールーチンがある親関数の所まで飛ぶ。
子関数に、エラールーチンをかかないで、親関数だけにエラールーチン書いておくと
まとめてエラー処理が出来る。

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

NGNG

>>618
うーん？
On Error ステートメントのヘルプは
何度か見てるんですが、そういう記述ありますかね？

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

NGNG

>>627
あそれでか！
子関数エラーは子関数内にon errorが無いと、on errorがある親関数のエラールーチンに飛ぶのは知っていましたが、
子関数のエラールーチンでエラーが起きると親関数のエラールーチンヘ飛ぶんですね。
大変納得しますた。

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

NGNG

screen.mousepointerでアイコンを変更しても
リストビュー詳細表示のColumnHeader上ではノーマルなアイコンに戻ってしまいます。
なんとかColumnHeaders上でも指定したアイコン表示させる方法はありませんか？

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

NGNG

ははーん、おまいらアレだな～
え

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

NGNG

おれたちえんどうまめ

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

NGNG

>>626
>>177事件以来VB知らんのにちょくちょくここ見てる俺がいます。

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

NGNG

彼のファンは多い

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

NGNG

Script をルートとするクラス階層の資料ってどこにあります？MSDN 及び、MS から DL できる VB Script の CHM には載って無いみたいなんですけど…。

0636635

NGNG

ごめんなさい、もう一個。
何も参照設定しないで、

Set owsh = CreateObject("WScript.Shell")
Set ExcelSheet = CreateObject("Excel.Sheet")

とは出来るけど、

Set ws = CreateObject("DAO.Workspace")

ってのは出来ないですよね？なんで？

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

NGNG

>>636
上の二つは予め参照設定されてるから。

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

NGNG

>>635
こんなの？
http://www.microsoft.com/japan/msdn/library/default.asp?url=/japan/msdn/library/ja/script56/html/wsconwindowsscripthostobjectmodel.asp

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

NGNG

>>637
どうも。

えーと、だとすると、
参照設定すれば出来る、
Dim wa As DAO.Workspace

と同じ感じの、
Dim eSheet As Excel.Sheet

が何で出来ないんでしょうか？

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

NGNG

>>639
新事実が。

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

NGNG

>>639
何でだろう？

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

NGNG

>>638
あ、それっす。どうもどうもどうも。助かりました。m(__)m

そっか、>>1 にmsdn必読と書いてあるけど、web の方も見なきゃダメか。そっか。

0643(　´,_ゝ｀) ﾌﾟｯ

NGNG

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

NGNG

　　　　　　　　∧∧∧∧∧∧∧∧∧
　　　　　　　＜　　　　　　　　　　　　＞
　　　　　　　＜　釣れねぇぞ。ｺﾞﾙｧ＞
　　　　　　　＜　　　　　　　　　　　　＞
　　　　　　　　∨∨∨∨|/∨∨∨∨
　　　　　　　へ　　　　 |
　　　　　　　|　＼
　　　　　　　|　　　＼　　┌ ∧､
　　　　　　　|　　　　ヽ￣(ﾟДﾟ,,)
　　　　　　　|　　　　　 ℃ _'ﾇ ,ヨ
　　　　　　　|　　　　　　と|_ノ∥
　　　　　　　|　　＿＿＿(_(⌒'人＿＿
　　　　　　　|　く　　　　　　￣￣
　　　　　　　|　　>　　　ヾ
　ｻﾞｯﾊﾟｰﾝ |　（　　　　　　ヾｿ
　　　　　∵,,| ∵ヽ
　　　　　　　| ∴ﾐζ
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

0645635

NGNG

>>638
えーと、持ってた CHM が古いせいもあったみたいです、5.5 の CHM は持ってたんですが、最新の 5.6 の CHM を落としたら、同等の物がありました。
お手数掛けました。

つか、以前落としたのは、jsdoc.exe,vbsdoc.exe,wscdoc.exe と三つのアーカイブのそれぞれの CHM に分かれていたんですが、今のは全部一緒みたいですね。

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

NGNG

何でだろう？

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

NGNG

他のことしなきゃならないので、調べたところまで書いときます。
長いのごめんなさい。

[前置き]
結論として、DAO.WorkSpace をそのまま CreateObject する方法は見つかって
いません。
が、DAO.WorkSpace と、WScript.Shell 及び、Excel.Sheet の違いは見つけた
っぽいです。

[Reg]
[HKEY_LOCAL_MACHINE\Software\CLASSES\CLSID\{00020820-0000-0000-C000-000000000046}\VersionIndependentProgID]
@="Excel.Sheet"
[HKEY_LOCAL_MACHINE\Software\CLASSES\CLSID\{F935DC22-1CF0-11D0-ADB9-00C04FD58A0B}\VersionIndependentProgID]
@="WScript.Shell"

と言うのを Registry で見つけました、上記の他に、バージョン番号？っぽい物がケツに付いた、

[HKEY_LOCAL_MACHINE\Software\CLASSES\CLSID\{F935DC22-1CF0-11D0-ADB9-00C04FD58A0B}\ProgID]
@="WScript.Shell.1"
[HKEY_LOCAL_MACHINE\Software\CLASSES\CLSID\{00020820-0000-0000-C000-000000000046}\ProgID]
@="Excel.Sheet.8"

と言うのもありました。

バージョン番号(？)有り無し問わず、CreateObject する事が出来ました。
DAO.WorkSpace は存在しませんでした。が、DAO.DBEngine を見つけて試したと
ころ CreateObject する事が出来ました。
試していませんが、DAO.TableDef,DAO.Relation,DAO.QueryDef 等もあります。

どうやら、ここに登録されていると、参照設定せずに、その名前で CreateObject 出来るような感じです。

# WorkSpace もあったのですが、リポジトリの物でした。

[wsh]
WSctipt.Shell を参照設定して事前バインディングするには、Windows
Scripting Host Object Model (WSHOM.OCX) で参照設定することで可能です。

この時、WSH が 5.5 までは※1のURLの様に、少し変わった名前で使うことにな
ります。5.6 以降の場合、※1 の画像の、頭から I と尻から_Class を省いた
名前でオブジェクトブラウザに表示されます。又、それに加えて、FSOの各クラ
スも表示されています。

※1.便利なオブジェクトをVisual Basicからつかう＞wshom.ocx ＞画像
http://www.int21.co.jp/pcdn/vb/noriolib/vbmag/9810/wsh/

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

NGNG

んー、もしかして常識だったのかなと言う気がふつふつと。

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

NGNG

すいません、ネットワークに関する質問なんですが、
VBで、特定のアプリケーションのパケットの行き来を監視する方法はありますか？
C使えばwinsockのクローンを作ってほにゃららにすればなんとかなりそうですが、
作ろうとしてるアプリは結構単純な物なので、
VBでちゃっちゃと済ませたいのです・・・

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

NGNG

ちょっとwsh補足。

　　Dim sh As WshShell
'　　Dim sh As IWshRuntimeLibrary.WshShell　　　　　　　　　　　これでも同じ

　　Set sh = CreateObject("Wscript.Shell")　　　　　　　　　　　'だいじょぶ
　　sh.Exec ("notepa~.exe")
　　Set sh = Nothing
　　
　　Set sh = New IWshRuntimeLibrary.WshShell　　　　　　　　　　'行ける
　　sh.Exec ("calc.exe")
　　Set sh = Nothing
　　
'　　Set sh = New Wscript.Shell　　　　　　　　　　　　　　　　 'ユーザー定義型は定義されていません
'　　Set sh = CreateObject("IWshRuntimeLibrary.WshShell")　　　 '無理
'　　Set sh = CreateObject("IWshRuntimeLibrary.IWshShell3")　　 'これも無理
'　　Set sh = CreateObject("IWshShell3")　　　　　　　　　　　　'これも無理

因みに、実体の型はいずれも IWshShell3 でした(ウチの環境では)。
気持ち悪い。

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

NGNG

CreateObjectはFactoryパターン。

0652自信０

NGNG

>>651
＞CreateObjectはFactoryパターン。
もしかしてデザインパターンですか？
余りよく知らないんですが…。

プロダクト(WshShell)を継承なりしてればコンクリートプロダクト(この時 IWshShell3) は違っても全然おかしくないと。

んで CreateObject の中の WshShell を受け付けるコンクリートファクトリーが適当な実体を返してるんだぞと。気持ち悪く無しと。

そう言うことなんでしょうか。

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

NGNG

>>649
Winsock2.2を使えばCでちゃちゃっとできるが
VBでもAPIさえ定義すればちゃちゃっとできると思う。

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

NGNG

すみませんが、ＶＢ．ＮＥＴでＩＮＩファイルの入出力をするための方法を
教えていただけませんでしょうか？？

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

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

NGNG

【老若】VB.net質問ｽﾚ【男女】
http://pc3.2ch.net/test/read.cgi/tech/1025848458/

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

NGNG

>>654
すれ違いだが、.NETにINIファイルを扱う方法は特に用意されていない。
APIを使うのだよ。

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

NGNG

>655
ありがとうございます。こちらで聞いてみます。

>656
ＡＰＩを使ってるのですが、ＶＢと．ＮＥＴでは
用意されている型が違うくてＶＢ６．０で使ってたような
コーディングはできないのです＜私の力不足なのでしょうが

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

NGNG

少数1.2をバイト型変数へ格納したい。

Dim BytTmp(1) as Byte

BytTmp(0) =
BytTmp(1) =

と、1.2を2バイトにして入れたいのだけど、少数を2バイトにするにはどうすればいいの？

(*´д`*)ｱﾊｧ…

0659おれ様

NGNG

ここって直ぐに答えてくれるの？

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

NGNG

あるプログラムパスからそのプログラムのプロセスが存在するか
確認するには、一度起動しているプロセスの列挙を行わないと
できないでしょうか？

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

NGNG

>>658
少数って何だ？　小数のことか？
単精度実数なら、４バイトで格納される。
値の取りうる範囲を限定できるなら、自己流の格納形式にすればいい。

0662

NGNG

起動時に引数を渡さなかったら、Ｆｏｒｍを表示しないで終了させたいんですけど、
どうしたらいいんでしょうか？

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

NGNG

msFlexGridをまったく選択していない状態に
する方法はありますか？

ListBoxで言う所の
List1.ListIndex = 0
みたいな感じにしたいのです。

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

NGNG

>>662
Sub Main()

0665177 ◆GQrDul2E

NGNG

うぐぅ仕事くれ

0666

NGNG

>>664
すみませんが、Sub Main()を使わないでやるらしいんですけど、
他に方法ないでしょうか？

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

NGNG

Form_Load()
Dim strBuffer As String
strBuffer = Command()

If Len(strBuffer) = 0 Then
Unload Me
End If

0668177 ◆GQrDul2E

NGNG

つまるところForm_Loadが一番最初に起こるイベントなのか

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

NGNG

>>668
新規プロジェクト作ってF8すれば、確認できるよ。
というか、660を・・・誰か教えてください・・・。
しこしこ列挙アプローチでコードつくり始めてます・・
でも9x版がちょっと不安・・

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

NGNG

>668
Initializeﾀﾞﾖ!!

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

NGNG

改行コードがLF（Chr(10)）のファイルを一行ずつ読み込みたいです。
普通にOpen→Line Inputで読むと改行を認識されないようなのです。
良い方法はないでしょうか？

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

NGNG

>>671
１バイトずつ読んでいきなさい

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

NGNG

>>672
やっぱりそうですか・・・
サンクスです。

0674177 ◆GQrDul2E

NGNG

>>669
試したところGeneralの宣言セクションが実行され、そういえばそうだったな、と思い出したり。オレがバカというより人間とはそういうもの・・・かな。（そういうもの＝わすれっぽい、ミスをする、かんちがいする、etc.）
>>670
某アニメのことかと思いきや、Formなどのインスタンスを作成したときに起こるイベントだと検索して初めて知った。
メモリにフォームが読み込まれる時に起こるんだなと勝手に解釈中。

0675

NGNG

>>668
プロジェクトのプロパティで指定したスタートアップが一番最初。
つーか Sub Main() とか言われた時点でわかんないとダメだねぇ。

おれも知らんかったけど、Sub Main()で検索して知った。

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

NGNG

>>663なんすけど、無視＝無理ってことすかぁ？

0677177 ◆GQrDul2E

NGNG

>>675
>662 >666 はオレじゃなーい

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

NGNG

>>676
2時間くらいで喚くな。

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

NGNG

すみません。教えて頂きたいのですが
例えば
Text1.SetFocus　というのがあるとしたらこのSetFocusというのは
どういう意味というか働きをするのかわからないので教えてください。同じように
ADODB.Recordsetというものがあった場合ADODB&.Recordsetの意味と
Text1.Enabled = Falseというものがあった場合Enableは何を意味しているのか
神様お願い致します

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

NGNG

Text1.SetFocusは、
Text1っていうオブジェクトのSetFocusっていうメソッドを実行しなさいという意味
SetFocusはそのコントロールにフォーカスを移動する働きをする。

×ADODB&.Recordset
○ADODB.Recordset
かな？
ADODB.Recordsetは、
ADODBオブジェクト'の'Recordsetっていうオブジェクトという意味

Text1.Enabled = False は、
Text1っていうオブジェクトのEnabledっていうプロパティに
Falseを代入するっていう意味

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

NGNG

ADODB&.Recordset
これあってるんだね。ｺﾞﾒｿ

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

NGNG

(*´д`*) ｱﾊｧ
このＡＡｶﾜｲｲですね。

0683679

NGNG

>>680
さっそくのレスありがとうございます。
＞SetFocusはそのコントロールにフォーカスを移動する働きをする。

実際説明してもらってもまだピンとこない部分もあるんですよね・・・。
フォーカスっていうものがいまいち自分の頭の中でイメージがわいてこないんですよ。
あと、移動させるっていうのはMoveとういものを使うのだと思っていました・・・

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

NGNG

Moveはコントロールの位置を変えるんです。
フォーカスというのは現在のキーボードからの入力を受け付ける
対象となるものと考えてください。

0685679

NGNG

>>684
ありがとうございます！ようやく理解できました（フォーカスに関しては・・・）
つまりプログラム実行時にデータベースに何かデータを登録しようとして
TextBoxが3つあったとしたらどれか1つ空白があって登録Missがあった場合
そこのTextBoxにフォーカスをあわせるというプログラマの気の利いたコーディングなんですね
ん。何か日本語おかしいけどありがとうございました

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

NGNG

>>660
二重起動防止？
Appオブジェクトでなんとかできなかったっけ？
手元に環境もMSDNもないので詳しくわからんスマソ。
少なくとも全プロセス列挙とかをした記憶はない。

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

NGNG

下のようなことをしたいのですが、特別な関数とか実現方法を教えてください。
周りはCOBOLERばっかでわからないを連発されています。

既存のVBの中にソースを埋め込んで、ボタンを押したら新規のVBを走らせる。
そのとき、既存のもっている変数を新規のaccess内に格納する。
新規側の処理を行っている間は既存側は待機する。
新規側の処理が確定したら、既存側の処理も確定してよいが、
新規側でエラーが発生したら、既存側の処理も確定しないで、いわゆる
ロールバックを行う。

ざっとこんな仕様なのですが、参考になることを知っている方
お願い致します。

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

NGNG

>>687
＞既存のVBの中にソースを埋め込んで、ボタンを押したら新規のVBを走らせる。
この時点でそんなことほざいたSEをどついておくべきかと。

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

NGNG

>>687
そもそもなんでそんなことがしたいのかいくらPGでも理解すれ、っつか
自分で言ってること解ってねーだろ。SEもだろうけど。

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

NGNG

>>687
新人くん。他の会社に移ったほうがいいよ。

0691デフォルティンの名無しさん

NGNG

>>687
プロセス間通信だ。
APIで鮮度が大事。

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

NGNG

新規のVBを走らせる・・・。

そこでプログラミングでもするのかね。

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

NGNG

プログラミング作業の自動化というものすごく高度な話題がはじまろうとしているｽﾚはここですか？

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

NGNG

>>693
違うと思います。

0695eibu ◆c61exE6E

NGNG

>>687
>ざっとこんな仕様なのですが
ひさびさに大笑いしたよ。
こんな仕様出す奴に道を尋ねたらエライ事になるな。
「あそこバァーて行ってグワァーて曲がって変な看板のトコ」とか言いそう。

accessってことはデータベース処理か？
ひょっとしてトランザクション処理をものすごく
複雑かつ意味不明で遠回りなやり方で説明しているのか？

0696

NGNG

>>687
COBOLしか知らない人たちの会社って将来性ないよ。
ま、なんとかCOBOLも pro cobol とかで生き残ろうとしているけどさ。

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

NGNG

VB6.0でDataReportを使って横向き印刷しようとしてるんですけど、
縦向き印刷になってしまいます。
APIを使ってPrinter.Orientationの値をLandScapeにしてもダメでした。

解決方法をご教授ください。

それともCrystalReport等を購入したほうがいいですかね？

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

NGNG

DataReport使ったことないんでｱﾄﾞｳﾞｧｲｽできん。ｽﾏｿ。
ただひとつ言わせてくれ。

ク　リ　レ　ポ　は　や　め　と　け

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

NGNG

>>653
質問主ではないのですが、すいませんがちゃちゃっと特定アプリのパケットの行き来を
監視する方法を教えていただけませんか。

0700FIGHT

NGNG

現在VB6.0とアクセス２０００を使用しております。
今回画像をあつかったプログラムを作成しているのですが、
それの入出力がわかりません。
ちなみにアクセスのテーブルで「OLEオブジェクト型」で作成して
いて、それを読み込んだり、登録したりしたいのです。
　　Private Mdb As Database
　　Private mRs As Recordset

　　Dim cDBpath As String
cDBpath = "D:\db1.mdb"
Set Mdb = OpenDatabase(cDBpath)
Set mRs = Mdb.OpenRecordset("テスト", dbOpenTable)

Text1.Text = mRs.Fields(0)
Text2.Text = mRs.Fields(1)
上記のように、テキストに表示する方法はわかるのですが、
OLEに関しては無知ですので、アドバイスの方ヨロシクお願いします。

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

NGNG

下記プログラムで"型が一致しません"と言うエラーが出てしまい何とかしたいのです。

・Classモジュール
Private WithEvents hogehoge As MSCommLib.MSComm

Private Sub Class_Initialize()

Set hogehoge = CreateObject("MSCommLib.MSComm")
↑でエラー

End Sub

コンポーネントにMSCOMMを追加して、参照設定では追加していません。
（追加していないと言うより、追加する時にこのｵﾌﾞｼﾞｪｸﾄはモジュール、…、
で使われています。と出て追加できない）
　
コンポーネントはコンポーネントで使用したいので外せないのですが、
何か良い案は無いでしょうか？

ちなみにコンポーネントを追加しないで、参照設定で直接追加した場合は
上記のプログラムで動作するのは検証済みです。

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

NGNG

>>701
As Object

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

NGNG

VBのコミュニケーションコントロールMSCommを使用して
バイナリデータの送受信をすることはできないのでしょうか？

これだとByte変換時にオーバーフローを起こすことがあります。
(80h以上の時？)
というかInputで１文字２バイトが帰ってくることがあるような気が？

Buff(255) As Byte

MSComm1.InputLen = 1

For Cnt = 0 To 255
Do
If MSComm1.InBufferCount > 0 Then　　　　　　' バッファにデータがあったら
Buff(Cnt) = CByte(Asc(MSComm1.Input)) 　　' 1byte取得
Exit Do
End If
Loop
Next

0704701

NGNG

>>702
Object型だとWithEvents で宣言できないのです。

>>703
MSComm1.InputMode = comInputModeBinary
にすればバイナリで取れるよ。

0705703

NGNG

>>704
うあ！！
そんな設定あったんですね。
ありがとうございます。

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

NGNG

まじめな質問！
Visual Basicで複数人数の音声チャットは作成できますか？

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

NGNG

問題なし。

けど複数人音声チャットって誰が誰の発言だか分からないね。

0708706

NGNG

>>707 ｻﾝｸｽ　Visual Basicでやってみよ
初心者にとってサンプルがいっぱい落ちてるのはやっぱり魅力的です

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

NGNG

音声チャットのサンプルがいっぱい落ちてるのか？

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

NGNG

いっぱいじゃないけど俺、前見つけたよ　どこかは忘れたけど。。。（´Д｀；）

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

NGNG

>>701
同じインスタンスでいいなら、
ClassにInitメソッドでも作って参照をコピーしてやれば?

[Class1.cls]
Private m_comm As MSComm
Sub Init(comm as MSComm)
　　Set m_comm = comm
End Sub

0712701

NGNG

[Form1.frm]
Dim oClass1 As Class1
set oClass1 = New Class1
Call oClass1.Init(Me.MSComm1)

0713711

NGNG

712の名前欄は711の間違いです

0714ggg

NGNG

>>697
OpenPrinter-GetPrinter-MoveMemory-SetPrinter-ClosePrinter
ででくる

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

NGNG

Visual Basicのヘルプを起動しようとしたら「MSDNのライブラリをインストールしてください」
ってなります　これってダウンロードできるんでしょうか？

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

NGNG

>>715
CD付いてただろ？

0717715

NGNG

>>716 そう！　そのCDがないんですよ。。。うーん・・・もともと何の役に立ってるのか
わからんCDだったんで・・・

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

NGNG

なんで無いんだよ

0719715

NGNG

もちろんVisual Basic本体のCDはありますけど
マジでダウンロードできないんですか？

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

NGNG

だからなんでMSDNのCDがないんだよと。

0721幸房

NGNG

俺も無い～
親父が会社の奴持ってきたけど、全部無くした。
CD1だけ＊＊＊(自粛)で取ってきた。

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

NGNG

もう少しで夏休みも終わりますから、
もう少しの辛抱です。

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

NGNG

>>715
http://www.microsoft.com/japan/developer/library/default.asp
ここに行けば、VBのヘルプは読めるよ。
ダウンロードは出来ないけど。

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

NGNG

初心者がよくまちがえる問題

'N=1+2+3+・・・+10

Dim i,N as integer

For i=1 to 10
N=N+i
i=i+1
Next

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

NGNG

shellapi.hの定数ABM_SETSTATEの値を
知っている人いたら教えて下さい。
VBで定数を定義したいのですが、
VC++入ってないのでヘッダがなくて定数の値がわからない(T T)

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

NGNG

>>725
APIビューア

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

NGNG

>>724
あんたが初心者でしょ。

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

NGNG

>>724
N = (10 * (10 + 1)) / 2

0729初心者

NGNG

アプリケーションからのメッセージを無視してそのまま動作させる方法を教えてください。
例えばエクセルで、

ActiveWindow.SelectedSheets.Delete

とやってシートを削除するときに、
「もとに戻せないよ」って警告がでますよね？

これを無視したいのですが。

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

NGNG

>>729
なんかのウイルスですね？

0731

NGNG

はじめまして。
質問したいのですが、
VBのフォームのOLEにエクセルのシートを表示させたいのですが
どのようにすればできますか？教えてください

0732 ◆774RR8Ig

NGNG

>>728
いや、そういうことではなくってだな、
Forでiをインクリメントしているのにだな、
i=i+1
を入れてるのが、「初心者がよくまちがえる問題」ということなんだよ。

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

NGNG

>>732
誰も間違えない罠

0734729

NGNG

>>730
ちょっとした明細計算のプログラムを作っているのですが、
ブックを作成すると、最初にシートが3つできるでしょ？

明細シートをひと通り作成した後に、3つのシートを削除したいのですが、
メッセージが出てプログラムがとまるので邪魔だなあ、と思って。

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

NGNG

>>732
他に言うことは？

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

NGNG

>>732

漏れはインクリメント以外に
Dim i,N as integer
で、NだけがInteger型で宣言されてiがVariant型で宣言されてる
って事を指摘するべきなのか？と思ったよ。

0737736

NGNG

あぁ、くだらんことでageてしもうた(;´Д｀)

ケーブル引っこ抜いて鼻に突っ込んで逝ってきます

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

NGNG

>>729
あんまり詳しくないけど、
多分無理じゃないんすかね？

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

NGNG

フォームにコントロールを並べている時などに､
ちょっとプロパティを変更しようと思ってコントロールをクリックしたら､
マウスの加減で、折角きれいに並べたのに、ズズ…っと数ドット動いてしまう
ことが多いのですが、これを動かさずにマウスで選択する方法はないのですか。

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

NGNG

結局732は何を言いたかったのか

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

NGNG

VBでは初期値付きの配列を作ることはできないのでしょうか？
Cでこんな感じのです。
integer Data[6] = {1,2,3,4,5,6};
こういうときは
昔のBASICみたいにDATAをREADするようなことをするんでしょうか？

0742729

NGNG

>>738
お隣で回答いただきました。
Application.DisplayAlerts = False

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

NGNG

>>739
フォームの右クリックでコントロールのロックをしておく。
あとは右クリックで選択するとかキーボードで選択するとか
プロパティウインドウのリストボックスから選択するとか。

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

NGNG

VBのコードエディタってマウスのクリクリ(スクロール)効かないんですか？
ちょっとやりにくひ・・・（´Д｀；）

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

NGNG

>>741
intがintegerになってるぞぅ。
私の場合、多い時はファイルから読むようにしてます。

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

NGNG

>>744
効く人は効くよん

0747image

NGNG

ＶＢでビデオなんかのコピーガード（とくにマクロビジョン）を消すことはできる？
常に一定の色合いを出しつづければできると思うんだけど・・・
無理？

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

NGNG

>>747
やってみな。

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

NGNG

>>741
Array関数？

0750image

NGNG

できるのか？
できそうだがな。
できるだろ？
やってみて。

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

NGNG

>>750
とりあえずコピーガードの仕様を詳しく言え。

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

NGNG

>>750
っていうかVB（PG)と全然関係ないじゃん。
AV機器板に行った方がいいんじゃネーノ？

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

NGNG

>>752
アホがいるな。

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

NGNG

>>753
それはお前

0755752

NGNG

スマン、ageてしまったから、変な奴を呼んでしまったようで・・・
sage直します。

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

NGNG

>>744
マウスユーティリティー次第。
どこでもホイール使うとコロコロするようになるよ。

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

NGNG

>>744
MicrosoftのｲﾝﾃﾘﾎﾟｲﾝﾄをDLして導入するとﾎｲｰﾙ動くよ。
VBとｾｯﾄみたいな感じ。

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

NGNG

ホイールで思い出したんだけどさ、
VB上で実行してマウスホイール回すとちゃんと動くんだよ。
ところが、実行ファイルで同じ事すると動かないんだよ。
なぜ動作が違っちゃうの？

0759ななし

NGNG

>>687
もう少し日本語を勉強された方がよいと思います。

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

NGNG

IE(ActiveX)でNavigateメソッドでネット上のHTMLを取得してますが、
Navigateすると画像とかまで読み込んでしまいます。
HTMLだけ取得したいのですが、方法はないですか？
(自分で調べたところ、無いっぽい雰囲気でした…。)

0761760

NGNG

Ret = GetRes(>>760)
If Ret = Nothing Then
　MsgBox "無いみたいですね。また来るかも。"
　Unload 俺
End If

0762724

NGNG

>>732
オレの代わりにいろいろ言われているみたいでスマンの。
732の解説のとおりi=i 1の一行だけが議論の対象なので他の部分はアバウトに書いてあり、そこをつっこまれると困っちゃうよん。

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

NGNG

>>762
で、キミは質問スレで何を言いたかったの？

0764725

NGNG

Const ABM_SETSTATE = &HA
のようです。ありがとうございました。

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

NGNG

SSTabについての質問です。
環境はVB6(SP5)です。

実行時、SSTabコントロール上に新しいタブを追加して、
その追加したタブの上にLoadしたコントロール（コマンドボタンとか）を配置したいのですが、
うまくいきません。

どうやればいいんでしょうか？
よろしくお願いします。

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

NGNG

すんません・・・メインメニューオブジェクトってどこにあるんですか？

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

NGNG

>>763　ここの住人は大抵わかんないとレスしてこないから、
ここだめじゃんっておもっただけ。
まぁ多分>>760はできないと思うけど^^;

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

NGNG

>>767　激しくまちがえた

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

NGNG

>>760
WinSockコントロールを使うといいよ。

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

NGNG

>>736のが正しい。

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

NGNG

>>765
追加したタブをアクティブにしてから追加したコントロールのContainerプロパティを設定。

0772名無し＠でぢたる

NGNG

ＶＢでテキストエディタを作りたい！！だが、行数表示はどうしたらいいのだろうか？

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

NGNG

>>772
作れよ。

0774名無し＠でぢたる

NGNG

つくれないよ！！

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

NGNG

>>774
諦めろ。

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

NGNG

最初の時点で挫折ですか。

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

NGNG

Winsockの講座とかあるサイトってないでしょうか？
教えてください　世界中のエロい人

0778エロい人

NGNG

>>777
ないです。

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

NGNG

VB6 で、
ADODB.Recordset でデータベースアクセスやってるんですが、
今までに作られたEXEで動いていたマシンに、
VerUpしたEXEを入れたらエラーが起きるようになりました。
430 のオートメーションエラーです。
しかも、エラーが起きずにちゃんと動くマシンもあります。

おかしくおもって、前Version のvbp を手を加えずコンパイルだけしたEXEを、
新Verが動かないマシンに入れてみたところ、
前となんら変わりないはずなのに430のエラーが出るようになりました。

いったい何が原因なのでしょうか？
おかげで今日もこんな時間です。

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

NGNG

>>772
SendMessage

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

NGNG

>>779
切羽詰ってるようだね。確か、自分も以前こういう現象に遭遇したことがある。
まだ起きてる？ちょっと調べてみるよ。

0782781

NGNG

>>779
過去2回そういうことがあった。
一つはVB Projectの参照設定。そしてもう一つはかMDACのバージョン違い。

0783779

NGNG

>>781 >>782
お返事ありがとうございます。
とりあえず帰宅してきました。
寝るまでもうちょっと時間があるので調べてみます。

0784FIGHT

NGNG

質問させていただきます。
ＶＢでコメント文って「’」ですよね
’コメント
これを範囲をコメントにしたい場合はどのようにすればいんですか？
コメント１
コメント２
コメント３
コメント４
コメント５
この範囲をコメントにしたいのです。
一つ一つに「’」をつければいいのですが、
これが１００行とかある場合はちょっと手間がかかりますよね。
なにかよい方法はないでしょうか？
ヨロシクお願いします。

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

NGNG

>>784
#if false then
#end if

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

NGNG

>>784 範囲選択してツールバーのコメントブロックボタンを押す

0787FIGHT

NGNG

>785
>786
どうもありがとうございます。
785さんの解答はコードで記述できることを学びました。
786さんの解答はそのようなツールバーが有ることを初めて知りました。
ちょっとしたことなんだけど、ほんとに為になります。
どうもありがとうございました。

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

NGNG

>>785
すげー
こんなのあったんだ。

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

NGNG

コメントブロック(と解除)のあるツールバーがデフォルトで非表示なのがクソだと思う。
んでもってこれらの操作がメニューから出来ないことがもっとクソ。
別にメニューからやりたいわけじゃないけどメニューにないからこの機能を発見できない。
俺もこの機能長い間知らなかった。

0790ななし

NGNG

>>774-775
VBのTextBoxには、処理できる文字列のサイズに32Kだか64Kだかの制限があり、
大容量の文字列を扱う場合は、リッチテキストボックスを使用することになり
ます。
しかし、VBでは大容量の文字列の処理が絶望的に遅いので、有名な秀○あたり
と比べると勝負になりません。（論外。あたりまえだが）

まあ、数10K程度の文字列しか扱わないと割り切るなら、そこそこ実用にはなる
かと思います。（お奨めはしません）

>>785
コメントというよりは、条件付コンパイル。
（問題解決という趣旨では満点の回答と思われ）

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

NGNG

Cのsprinfと同等の機能のある関数があったら教えて下さい。

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

NGNG

>>791
Format

0793791

NGNG

>>792
ｻﾝｷｳ!!

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

NGNG

>>772
UZEditor
http://www1.plala.or.jp/uz/
「VBで作るエディタ」

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

NGNG

あるディレクトリ下(c:\temp)のファイル名一覧を取得したいんですが

Dim strDir As String

strDir = Dir("c:\temp", vbDirectory)
Do While strDir <> ""
If strDir <> "." And strDir <> ".." Then
MsgBox strDir
strDir = Dir("c:\temp", vbDirecory)
End If
Loop

だと"temp"のみ表示して終わってしまいます。
どうコーディングしなおせばいいんでしょう。

0796795

NGNG

あら？字下げ失敗。
すいません。

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

NGNG

>>795-796
連続した半角スペースは省略される。
Dir関数の使い方についてもう一度調べなおせ。

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

NGNG

>>795
Private Sub Form_Load()
　　Dim strDir As String

　　strDir = Dir("c:\temp\*.*", vbDirectory)
　　Do While strDir <> ""
　　　　If strDir <> "." And strDir <> ".." Then
　　　　　　Debug.Print strDir
　　End If
　　　　strDir = Dir()
　　Loop
End Sub

0799798

NGNG

vbDirectory → vbNormal または指定しない

0800795

NGNG

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

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

NGNG

>>777
http://www.kt.rim.or.jp/~ksk/sock-faq/unix-socket-faq-ja.html

>>790
>しかし、VBでは大容量の文字列の処理が絶望的に遅いので、有名な秀○あたり
>と比べると勝負になりません。（論外。あたりまえだが）

&使って連結してるとか？そりゃ遅い。

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

NGNG

ダイアログを出さずにプリンタの出力トレイを切替るにはどうしたら良いのでしょうか？
検索してAPI関数を利用したサンプルを見つけたのですが、NT系では動作しないようです。
OSはWindows2000、言語はVB6.0です。
具体的には画像ビューワに葉書印刷機能(普段使用しないトレイ)を付けたいのですが。

0803783

NGNG

解決レスです。

古いversionは Microsoft ADO 2.0 Library でつくられていたので、

参照設定で
Microsoft ADO 2.5 Library をはずし、
2.0 Library をチェックつけてexeを作ればＯＫのようです。

でもそのvbpを保存して終了し、立ち上げなおすと、
自動的に 2.5 Library のほうを参照しています。

コンパイル前に参照設定しなおす必要があるみたいでした。

いじょお。

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

NGNG

>>802
権限の問題では？
たとえばコントロールパネル-プリンタで当該プリンタの設定が変更できないアカウントは、
同アカウントが実行するプログラムからも設定は変更できません。

ていうか9x系でうごいてNT系で動かない場合まず権限の問題から疑います<私の場合。

0805802

NGNG

>>804
ありがとうございます。権限はAdminです。
設定と印刷を別関数で実行するとうまくいかないのですが、
同一関数内でトレイ設定と印刷を実行すると出来るので権限は問題無いと思います。
ただし、これは Printer.Print で文字の出力が出来ているだけで・・・
画像の印刷にDLLを使っているのですが、この場合は同一関数内でもうまく出来ません。

実験結果
Sub Main
　Call トレイ設定関数
　Call 印刷関数　　←デフォルトのトレイで出力
End Sub

Sub Main
　Call トレイ設定＆Printer.Printでの印刷　　←指定したトレイで出力
　Printer.Print　　←デフォルトのトレイで出力
End Sub

Sub Main
　Call トレイ設定＆DLLでの印刷　　←デフォルトのトレイで出力
　Printer.Print　　←デフォルトのトレイで出力
End Sub

デフォルトのトレイを設定できれば良いと思うのですが、どうしたら良いのでしょう？

0806802

NGNG

書き忘れました。
>>805の結果はWindows2000でのものです。
Windows98で試したところ、全て指定トレイで出力されました。

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

NGNG

>>805
そーなるとソースがないとなんともいえませんね。
トレイ設定関数とDLLでの印刷のおおまかなソース（使用しているAPIとその発行順で結構です。）
があったらなにかアドバイスできるかもです。

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

NGNG

アクティブなテキストボックスの文字列を選択し、
その後そのテキストボックスを非アクティブにしても
どこが選択されているかわかるようにするにはどうすればよいでしょうか

0809802

NGNG

>>807
トレイの設定はガリバー社のHPにあったソースを改造して利用しました。
ttp://www.galliver.co.jp/writing/nikkei_tokushu/prn908/index.html
使用API関数は次の６つです。
DeviceCapabilities
OpenPrinter
DocumentProperties
RtlMoveMemory
ClosePrinter
ResetDC

0810804

NGNG

>>809
トレイの変更だけならSetPrinterでできるはずなのでDocumentPropertiesからSetPrinterに
変更してみてはいかがでしょうか？
参考
http://support.microsoft.com/default.aspx?scid=http://www.microsoft.com/japan/support/kb/articles/JP140/2/85.asp

私も以前同様の障害に遭遇しましたが、たしか何らかの原因があってDocumentProperties
では期待する動作とならずSetPrinterを採用した経緯があったような。。。

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

NGNG

>>803
解決したみたいだけど老婆心。。。

アーリーバインディングする限り同様の問題は発生し続けるので、
開発時:アーリーバインディング（参照設定）
配布時:レイトバインディング（参照設定を外しすべて As Objectに置換。。。）
のほうが（比較的に）よろしいかと。
インストーラにも気をつかわなきゃだけど。

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

NGNG

こんにちわ！初めまして。
いきなりなのですが、ポインタ変数を使って、入力した文字列を縦書きにするにはどうすればいいのでしょうか？
配列でしかしたことなくって。。。
ぜひ教えてください！m(_ _)m

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

NGNG

>>812
何の話だかさっぱりわからん。
基本的にVBにポインタ変数はない。何のことをいいたいんだ？
入力した文字列って・・・どこに入力してるのさ。
RichTextBoxでAPI使って縦書きというようなのなら
Webで見たことがあるような気もするが・・・。

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

NGNG

すいません。勘違いしていました。申し訳ありません。m(_ _)m

0815８１２

NGNG

あぁ。。。またまたすいません。名前のところ。。。ＰＣ音痴でほんとすみません。

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

NGNG

TextBoxとかのFontを変更しようとしてプロパティいじるととたんにCPU使用率が100%になる
これは仕様ですか？　それともMSのイキなサービス？
Fontサイズ変更するだけで5分くらいかかるよ・・・・（´Д｀；）

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

NGNG

SaveSetting で保存したレジストリの値を実際に目で確認するにはどうしたらいいですか？

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

NGNG

>>816
うちではそんなこと起きないけど…。
OSの環境が腐ってるか、フォントを大量にインストールしすぎか、多分そこらへん。

>>817
レジストリエディタで
HKEY_CURRENT_USER\Software\VB and VBA Program Settings\...
を見る。
ちなみに、VBをアンインストールすると、ここに保存されたキーをごっそり
削除していきやがります(;_;

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

NGNG

>ちなみに、VBをアンインストールすると、ここに保存されたキーをごっそり
>削除していきやがります(;_;
うへぇー知らなかった。
マジで。
俺が作ったのならいいけど、他人が作ったソフトの設定もたくさん入ってるのに。

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

NGNG

ホイールでソースコードエディタがスクロールしないんだけど
俺だけかな？

本体：VAIO PCG-R505R/AK
マウス：Logitech 光学マウス（USB）
OS：Windows2000 SP3
VB：VB6.0 SP5

助けて。

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

NGNG

>>820　MSの陰謀のにおいがぷんぷんします。

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

NGNG

>>820
またかよ。少しは過去ログ見ろ

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

NGNG

>>822
激しく同意。

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

NGNG

>>820
過去ログにあった？
このスレ全部見てるとおもったんだけどなぁ。

過去ログ逝ってきます。

先にお礼を言っておきます。ありがとう。

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

NGNG

>>816
Windows9xの場合フォントキャッシュが破損、または肥大している可能性があります。
%windir%\ttfCacheを削除してみてください。

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

NGNG

IconのハンドルからPictureオブジェクトを作る方法ってわかります？
ちなみにハンドルの取得方法はExtractAssociatedIconです。

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

NGNG

AccessVBAを使っています。超初心者です。
フォームからデータを入力する際に、最初に入力した「作成日時」と途中で変更があったときの「変更日時」
を取得したいのですがどのようにすればいいのでしょうか。

調べてみましたが分かりませんでした。
すみませんがよろしくお願いします。

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

NGNG

初心者は免罪符にならないって誰かが言ってた。
俺もそう思う。

0829827

NGNG

>>828
気取るなハゲ

0830827

NGNG

>>829は偽者です。

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

NGNG

免罪符って、そもそも効果がない詐欺商法だったのだから、
免罪符になってもやっぱし意味がない罠。

>>824
直近で出てるぞ。744-757
個人的には、どこでもホイールがおすすめ。

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

NGNG

どこでもホイールって嫌いなんだよ・・・名前が。いや使ってるけどね。

0833827

NGNG

一生懸命ナニしました～♪
産休♪

0834827

NGNG

>>833も偽者です。

0835827

NGNG

>>833は偽者です。

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

NGNG

>>827
わざわざ超初心者とか書いて甘えようとするから
叩かれるんだよな。余計なこと書かなきゃいいのに。

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

NGNG

>>827ウゼー。
騙りの一匹や二匹でいちいち騒ぐな

0838827

NGNG

>>836
超初心者と書いたことについてはあやまります。これから気をつけます。
今回は見なかったことにして下さい。

>>837
連続カキコｽﾏｿ。書き込まれてないと思った。

あらためて回答お願いします。

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

NGNG

>>827

831が
>>744-757
に書かれてるって教えてくれてんべが？

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

NGNG

>>839
それホイールの話だろ 827のはAccessの話だぞ

0841839

NGNG

あ、ホントだスマソ

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

NGNG

ホイールの方の質問をした824です。

すいませんでした。こんなに近くにあるなんて・・・。

どこでもホイール入れました。
無事スクロールしました。

また常駐ものが増えてしまいましたが、
とりあえずは満足しています。

ありがとうございました。そして迷惑かけてごめん。

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

NGNG

>>827
なんか言っている事が分からないけど、

フォームからデータの入力と作成日時と更新日時との関連がわからん。
最初に入力したときの作成日時と更新日時のデータが保存されて無ければ無理だろう。

もし最初に入力した際に何かしらのファイルが作成されるのであれば、
その二つの時間を取得するAPIはあるよ。

"作成日時更新日時 API"でグーグレば見つかるんじゃね？

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

NGNG

>>711-713
ありあっと。

時間が無かったので、新規に非表示FROMを作って
それをクラスのように使用することにしました。
（結局コンポーネントをそのまま使用）

いわゆる負けたって奴です。

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

NGNG

>>801
&（文字列連結）を使うと遅いのは有名な話ですが、値の変更を伴わない、単なる検索処理でも
文字列が大きく（概ね1M以上）なると、遅いのでどうしようもないのです。

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

NGNG

>>845
それを実証してくれ。

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

NGNG

>>846
Instrとか、InstrRevで1M強程度の文字列(日本語文書)からキーワードを
検索したら、秀○の10倍以上掛かった記憶があります。

無論、ラフでアバウトな体感値なので、ベンチマークと言えるような厳密
なものではありませんが。
リッチテキストボックスのFindメソッドなら、あるいはもっと速いのかも
しれないが、逆方向の検索（InstrRevに相当）ができないようなので、×。
（だと思う）

- 以上 -

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

NGNG

>>847に自己レス。

100K～200K程度の比較的小さな文字列なら、10倍20倍程度の実行速度差は
ほとんど気になりません。

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

NGNG

>>827　もうちょっとまともな文を書いてくれ。読んでてイライラする。

フォームからデータを入力する際
↓
入力画面で、レコードからデータを画面に出力する際

最初に入力した「作成日時」と途中で変更があったときの「変更日時」
↓
レコードの項目「作成日時」と「変更日時」

取得したい
↓
ラベルに出力したい、変数に格納したい、etc

って事か？どこに保持されてるデータをどこに出したいって事ぐらい超初心者でも書けるだろ。

0850827

NGNG

皆の素敵な意見募集。
String型の接頭痔はstrがよく使われると思うんだけど、
構造体の接頭痔ってナニ使ってる？

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

NGNG

>>850
struct

0852827

NGNG

structすっか。
3文字に略そうかと思ったんだけどうまく略せなかったんだよネ！

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

NGNG

>>850
udt
一応VB推奨の接頭辞。cf:定数と変数の名前付け基準
使ってる所ほとんと見ないよーな気もするが…。

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

NGNG

>>847
試しに乱数で作った1MBの文字列変瑞狽ｩら、丁度中演宸ﾉ置いたキーャ潤[ドを
instrで検索してみた。そしたら4msぐらいで終わっちゃったYo!
16MBで試してみたら70msぐらい。案外速いかもね…。
ちなみにVB6のインタプリタ上。

でも、16MBの文字列の生成にはすげー時間かかった(w
バイト配列を1600万回ループさせてランダム文字作成するのに7000ms、
それをstrconvで文字列変数に変換するのに1400msぐらい。
&で試す勇気はない(^^;

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

NGNG

VB6で、変更した記憶が無いのにいつのまにか
コントロールの width, height, top, left の値がとんでもない値に書き換わっていることがたまにあります。

他の方はどうでしょうか？

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

NGNG

プロジェクト全体のon errorのエラートラップを
一発で無効にする方法はありますか？
やっぱりon errorをコメントアウトしていくしかないでしょうか？

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

NGNG

置換すれば？

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

NGNG

>>826
OleCreatePictureIndirectとか

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

NGNG

>>857
やはり置換しかありませんか・・・・・
そうします

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

NGNG

>>856
IDE上だけでよければツール-オプション-全般タブのエラートラップを「エラー発生時に中断」にすれば
すべてのエラートラップは無視されるよ。

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

NGNG

>>855
とんでもない値ってのがどんな値だかわかんないけど、複数人数で開発している場合、
最後にプロジェクトを開いた端末のディスプレイの設定によってそれらのプロパティは
微妙に書き換わってしまいますよ。

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

NGNG

>>860
おお！そうですか
このオプションみたのですが、関係なさそうだとおもって
素通りしてしましました。
ありがとうございます。
デバッグ時のときだけエラートラップはずす方法あるんじゃないかなーとおもって
いろいろ調べてました。
感謝いたします

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

NGNG

ALT+F5 や ALT+F8を知らない人が多いような気がしないでもない。

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

NGNG

>>855
うっかり手が滑って・・・ということもあるので、ケアレスミス防止用に、
コントロールをロックしてみてはどうでしょうか。
(フォームをデザインビューで右クリックすると、コンテクストメニューの
中にあります)

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

NGNG

φ(．．;)メモメモ >>863

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

NGNG

>>855
SDI環境で開発していると、VBの終了・起動を繰り返すとFormのTopの値がどんどん
大きくなっていって、ついには画面外に消えちゃうことなら良くあります。
たしかバグだった気がするけど、修正される雰囲気無いですねぇ…。VB6SP5です。

0867質問主ではないのですが

NGNG

>>349のヤツってVB6でも使えますか？

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

NGNG

>>867
訊く前にやってみろっつーの

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

NGNG

' ウィンドウプロシージャの新しいアドレスを設定
Public Const GWL_WNDPROC = (-4)

で怒られました。。。。

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

NGNG

>>869 なんて？

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

NGNG

>>869 ねぇなんて？

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

NGNG

>>863
φ( ゜゜)ノ　゜ぽぃ

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

NGNG

すんません・・・これどういう意味ですか　
Dim y As String
Mid(y, 5, Len(y))

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

NGNG

文字列yの5文字目以降を取得するってことだろう。Len(y)を
省略しても結果は同じ。

0875874

NGNG

Dim y As String
Dim x As String

x = Mid(y, 5)

のつもりじゃないかな～。

0876873

NGNG

うーん･･･ほんとわけわからん

If InStr(y, "_:SA") Then
Text1 = Text1 + Mid(y, 5, Len(y))
End If
ってなってるんですよ・・・（ ´・_・｀）
ちなみにyってのは文字列っていうよりデータを入れとく変数のようなのです
だから余計意味わからん・・・

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

NGNG

>>876
yに入る文字列の意味を聞けよ。

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

NGNG

Visual Basicのオススメの書籍とかないでしょうか？

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

NGNG

下のようなソースを実行すると「なんで？」が表示されるんですが、
なんで？
sub a　から実行すると、sub b の　on error resume nextのところで次の行のerror 1はとばされてresumeが実行されそうなんですが、
なぜかerror 1のところで　sub a のエラールーチンに飛びます。

sub a
on error goto err1
call b
exit sub
err1:
msgbox "なんで？"
resume
end sub

sub b
on error goto err1
error 1
err1:
on error resume next
error 1
resume
end sub

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

NGNG

>>879
修正

sub a
on error goto err1
call b
exit sub
err1:
msgbox "なんで？"
resume
end sub

sub b
on error goto err1
error 1
exit sub
err1:
on error resume next
error 1
resume
end sub

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

NGNG

>>878
この本いいよ。ていうか読んでおくべき。確か過去スレでも何度か薦められてたはず。
http://store.nikkeibp.co.jp/item/main/148910013480.html
( http://store.nikkeibp.co.jp/item/main/148910013560.html )

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

NGNG

>>876
yの先頭が"_:SA"であるという前提で、Text1にそれを除いた文字列を格納する処理なんじゃないの？

If Left(y, 4) = "_:SA" Then

のつもりでは？

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

NGNG

>>873
もし変数yに"_:SA"が含まれていればText1の文字列に変数yの5文字目以降を追加するという意味だよ。
ヘルプ見りゃわかるだろうが。

0884876

NGNG

>>882 これ実はWinsockのサンプルなんですよね　
で、"_:SA"ってのは何か暗号？見たいな感じでサーバーとクライアントに共通してるのです
例えばクライアントがログインしたら"_LI"をサーバーに送るって感じです
だから実際のフォーム上には"_:SA"とかは表示されないんです　　
ってかクライアントがログインしても何も表示はされないんですよね　
サンプル自体がおかしいのかな？

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

NGNG

>>884
>実際のフォーム上には"_:SA"とかは表示されないんです
むしろ表示しないために>>876のコードがあるんでしょ？

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

NGNG

>>880
エラーハンドラでエラーが発生した場合、無条件にエラートラップされない致命的エラーとなります。
その致命的エラーが上位モジュールでエラートラップにハンドリングされています。
詳細はMSDNを参照してください。

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

NGNG

>>884
>クライアントがログインしても何も表示はされないんですよね　
>サンプル自体がおかしいのかな？

クライアントとサーバーの線はちゃんとつながってる？

0888876

NGNG

>>887 もちろんそれはカンペキです

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

NGNG

>>888
本来なら何が表示されるべきなの？

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

NGNG

>>886
φ(．．;)メモメモ
勉強になりました。

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

NGNG

>>888　ていうかyの中身ぐらい出せよ。

0892876

NGNG

>>888 これは「サーバーが閉じているかどうか」　です
If InStr(y, "_:CS") Then
Winsock1.Close
Text1 = Text1 + "Server Closed" & vbCrLf
End If

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

NGNG

IEのお気に入りみたく、メニューの中身をドラッグで移動させるには
どうしたら良いのでしょうか。

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

NGNG

>>892
自分にレスしてどうすんのよ。しかも別のコードになってるし…。

適切に質問する能力がないと回答は得られないよ。

ｳﾞｫｹ

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

NGNG

>>892
送信データの先頭5文字を通信の約束事に使ってるだけだろ。
"_:CS"←CloseServerの略なんじゃねーの。
そのサンプルを置いてたページの説明なり、ReadMeなりちゃんと読め。

で、Mid関数で5文字目から切り出せば、その約束事の部分は画面には
表示されないっちゅう話だろ。

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

NGNG

下記の状態でrs.closeで、「このコンテキストで操作は許可されていません」
とでます。どうしたらrs.closeを実行できるのでしょうか

sub a

on error resume next
rs.open ～
error 1

exit sub

err1:
rs.close <-----------------ここ

end sub

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

NGNG

あるウィンドウのマウスカーソルがOSとは別物の場合、
マウスカーソルを強制的に移動させるSetCursorPosを使用しても、
移動させることが出来ませんでした。

OS自体に擬似的にマウスカーソルが移動したという認識を
させることは出来ないでしょうか？

わかりにくかったらスイマセン。

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

NGNG

>>896
Recordsetは開けているのか。
rs.Stateで見れ。
>>897
VMWareなどの仮装OSってことかい？

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

NGNG

>>898
あいてます。
If rs.State = adStateOpen Then rs.Close
これでも同じくエラーが出ます。

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

NGNG

>>896
掲示されたコードではrs.closeは実行されません。

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

NGNG

＞899
普通にExit Subの前にClose持ってきて閉じれるのか。

0902897

NGNG

>>898
レスありがとうございます。
VMWareについてGoogleで調べてみましたが、微妙に違いました。
OSに対して、マウスが動いたというメッセージを送り、
それでマウスが動いた処理が行われる状況に出来れば良いのかと
考えています。
SendMessageやPostMesseageについていまいち分からない為、
なんとも言えないのですが、その辺なのでは無いかと思っています。

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

NGNG

>>902
VMWareじゃないソレに対し、なんで何も表記せんの？
やばいもの？

0904897

NGNG

やばいかもね＾＾；
まあ気にせんでください・・・

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

NGNG

厨房な質問で申し訳ないんですが「$」って何の意味があるんですか？

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

NGNG

>>905
Stringって何の意味があるんですか、って君が訊かれたらどう答えるね？
「ヘルプ見ろゴラァッ！」ってならないかな。

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

NGNG

>>901
閉じれます

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

NGNG

ひとつのクラスモジュールでプロパティの中に更にプロパティやメソッドを作る方法って？
こんな感じ => Text1.Font.Bold

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

NGNG

>>908
コンポジション。

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

NGNG

>>908
Fontオブジェクトを持ってるだけ。

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

NGNG

>>905
Sと明記せずにぼかしたいときに使う。
例) M$、$UN

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

NGNG

プログラムのことじゃないんですが質問です。
VB6を開くとプロジェクトを開くダイアログボックスが出ますよね？
あの中の[最近使ったファイル] タブの一覧を削除したいんですが、
どこで削除できるでしょうか？
レジストリを探してみたんですが見つけれませんでした。
Sampleを色々見てたらすごい数になっちゃって
誰かわかる方教えてください。宜しくお願いします。

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

NGNG

>>912
削除汁
HKEY_CURRENT_USER\Software\Microsoft\Visual Basic\6.0\RecentFiles

0914908

NGNG

>>909
いろいろ調べたのですが具体的な方法がわかりませんでした (T_T)
(これって複数のクラスを使う？)

>>910
例えがわるかったですスマソ

・・・なんかだめっぽいんであきらめます (´･ω･`)

0915912

NGNG

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

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

NGNG

>>914
Integerのプロパティの変わりにクラスのプロパティを作るだけだよ。

0917908

NGNG

>>916
別のクラスモジュールのプロパティを作る、というのはわかるのですが
クラスモジュールひとつだけで実現する方法がイマイチわかりません
(初心者なだけに見当違いなコトいってる？ or 最初の質問がマズかった？)

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

NGNG

>>917
オブジェクトブラウザ等で調べればわかるがText1.Font.Boldは
TextBox型のText1とStdFond型のFontとBoolean型のBoldからなっている。
VBはクラスモジュールのファイル＝クラス(型)なので二つの型を作るなら
二つクラスモジュールが必要。
パブリッククラスの中のパブリックユーザ定義型ならひとつのファイルで作ることもできるが。

0919908

NGNG

>>918
つまりこゆことやるには複数のクラスモジュールが必要だと
フツーなことを知らないんでそれがわかっただけでも収穫です
どうもありがとうございます！

0920910

NGNG

>>919
あまり意味はないが、こんな風にすると一つのクラスモジュールだけでも
そういうことはできるぞ。

' Form1モジュール
Option Explicit

Private Sub Form_Load()
    Dim c As Class1

    Set c = New Class1
    c.Prop = "あいう"
    Debug.Print c.Prop
    Debug.Print c.Self.Prop
    Debug.Print c.Self.Self.Prop
End Sub

' Cass1モジュール
Option Explicit
Private s As String

Public Property Get Prop() As String
    Prop = s
End Property

Public Property Let Prop(ByVal value As String)
    s = value
End Property

Public Property Get Self() As Class1
    Set Self = Me
End Property

0921910

NGNG

ま、基本的には複数使うけどね。

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

NGNG

クールバーの上にメニューが乗ってるUIが最近流行ってますよね。
それをVBでも再現してみようと思って、ずーっと考えてたんですけど、
どうも出来ません。

ツールバーにボタンを追加
　　　↓
キャプションを設定
　　　↓
キャプションの配置はTBSTYLE_LIST（右揃え）
　　　↓
各ボタンにTBSTYLE_AUTOSIZEをセット
　　　↓
クールバーに乗せる

っつー流れまでは分かったんですけど、力不足で実装できません。
結局キャプションの左側にポカーンと空間が空いてしまいます。
助けてください(´･ω･`)

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

NGNG

>>922
VBじゃできねーよ。VBなんてやめとけ。

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

NGNG

>>923のいうコトは無視。やり方調べてみる。

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

NGNG

>>922
それ、俺も悩んでる。
キャプションの幅が一番でかいのに合わせられちゃうんだよね。
どうしてもうまくいかない。
俺もそれ知りたい。
>>924に禿しく期待。

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

NGNG

じゃあ俺は>>923に同意。

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

NGNG

全部自分で描画すればどんなインターフェースだってできるよ
とかほざいてみる。

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

NGNG

Windows2000にユーザを追加するにはどのAPIを使えばいいの?

0929923

NGNG

>>924
もうそろそろわかったか？調べるだけ時間の無駄(w
VBなんかやめとけ。

>>927
作れるもんなら作ってみろって。推測だけで物を言うなよ。

あっそうそう。メニューなんだからもちろんショットカットキーも使えるよな。

0930８７９

NGNG

rs.closeのcloseのMSDNみてみると、
オープンさえしていれば、いつでもクローズできるわけではないみたいでした。

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

NGNG

ってか>>923はなんでVBスレにいるんだ？

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

NGNG

>>931
他の言語を使ってるんだがレベルが低くてVBを馬鹿にしに来た、そんな感じ。

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

NGNG

まあそろそろ夏も終わりですから、帰るべき所へ帰るんのでわ。
こんなこと書くとたぶん「いっぱい釣れた（ｗ」とか言い始めるんでしょうが。

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

NGNG

　　　　　　　　ゴガギーン
　　　　　　　　　　　　　ドッカン
　　　　　　　　　ｍ　　　　ドッカン
　　＝＝＝＝＝）　）)　　　　　　　　　☆
　　　　　 ∧_∧ |　|　　　　　　　　　／　　　　　　　　　　／￣￣￣￣￣￣￣￣￣￣￣
　　　　　（　　　）|　|＿＿＿＿＿　　　　∧＿∧　　　＜　　おらっ！出てこい　>>923
　　　　　「　⌒￣　|　　　|　　　　||　　　（´Д｀　）　　　　＼＿＿＿＿＿＿＿＿＿＿＿
　　　　　|　　　/ ￣　　　|　　　　|/　　「　　　＼
　　　　　|　　　|　|　　　　|　　　　||　　　 ||　　 /＼＼
　　　　　|　　　 | |　　　　|　　　　|　　へ//|　　|　　| |
　　　　　|　　　 | | 　　　ﾛ|ﾛ　　　|／,へ＼|　　|　 | |
　　　　　|　∧　| |　　　　|　　　　|／　　＼　　/　（　）
　　　　　|　|　|　|〈　　　　|　　　　|　　　　　|　|
　　　　 / /　/ / |　　/ 　|　　　〈|　　　　　|　|
　　　 / /　 / /　|　　　　|　　　　||　　　　　 |　|
　　　/ /　/ /　=-----=--------　　　　 |　|

0935923

NGNG

>>934
よんだか(w
>>924が調べると言ってから一日くらい待ってやるつもりだったんだがな。

>>931
質問してるから俺が知っていることを書いただけじゃねーか。

>>932
まぁ確かに他の言語のレベルは低いかもな。正確には経験が少ないというだけだが。
でもVBのレベルは高いよ(w

>>933
別に今回は釣れたなんて頭悪い事言わないよ(w

で結局俺が言ったとおりVBじゃできねーんだろ。難しいこと(w)にVB使うなって。
VBは低機能なコンポーネントをそのまま使ってりゃいいんだよ。
でなきゃVBなんてやめとけ。

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

NGNG

>>922-923＝935
クールバーが難しいねー・・・・。

http://www.int21.co.jp/pcdn/vb/onepoint/knvol0811.html

まあ、これで我慢してなさいってこった。

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

NGNG

いやぁ、「VBでやる」ことに意義があるんだろ？

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

NGNG

VB6でランダムアクセスファイルの名前とレコード長をiniファイルから取得し、
その設定でファイルを開こうとしているのですが…

Dim FileNum As Integer
Dim FileName As Variant
Dim RecLen As Integer
Dim RecData As String
Dim RecNum As Integer

　　FileName = "なんとか.dat" '（iniファイルより取得）
　　RecLen = iniファイル設定値' （iniファイルより取得）

　　FileNum = FreeFile
　　Open FileName For Random As FileNum Len = RecLen

　　For RecNum = 1 To LOF(FileNum) / RecLen

　　　　Get #FileNum, RecNum, RecData

　　　'（レコードの処理）

　　Next RecNum

当然、Getステートメントでエラーになるわけでして…
こういう場合は、どうすればファイルの内容を参照することができるのでしょうか？？

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

NGNG

>>938
RecDataを、取得したい文字数だけ配列にしてみれ。

0940まめ

NGNG

テキストの指定行のみ読み込むにはどうすればいいのでしょうか？

0941938

NGNG

>>939
お答えありがとうございます。
申し訳ないです、もう少しヒントをオネガイします…ごめんなさい、バカで

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

NGNG

>>941
Dim RecData As String * 20

とかの固定長型の文字列にしても20バイト分読み取れるのでは？

0943938

NGNG

>>942
レスどうもです。

おっしゃるとおり、RecDataの長さを宣言すればエラーは無くなるのですが
今回は、RecDataの長さの値を外部から持って来たいので、
As String * （長さ）とソース内に埋め込んでしまうと意味がなくなってしまうわけです。
しかし宣言しないことにはエラーが出るわけで…。そこで悩んでます。

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

NGNG

勉強しようと、世の中に糞の役にも立たないプログラムを
つくっているのですが、用語もわからず検索できないので
初心者質問させていただきます。

ラベルをクリックしたら色が変わって
２秒で元の色に戻るという事をしたいのですが、
２秒の時間を止める処理はどのようにすればできますか？

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

NGNG

>>944

Wait(Now + TimeValue("0:00:02"))

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

NGNG

>>943
RecData = String(20," ")

とでもすれば20バイト分” ”で埋まる＝領域を取れる。

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

NGNG

>>940
ファイルサイズを書かない時点で失格。

0948944

NGNG

>945
ありがとうございます。
さっそくそのまま貼り付けたのですが、
「sub または functionが定義されてません」
と言われます。waitというのをＭＳＤＮ検索しましたが
何がなんだか…。
そのままじゃだめですか？くだらない質問で何度もすみません。

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

NGNG

>>948
タイマーコントロールをググれ。

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

NGNG

>>945のﾚｽはネタくさいが。

つーか
2秒の時間止めるってどういうことだ？？>>944
日本語しゃべれ。

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

NGNG

>>948
こんな？

Private Sub Label1_Click()
????Dim time1 As Long
????Dim time2 As Long
????
????time1 = Val(Timer)
????time2 = Val(Timer)
????
????While time1 + 2 > time2
????????time2 = CLng(Timer)
????????DoEvents
????Wend
????
????MsgBox (time1 & Chr(13) & time2)
????
End Sub

0952951

NGNG

Operaで書いたら化けやがった

0953944

NGNG

>951
あああありがとうございます！
コードの意味はわかりませんができました。
ゆっくり勉強します。

＞２秒の時間を止める

我ながらアホな日本語…

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

NGNG

>>951

>time1 = Val(Timer)
>time2 = Val(Timer)

time1 = Val(Timer)
time2 = time1

の方がいいね。

0955951

NGNG

>>951
あらホントですね。
書いてて何か気持ち悪さを感じたのはそのせいか…。

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

NGNG

>>940
シーケンシャルファイルなら、その指定の行まで読み飛ばせ。
その行だけ取得することはできない。

>>942
その表現は20バイト分ではなく、20文字分だ。細かいツッコミだが、
ランダムアクセスをやる上では超重要事項だ。

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

NGNG

FileSystemObject 使ってます｡
FolderオブジェクトのFilesコレクションを扱うときにわからない事がありましたので、
質問させてください。

Filesコレクションから直接ファイルパスを取得しようとする場合、

Dim oFolder as Folder
Set oFolder = ofs.GetFolder("---パス---")

Dim sFilePath as String
sFilePath = oFolder.Files(0).Path

等とやると思うのですが、

sFilePath = oFolder.Files(0).Path

の部分で、「プロシージャの呼び出し、もしくは引数が不正（エラーNo.5）」と出てしまいます。

For Each 構文でファイルを列挙し、パスを取得する事はできるのですが、
以上のように、Filesコレクションから直接ファイルパスを取得する事は出来ないでしょうか？

0958957

NGNG

書き忘れましたしたが、環境は以下の通りです。
Windows2000 SP２
VB6 SP5
IE6
scrrun.dll（5.6.0.6626）

0959908

NGNG

>>920-921
亀レスですがスマソ

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

NGNG

>>957
> sFilePath = oFolder.Files(0).Path
> の部分で、「プロシージャの呼び出し、もしくは引数が不正（エラーNo.5）」と出てしまいます。

Filesはコレクションなのでかっこで指定する値はインデクスではなくキーを指定する必要があります。
僕が調べたところではFilesコレクションはファイル名をキーとしているようなので、
oFolder.Files("foo.txt").Path
と指定すれば
C:\foo\foo.txt
のようにパスを取得できます。

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

NGNG

VB6.0でTCPによるソケット通信アプリを作りたいのですが、
サーバ上でサービス化させたいためにWinsockコントロール
が使えません。代わりになにか、Winsockコントロールと同等
の働きを実現するAPIだとかDLLのようなものがありましたら
使い方とともに教えてください。お願いします。

「スレ立てるまでもない・・・」でも質問したのですが、こちらの方が
適所かも。ということでマルチポストｽﾏｿ

0962９６１

NGNG

ちなみにWinのNT4.0にアプリを置き、98SEと通信します。

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

NGNG

>>961
コントロールという基本的な用語すら間違える。
Winsockと言うAPIセットの存在すら知らない。

プログラマとしての実力を疑ったため放置しました。

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

NGNG

>>963
　　　　　　　　　　　　 ∩
　　　　　　　　　 | |
　　　　　　　　　 | |
　　　　　 ∧＿∧ 　 | |　　　／￣￣￣￣￣￣￣
　　／￣＼　´Д｀）／/　　＜　放置できてねーよ！！！
.r ┤　　　ト､　　　 /　　　　＼＿＿＿＿＿＿＿
|.　＼＿／　ヽ　　/
|　　　＿_（￣　 |　　|
|　　　＿_）＿ノ￣￣￣￣＼
ヽ＿＿＿）ノ　　　　　　　＼
　　||＼||￣￣￣￣￣￣￣||￣
　　||　 ||￣￣￣￣￣￣￣||
　　　 .||　　　　　　　 ||

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

NGNG

実力がある人しか答えてもらえない初心者質問スレ(w

もちろん皮肉です。>>963への。

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

NGNG

つーか>>963がちょっと知恵つけただけのガキだし。

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

NGNG

>>965
初心者と初心者未満のバカは明確に区別されます。
割と常識ですが。

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

NGNG

>>965-966
自演必死だな。

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

NGNG

>>963 >>968
自演必死だな。

0970９６１

NGNG

>>963はどうでもいいです。答えられないだけのようですから。
他の方、どなたか知っていたら教えてください。

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

NGNG

>>969
隠してるつもりはないけどね。

違うって言わないところを見ると>>965-966は正解みたいだな。
それだけで俺は満足さ。

0972９６１＝９６５＝９６６＝９６９

NGNG

早く答えなさい。本気を出しますよ？

0973966

NGNG

>>971
やっぱりか。俺は>>965じゃねーよ。自己満足さん。

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

NGNG

　　　　　　　　　V　B　厨　バ　カ　ば　っ　か　（　藁

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

NGNG

>>974
そうだな。>>963がバカなのは認める。

0976965

NGNG

966じゃないよ。
961=965と言われるかと思ったがそっちに来たか。
満足させられずにごめんね>>971
しかし965=966だと満足感が得られる、というのは俺には理解できない世界だな。

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

NGNG

俺が思うに970=972=974 (961,965,966,969ではない) だな。

0978970、972、974のうちの一人

NGNG

>>977

は・ず・れ

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

NGNG

誰か>>961を分かる日本語質問分にしてくれたらsocketに関して答えてあげてもいいよ。

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

NGNG

>>979
日本語質問分って日本語ですか？

0981979

NGNG

間違った日本語です。

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

NGNG

>>980

そういうこというとまた980=961とか言い出すだろ？　ヴァカ厨が。
すぐに自演、ネカマ、ネタで結びつけるやつは（略

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

NGNG

>>981
つまり彼は自分が覚えている日本語がおかしいことに気付かずに>>961の正しい日本語を
矯正しろと言っているってことですか？

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

NGNG

>>957 >>960
ほんとだね、Indexを数値にするとダメだ。

Private Sub Form_Load()
　　Dim oFso As FileSystemObject
　　Dim oFolder As folder
　　Dim oFile As file
　　Dim n As Long

　　Set oFso = New FileSystemObject
　　Set oFolder = oFso.GetFolder("c:\temp")

　　For n = 1 To oFolder.Files.Count
　　　　Debug.Print oFolder.Files.Item(n).Path '実行時エラー'5' プロシージャの呼び出し、または引数が不正です。
　　Next

　　'こっちを使え
　　For Each oFile In oFolder.Files
　　　　Debug.Print oFile.Path
　　Next
End Sub

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

NGNG

>>979
>>961ってそんなに変か？
変って言ってる奴が何か勘違いしているだけじゃないのか。

>>961
Winsockコントロール(言うまでもなくこれはAPIじゃない)はサービスにしても使えると思うが。

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

NGNG

>>985

>>961がバカなのは確かだな。

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

NGNG

>>961 = >>177

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

NGNG

>>984
なぜ数値じゃだめなのか勝手に推測。

もしIndexに数値を使えたとする。
するとIndex番号0のファイルなのかファイル名0のファイルなのか区別がつかない。
一見Files(0)とFiles("0")のように文字列型と数値型で区別できるように思える。
しかし、FileSystemObjectはWSHで使うことを考慮している。
WSHではデータ型はバリアント型しかない。
ゆえにIndexに数値は使えない。

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

NGNG

>>988
単に数字のキー名にデータがmapされてないだけでは？

0990９６１

NGNG

>>985
やっとまともなレスをいただき感激です。

＞Winsockコントロール(言うまでもなくこれはAPIじゃない)はサービスにしても使えると思うが。

アプリを動かすPCはサーバー機なので常時ログオフの状態にしておきます。
そうするとフォームにTerminateイベントが発生してしまうと思われます。
その状態でもWinsockコントロールを動かすことは可能なのですか？

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

NGNG

>>988
＞するとIndex番号0のファイルなのかファイル名0のファイルなのか区別がつかない。

通常、そう言うポリシーの異なる２つ以上の名前付けは１つのコレクション内で行うべきではない。
数字で参照させるなら数字をキーに。ファイル名で参照させるならファイル名をキーに。

たまたま、その仕様がファイル名で参照させるタイプであっただけ。

「仕様」以上の答えはないと思われ。

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

NGNG

>>990
ああ、WinSockコントロールをエクストラストラクチャとしてWindowsに登録すれば良いんだよ。
Dynamicキーワード使ってね。

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

NGNG

やっぱりというか、なんと言うか。
>>961と>>990では全然質問の意味が違うじゃねーかYO！

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

NGNG

>>993
ほら、既に言葉の定義すら本人の中で固まってない。
VBのいい加減でも通る柔軟な構文の賜だ。

0995９６１

NGNG

>>992

そんな方法があるんですか！？
でも難しそうなのでちょっと調べてみます。
「Dynamicキーワード」がキーワードですね？

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

NGNG

>>993
それは>>985が新たな情報を与えたため。

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

NGNG

>>994
お前ウザイよ。

0998９６１

NGNG

皆さんVB歴は何年ですか？
私は２ヶ月です。
それ未満の人は私の質問に答えないでください。

それでは質問の答えをお願いします。

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

NGNG

９９９

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

NGNG

うんこ

1001１００１

Over 1000Thread

このスレッドは１０００を超えました。
もう書けないので、新しいスレッドを立ててくださいです。。。

レス数が1000を超えています。これ以上書き込みはできません。

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

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