(*´д`*)ｱﾊｧ… VB初心者質問スレ Part21
レス数が1000を超えています。これ以上書き込みはできません。
0001デフォルトの名無しさん
NGNGPart11 http://pc.2ch.net/tech/kako/1024/10243/1024380249.html
Part12 http://pc3.2ch.net/test/read.cgi/tech/1026642565/
Part13 http://pc3.2ch.net/test/read.cgi/tech/1029241786/
Part14 http://pc3.2ch.net/test/read.cgi/tech/1030947162/
Part15 http://pc3.2ch.net/test/read.cgi/tech/1032706491/
Part16 http://pc3.2ch.net/test/read.cgi/tech/1034302532/
Part17 http://pc3.2ch.net/test/read.cgi/tech/1036154952/
Part18 http://pc3.2ch.net/test/read.cgi/tech/1038103769/
Part19 http://pc3.2ch.net/test/read.cgi/tech/1039859691/
Part20 http://pc2.2ch.net/test/read.cgi/tech/1041879465/
VB.net関連スレ
【老若】VB.net質問ｽﾚ【男女】
http://pc3.2ch.net/test/read.cgi/tech/1025848458/
心得
壱．質問する前に過去ログにも目を通してみる。
弐．質問する前に MSDN などで調べてみる。
参．VBScript もこのスレでOK。
四．インストーラーなどの質問もOK。
五．下ネタもたまにならOK。
0002デフォルトの名無しさん
NGNG0003デフォルトの名無しさん
NGNG0004デフォルトの名無しさん
NGNG0005まえすれの1000
NGNGあ、とかいれといた
0006デフォルトの名無しさん
NGNG0007デフォルトの名無しさん
NGNG馬鹿が・・・・
前スレと同じ顔文字じゃねーか。
0008デフォルトの名無しさん
NGNGhttp://www.geocities.co.jp/Milkyway-Orion/4054/
0009デフォルトの名無しさん
NGNGいや〜感動した。
0010デフォルトの名無しさん
NGNGﾄﾞｶﾞｲｼｭﾂ。
0011デフォルトの名無しさん
NGNG0012デフォルトの名無しさん
NGNG(*´д`*)ｱﾊｧ
0013デフォルトの名無しさん
NGNG0014デフォルトの名無しさん
NGNGCが使えない事にコンプレックスを持っている開き直りVBオンリーPG
0015デフォルトの名無しさん
NGNG0016デフォルトの名無しさん
NGNG0017デフォルトの名無しさん
NGNG0018デフォルトの名無しさん
NGNGもしくは、VB6ランタイムとして配布されているのに入っている
ファイル群が一覧で書かれているサイトを教えてもらえませんか。
あ、分かりそうなら、全ファイルを書き出していただけるとありがたいです。
(面倒でなければ)
0019デフォルトの名無しさん
NGNG0020デフォルトの名無しさん
NGNGライセンスの関係上出来ないことになっているはず。
0021デフォルトの名無しさん
NGNG0022デフォルトの名無しさん
NGNGﾜﾗﾀ。ひでーな。
0023前スレ931
NGNGselcolorプロパティを使い色を変えようとしているのですが、全ての文字が同じ色に変わってしまったり
色が変わらなかったりと使い方がわからず困っています。
申し訳ないのですが。
フォームに
RichTextBox1が1つだけ配置されているとして
あいうえお（青色
かきくけこ（緑色
さしすせそ（黄色
と表示される例文を作っていただけないでしょうか？
よろしくお願いします。
0024デフォルトの名無しさん
NGNGオーナードロー
002523
NGNG調べてみます。ありがとうございます。
0026デフォルトの名無しさん
NGNGそうでもない。実行ファイルと一緒に配布さえしてりゃOK。
0027デフォルトの名無しさん
NGNGRichTextBox1.Text = ""
RichTextBox1.SelColor = RGB(255, 0, 0)
RichTextBox1.SelText = "あいうえお" & vbCrLf
RichTextBox1.SelColor = RGB(0, 255, 0)
RichTextBox1.SelText = "かきくけこ" & vbCrLf
RichTextBox1.SelColor = RGB(0, 0, 255)
RichTextBox1.SelText = "さしすせそ"
'色は適当だ。
002823
NGNGありがとうございます。
すごく参考になり、上手く作っているプログラムの方に反映させる事ができました。
今まで、SelTextを使わず、
RichTextBox1.text=RichTextBox1.text & "文字列"
としてしまっていました。
今日はこのことでずーっと悩んでいたのですごく助かりました。ありがとうございました。
0029デフォルトの名無しさん
NGNG0030デフォルトの名無しさん
NGNGDC取得してそれを保存すれば良し。
0031デフォルトの名無しさん
NGNGよけいなお世話かもしれないけど、
RichTextBoxでそうやって色変えて出力するのを大量にやると、
NT系OSで描画がハンパじゃなく遅くなったり途中で固まったりする不具合があるから、
気を付けた方がいいよ。
0032デフォルトの名無しさん
NGNG代替策はあるんですか？
0033ぱぱらぱー
NGNG保存したんですが、そのファイルを開いて見ると何も表示されていませんでした・・
listを使ってプレビューを見れるようにしてそれを表示しながら保存すると、表示されます。
ですが、"あいうお"を言うように" "がついたまま表示されてしまいます。
0034デフォルトの名無しさん
NGNG(*´д`*)ｱﾊｧ
0035デフォルトの名無しさん
NGNG(*´д`*)ｱﾊｧ
0036デフォルトの名無しさん
NGNG安易に
open 〜 output 〜
で保存しちゃいけないのですか。
0037デフォルトの名無しさん
NGNG探しているフォルダがあったら、さらにそのフォルダ内にaaaというフォルダがあるか
またチェックしたいのですが、このaaaフォルダ探索用にDir使いたい所ながら
そこで使ってしまうと、最初に書いたDirループが崩れちゃうし、ってことで困ってます。
こういう場合のチェックの仕方を教えて下さい。
0038デフォルトの名無しさん
NGNGその１ Dirで得られるファイル・フォルダを先にまとめて取得しループで使う。
その２ APIを使う。
その３ FileSystemObjectを使う。
0039デフォルトの名無しさん
NGNGFileSystemObject！
その手がありましたね。
ありがとうございました。
0040デフォルトの名無しさん
NGNGFAQ
ここ↓とか参考になるんじゃないかな。
ttp://www.interq.or.jp/www-user/komurak/progtec/005.htm
今は亡きVBマガジンでも、2年ぐらい前の記事で見た記憶がある。
0041デフォルトの名無しさん
NGNGその４ FileLen()でエラーに飛ばす。
0042デフォルトの名無しさん
NGNG0043デフォルトの名無しさん
NGNG0044デフォルトの名無しさん
NGNGない
0045デフォルトの名無しさん
NGNG回答，どうもありがとです。>>44
0046デフォルトの名無しさん
NGNG厨房は引っ込んでろ。
0047デフォルトの名無しさん
NGNG0048デフォルトの名無しさん
NGNG俺は別に頭いいわけじゃなくてあんたが馬鹿なんだが。
>>43
Shell使えばいいだろ。
0049デフォルトの名無しさん
NGNG0050デフォルトの名無しさん
NGNGダブルバッファ
0051デフォルトの名無しさん
NGNGちらちらはするけど黒くはならんねぇ。
0052デフォルトの名無しさん
NGNGＶＢでの情報がネット上に存在しなかったため、諦めることにしました
0053デフォルトの名無しさん
NGNG「ネット上に存在しない」事はないな。
0054デフォルトの名無しさん
NGNG005552
NGNG0056デフォルトの名無しさん
NGNG0057デフォルトの名無しさん
NGNG0058デフォルトの名無しさん
NGNG0059デフォルトの名無しさん
NGNGないから糞VBなんかやめてDelphiつかえって。
0060デフォルトの名無しさん
NGNG0061デフォルトの名無しさん
NGNG太陽神アポロンの神殿があるところです。
ギリシャにあります。聖地です。
0062デフォルトの名無しさん
NGNG0063デフォルトの名無しさん
NGNG見た目テキストボックスと同じにする方法教えて
0064デフォルトの名無しさん
NGNG(*´д`*)ｱﾊｧ
0065デフォルトの名無しさん
NGNG0066デフォルトの名無しさん
NGNGやっぱり、代替策は無いのか？
0067教えて！
NGNG中身が消えちゃうんだけど、ちゃんと取得するにはどうすればいいの？
0068デフォルトの名無しさん
NGNGEM_SET* 系のメッセージだと思う
0069デフォルトの名無しさん
NGNGcall PutText("txtA" & "1")
end sub
private sub (txt as object)
txt.text="test"
End sub
みたいな感じで「txt.text="test"」とし、
同じ名称＋数字 のテキストボックスにどんどん代入したいのですが、
どうすれば実現できますか？
普通のテキストボックスならコントロール配列でインデックスを指定すれば済むのですが、
アクティブレポートのField（テキストボックスと同じ）にはコントロール配列がなく困っています。
0070デフォルトの名無しさん
NGNGfor i = 1 to 100
call PutText("TxtA"& i)
next i
End sub
private sub PutText(Byval Text as object)
Text.text = "abc"
End sub
というイメージで、
TxtA1
TxtA2
TxtA3
・
・
・
call PutText("TxtA"& i)
private sub PutText(Byval Text as object)
を実現するような方法はないでしょうか？
0071デフォルトの名無しさん
NGNGこんとろーるはいれつ？
0072デフォルトの名無しさん
NGNG「アクティブレポート」ってどこぞの市販 ActiveX のことか？
どっちにしろまったく知らんため推測に過ぎんし
そもそも 69 = 70 なのかどうかも判らんが (w
Field というのの上位のオブジェクトやコレクションがあんじゃねーのか
例えばこんな感じで
ActiveReport.Fields("TxtA" & i).Text = "abc"
0073デフォルトの名無しさん
NGNGオシロはLeCroyのLT354でGPIBはInterFace社のPCI-4302です。
0074デフォルトの名無しさん
NGNGAccessではFAQなコントロール配列「もどき」が使えるかも？
0075デフォルトの名無しさん
NGNG(*´д`*)ｱﾊｧ
0076デフォルトの名無しさん
NGNG返事ありがとう！！
解決したいことをそのまま文にしたためわかりにくかったですね・・。
要は、
txttext1から100までテキストボックスがあるとして、
コントロール配列を使わずに
"txttext" & lngI としてtxttext1 のテキストボックスとして認識させたいのです。
このtxttext1から100をループできないかなと。
007769=70=76です
NGNGFor I=0 to 100
(txtText & I).text = いろんな値
Next I
です。
0078デフォルトの名無しさん
NGNG時間かける秒足す分 mod 100とかどうだ？
0079inet
NGNGInetコントロールで指定ファイルをダウンロードする手順はわかった。
では、ダウンロード完了だけ知らせるのではなく、ダウンロードの進行状況を表示するには、
どうしればいいのだ？！
非同期ダウンロードでステータス見張るところまでは見当ついた。でもバッファの使い方が詳細な部分まではわからない・・・
誰か助けて！
0080デフォルトの名無しさん
NGNGWinsockコントロールで作る
0081デフォルトの名無しさん
NGNGここからして既に何かが間違っていないか？
0082デフォルトの名無しさん
NGNGCallByName(Me, "txtText" & I , VbGet).Text = 値
>>81
同感
0083デフォルトの名無しさん
NGNG存在しないのでしょうか？
例えば自分でクラスを作ってDAtaFieldプロパティを備える事は
不可能なのでしょうか？
よろしくお願いします。
0084デフォルトの名無しさん
NGNG(*´д`*)ｱﾊｧ
0085デフォルトの名無しさん
NGNGクラスモジュールでそのように書けば可能だけど・・・。
0086(*´д`*)ｱﾊｧ ◆GiU01Db3Z6
NGNG008783
NGNGええ。ソースを書くことが出来れば問題がないんですが・・・。
0088デフォルトの名無しさん
NGNGこれを変形してみそ
Dim a As Control
For Each a In Me.Controls
MsgBox a.Name
Next
0089デフォルトの名無しさん
NGNGCommand1 から 100 までボタンがあったらどうするんだ
0090デフォルトの名無しさん
NGNG何か問題が？
0091デフォルトの名無しさん
NGNG漏れの気のせいだった。
0092デフォルトの名無しさん
NGNGだろ
0093デフォルトの名無しさん
NGNG漏れ最近、頭の回転が鈍いのだが何とかならんか？
0094デフォルトの名無しさん
NGNG漏れもなんだよ。寄る歳なみにはさからえんの。
0095INET
NGNGﾄｺﾛﾃﾞ79に意見ｷﾎﾞﾝﾇ（⊃Д｀）
・゜・(つД｀)・゜・
0096デフォルトの名無しさん
NGNG元は回転が速かったと言いたいのか？
0097ActiveReports
NGNGActiveReportsの中で、如何すれば詳細行の一行で五明細を
印刷できるのか？
グループも条件によって変更しなければなら
ないし、ページも。
どこのサイトを見ればいいのでしょうか？
0098デフォルトの名無しさん
NGNGとりあえず、マルチするな。
0099ActiveReports
NGNG0100デフォルトの名無しさん
NGNGその通りだ。
もう来るな。
0101ActiveReports
NGNGおもろかったです。
では
0102デフォルトの名無しさん
NGNGAsyncReadProgress はどう？
0103デフォルトの名無しさん
NGNG0104デフォルトの名無しさん
NGNG一次元配列を二次元配列風に扱えばいいだけではないでしょうか
0105デフォルトの名無しさん
NGNGテキストボックスの中から例えば"ABCD"という文字列から"EFGH"という文字列までを検索し
"ABCD"から"EFGH"までの全ての文字列を抽出したいのですが、
現在は
変数X = "ABCD"
変数Y = "EFGH"
変数a = InStr(TextBox1.Text, 変数X)
変数b = InStr(TextBox1.Text, 変数Y)
If 変数a > 0 And 変数b > 0 Then
変数c = 変数b - 変数a
TextBox1.Select(変数a , 変数c + 5)
変数P = TextBox1.SelectedText
Label1.Text = 変数P
という感じでやっているのですが、こうすると大文字と小文字の区別が付かなくて、
"ABCD"≠"abcd"となります。
大文字と小文字の区別無く抽出したいのですが、どうすれば良いのでしょうか？
見にくかったり、意味不明だったらすいません。
0106デフォルトの名無しさん
NGNG今までは、Cのコンソールプログラムだけでした。
あんまり高度なことはしません。研究上のちょこちょこっとした
数値処理とかで、せいぜい入出力と簡単なグラフィックのライブラリが
使えるだけでいいです。実行が極端に遅いのだけは困るのですが。
0107デフォルトの名無しさん
NGNG.netはこっち。
【老若】VB.net質問ｽﾚ【男女】 (Part2)
http://pc2.2ch.net/test/read.cgi/tech/1043629429/
要は、変換しちゃえばいいってこと。.netはよく知らないが、StrConvとか
Ucase,Lcaseとかはないのかな？
0108デフォルトの名無しさん
NGNG処理速度は、プログラムによっては極端に遅くなります。
大量の計算は、少々辛いです。
0109デフォルトの名無しさん
NGNG速度気にするんだったら、Delphiが良いんじゃない？ Personalなら無料だし。
VBと使いやすさはかわんないし、速いしね。
http://www.borland.co.jp/delphi/personal/
0110デフォルトの名無しさん
NGNG0112デフォルトの名無しさん
NGNGあのｅｎｄが気持ち悪いです。
ｅｎｄのあとにピリオドあったりなかったりこんがらがった覚えがあります。
0113デフォルトの名無しさん
NGNG半年ぐらい前かな、この板でVBとDelphiのベンチやったけど、
結果は同じくらいだったよ。
0114デフォルトの名無しさん
NGNG思い切ってMATLABを買っちゃいましょう。
0116１０６
NGNGなってるのではないですか？
もしＶＢが遅いとすると、制御文のコンパイル結果が
他の言語よりたどたどしいとか、だと思いますけどそんなに違いますかね。
.netframework上の実行とネイティブコードとは速度に違いはありますか？
0117デフォルトの名無しさん
NGNGC++とは共通にはなってないなぁ。
0118デフォルトの名無しさん
NGNGC++に数値ライブラリがあったか？
0119デフォルトの名無しさん
NGNGVB等は帳簿とかそういった方向性でしょう。
0120デフォルトの名無しさん
NGNG<math.h>
0121１０６
NGNGとりあえず比較的早い言語より、２，３倍遅いぐらいなら問題ないです。
十倍超えるとちょっと嫌です。
0122デフォルトの名無しさん
NGNG実際の正確な速度は誰も知らんから試してみれ。
もっともあなたがまともな方法で試せる力があるかどうかは知らんがな。
0123デフォルトの名無しさん
NGNG0124デフォルトの名無しさん
NGNG0125デフォルトの名無しさん
NGNGただの宣伝としか見えないぞ。
0126１０６
NGNGユーザー関数使ってますが、数値ライブラリで速くなるならうれしい。
0127デフォルトの名無しさん
NGNG本気？
Delphi の演算速度は C++ とほぼ一緒だよ。
0128デフォルトの名無しさん
NGNG0129名無しさんだよもん ◆ZAYX.QGihc
NGNG同じということになるなぁ（藁
では、VBが一般的に遅いと言われる理由は何なんでしょう．．．
0130デフォルトの名無しさん
NGNG前に大量の数値計算する必要があるプログラムを組んだ時、
あまりの遅さに計算部分だけVC++でDLLにしてコールするようにした。
結果は、はっきり数値では出せないけど、軽く数倍は違った（少なくとも倍以上）
VBは大量の数値計算には向いていない。
Delphiは使ったことがないが、VBと計算速度がほぼ同じという話が本当なら、
計算速度は VC++ >（越えられない壁）> VB,Delphi ってことか。
0131デフォルトの名無しさん
NGNG違う。
C++ ≒ Delphi >（越えられない壁）> VB
0132デフォルトの名無しさん
NGNG俺がDelphiを使う機会は多分ないと思うんだが、
Delphi製のソフトはバグが多いという印象が強くてあまり好きではないな・・・。
付箋紙2000、ホットゾヌ、AirCraft、AirWeb・・・
どれもバグバグ。基本ライブラリがあやしいんじゃないかと疑いたくなるよ。
スレ違いsage
0133INET
NGNGサンクス！キーワードにして検索してみる
0134デフォルトの名無しさん
NGNGどの言語で作られたソフトでもそれなりにバグあるだろ。
むしろ VC++ 製のやつのが多いんとちゃうか？
0135デフォルトの名無しさん
NGNG(*´д`*)ｱﾊｧ
0136デフォルトの名無しさん
NGNG0137デフォルトの名無しさん
NGNGまあ、VC++製のソフトでバグバグなものも大量にあるだろうが、
作成されてるソフトの絶対数が違うからなあ。
正確に個数調べたわけじゃないからアレだが。
0138デフォルトの名無しさん
NGNG比較規則を指定するが吉。
VBTEXTCOMPERE
VBBINARYCOMPERE
で検索してみれ。
ｽペﾙが違っていたなら、
INSTRをMSDN検索で確実にヒット。
0139デフォルトの名無しさん
NGNGdelphiはVBと同じ速度だと思われるほど廃れたんだな。
んなわけなゃーで。
0140デフォルトの名無しさん
NGNG0141デフォルトの名無しさん
NGNG部分って相当少ないんじゃなかったっけか？
0142デフォルトの名無しさん
NGNGここらでハッキリさせようじゃないか。
VB,VC++,Delphiの３言語が自前の環境に揃ってる香具師、
ちゃんとした方法で実験して、
その結果を、具体的な数値で明確に晒してくだちぃ。
喪前が試せやって言われそうでつが、
漏れ、３つ揃ってないんで(´д⊂)
0143デフォルトの名無しさん
NGNG三つそろっているが、ちゃんとした方法が分からない。
めんどくさいのもあるが。
0144デフォルトの名無しさん
NGNG0145 ◆b0UXJ88Ngw
NGNG今、VB6.0sp5でアプリケーションを作成して、ディストリビューションウィザードを使用して、
セットアッパーを作ってるんですが、
Windows2000sp3 で作成したアプリケーションが、98・98SE・MEにインストールすると、
OSを破壊してしまいます。
なにか、ご存知の方、又は、対処法・及び代替案をお持ちのお方、
いらっしゃいましたらご教授お願いします。
0146デフォルトの名無しさん
NGNGｷﾀ━━━━━(ﾟ∀ﾟ)ｷﾀﾖ━━━━━ !!!!
0147デフォルトの名無しさん
NGNG0148デフォルトの名無しさん
NGNGもっと具体的に示せ＜OSを破壊
・・・というか、喪前のプログラムで
NT(2k)Onlyなコードを組んでるんじゃないのか？（藁
インストーラ自体に問題があるんなら、
今更、ディストリビューションウィザードなんか使わず、
Visual Studio Installerでも使え。
0149セットあっぱぁ
NGNG0150デフォルトの名無しさん
NGNGというか、ﾃﾞｨｽﾄﾘﾋﾞｭｰｼｮﾝウィザードよく見てたら、環境変数使ってるの
分かるっしょ。
%SystemRoot%みたいな。
0151デフォルトの名無しさん
NGNG0152デフォルトの名無しさん
NGNG0153デフォルトの名無しさん
NGNGちゃんとウィンドウ復帰もします。
Celeron650で0.04秒ぐらいかかる。(ソフト10個ぐらい起動）
宣言等は省略
Sub Main
Ret = EnumWindows(AddressOf fEnumFindProc, 0)
Load frmMain
Call CreateWindowEx(0, "STATIC", AppDistinguishID & frmMain.hWnd, &H40000000, 0, 0, 0, 0, frmMain.hWnd, 0, App.hInstance, 0)
End Sub
0154153
NGNGPublic Const AppDistinguishID= "APPNAME"
Public Function fEnumFindProc(ByVal handle As Long, ByVal lParam As Long) As Boolean
Ret = EnumChildWindows(handle, AddressOf fEnumChildFindProc, handle)
fEnumFindProc = True
End Function
Public Function fEnumChildFindProc(ByVal handle As Long, ByVal lParam As Long) As Boolean
Name = String(255, Chr(0)) 'バッファ確保
Leng = Len(Name)
Ret1 = GetWindowText(handle, Name, Leng) '名前を取得する
If fBufEdit(Name) = AppDistinguishID & lParam Then
fEnumChildFindProc = False
Call ShowWindow(lParam, 9)
Call SetForegroundWindow(lParam)
End
Else
fEnumChildFindProc = True
End If
End Function
0155デフォルトの名無しさん
NGNGで、肝心のコールバック関数書かないってお前頭大丈夫かと。
0156デフォルトの名無しさん
NGNGさて、
ハイパーモナーテキストエディタ -C:\CONFIG.SYS
とか言う文字列を持つアプリケーションだったらどうするの？
0157デフォルトの名無しさん
NGNG（*´Д｀*）ｱﾊｧ･･･
0159デフォルトの名無しさん
NGNGオシロはLeCroyのLT354でGPIBはInterFace社のPCI-4302です。
0160デフォルトの名無しさん
NGNG小さい方から数えて 20000 個の素数をエラトステネスのふるいにより算出する時間をミリ秒で計った。
PentiumIII-800、768 MB、Windows XP Pro SP1、VC++6 Pro SP5、VB6 Pro SP5、Delphi 6 Personal
VC++ （Debug） ： 10034
VC++ （Release） ： 9724
VB （IDE） ： 49992
VB （P コード） ： 40007
VB （最適化） ： 9944
VB （詳細最適化）： 9784
Delphi ： 9854
何気に、誤差程度の違いしかなく拮抗している。
漏れは Delphi をよく知らないので改良の余地はあるかも知れぬるぽ。
http://do.sakura.ne.jp/~junkroom/cgi-bin/megabbs/readres.cgi?bo=lounge&vi=1027870433&res=63
0161デフォルトの名無しさん
NGNGと ） | |
Ｙ /ノ 人
/ ） < >__Λ∩
＿/し' ／／. Ｖ｀Д´）/
（＿フ彡 / ←>>160
0162デフォルトの名無しさん
NGNGGPIBコマンド送ったらいいだろー。ひょっとしてライブラリだかドライバだか知らんが、
ソフト入れてないのか？
0163デフォルトの名無しさん
NGNGおつかれ〜
VC++の遅さが意外だった。配列使ってるのに。
0164デフォルトの名無しさん
NGNGGUI以外意味を持たないでしょ。
0165デフォルトの名無しさん
NGNG（ーдー）
0166デフォルトの名無しさん
NGNG何だって？
0167デフォルトの名無しさん
NGNGP コードと同じくらいだと思ってた。
0168デフォルトの名無しさん
NGNG浮かれる気持ちはわかるが自分のアルゴリズムの弱点位は自分で把握しておこうなってこった。
0169デフォルトの名無しさん
NGNG高速化の小技をIDEでいろいろ試してみてひとり満足。
でも、コンパイルしたら、ほとんど差がなかった(笑)。
0170153
NGNGいや・・・・
ソースちゃんと読みました？
あ、コールバック関数内でEndやっちゃうとまずいのかな。
フラグ立ててEnumWindows終わってから終了処理という風にしたほうがよいかも
0171デフォルトの名無しさん
NGNG0172デフォルトの名無しさん
NGNG何で Mutex を使わないんだ？
0173デフォルトの名無しさん
NGNGスキはあるわけだ。
0174INET
NGNGほんとに計ったなら称賛に値しる！口だけのヤツよりよっぽど説得力あるね。
まあｿｽｳ探索だけがプログラムではないから、意味ﾅｲと言えば意味ないけど数字を見るのは嫌いじゃないぞ
∧＿∧
（´∀｀）
−−∪−∪−−
MUTEXってなに？
0175デフォルトの名無しさん
NGNGDDEの昔の言い方。
0177デフォルトの名無しさん
NGNG後、同じ名前のタイトルバーが複数存在しないとも限らない。
そのコード、二重起動の例でダメな例として必ず提示される物なんだよ。
0178デフォルトの名無しさん
NGNG> でもまぁ普通にソフト起動するならありえそうも無いので・・・
あまい。
低スペックのマシンや高負荷状態で、ユーザーがシュートカットをクリックしまくるだけで、
簡単にその状態になる。
拡張子と関連付けなんかされてると、もう最悪。
複数のファイルを一気に開くと、ほぼ確実に不具合が発生。
0179デフォルトの名無しさん
NGNG0180デフォルトの名無しさん
NGNG何故、みんなが素直に既存の同じ方法を使うのか考えよう。
作業効率を上げるためだけで無いのだよ。
0181デフォルトの名無しさん
NGNG取り敢えずこれでも嫁。
http://members.tripod.com/~masapico/doc_AppExec.html
0182デフォルトの名無しさん
NGNG0183デフォルトの名無しさん
NGNG通信は出来ても排他制御は難しい。
まぁ、そのためのmutexなわけだが。
0184デフォルトの名無しさん
NGNGどうしたらいいのかな。
CTL+ALT+PrintScreenするとメニューが閉じちまいます。
0185デフォルトの名無しさん
NGNG実行すると、フォームが大きすぎて画面に収まりきらなくなってしまいました。
そこでフォームにスクロールバーを付けてスクロールして表示できるようにしようと思うのですが
フォーム全体が上下に動いてしまい(恥 上手くスクロールできません。
初歩的な質問で申し訳ないのですが、フォームが画面に収まりきらなくなったときだけスクロールバー表示させ動作させる
方法を教えて下さい。ヒントだけでも結構です。お願いします。
0186デフォルトの名無しさん
NGNG一定間隔でスクリーンショットを撮る常駐ソフトを使えば？
Vectorあたりにゴロゴロあるよ。
マジレス。
0187デフォルトの名無しさん
NGNGフォーム内のコントロールを全部フレームコントロールにでもおさめて
まとめて移動させる。
もちろんスクロールバーは自前で配置、計算して処理する。
これより簡単な方法があったら俺も知りたい。
あと老婆心ながら、「初歩的な質問」とか余計なことは言わないほうがいい。
初歩的と思うなら自分でやれって煽られるもとだ。
0188デフォルトの名無しさん
NGNGメニューにショートカットが無ければ プルダウン中にPrintScreenのみ(全画面)
ビットマップで編集なされ。 （CTL要らんぞ？）
0189デフォルトの名無しさん
NGNG0192デフォルトの名無しさん
NGNGちゃう
0193184
NGNGえーー? 漏れの頭では想像を絶する文章だ。
「ﾏｲｺﾝﾋﾟｭｰﾀ(ﾌｫﾙﾀﾞ)では」とは、VBのフォームのmenuではなくて、
「マイコンピュータ形式のフォームのmenuでは」ってこと？
残念ながら、もれにはそういうフォームは作れません。
0194184
NGNG分かったピー。ショートカットつけろって琴ね。さんくす。
0195192
NGNG概ねそうゆうこと。Officeとか市販アプリのドキュメントを作ってるなら上のケースで、
自作アプリとか、右クリックのメニューとかの場合はBMP編集をということです。
綿氏の場合、
１．全画面のイメージをコピーしてピクチャにセット、
２．マウスで好きなところを選択
３．キー操作で選択範囲をクリップボードにうｐ
というツール作って活用してます。
（「このコンボボックス(プルダウン中）周りだけ」とかがドキュメントに要るので）
0196184
NGNGわかりやした。
ご丁寧にどうもです。
ドロップダウンと追いかけっこしてました。ﾊｧ-。
0197ＶＢ初歩の初歩
NGNG0198もぐり
NGNG0199デフォルトの名無しさん
NGNG(*´д`*)ｱﾊｧ
0200192
NGNG0201153
NGNGいや、ですから、よくソース読んだ？って言ってるんですよ
タイトルバーから判断するんじゃないです。
入り込む隙があるってのはなっとくしましたし、実際にやってみたら確かに起動してしまいました。
0202デフォルトの名無しさん
NGNGどうすればいいですか？
0203デフォルトの名無しさん
NGNGグローバルフック。と言うわけでVBでは無理。
0204デフォルトの名無しさん
NGNG0205デフォルトの名無しさん
NGNGLPWORD にはどうやって渡したらよいのでしょうか
ByRef の 16bit型?(ってあったっけ)
0206デフォルトの名無しさん
NGNGどうせ内部で32bitポインタになるならAnyとかでいいんじゃないの？
0207デフォルトの名無しさん
NGNG0208デフォルトの名無しさん
NGNGグローバルフック、ホットキー、Timerでｽﾄｰｷﾝｸﾞ
>>205
LPWORDならByRef HOGE As Integerでないかい？
>>207
Declareのヘルプ嫁
0209デフォルトの名無しさん
NGNGてめーが嫁
0211デフォルトの名無しさん
NGNGOutlookなぞ使わず、VBでメールを受信して転送するプログラムを書け
ttp://www.hi-ho.ne.jp/babaq/basp21.html
0212デフォルトの名無しさん
NGNGこの中の日本語を英語にすべて置き換えて英語版にしようかなと思っているのですが
英語版のWindowsで、正常に動作するのでしょうか？
英語版のVBは日本語OSで動きますが、その逆がどうなのか不安です。
そのような経験がある方、是非教えていただけませんか？
0213デフォルトの名無しさん
NGNG下記のようにやってもうまくいきません。
Private Sub Command1_Click()
Me.AutoRedraw = False
Me.Text1.BackColor = vbRed 'ここで再描画してほしくない
Me.Text2.BackColor = vbBlue 'ここで再描画してほしくない
Call DoSomething
Me.AutoRedraw = True 'このタイミングで一気に再描画したい
End Sub
0214デフォルトの名無しさん
NGNGどういう場合？具体的に言えんか？
0215デフォルトの名無しさん
NGNGCall DoSomething
Me.Text1.BackColor = vbRed
Me.Text2.BackColor = vbBlue
0216デフォルトの名無しさん
NGNG実際にはもう少し複雑なことをしてるんですが、
いろいろな条件によって
ボタンやテキストを非表示にしたり再表示したり
色を変更したりしてるんです。
その条件判断が結構重くて、クリックしたときに
描画の途中結果が見えるんで不自然なきがするんです。
処理が早ければ気にならないんですが、
なんなんで、最後にまとめて再描画すればいいかなと思ってるんです。
よくGridとかはループでレコードセットの内容を追加するときに
autoredrawをfalseにして対処したりしてるんですが、
同じことをフォームでやるにはどうすればいいのか教えてください。
0217デフォルトの名無しさん
NGNGAutoRedraw = False が何を期待してるのかわからん。
最初から AutoRedraw = True にしっ放しというのはダメなのか？
あとは、非表示 PictureBox に描画して、描画完了後に Form に PaintPicture というのはどうだ？
0218デフォルトの名無しさん
NGNG処理の途中で描画するなよ。UIは完全に無視して処理を行って
その結果を最後で描画しろ。
つーかお前は212なのか？
0219デフォルトの名無しさん
NGNG下記のような処理でflg=0で実行したあとにflg=1で再実行すると
text3が一瞬表示されて非表示になりますよね。
これを防ぎたいので、最後に描画したいんです。
最初に初期化しなきゃいいんですけど、
大量にあってとても面倒なので現状はそうしてます。
Sub a()
'全て初期化
Text1.Visible = True
Text2.Visible = True
Text3.Visible = True
Text4.Visible = True
Text5.Visible = True
If flg = 0 Then
Text1.Visible = False
Text2.Visible = False
Text3.Visible = False
ElseIf flg = 1 Then
Text3.Visible = False
Text4.Visible = False
Text5.Visible = False
End If
’ここでまとめて描画したい
End Sub
TEXT3.LEFT=-1000
TEXT3.TOP=-1000
だったらフォームから消えるからちらつかないと思うが。
後で戻せばいい
0223デフォルトの名無しさん
NGNGこれはただの例であって実際は1〜5なんて名前でもVisible=Trueだけでも
ないんじゃない？
0224デフォルトの名無しさん
NGNG0225220=221=222
NGNGうん、だから221の方法だと大丈夫でしょ
0226デフォルトの名無しさん
NGNG> Me.Text1.BackColor = vbRed
> Me.Text2.BackColor = vbBlue
これをどのようにコレクションに入れるんだ？
0227デフォルトの名無しさん
NGNG下記の方法でなんとかなりそうです。
あと、ちにあみにLockWindowUpdateで解除するときNULLを指定すると書いてあったんですが、
VBでAPI呼ぶ時にNULLは0でいいんでしょうか？
一応、下記は正常に動いてますが、少し不安です。
Sub a()
Dim l As Long
'フォームをロック？する
Call LockWindowUpdate(Me.hWnd)
Text1.Visible = True
Text2.Visible = True
Text3.Visible = True
Text4.Visible = True
Text5.Visible = True
'とても重い処理
For l = 0 To 10000000: Next l
If iflg = 0 Then
Text1.Visible = False
Text2.Visible = False
Text3.Visible = False
Else
Text3.Visible = False
Text4.Visible = False
Text5.Visible = False
End If
'解除
Call LockWindowUpdate(0)
End Sub
0229デフォルトの名無しさん
NGNGText2.Visible = (flg <> 0)
Text3.Visible = (flg <> 0) And (flg <> 1)
Text4.Visible = (flg <> 1)
Text5.Visible = (flg <> 1)
0230デフォルトの名無しさん
NGNGdim flg as Boolean
使えよ
0231デフォルトの名無しさん
NGNG0232デフォルトの名無しさん
NGNG0233デフォルトの名無しさん
NGNGコントロール配列にしなきゃならん？
0234デフォルトの名無しさん
NGNG0235デフォルトの名無しさん
NGNG0236デフォルトの名無しさん
NGNG0237デフォルトの名無しさん
NGNGそんな事したら Text3 の立場はどうなる？
0238デフォルトの名無しさん
NGNG(*´д`*)ｱﾊｧ
0239デフォルトの名無しさん
NGNG0240239
NGNG（ ⌒ ヽ 吊れた
∪ 。ﾉ
∪∪
0241デフォルトの名無しさん
NGNG／||
／∧||∧
（ / ⌒ヽ
| | |
∪ / ﾉ
| ｜|
∪∪
∧ ∧,〜
( （⌒￣ `ヽ ＿
＼ ＼ `ー'"´, -'⌒ヽ
/∠＿,ノ _/_
/（ ノ ヽ､＿/´ ＼
､（ 'ﾉ（ く `ヽ､ 命を粗末にしてはならん！
／` ＼＿＿＿_>＼＿＿_ノ
／ /＿_〉 `､＿_>
0242212
NGNGむむぅ、やはり特殊なことなので分かる人は少ないでしょうか…
0243名無しさんだよもん ◆ZAYX.QGihc
NGNGSendMassageのﾒｯｾｰｼﾞの中にｳｨﾝﾄﾞｳの更新させない(再描画させない)のがあｒiます
From1をﾒｯｾｰｼﾞで一旦描画を止める
↓
ボタンやテキストを非表示にしたり再表示したり
色を変更したりしてるんです。
↓
From1をﾒｯｾｰｼﾞで描画を再開する
↓
Form1.ﾘﾌﾚｯｼｭ
↓
できた!!
ﾒｯｾｰｼﾞはよく覚えていません
たぶん REDRAW が入っていたと思います
（ﾒｯｾｰｼﾞ ﾏｼﾞ思い出せない 間違っていたら ごめそ）
0244デフォルトの名無しさん
NGNG平成2003になる。
何とかしてくれ。
lblDate.Caption = Format(Date, "平成yyyy年mm月dd日") & Format(Time, "hh時mm分ss秒")
0245デフォルトの名無しさん
NGNGgggeなん？しらんけど
0247244
NGNG何で”ggge”なんや？ようわからん。
0248デフォルトの名無しさん
NGNGプ。
あたりまえ
0249デフォルトの名無しさん
NGNGヘルプって知ってる？
日本語読めるなら読んどいた方がいいよ（ｗ
0250デフォルトの名無しさん
NGNG流石VBスレ
0251デフォルトの名無しさん
NGNG(*´д`*)ｱﾊｧ
0252デフォルトの名無しさん
NGNGWM_UNKO、WM_KUSO
のウィンドウメッセージが多量に飛んで来て、メッセージキューが
いっぱいになってしまいます。
このメッセージを発生させなくするにはどうすればよいですか？
0253デフォルトの名無しさん
NGNGメッセージの発生源を削除汁
Kill VB
0254デフォルトの名無しさん
NGNGKill >>252
0255デフォルトの名無しさん
NGNGトレイアイコンクリックで
PopupMenu Form2.mnu
このようにポップアップメニューを出しているのですが、
メニューのどれかを選択するまでは、他のウインドウにフォーカスが
移ってもずっとポップアップメニューが表示されたままです。
これを、消すにはどうすればよいのでしょうか。
0256デフォルトの名無しさん
NGNGできました！！ ありがとうございました。
0257デフォルトの名無しさん
NGNG260の人、責任重大だなｗ
つーか、自分の質問番号を名前に入れないと、誰が解決したのか分からんぞ。
0259デフォルトの名無しさん
NGNGIPアドレスじゃダメれすか？
0260デフォルトの名無しさん
NGNGケツの中がローションでグチョグチョだと、そのうち、タチが緩くて滑りやすくて物足りないって感じるようになってくるよ
だから、掘られているときに余裕がでてきたら、ケツを締めてタチを気持ちよくしてあげようね
0261デフォルトの名無しさん
NGNG0262デフォルトの名無しさん
NGNG0264デフォルトの名無しさん
NGNG毎日毎日ウザい。
無駄にレスが流れるからやめれヴォケ。氏ね！
0265な
NGNGhttp://support.microsoft.com/default.aspx?scid=kb%3ben-us%3b135788
これによると、メニューを出した後、
PostMessage(hDlg, WM_NULL, 0, 0);
を実行しろと出ていますね。
VBの場合でも必要かどうかは、私には解りません。
0266デフォルトの名無しさん
NGNGセルの幅を変更したいのですが適当なプロパティが見つかりません
セル幅は固定？
0267デフォルトの名無しさん
NGNG(*´д`*)ﾔｯﾄﾂﾚﾀ… ｱﾊｧ…
0268デフォルトの名無しさん
NGNG(*´д`*)ﾊｧﾊｧ…
0269デフォルトの名無しさん
NGNG0270デフォルトの名無しさん
NGNG新しくプロジェクト作成したときに追加したコントロールが
なくなってしまいます。追加したコントロールをそのままにするには
どうしたら良いのでしょうか？
0271デフォルトの名無しさん
NGNG無理
0273INET
NGNG0274デフォルトの名無しさん
NGNG誤爆？
0275デフォルトの名無しさん
NGNGCrystalReportオブジェクトを貼り、コード上から動的に
打ち出すプリンタを変更したいのですが、それらしいプロパティが
見つからず苦戦しております。
Reportを作る段階で指定したプリンタ以外のプリンタに
打ち出すにはどうしたらいいのでしょうか。
0276デフォルトの名無しさん
NGNGファイル名を指定して実行は、exeのパスを入力すれば起動するのは勿論、
txtファイルを指定すれば関連づけられたプログラムで開かれるし、
Windowsディレクトリ等パスの通ったディレクトリにあるものだったら、フルパスじゃなくても起動したり、
exeのフルパスの後にスペースあけてコマンドライン引数つけて起動できたりと凄く柔軟ですけど、
こんな感じの機能はどうすれば実装できますか？
Shell関数だとｔｘｔファイル指定しても関連づけられたプログラムで起動しなかったりと、
同じような動作にはならないです。
0277デフォルトの名無しさん
NGNGShell "Start C:\hogehoge.txt"
これじゃ駄目？(笑
地道にAPIのShellExecute使うとかの手もあるが、めんどくさいなら
Startが楽でいいぞ。
互換性は多分Windows95初版以降ならどれでもOKだと思う。
0278デフォルトの名無しさん
NGNGVB始めようかな・・・
0279すー
NGNGＶＢ６＋ＶＢ６付属のクリスタルレポートで、Ｗｉｎ９８
上で動いていたものをＷｉｎ２０００で動作させると、プ
レビューされなくなりました。
プリンター出力は可能です。
CRPE32.DLLでAPIを使用しています。
PEStartPrintJob(プリントジョブ, 0)
こんな感じです。
Win2000では、対応していないのでしょうか？
なので、ＯＣＸに切替えてみたのですが、今度はＳＱＬサ
ーバーエラーになってしまいます。
Text Driverで、CSVファイルを使用してます。
ロジックは、
CrystalReport1.Destination = 0
CrystalReport1.PrintReport
です。
CONNECTプロパティーも指定するのでしょうか？
0280デフォルトの名無しさん
NGNG変更させたいのですが、そんなメソッドないですか？
セルの幅はピンポイントで設定できましたが、、、
0281デフォルトの名無しさん
NGNG0282デフォルトの名無しさん
NGNG0283デフォルトの名無しさん
NGNG0284デフォルトの名無しさん
NGNG林晴比古 著の「新Visual Basic入門 ビギナー編」を知り合いに勧められ
ました。この本amazonでもレビューが参考になった人が多いみたいですし
良本なのでしょうか？
どなたか教えてください。お願いします。
http://www.amazon.co.jp/exec/obidos/ASIN/4797307595/
0285デフォルトの名無しさん
NGNG＞Visual Basicを始めようと思っています
何で今更。
0286284
NGNG0287デフォルトの名無しさん
NGNG0288デフォルトの名無しさん
NGNGどの言語でも、どの本でも、この一冊がありゃOKというものでもない。
最初はわからなかった本でも、レベルアップしてもう一度読むと、新しい
事が見つかったり。
0290デフォルトの名無しさん
NGNG近くに本屋はないのですか？自分の目で見てはいかがでしょうか
0291デフォルトの名無しさん
NGNG3000円しないかなり安い本だし、とりあえず買ってみたら？
0292デフォルトの名無しさん
NGNG悪くないと思うよ。
というか、他人に意見求めるのもいいが、
本屋に行って立ち読みでもしてみ。
0293デフォルトの名無しさん
NGNGマウスでドラッグしている間だけLineでフォーム上に描写していく簡単なものです。
そこで質問なのですが、
フォーム内の任意の座標の色を調べるにはどうしたらいいでしょうか。
全て描写し終わった後に判定したいです。
0294デフォルトの名無しさん
NGNG0295デフォルトの名無しさん
NGNGPoint メソッド
Form オブジェクトやピクチャ ボックス (PictureBox) コントロールの、指定されたポイントの色を示す (RGB) 値を長整数型 (Long) の整数で返します。名前付き引数は指定できません。
構文
object.Point(x, y)
0296デフォルトの名無しさん
NGNGどうもありがとうございます。
うまく出来ました。
0297デフォルトの名無しさん
NGNGSCMPXとかWinampみたいにデスクトップの端にひっつく動作を
させたいんですがどうしたらできますか？
APIで実装できるんでしょうか？
0298デフォルトの名無しさん
NGNGそれでね、うぃんどうの座標を調べて、端に近かったら引っ付けるの。
0299デフォルトの名無しさん
NGNG既に試しましたが
ひっついてもカーソルの位置は変わらない
引き離す/押し込むときの遅延ができない
などで悩んでおります。
0300デフォルトの名無しさん
NGNGサブクラス使って、フォームの移動を監視する手もあるけど。
0301デフォルトの名無しさん
NGNGカーソルってマウスの？ SetCursorPos使った？
遅延って何かな？
即移動じゃなくて少しずつ近づければいいだけじゃないの？
0302297
NGNGありがとうございます。サブクラス化はまだよく分からないのですが
最後の手段として考えておきます。
>>301
最初は使いました。
SCMPXのひっつき方を観察するとひっつくときに
マウスカーソル⇒数ドット
ウィンドウ⇒端まで動く
なのでSetCursoPosでマウスカーソル自体を動かすのは没になりました。
遅延というのは（すみません、勝手に言葉を作っていました）
ひっついたウィンドウをひっぺがす際にウィンドウをドラッグする時、
カーソルは動いてもある範囲までウィンドウ自体は動かず、
ある範囲を超えたときに初めてウィンドウがカーソルに追従する、
という動きのことです。
＞即移動じゃなくて少しずつ近づければいいだけじゃないの？
すみません、もう少し詳しくお願いできますか？
0303デフォルトの名無しさん
NGNGウィンドウのドラッグが始まったらサブクラス化かけてWM_MOVEをもみ消して、
マウスポインタがデスクトップの端から一定の距離以上になったらWM_MOVEもみ消すのやめる…
って感じでできない？
0304303
NGNG説明不足だったんで補足。
0305デフォルトの名無しさん
NGNGそれっぽい動きができたよ。どうかな
Option Explicit
Dim oldX, oldY, flg
Dim saveX, saveY
Private Sub Form_Load()
Me.BorderStyle = 0
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
flg = True
oldX = X
oldY = Y
End Sub
0306デフォルトの名無しさん
NGNGDim xflg, yflg
xflg = False
yflg = False
If flg Then
If Me.Left = 0 Then
If X - saveX > 200 Then
Me.Left = 200
End If
xflg = True
Else
If Me.Left < 200 Then
Me.Left = 0
saveX = X
xflg = True
End If
End If
0307デフォルトの名無しさん
NGNGIf Y - saveY > 200 Then
Me.Top = 200
End If
yflg = True
Else
If Me.Top < 200 Then
Me.Top = 0
saveY = Y
yflg = True
End If
End If
If xflg = False Then
Me.Left = Me.Left + X - oldX
End If
If yflg = False Then
Me.Top = Me.Top + Y - oldY
End If
End If
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
flg = False
End Sub
0308名無しさんだよもん ◆ZAYX.QGihc
NGNGマウスポインタのデスクトップの端からの距離を計ってもﾀﾞﾒ
マウスポインタではなくﾄﾞﾗｯｸしているｳｨﾝﾄﾞｳの端との距離を計るのが正解
デスクトップの端にひっつく動作を『ｽﾅｯﾌﾟする』と呼ぶので具具ってにれば．．．
ひっついている間はｳｨﾝﾄﾞｳを移動できないようにするのでサブクラス化が良sage
WM_MOVEを監視する>>303の意見に賛成か？
0309名無しさんだよもん ◆ZAYX.QGihc
NGNG説明不足だったんで補足。
くっついた窓を引っぺがすときは
マウスポインタ監視しなきゃﾀﾞﾒだね
0310デフォルトの名無しさん
NGNGMSDNをよむと「特殊フォルダの定数」というところに
TemporaryFolderというのを見つけたのですが、説明に
「コード内で定数を使用するには、目的の定数の定義が入った適切なタイプ ライブラリをプロジェクトから
明示的に参照しておく必要があります。」とかいてあります。
一体どれを参照設定すればいいのでしょうか・・・。
MSDNには説明がいないし、googleで「特殊フォルダの定数」で検索しても出てきません。
0311デフォルトの名無しさん
NGNG値２って書いてあるんだから、そのまんま２で代入しちゃえば？
コメントで TemporaryFolder とでも書いておけばいい。
あんまりスマートな解決方法じゃないが、とりあえずやっつけたいならこれで。
スマートにやりたいなら、他の識者の方の回答を待ちましょう。
0312310
NGNGあの・・・・
msgbox 2
ってやってもあたりまえのように2が表示されるわけなんですが、
たとえばtempフォルダのパスを表示することはこの「特殊フォルダの定数」をつかって
可能なのでしょうか。
定数ってことですが、実行する際に環境ごとのパスを取得してTemporaryFolderには
そのパスが入ってるというイメージだったのですが、違うみたいですね？
WindowsAPIを使う方法しかないのかな・・・・。
0313デフォルトの名無しさん
NGNG参照設定ってAxtiveXを参照するための設定
あまり特殊なAxtiveXを使用すると開発環境以外に
ｲﾝｽﾄｰﾙされている可能性が低いため開発環境以外で
実行でき無いことが多い
(自分しか使わねー！！よっていうんなら、いいけど)
なるべくAPIを使用するとよい
もしAPIの使用を避けたいのなら
VB関数のなかに Environ というのがあります
strTmp = Environ("TMP")
あの
＞一時ファイルのフォルダを指定したい
って一時ファイルのフォルダのﾊﾟｽを取得したい
ですよね．．．
0314310
NGNG参照設定を行ってもディストリビューションウィザードを使ってセットアップを作れば問題ないですよね。
（まあいちいちセットアップが必要＆配布ファイルサイズがでかくなりますが。）
Environ("TMP")
まさにこれです。TMPのところは、システムのプロパティの環境変数の変数名を入れれば、
ほかにもいろんな値が取れますね。
＞＞一時ファイルのフォルダを指定したい
＞って一時ファイルのフォルダのﾊﾟｽを取得したい
＞ですよね．．．
ご指摘のとおりです。
すごくたすかりました。ありがとうございました。
（しかし特殊フォルダの定数ってなんだったんだろう・・・。）
0315デフォルトの名無しさん
NGNGSet fso = New FileSystemObject
MsgBox fso.GetSpecialFolder(TemporaryFolder)
0316デフォルトの名無しさん
NGNGあらゆるコントロールでのMouseUp,MouseDown,MouseMoveを得る方法はありますか？
特定のコントロールだけなら、そのコントトールのマウスイベント上でマウスジェスチャーの処理を書けばいいですけど、
ふつう色んなコントロールをいっぱい貼り付けてるわけで、その全ての上でのマウスの動作を調べないとだめなわけですよね。
それとも、マウスジェスチャーを搭載するならもっと良い方法がありますか？
0317デフォルトの名無しさん
NGNG0318デフォルトの名無しさん
NGNGどうでしょ
http://soda-drive.s7.xrea.com/file/0253.lzh
0319310
NGNGやってみました。
きちんと動きますた。教えていただきありがとうございます。
EnvironはVB内蔵の関数
こちらはVBSやVBAでもつかえる関数という感じかな・・？
0320デフォルトの名無しさん
NGNGｸﾗｽを作ってくださいな
ちなみに API のDLLはVBでは作れませんな
ってこの質問 多すぎる 少しは調べてからﾚｽしろｺﾞﾙｧ
とﾈﾀにマシ"ﾚｽ
0321デフォルトの名無しさん
NGNGネタにネタレスじゃなくって？(笑)
0323310
NGNGはい。そうなんです。MSDNで説明してるページ見つけて、そのページからリンクしてるところさがしたり、
同期ボタンを押してみたのですが横の目次のツリー表示のところはトップを表示したままでした。
0324デフォルトの名無しさん
NGNGプログラムを組みたいのですが、どうやっていいか分かりません。
どうしたらいいのでしょうか？
0325デフォルトの名無しさん
NGNG何かしらのハードウェアが必要じゃない？
0326デフォルトの名無しさん
NGNG0327デフォルトの名無しさん
NGNGFlag = True
Do While Flag = True
If (GetAsyncKeyState(vbKeyA)) <> 0 Then
'ここに何らかの処理をして、ある条件でFlag=falseにする
DoEvents
Loop
この処理でキーイベントを拾った後、何らかの処理をしたいのですが
このコード以外に何か良い拾い方はありませんか？
初めは最小化やタスクトレイに入っていて、キーを押すと反応する様にしたいのです。
0328デフォルトの名無しさん
NGNGグローバルフックやホットキーを使えや
そのコードだとCPU無駄遣いとかDoEventsで期待しない動作とか
0329327
NGNGグローバルフックとホットキーはやり方が分からないです。
参考になるホームページがあったら教えて下さい。
0330デフォルトの名無しさん
NGNGhttp://www.google.co.jp/
なんていかがでしょうか。
0331328
NGNGhttp://www.google.co.jp/search?num=100&hl=ja&inlang=ja&ie=Shift_JIS&c2coff=1&q=vb6+WM_HOTKEY&lr=lang_ja
キーワードはいろいろ試して絞り込め
0332デフォルトの名無しさん
NGNG0333327
NGNG良いサンプルが見つかりました。
ありがとうございます。
0334デフォルトの名無しさん
NGNGどこかのメーカーから出てたと思いますが知ってる人いたら教えて下さい。
もしくはフリーでそのようなocxあれば教えて下さい。
0335デフォルトの名無しさん
NGNGChrW関数だと表示できる文字と、"?"の代替文字に置き換えられる文字と
あるのですが、回避する方法ってありますか？
0336デフォルトの名無しさん
NGNG0337デフォルトの名無しさん
NGNGＤＬＬにしてcallするのとどう使い分けますか？
0338デフォルトの名無しさん
NGNG基本は標準モジュールでいいだろ。
どうしても速度が欲しいなら他言語で DLL 作るが、そんな必要はそうそう無い。
0339デフォルトの名無しさん
NGNG0340デフォルトの名無しさん
NGNGクソVBよりは。
0341デフォルトの名無しさん
NGNG呼び出す速度なんて無いのかな。。
0342デフォルトの名無しさん
NGNG外部DLLとか使ってフックするとかしか手段無しですか？
0343デフォルトの名無しさん
NGNG初回呼び出しは DLL のロードとかあるので遅い。
けど、それ以降はメモリに乗っかってるのでそうでもない。
0344デフォルトの名無しさん
NGNGUnboundReadDataExイベントの中で
Recordsetオブジェクト.Move offset, StartLocation
という処理をしているのですが、極端に時間がかかります。
何が原因でしょうか？
0345デフォルトの名無しさん
NGNG他のアプリケーションの、コマンドボタンをクリックするするプログラムを作っています
コマンドボタンのウィンドハンドルの取得をして、そこに SendMessage をすればいいと考えていますが、
SendMessage の引数に、どういう値を入れていいのかが解りません
MSDNでは winuser.h というファイルに定義があると書いてありましたが
パソコンにはありませんでした。（ＶＢ６のみの環境）
MSDNのどこかに公開されているのでしょうか？
0346デフォルトの名無しさん
NGNGAPIビューア。
0347標準DLLを想定
NGNGメモリには乗っているけどプロシージャ呼び出しごとのオーバーヘッドもなかなか捨てたもんじゃない。
頻繁に呼び出される小さいプロシージャをDLLに置くのはあまり勧めない。
逆にDLL中で長時間作動するようなコードは速度向上につながるけど、その間VB側に制御が帰ってこない。
特に文字列型とかユーザ定義型を引数にしたりすると変換・再配置のコストも多少増える。
ま、その程度の速度が致命的なら最初からVBを選択肢に入れてはいけないんだけどね。
0348デフォルトの名無しさん
NGNGネットワーク上の他のコンピュータにログオンしているユーザー名を取得
したいのですが・・・。
nbtstat -a Pc1
などでバッチファイルで切り出したログ解析していたのですが、もっとこう
直接ユーザー名を知る方法はないものかと。
GetUserNameとか何とか色々APIはあるようですが、ネットワーク上の
他のコンピュータにログオンしているユーザー名は拾えないようで。
よろしくおながいします。
0349345
NGNGありがとうございます。
定義ファイルは見る事ができたのですが、
どの定数を使っていいのか、見当がつきません。
ボタンをクリックさせる為のメッセージの定義名も教えてください。
よろしくお願いします
0351297
NGNG以下の方法で成功したので報告します。
※WINDOWPOS構造体とRECT構造体は定義済みです。
※本文が長すぎると文句言われました（；´Д｀）
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hwnd As Long, ByVal msg As Long, ByVal wParam As Long, lParam As WINDOWPOS) As Long
'lParam は WINDOWPOS で固定、コールバック関数も同様
Public Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByRef lpvParam As Any, ByVal fuWinIni As Long) As Long
Public WndProc As Long
Public Function WindowProc(ByVal hwnd As Long, ByVal uMsg As Long, ByVal wParam As Long, lParam As WINDOWPOS) As Long
Dim wRect As RECT, Width As Long, Height As Long
Const Snap As Long = 20 'ひっつくまでの距離の指定
Select Case uMsg
Case &H46, &H47
SystemParametersInfo 48, 0, wRect, 0
'デスクトップの領域を取得
Width = Form1.Width / Screen.TwipsPerPixelX
Height = Form1.Height / Screen.TwipsPerPixelY
If Abs(lParam.x) <= wRect.Left + Snap Then lParam.x = wRect.Left
If Abs(lParam.y) <= wRect.Top + Snap Then lParam.y = wRect.Top
If Abs(lParam.x + Width - wRect.Right) <= Snap Then lParam.x = wRect.Right - Width
If Abs(lParam.y + Height - wRect.Bottom) <= Snap Then lParam.y = wRect.Bottom - Height
End Select
WindowProc = CallWindowProc(WndProc, hwnd, uMsg, wParam, lParam)
End Function
今回初めてウィンドウのサブクラス化にチャレンジしてみました。
皆さんありがとうございました。
0352デフォルトの名無しさん
NGNGファイルを一行ごとに読み込んで別々のテキストボックスに表示したいのですが
Do Until objFile.AtEndOfStream
strRecBuff = objFile.ReadLine
If (i = 0) Then
Text0.Text = strRecBuff
ElseIf (i = 1) Then
Text1.Text = strRecBuff
ElseIf (i = 2) Then
Text2.Text = strRecBuff
・
・
・
End If
i = i + 1
Loop
こんな風に書いていくしかないのでしょうか。
何行にもわたってしまうのでうまく書けないかと思いまして、、、
よろしくお願いします。
0353デフォルトの名無しさん
NGNG0354デフォルトの名無しさん
NGNGControls コレクション とか、for each で検索してみな。
あと If TypeOf とか必要かもね。
0357デフォルトの名無しさん
NGNGADO？
0358デフォルトの名無しさん
NGNG予期せぬエラー429が発生しました。:ActiveXコンポーネントはオブジェクトを参照できません。
といわれました。問題の回避方法をご存知のかた教えていただけないでしょうか。
ちなみにどのプロジェクトでもこうなります。
また同じプロジェクトを別のマシンで実行すると、成功します。
0359デフォルトの名無しさん
NGNGなんとなくだけど、参照設定で参照不可になってるアイテムとかない？
0360デフォルトの名無しさん
NGNGVisual Basic runtime objects and proceduresというやつの場所が
c:\winnt\system32\msvbvm60.dll\3
になってました。
言語は標準／英語でした。
場所がすごく変な気がするのですが・・・。
ちなみにその上のVisual Basic For Applicationsの場所が
c:\winnt\system32\msvbvm60.dll
になってます。
なにかソフトをインストールしたときにレジストリをこわされたのかな？？
0361デフォルトの名無しさん
NGNG0362385
NGNGあれ・そうですか・・。
Webでエラーを調べてみたのですが、レジストリにごみが残ってます。という回答だけがされいるものがありました。
http://www.blk.mmtr.or.jp/~kanou/faq/messages/373.html
0363デフォルトの名無しさん
NGNG0364デフォルトの名無しさん
NGNGそれだ！
0365デフォルトの名無しさん
NGNGVisual Studio Installerは試した？
0366デフォルトの名無しさん
NGNG0367デフォルトの名無しさん
NGNGなにかいいコントロールありますか？
0369デフォルトの名無しさん
NGNG0370385
NGNGVisualInsallerをインストールしてみました。そのあとWindowsUpdate（なにかセキュリティ関係のものがひとつ）をして、
念のためSP5をもう一度当ててみた。
ここでちょっとディストリビューションウィザードを使ってみると、なんと動きました。
再インストールで直ったということでしょうか・・・。どうもありがとうございました。
0371デフォルトの名無しさん
NGNGどうしたらいいのでしょうか。Acrobat5の製品版は持っています。
0372デフォルトの名無しさん
NGNGフロッピーのフォーマットをしようと、myformat.batファイルに
format a:
と書き、VBから
Shell App.Path & "\myformat.bat"
と実行しても、一瞬DOSプロンプトが見えてすぐ消えてしまいます。
当然、Formatもされておらず、何が悪いのかさっぱりわかりません。
FDをうまくフォーマットする方法を教えて下さい。
フォーマットするコマンドなんてないっすよね？
0374デフォルトの名無しさん
NGNGサンクスです！
ダイアログ無しでフォーマットしようってのが甘かったんすかね。。
batファイルについては、いろいろなサイト見て回っても、
>>372の方法で行けるってかいてあったんすけど、もしかしたらXPだから
駄目なんですかねぇ。。
とりあえず、教えていただいたのでダイアログ有りでやってみようと思います。
ありがとう。
0375デフォルトの名無しさん
NGNGFORMAT A: /U/V:""<hoge.txt
hoge.txtには
Y
N
と書いておく
0376デフォルトの名無しさん
NGNG59 0D 0A 4E 0D 0A 1A
0377デフォルトの名無しさん
NGNGBitBlt Form1.Picture1.hDC, 0, 0,800,600,GetDC(0), 0, 0, vbSrcCopy
を実行したところ、撮れませんでした。
フルスクリーンを撮れる方法は有りませんか？
0378デフォルトの名無しさん
NGNG>>374じゃないけど>>376のこれは何？
0379デフォルトの名無しさん
NGNGブラウザを開くソースを教えてください。お願いします。
開発環境
VisualBasic.NET Standard
0380デフォルトの名無しさん
NGNGShellExecuteでも使え。
0381デフォルトの名無しさん
NGNGバイナリで内科医？
0382デフォルトの名無しさん
NGNGVB6なら
ShellExecute 0, "open", "http://2ch.net/", "", "", 1
なんだが、.Netは知らん。
つーか、VB.Netはスレ違い。
0383デフォルトの名無しさん
NGNGInternetGetCookie、InternetSetCookie を使ってるんですが
ブラウザを閉じるまでは、Cookieにデータが保存されているんですが
ブラウザを閉じるてから、開きなおすとデータが消えてしまいます。
どうしたらブラウザを閉じてもCookieが消えなくなりますか？
0385デフォルトの名無しさん
NGNG＞有料になったけど。
まじかよ！
0386デフォルトの名無しさん
NGNG0387デフォルトの名無しさん
NGNG0388デフォルトの名無しさん
NGNGプロパテはありますか？ウインドサイズをモニタして
いちいちボックスのザイズとざひょをせっていシナケレバいけませんか
0389デフォルトの名無しさん
NGNGでも貴方はまず日本語を勉強シナケレバいけません。
0390デフォルトの名無しさん
NGNG0391371
NGNGありがとうございます。やっぱりAcrobatのSDKが必要ですか・・・
ちなみに、多少手間がかかってもほかにやる方法をご存知でしたら、
ヒントだけでもお願いします m(__)m
AcrobatReaderのOCXをフォームに貼り付けてロードするところ
まではできたんですが、肝心の内容が取得できません。
0392377
NGNG0393名無しさんだよもん ◆ZAYX.QGihc
NGNGと書くと
From2を親にして、Form1を表示しますよね？
この時ﾀｽｸﾊﾞｰのｱｲｺﾝ(Form2)を見ると、
『ｱｸﾃｨﾌﾞでない状態(凹んでいない)』になりますよね．．．
MsgBox InputBox APIを使用したコモンﾀﾞｲｱﾛｸﾞﾎﾞｯｸｽ を表示した時、
ﾀｽｸﾊﾞｰのｱｲｺﾝは、『ｱｸﾃｨﾌﾞな状態(凹んでいる)』のままになっています。
Form1を表示した時にﾀｽｸﾊﾞｰのｱｲｺﾝ(Form2)をｱｸﾃｨﾌﾞにさせたまま
にする方法は ないんでしょうか？？
VB製のｿﾌﾄは全て こうなるようですが...
0394デフォルトの名無しさん
NGNGSpy++による調査が完了いたしました。
MsgBox は WS_POPUPWINDOW ステータスを保有し、Form1の子窓であるようです。
0395名無しさんだよもん ◆ZAYX.QGihc
NGNG大佐！ﾚｽ ｻﾝｸｽであります
Form1にWS_POPUPWINDOW を追加すると...試してみるであります
いろいろ試した結果
'Form2より Form1を表示
private Sub Command1_Click()
Form1.Show vbModal, Form2
End Sub
'Form1のﾛｰﾄﾞ時に SetParent
private Sub Form1_Load()
Call SetParent(Form2.hWnd, 0&)
End Sub
でむりやり できた
この方法って 違いますよね
0396デフォルトの名無しさん
NGNGSetParentとSetWindowLongで弄くればいいのかな。
ウインドウいじくれて楽しいんだけど、ウインドウの関係が不正に
なっちゃわないか不安だったりする。問題ないのかな？
0397デフォルトの名無しさん
NGNGフォームに最小化ボタンは付けて、×ボタンを消すにはどうしたらいいので
しょうか？どうしても最小化ボタンを付けようとすると×ボタンもついてき
てしまいます（汗）
0398デフォルトの名無しさん
NGNGなにぶんVBSの知識が少なく、困っています。
再起呼び出しみたいなのを使わないといけないのでしょうか。
識者の方、よろしくおながいします。
>>397
消せないので、これでどうか。
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If UnloadMode = vbFormControlMenu Then
Cancel = Not 0
End If
End Sub
0399398
NGNG0400デフォルトの名無しさん
NGNG0401デフォルトの名無しさん
NGNG0402デフォルトの名無しさん
NGNGSub Hoge(strHage as String, lngFuga as long)
ってプロシージャを呼ぶ時、
Call Hoge(lngFuga := 7743, strHage := "ゲイツ")
みたいな、順番に依存しない呼び出しができる。
…正直言って、めったに使わない気がするがどうよ？
0403デフォルトの名無しさん
NGNGFileオブジェクトかFolderオブジェクトの中にAttributeプロパティがある
後はヘルプ読め
0404デフォルトの名無しさん
NGNGスレ違いかと思ったのですが、VBAです。
＝は代入だとわかるのですが、:=というのが出てくることが
あり、なんなのかと思って質問しました。VBAの文法を解説
した本がなかなか見つからなくて、ヘルプ頼みなのでしょうか・・。
それともVBの本を買うしかないのでしょうか。
0406デフォルトの名無しさん
NGNGフォームにコンボボックスをコントロール配列で200*2並べないといけなくなったのですが
途中（150個ぐらい並べた所）でメモリ不足と出てフォームを開くことができなくなりました。
これはコンボボックスの数を減らすしかないでしょうか？
0407デフォルトの名無しさん
NGNG何の処理か非常に気になるな。
必要な処理？
0408406
NGNG他の人がVBAで作ったものをVBで作りなおして更に機能を強化させようとしているんです。
（そちらはコンボボックスが400個並んでました。。）
エクセルから20*20の表を読みこんで、その値の候補がコンボボックスに代入されるようになっていて
いろいろ値を選んで変えてみて計算させる、と言った感じの処理です。
0409デフォルトの名無しさん
NGNGなめてんのか？二度と質問するな。
誰が回答しても永遠に質問するんだろ？
0410デフォルトの名無しさん
NGNGVB6ヤバイ。
まず汚い。もう汚いなんてもんじゃない。超汚い。
汚いとかっても
「変数名おかしくない？」
とか、もう、そういうレベルじゃない。
何しろ手続き型。スゲェ！なんか設計とか無いの。仕様とかソフトウェア工学とかを超越してる。手続き型だし超汚い。
しかもフォームにべた書きしてるらしい。ヤバイよ、べた書きだよ。
だって普通はクラスとか分割するじゃん。だってペーストしたところ変更きたら困るじゃん。
コンパイルエラーとか変更もれとか困るっしょ。
処理が追加されて、Ver1.0のときはメソッド数行だったのに、Ver3.0のときはメソッド数百行とか泣くっしょ。
だからJavaとかべた書きしない。話のわかるヤツだ。
けどVB6はヤバイ。そんなの気にしない。カット＆ペーストしまくり。ソース表示してる画面を
５画面ほどスクロールしてもメソッド終わらないくらい汚い。ヤバすぎ。
手続き型っていたけど、もしかしたらオブジェクト指向かもしんない。でもオブジェクト指向って事にすると
「じゃあ、VB6のクラスモジュールってナニよ？」
って事になるし、それは誰もわからない。ヤバイ。誰にも分からないなんて凄すぎる。
あと超いいかげん。Endステートメント。処理内容で言うと。強制終了。ヤバすぎ。メモリ開放する暇もなく終わる。怖い。
それに超処理遅い。超のろのろ。それに超機能不足。ActiveXコントロールとか平気で出てくる。ActiveXコントロールて。
高くて買えねえよ、グ○ープシティ。
なんつってもVB6はDLLが酷い。DLL HELLとか平気ででるし。
.NETなんてPublicメソッドとかDLLのインタフェース変更しても上手く扱えるように
アセンブリを使ってバージョン比較したり、レジストリ無くしたり、グローバルアセンブリストア使ったりするのに、
VB6は全然無視。インタフェース違ったらエラーとしか扱わない。酷い。ヤバイ。
とにかく貴様ら、VB6のヤバさをもっと知るべきだと思います。
そんなヤバイVB6でシステム作った俺とか超偉い。もっとがんばれ。超がんばれ。
0411デフォルトの名無しさん
NGNGVBを使ってデータベースにアクセスし、内容を表示したいのですが、
20020120
20020210
20021010
以下略
という日付データがカラムに入ってるのですが
これを4月〜翌年３月で年度ごとに抽出したい時
どの様にすればよいのでしょうか？
SQLサーバーでの使用も考えておりますので、
SQL文は一般的なものを使いたいのです。
宜しくお願いいたします。
0412デフォルトの名無しさん
NGNGできる限り、必要なリソースの量が少ないウィンドウレス コントロールを使用します。
0413デフォルトの名無しさん
NGNG>>402
＞…正直言って、めったに使わない気がするがどうよ？
などを引用しておけばよかったですね。
>>405と>>409は何か誤解しているかと。
0414デフォルトの名無しさん
NGNGXPだと平気だな
0415デフォルトの名無しさん
NGNGだから、VBではつかわねーってのに、なんでVBの本買うのよ。
人のレス読んでない証拠だろうがよ。
せめてExcelやAccessのスレ逝けよ。
0416デフォルトの名無しさん
NGNGFor EachとFilesオブジェクトを調べれ
0417デフォルトの名無しさん
NGNGフリーのテキスト取得クラスが複数公開されてるよ。
ソースはVBじゃなくて、Cだけどね。
0418398
NGNGごめん、その辺りはすでに使って一日悩んでたんですが、
（疑うようでアレですが、）まじでそれだけでいけますか？
それ以下にサブフォルダが無いフォルダならそれでいけるというのはわかります。
VBで言うファイルをDir()で列挙するだけ、みたいな。
不特定多数のフォルダ階層に入っていけないんすよ。。
VBで言う再起呼び出しのようなのがあるのでしょうか。
0419デフォルトの名無しさん
NGNG再入可能ならば再帰は可能じゃないの？
0420デフォルトの名無しさん
NGNG関数作って再帰すればいい。
target="C:\"
set fso=createobject("scripting.filesystemobject")
func fso.getfolder(target)
sub func(folder)
for each q in folder.files
読み取り専用属性解除
next
for each q in folder.subfolders
func q
next
end sub
0422デフォルトの名無しさん
NGNG気にすんな、俺も最初の頃は使えないと思い込んでた。
subもfunctionも使えるから頑張れ。
そしてヘルプを隅から隅まで（ｒｙ
0423406
NGNGありがとうございます。
なんとか調べてウインドウレスコントロールをインストールできました。
さっそくこれで試してみます。
>>414
winXPのことですか？
ちょっぴりOS変えたくなってきました。。
0424デフォルトの名無しさん
NGNGWinXPだよ1000個でも2000個でも平気だったよ。
0425デフォルトの名無しさん
NGNG0426デフォルトの名無しさん
NGNGそもそも一つのフォームにそんな数のコントロールを貼る必要のある設計に問題が（略
0427デフォルトの名無しさん
NGNG画面いっぱい並べる感覚なんじゃないかと思う。
0428406
NGNG1000個でも平気ってうらやましい
でも、その為にXP買うのなら勉強した方がよさそうですね（笑
>>427
>>Excelを作りたいと思ったときにテキストボックスを画面いっぱい並べる
まさにこんな感じです。。
0429デフォルトの名無しさん
NGNG自分でチェックする以外に方法ないのでしょうか？例えば
KeyPressで KeyAscii = ファイル名に使えないアスキーコード
はKeyAscii = 0で返すとか。
やりたいことは１つのフォルダ限定でファイル保存したいだけなんですけど。
もしかしてDialogコントロールでフォルダ限定できたりしますかね＾＾；
0430デフォルトの名無しさん
NGNG0431デフォルトの名無しさん
NGNG「Windows ファイル名に使えない文字」で検索すれば、
リストがヒットする。
ほか、デバイス名は名前レベルで使えない。conとか。
0432デフォルトの名無しさん
NGNGPrivate Sub Text1_KeyPress(K As Integer)
'\/:*?<>|
If K = 92 Or K = 47 Or K = 58 Or K = 42 Or _
K = 63 Or K = 60 Or K = 62 Or K = 124 Then K = 0
End Sub
0433デフォルトの名無しさん
NGNGSelect Case K
Case 42,47,58,60,62,63,92,124
0434433MHz
NGNG0435デフォルトの名無しさん
NGNGってのは？
0436デフォルトの名無しさん
NGNG0437デフォルトの名無しさん
NGNGなら、いちおうオッケーかな。
でも、InStr("hogehoge", "")が 1になるんだよな。
0438デフォルトの名無しさん
NGNGフォルダの選択ダイアログでネットワーク上のドライブを指定すると
C:\windows\NetHood\云々ってなるんですがUNCに変換する方法はないですか？
0439デフォルトの名無しさん
NGNGIf Err <> 0 Then 'ファイル名不正
Exit Sub
End If
End If
0440デフォルトの名無しさん
NGNG適当なファイルを名称変更するときに、
あきらかに使えない文字を試してみるよろし。エラーメッセージに答えはある。
0441デフォルトの名無しさん
NGNGキーコード定数を使った方が賢い。
・・・と思ったが、_KeyDown ではなく、_KeyPress だった。
鬱で氏んできます。
0442デフォルトの名無しさん
NGNG0443デフォルトの名無しさん
NGNG0444438
NGNG0445名無しさん＠そうだ選挙にいこう
NGNG自力に勝る解決無し！
0446デフォルトの名無しさん
NGNGShell関数をつかって、
Program Filesの何階層か下のディレクトリにあるCSVファイルを
開こうとしているのですが
Call Shell("C:\Program Files\〜Excel.exeのパス" & Space(1) & "C:\Program Files\〜csvファイルのパス")
とすると、「Program.xlsがみつかりません」というエラーに
なってしまいます。
他のC:\直下などのパスを指定した場合は問題なく開く事が出来ました。
Program Files階層下のファイルはこの場合開く事が出来ないのでしょうか？
開発環境はWindowsXPのVB5(SP3)です。
0448デフォルトの名無しさん
NGNGご自分の案件を抱えつつのご回答ありがとうｺﾞｻﾞｲﾏｽ
正確に申し上げますと、EXEのパス、csvファイルのパスは
あらかじめ変数に格納しています
strPathAdd_A = "C:\Program Files\〜Excel.exeのパス"
strPathAdd_B = "C:\Program Files\〜AAAAA.csvのパス"
Call Shell(strPathAdd_A & " " & strPathAdd_B)
という感じです。
この中でさらにProgram Filesを""で括るということでしょうか？
..私では.438さんの悩みにはお力になれそうもないっす。ｽﾝﾏｾﾝ
0449438
NGNGstrPathAdd_A = Chr$(34) & strPathAdd_A & Chr$(34)
って感じ、strPathAdd_Bも同じように
間違ってたらゴメン
0450デフォルトの名無しさん
NGNG0451デフォルトの名無しさん
NGNG害無いし
0452デフォルトの名無しさん
NGNGやってから言えよ
0453デフォルトの名無しさん
NGNGlbl1=val1+val2
cmdコマンドボタンをクリックしても、lbl1の値を保存する
方法はどうしたらよいのでしょうか。
一つのラベルを使って連続で和を求めたいのです。
0454デフォルトの名無しさん
NGNG・結果をラベルに表示して、次にそれを使う
lbl1.Cption = Format(val1 + val2)
lbl1.Cption = Format(Val(lbl1.Cption) + val3)
・Static変数を使う
・Public変数を使う
使い方はヘルプ見ろ
0455デフォルトの名無しさん
NGNGありがとうごうざいます。
早速、やってみます。
0456デフォルトの名無しさん
NGNG自分が分からないことを、他人にも分かるような説明ができるようになるまで、
悪戦苦闘・・・ちゅーか、勉強するこった。
0457デフォルトの名無しさん
NGNGコードの書き方がおかしいと思いますが
下記のコードで出来ました。
Private Sub Command1_Click()
Dim val1 As Integer
Dim val2 As Integer
Dim val3 As Integer
val1 = txt1.Text
val2 = txt2.Text
Static x As Integer
val3 = x
lbl1.Caption = Format(val1 + val2)
x = lbl1.Caption
lbl1.Caption = Format(Val(lbl1.Caption) + val3)
End Sub
0458438
NGNG0459454
NGNGそれなら、
Private Sub Command1_Click()
lbl1.Caption = Format(Val(lbl1.Caption) + Val(txt1.Text) + Val(txt2.Text))
End Sub
の一行で事足りる。
が、これでは応用がきかないのでお勧めできない。
手直しするなら
Private Sub Command1_Click()
'変数宣言
Dim val1 as Integer
Dim val2 as Integer
Static x As Integer
'入力受け取り
val1 = Val(txt1.Text)
val2 = Val(txt2.Text)
'計算
x = x + val1 + val2
'表示
lbl1.Caption = Format(x)
End Sub
のように、やってることを整理区別して書くように。
あと、変数の型は意識して代入する癖を付けろ。Format、Valなど…
0460４５７
NGNG入門書等では、この様なことは書いてないです
大変参考になりました。ありがとう。
0461デフォルトの名無しさん
NGNGとっつきやすくするために、入門書では型についてうるさく書いてない。
でも、あとで困るから、できるだけ意識したほうがいい。
数字か文字か、それだけでもね。
0462デフォルトの名無しさん
NGNG簡単なアプリケーションを作ったのですが、
そのアプリケーションが他のアプリケーションで隠され、
それがなくなったときにそれまで隠れていた部分が
白くなってしまうことが頻繁にあります。
それを改善するためにシステムが自動的に描き直してくれるように
AUTOREDRAW=True
としてみたのですが状況は変わりません。
他のIEなどの一般のプログラムではそういったことは起こらないのですが、、
どなたかわかる方がいらっしゃいましたらアドバイスお願いいたします。
ＯＳはWINDOWSXPでGEFORCE２MXを搭載しています。
0463デフォルトの名無しさん
NGNGテキストボックスなんかは関係ないよ。
もともと、自動で描画される。
でも、イベント処理中には再描画されないぞ。
重い処理をやらせるとしばらく止まったようになるアレだ。
Form_MouseMove
Form_Activate
なんかに重ーい処理を書いてたりしてないかな?
0464462
NGNGアドバイスありがとうございます。
単純にテキストフィールドに入力されている数値を
ボタンが押されたらファイルに出力するというプログラムです。
ボタンを押していない時は特に重い処理はさせていないと思います。
ボタンを押したときに処理が重くなって白くなる現象とは違い、
何もしていなくてプログラムをdeactiveにして
IEやExplorerなどのアプリを移動させて横切らせると白い線が残ってしまうんです。
その後activeにしてもそのまま白い線が残ったままになっています。
ボタンを押してrefreshをかけると直ります。
0465462
NGNGPrivate Sub Command8_Click()
Refresh
End Sub
これだとうまくいきます。
フォームがアクティブになったら呼び出されるサブルーチンに
Refreshをこのように入れてもうまく機能しませんでした。
Private Sub Form_Activate()
Refresh
End Sub
こんな感じにするとRefreshはかかってくれませんでした。
0466デフォルトの名無しさん
NGNGそりゃ、描画のゴミかと。
再描画されんかぎり消えん。
かなりの速度でウィンドウを動かさないと
ならないと思うのだがどうだろう?
ある程度は仕方ないかと…
Form_Activateでは
他のプログラム→自分のプログラムへのアクティブは受け取れんぞ。仕様だ。
代価案はおれは思いつかんので、誰か頼む。
0467462
NGNGアドバイスありがとうございます。
>かなりの速度でウィンドウを動かさないと
>ならないと思うのだがどうだろう?
ゆっくり動かしても早く動かしてもどっちでも
結構ゴミが残っちゃうんです。
>Form_Activateでは
>他のプログラム→自分のプログラムへのアクティブは受け取れんぞ。仕様だ。
そうでしたか。知りませんでした^^;どうもです
0468デフォルトの名無しさん
NGNGそれはグラフィックボードのドライバのバグじゃない？
他のマシンではどうなる？
0469462
NGNG>それはグラフィックボードのドライバのバグじゃない？
過去にそういう問題があったようですが
最新のドライバ（現在使用中です）では解決されているようでした。
>他のマシンではどうなる？
明日学校にいって他のOS、マシンで試してみようと思います。
アドバイスありがとうございました。
0470デフォルトの名無しさん
NGNG0471393 ◆ZAYX.QGihc
NGNGCall SetParent(子ｳｨﾝﾄﾞｳ, 親ｳｨﾝﾄﾞｳ)
だと『偽MDI』になりますが
Call SetParent(子ｳｨﾝﾄﾞｳ, 0&)
だと ならない
Call SetParent(子ｳｨﾝﾄﾞｳ, 親ｳｨﾝﾄﾞｳ) だと子ｳｨﾝﾄﾞｳの操作が出来なくなります
>>462
VBって
ｻﾌﾞｸﾗｽしないと取れないｲﾍﾞﾝﾄが多すぎる
>>410
しょうがないから突っ込んでやる
V B だ か ら し か た な い じ ゃ ん
0472デフォルトの名無しさん
NGNGだって一行しか読んでないし
0473デフォルトの名無しさん
NGNGVB6からDoCmd.OpenReportを使用して
印刷しているのですが
５枚１セット（全部レポートは別）の印刷をする際に
プリンタｊｏｂが５つになってしまい
他の印刷物がタイミングにより割り込んでしまい
困っています
この５つのｊｏｂを一つにまとめる方法はないでしょうか？
0474デフォルトの名無しさん
NGNG<input type="radio" value="0" checked name="RB_RADIO">
<input type="radio" value="1" name="RB_RADIO">
<input type="radio" value="2" name="RB_RADIO">
といったような3つのラジオボタンがあり、あるコマンドボタンを押すとこれらの選択状態を
切り替えたいのです。(3を選択状態にする、等。)
Web上のヘルプ・サンプルはJavaScriptばっかりです。
0475474
NGNG単純にdocument.all付け忘れていただけでした・・・
0476デフォルトの名無しさん
NGNGhttp://ton.2ch.net/gline/kako/1042/10426/1042628237.html
0477デフォルトの名無しさん
NGNG入れ替える方法頼む。
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim udtCursorPoint As tagPOINT
Dim lngResult As Long
' 現在のカーソル位置を取得
lngResult = GetCursorPos(udtCursorPoint)
With Image4
If udtCursorPoint.x * Screen.TwipsPerPixelX <= .Left + .Width _
And udtCursorPoint.y * Screen.TwipsPerPixelY <= .Top + .Height Then
Debug.Print udtCursorPoint.x * Screen.TwipsPerPixelX
.Picture = LoadPicture("D:\album\image\close02.jpg")
.Refresh
Else
.Picture = LoadPicture("D:\album\image\close01.jpg")
.Refresh
End If
End With
End Sub
↑いまいち反応鈍いんだよね(*´д`*)ｱﾊｧ…
0478デフォルトの名無しさん
NGNGこんなことできますか？
0479デフォルトの名無しさん
NGNGできます
0480デフォルトの名無しさん
NGNG始めに読み込んでいてメモリ内で画像転送したら？
0481デフォルトの名無しさん
NGNG最初からImageを2枚用意して表示/非表示を切り替えたら？
その都度LoadPictureせなあかん理由があるなら別だが。
0482デフォルトの名無しさん
NGNGマウスが動くたびに必ずロードピクチャーするのは仕様ですか
0483デフォルトの名無しさん
NGNG重そうだ
0484デフォルトの名無しさん
NGNGIEでPDFを開いた時のようにしたいのです。
実現可能なAPIやOCXなどがあれば教えてください。
0485デフォルトの名無しさん
NGNGAdobeの有料会員になって、SDKを送ってもらえ！
0486デフォルトの名無しさん
NGNG0487デフォルトの名無しさん
NGNGこれはCのようにソースコードを書かなくてもアプリができるのですか？
それともソースは書くようなのですか？
親戚に薦められてさっきVS付属のVisualBasicをやってみたのですが全然わからず・・・
ツールボックスでいろいろとボタンなどを作成する、ということはわかったのですが・・・。
どなたかよろしくお願いします。
0488デフォルトの名無しさん
NGNG本屋にでも行って、その手の本でも立ち読みするか、
WEBのその手のサイトでも見てください。
0489487
NGNGマルチもしてませんし。
0490デフォルトの名無しさん
NGNG本が何冊も出てる言語の説明をここでしろと？
0491デフォルトの名無しさん
NGNG0492477
NGNG一応それっぽく動くようになった。
もっとよい方法があればたのんます。
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim udtCursorPoint As tagPOINT
Dim lngResult As Long
Static flag As Integer
' 現在のカーソル位置を取得
lngResult = GetCursorPos(udtCursorPoint)
With Image4
If flag = 0 And udtCursorPoint.x * Screen.TwipsPerPixelX <= 50 Then
.Picture = LoadPicture("D:\album\image\close02.jpg")
.Refresh
flag = 1
End If
If flag = 1 And udtCursorPoint.x * Screen.TwipsPerPixelX >= 50 Then
.Picture = LoadPicture("D:\album\image\close01.jpg")
.Refresh
flag = 0
End If
End With
End Sub
0493デフォルトの名無しさん
NGNG日光の手前
0494本物の487 ◆ZWvUpWTdCo
NGNG今検索したところヴィジュアルベーシック覚えーるっていうソフトがあったので
それをDLして見てみます。
便乗ですいませんが、お勧めの書籍ってなんですか？
すいませんがよろしくお願いします。
あと、>>489は私ではありません。
ほんのちょっとしかこのスレにいないと思いますが、
その場トリップつけます。
0495デフォルトの名無しさん
NGNG0496477
NGNG0497デフォルトの名無しさん
NGNGhttp://pc2.2ch.net/test/read.cgi/tech/1041595397/
とその過去ログをVBで検索GO
0499デフォルトの名無しさん
NGNGインストーラーでスタートアップにショートカットを登録したり、
hogeが自力で登録したり、専用のレジストリに書き込んだり。
0500 ◆b0UXJ88Ngw
NGNGコンソールアプリケーションを起動すると、コンソールアプリケーションが
落ちてしまいます。
コンソールアプリケーションを単独で動かすと、普通に動きます。
コンソールアプリケーションで扱うデータ件数を減らすと、VBからでも動きます。
VBからShell関数でアプリケーションをコールする際のメモリ使用量（？）などの制限って
あるのでしょか？
また、あるのであれば、どのような対応をしたらよろしいでしょうか？
（特効薬的なものはなし？）
ご存知の方、いらっしゃいましたら、ご教授お願いします。
0501デフォルトの名無しさん
NGNGstart.exe 経由で起動させてみるとか。
なんとなく command.com /c なり cmd.exe /c 経由で実行してみるとか。
0502デフォルトの名無しさん
NGNG0503デフォルトの名無しさん
NGNG32bitコンソールアプリにpifが関係あるのかな？
0504500 ◆b0UXJ88Ngw
NGNGwin2000 では大丈夫なのですが、win NT(SP5.0)では、だめなんですよ。
とりあえず、command.comから試してみます。
ありがとうございました。
0505デフォルトの名無しさん
NGNGShellで引数を指定してる？
それの引き渡し方がおかしいとかない？
0506デフォルトの名無しさん
NGNG取得する関数、メソッド、ステートメントしか見当たらないのですが…
0507506
NGNG失礼しますた
0508デフォルトの名無しさん
NGNG0509デフォルトの名無しさん
NGNG0510デフォルトの名無しさん
NGNG0511デフォルトの名無しさん
NGNG実行するとc:\に自分をコピーしてスタートアップにショートカットを作成します。
0512デフォルトの名無しさん
NGNG必ず c: とは限らないよ。
スタートアップフォルダは API を使って求めた？
0513デフォルトの名無しさん
NGNG取得するにはどうしたらいいのでしょうか。
具体的に得たい情報は、
・キー情報(キーが張られているか否か)、
・データ型、
・データ長
です。
0514デフォルトの名無しさん
NGNGスタートアップは求めますた。
ルートディレクトリもAPIで取ったほうがよいですね。
どんなAPIだろ〜
0515デフォルトの名無しさん
NGNGDBとミドルウェアによると思われ
0516デフォルトの名無しさん
NGNGDBはAccess、DAO接続です。
ここでのミドルウェアとは何を指すのでしょうか・・・
0517デフォルトの初心者さん
NGNGしてくださいとあったのですが・・・。
デフォルトってなんですか？？
0518デフォルトの名無しさん
NGNG初期設定値のこと
0519デフォルトの初心者さん
NGNGありがとうございますた( ﾟ∀ﾟ)y─┛~~
0520デフォルトの名無しさん
NGNG0521デフォルトの初心者さん
NGNGいちおうVBの本読んでたもんで(´･ω･`)
IDEって雰囲気はわかるんですが
どういう意味なんですか？
連発質問ｽﾏｿ
0522デフォルトの名無しさん
NGNGえーと、弱めに言うけど氏ねよ、お前。
Googleで「○○ 用語」で検索しる。
「IDE 用語」とか。コンピュータ用語ならAsciiの用語辞典が引っかかる。
http://yougo.ascii24.com/gh/00/000090.html
0523デフォルトの名無しさん
NGNG統合開発環境のこと。
エディタその他がセットになってるので、こういう。
昔は、エディタやデバッガが別売だったのだ。
>>522
IDEはHDDがヒットするので、検索するのはむずかしいだろう。
「VB IDE」で検索しても、ヒットしてきた。
0524デフォルトの名無しさん
NGNG「Tabledefオブジェクト」でヘルプを検索しる
0525デフォルトの名無しさん
NGNG「VB IDE 用語 -HDD -ハードディスク」でググル
0526デフォルトの名無しさん
NGNGおっと、マイナス・オプションがあったな。
0527デフォルトの初心者さん
NGNG自分でも一応調べたのですが
http://yougo.ascii24.com/gh/70/007075.html
こんなカンジにでてきたもんでわけがわからなかったです。
0528513
NGNGヘルプ及び書籍から、Tabledefオブジェクトを参照してテーブル名を
取得するところまではうまくいきました。
ただ、513でも述べましたが、各テーブルのフィールド情報（フィールド名称は解決済み
それ以外の、型に関する情報やキー情報）をどのように判断/取得すればよいのか
わからずに困っています。
同様にTabledefオブジェクトを用いての取得が可能なのでしょうか。
これに関しては、ヘルプを参照しても方法がわかりませんでした。
0529デフォルトの名無しさん
NGNGそのページの右のほうにある関連用語(Glossary Help)をクリックすると、
下に IDE（Integrated Development Environment）の説明が出てくる。
0531デフォルトの初心者さん
NGNGうぉΣ(ﾟДﾟ；≡；ﾟдﾟ)出てきました。
WindowsなどのGUI環境に対応したグラフィカルなプログラム開発環境。
プログラムソースのエディット、コンパイル、デバッグなどといった一連の
作業を統合的に行なえるようにした開発環境を総称してこう呼ぶ。
との事です。勉強になりました。
あとVBってこんな重いものなんですか？？
0532デフォルトの名無しさん
NGNGコマンド？
→たたかう
にげる
ぼうぎょ
どうぐ
0533デフォルトの初心者さん
NGNG本当に素人なんですよ。
ってか今日インストしたばっかりですし・・・。
0534デフォルトの名無しさん
NGNGVBは相当軽いんだけど。
アプリいっぱい入れてると起動するのに時間かかるかな。
コンポーネントとか検索するから。
でも、コンパイルはVCより速い。Delphiより遅いけど。
0535デフォルトの初心者さん
NGNGそうなんですか。
ＲＯＭを５枚くらい突っ込んでインストしたから
重いもんだと思っていました(ﾟДﾟ；)
0536デフォルトの名無しさん
NGNG「重い」の意味勘違いしてないか？
0537デフォルトの名無しさん
NGNGImgScan.DLLを使えばいいのはわかったのですが
どうやって使うのか、わかりません。
知ってる方が居ましたら教えてください。
0538デフォルトの初心者さん
NGNG動作が遅いってことですよね？
0539デフォルトの名無しさん
NGNGじゃあ、なんで「ＲＯＭを５枚くらい突っ込んでインストしたから」重いもんだと思うんだよ？
0540デフォルトの初心者さん
NGNGん〜素人のオレが考えられる原因は
そのくらいしか思いうかばなくて・・・。
0541デフォルトの名無しさん
NGNGVB6のCD-ROMは１枚なんだけど。
VB.NETと間違えてない？
VS6全部入れたとか？
0542デフォルトの名無しさん
NGNG0543デフォルトの名無しさん
NGNG0544デフォルトの名無しさん
NGNG0545名無しさんだよもん ◆ZAYX.QGihc
NGNG終┃ 了┃ 終┃ 了┃ 終┃ 了┃ 終┃ 了┃
━┛ ━┛ ━┛ ━┛ ━┛ ━┛ ━┛ ━┛
終┃ 了┃ 終┃ 了┃ 終┃ 了┃ 終┃ 了┃
━┛ ━┛ ━┛ ━┛ ━┛ ━┛ ━┛ ━┛
終┃ 了┃ 終┃ 了┃ 終┃ 了┃ 終┃ 了┃
━┛ ━┛ ━┛ ━┛ ━┛ ━┛ ━┛ ━┛
終┃ 了┃ 終┃ 了┃ 終┃ 了┃ 終┃ 了┃
━┛ ━┛ ━┛ ━┛ ━┛ ━┛ ━┛ ━┛
終┃ 了┃ 終┃ 了┃ 終┃ 了┃ 終┃ 了┃
━┛ ━┛ ━┛ ━┛ ━┛ ━┛ ━┛ ━┛
終┃ 了┃ 終┃ 了┃ 終┃ 了┃ 終┃ 了┃
━┛ ━┛ ━┛ ━┛ ━┛ ━┛ ━┛ ━┛
終┃ 了┃ 終┃ 了┃ 終┃ 了┃ 終┃ 了┃
━┛ ━┛ ━┛ ━┛ ━┛ ━┛ ━┛ ━┛
終┃ 了┃ 終┃ 了┃ 終┃ 了┃ 終┃ 了┃
━┛ ━┛ ━┛ ━┛ ━┛ ━┛ ━┛ ━┛
0546デフォルトの名無しさん
NGNG死死死死死鬱死死死死死死死死鬱鬱鬱死死死死死死死死死
死死死死死■■鬱死死死死死死鬱■鬱死死死死死死死死死
死死死死鬱■■死死死死死死死■■鬱死死死死死死死死死
死死死鬱■■鬱死死死死死死鬱■■鬱鬱鬱鬱■■鬱死死死
死死死■■■死死死鬱死死死鬱■■■■■■■■■鬱死死
死鬱鬱■■鬱死鬱■■鬱死鬱■■鬱鬱鬱鬱鬱■■■死死死
鬱■■■■鬱鬱■■鬱死死鬱■■■死死死鬱■■鬱死死死
鬱■■■■鬱鬱■鬱死死鬱■■鬱■鬱死鬱■■■死死死死
死鬱■■■■■■鬱死鬱■■鬱鬱■■鬱■■■鬱死死死死
死死鬱■■■■鬱鬱死鬱■鬱死死鬱■■■■鬱死死死死死
死死死鬱■■鬱鬱■鬱死鬱死死死死鬱■■■死死死死死死
死死死鬱■■死死■■鬱死死死死死鬱■■鬱鬱死死死死死
鬱鬱鬱■■■鬱■■■■鬱死死鬱鬱■■■■■鬱死死死死
■■■■■■■■鬱■■鬱鬱■■■■鬱■■■■■■鬱鬱
■■鬱鬱鬱■■死死鬱鬱■■■■鬱鬱死死鬱■■■■■鬱
鬱鬱鬱死死■■死鬱鬱鬱■■■鬱鬱■鬱鬱鬱鬱■■■■鬱
死■■■鬱■■鬱■■鬱■■鬱死鬱■■■■鬱鬱鬱鬱鬱死
死■■■鬱■■鬱■■鬱鬱鬱死死鬱■■■■■■鬱死死死
死■■■鬱■■死鬱■■死死死死死鬱鬱■■■■鬱死死死
鬱■■■死■■死鬱■■鬱死死鬱死死死鬱■■鬱死死死死
鬱■■■死■■死死■■鬱死鬱■■鬱鬱鬱死死死死死死死
鬱■■鬱死■■死死■■鬱死鬱■■■■■鬱鬱死死死死死
鬱■■鬱死■■死死鬱鬱死死鬱■■■■■■■■鬱鬱死死
鬱■■鬱死■■死死死死死死死鬱鬱■■■■■■■鬱死死
死死死死死■■死死死死死死死死死死鬱■■■■■鬱死死
死死死死死■■死死死死死死死死死死死死鬱鬱鬱鬱死死死
0547デフォルトの名無しさん
NGNG||／
／||
／∧||∧
（ / ⌒ヽ
| | |
∪ / ﾉ
| ｜|
∪∪
∧ ∧,〜
( （⌒￣ `ヽ ＿
＼ ＼ `ー'"´, -'⌒ヽ
/∠＿,ノ _/_
/（ ノ ヽ､＿/´ ＼
､（ 'ﾉ（ く `ヽ､ 命を粗末にしてはならん！
／` ＼＿＿＿_>＼＿＿_ノ
／ /＿_〉 `､＿_>
とりあえず雑談はもうやめてね。しらべたらすぐわかることはここでしないでね。
0548デフォルトの名無しさん
NGNGTabledefの下に色々ぶら下がってるでそ。
Ｆｉｅｌｄオブジェクトとか。
その辺のプロパティなり調べれば分かるはず。
0549デフォルトの名無しさん
NGNG次のようなコードでは、ファイルを参照できません。
MyPath="c:\中略\myprogram.exe" 'myresult.txtを生成するプログラム
RetVal = 0
RetVal = Shell(MyPath, 1)
For j=0 to 100000 'このように待機させても効果がありません
Next
MyPath="c:\中略\myresult.txt"
If RetVal <> 0 Then
Open MyPath For Input As #1
Line Input #1, MyText
Close #1
MsgBox "MyText=" & MyText
Else
MsgBox "MyTextが生成できませんでした"
End If
しかしながら、myrogram.exeの実行結果としてmyresult.txtは生成されていて、イミディエートウィンドウではRetValは0以外の値になります。
0550デフォルトの名無しさん
NGNGウソを教えるなよ。(ウソの答えに納得する奴も納得する奴だが・・・)
「デフォルト」は「債務不履行」だ。よく憶えておけ。
>>521
IDE は Integrated Drive Electronics の略で、ハードディスク接続
インターフェイスの規格のひとつ。
ttp://e-words.jp/?w=ide&headline=%8C%A9%8Fo%82%B5%8C%EA%8C%9F%8D%F5
おまいら、子供じゃねえんだから、少しは自分で調べろよ・・・。
0551デフォルトの名無しさん
NGNGWaitForSingleObject APIを調べて味噌
0552デフォルトの名無しさん
NGNG0553デフォルトの名無しさん
NGNG処理待ちの方法はたくさんあるけど、よりによって空ループとは。
コンパイルしたら空ループは削除される。
自前のアプリなら、DDE通信使えよ。
せっかくあるんだから。
0554デフォルトの名無しさん
NGNG> コンパイルしたら空ループは削除される。
そうなの？最適化のしかたに依存するような気もするけど？
(確認してないけど)
0555デフォルトの名無しさん
NGNGどっちにしろ、CPUのスピードが千差万別かつ十分高速である以上、その方法はエレガントではないと。
0556553
NGNGDDEについては何もふれず、空ループについて確認も
しないで疑ってかかるって何だよ？
確かめるのに１分もかからないだろ？
0557デフォルトの名無しさん
NGNGこの時点で
あなたの希望金額に達しなかったということで、
ノ ー マ ネ ー で フ ィ ニ ッ シ ュ で す
0558デフォルトの名無しさん
NGNGWindows Script HostのRunメソッドが簡単だよ
0559デフォルトの名無しさん
NGNGVBからネットワーク上の別PCのHDD全容量／空き容量などを
取得することはできるのでしょうか？
0560デフォルトの名無しさん
NGNGそもそも他のPCのHDD容量って見れるの？
知らないんだけど。見れるならVBでもできそうだけど。
0561デフォルトの名無しさん
NGNGとりあえず ネットワークドライブの割り当て をやってみ
0562デフォルトの名無しさん
NGNG0563559
NGNG一時的に割り当てして容量チェックすればできそうですね。
ところでIPアドレスやMacアドレスがわかってる状態で可能なことって何があるでしょうか？
Pingとかで該当PCが応答するかチェックするってのはすぐに思いついたんですけど
他に何かありますか？
0564デフォルトの名無しさん
NGNGポートスキャンで穴さがし
0565563
NGNGなるほど。それはいいですね！
OS情報とか取得して詳細一覧作るってのもいいかも。
やれるか分からないですけど・・・
0566デフォルトの名無しさん
NGNG最低限はPINGも含めて何も出来ない。
できるのは相手が応答した場合のみ。
0567デフォルトの名無しさん
NGNG0568デフォルトの名無しさん
NGNG0569559
NGNG電源何かも切れるみたいですね。
上司のPCを覗くのは・・・
ﾍ(ﾟ∀ﾟﾍ)ｱﾋｬ
0570デフォルトの名無しさん
NGNGわざわざ中身のぞかなくても、パケットモニターで丸裸。
ソース公開されてるし。
Cだけど。
0571デフォルトの名無しさん
NGNGこれで簡単にパケットモニタ作れる。いや、作るというかコピペ
0572デフォルトの名無しさん
NGNG0573デフォルトの名無しさん
NGNGフレームワーク自体はWindows98以降でも動くよ。
0574デフォルトの名無しさん
NGNG>For j=0 to 100000 'このように待機させても効果がありません
>Next
>MyPath="c:\中略\myresult.txt"
Private Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)
Private Sub (略
(略
MyPath="c:\中略\myresult.txt"
Do While "" = Dir(MyPath)
Sleep 100
Loop
あまり綺麗な方法じゃないかもしれないが、一番簡単。
これよりも、起動させるプロセスを監視してそれが消滅するのをチェック
する方がいいかもしれないが…。
0575デフォルトの名無しさん
NGNGではＸＰ以外でも作業できるってことですか？
0576デフォルトの名無しさん
NGNG0577デフォルトの名無しさん
NGNG金が惜しいならMSのサイト言ってあんたの買いたいソフトは何をする物なのか確認してきなさい。
すまんが今の状態でプログラミングなんてちゃんちゃらおかしいよ。
0578デフォルトの名無しさん
NGNGTHNX！
0579デフォルトの名無しさん
NGNGそんなＶＢ房みたいなやりかた提案するなよ
0580困ったチャン
NGNG（ＶＢのスレで聞くな？）
困っているのです。あるフォルダに格納されている、
word excel ppt txt のファイルをVBAから開き、
MSGBOXでOK押されたときに、全部閉じたいのですが、うまくいきません。
期限がやばいのでとりあえずやっつけだ、と思い、無理やり
shellコマンドで立ち上げ、落とすときは、sendkeyしてるのです。。。
（&FXN）ALTキー＋Ｆキーでメニューのファイルを閉じるで、保存しないキーを
SENDしてる予定。。。
しかし、なぜかワードだけうまくうけとってくれないのです。
他にいい方法があったら教えてください。
環境はOFFICE97。OSはWINDOWSです。（95〜2000、NT、XP）
で、クライアントの処理なので、できれば他の実行ファイル
は作りたくないのです。
0581デフォルトの名無しさん
NGNG保存していないとダイアログ出るが。
0582困ったチャン
NGNGうん。そうなんですけど、ファンクションキーたまに
落ちないときがある、と聞いたので。。
で、苦肉の策、そうなったのです。。。
できれば、SENDKEYでない方向でいきたいのです。。。
動きもいまいちなので。。。ｸｽﾝ
0583困ったチャン
NGNG0584デフォルトの名無しさん
NGNGそれを元にウィンドウハンドルを取得して強制終了のメッセージを
SendMessageすればよいのでは？
0585デフォルトの名無しさん
NGNGExcelVBAでWordファイルを操作するという点が間違いです。
0586困ったチャン
NGNGそうなのです。。。shellでハンドル持たせて、
それをappactive して、sendkeyしてるのです。
でも、なぜかワードだけうまくいかない。。。
カーソルのところにひたすら「XNXNXN・・・」
って書き続けてる状態。。。本当に困ったチャン。
確かに、excelVBAでファイル操作、きついんだけど、
元の設計はｃ＋＋でほとんどクライアントで処理して、
サーバに投げてきてたんだけど、
それを仕様変更して、分散して、クライアントが
excelVBA（客先に配布）で、サーバはｖｂなのです。
最終的に仕上げるファイルフォーマットがexcelなので、
VBAでやってるのです。
その他のファイルは、タダ、いったんこれらでいいですか？
という意味合いで、単純に開いて、単純に確実に殺す、です。
0587tantei
NGNG●浮気素行調査
彼氏、彼女、妻、夫の浮気を調査致します！！
●盗聴器盗撮機発見
あなたの部屋に誰かが仕掛けているかも！！
●行方調査
行方不明になっている家族の消息を調査致します！！
●電話番号から住所割り出し
一般電話、携帯から住所を割り出し致します！！
●ストーカー対策
社会問題ともなっているストーカーを撃退致します！！
その他人生相談からどんなお悩みでも解決いたします！！
２４時間受付 ０９０−８５０５−３０８６
ＵＲＬ http://www.h5.dion.ne.jp/~grobal/
メール [email protected]
グローバル探偵事務局
0588デフォルトの名無しさん
NGNGWORDだから良いもののウインドウ作らないアプリケーションならブルー。
0589デフォルトの名無しさん
NGNGウィンドウを作らないアプリでこちらから終了させなければいけないというのは
どういったアプリケーションですか？
0590デフォルトの名無しさん
NGNG(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
If MsgBox("やっちゃう？", vbYesNo) = vbYes Then Call SendMessage(&HFFFF&, &H2&, 0, 0)
0591困ったチャン
NGNGlib使ったプログラム開発をしたことがないもんで。。。
いろいろＨＰあさって探しまくってたんだけど、いいのがなかったのです。
はぁ。たすかったぁ♪♪♪♪♪さっそくためさせていただきます。明日。
はぁ〜〜〜〜〜〜〜〜〜〜！
0592禁断のターミネータ
NGNGプレッシャーかかるな。
0593デフォルトの名無しさん
NGNGHIKEY_LOCAL_MACHINEの中の値を取得したいです
RegOpenKeyEx（API）を使って取得する方法は分かったのですが
GetSettingのように、APIを使用せずに取得する方法は無いでしょうか？
API使うの面倒臭いのよね
知ってたら教えてちょんまげ。
0594デフォルトの名無しさん
NGNG0595デフォルトの名無しさん
NGNGもしあったら、ハッキングし放題だと思わんの？
なんで制限つけてるか考えんの？
0597デフォルトの名無しさん
NGNGそれは、マクロウィルス使って悪さが出来るということ？？
よく分からないけど、そういう機能があれば、595さんなら
ハッキング出来るわけですね
とにかく教えてくれてありがとうございます
明日はAPIの使い方調べて苦労することにします
では。
0598デフォルトの名無しさん
NGNG先頭アドレスを送ったことになる？
0599デフォルトの名無しさん
NGNG0600デフォルトの名無しさん
NGNGヘルプやMSDNに書かれていると思うけど・・・
配列の先頭の要素を参照渡し。
ユーザ定義型の配列の場合はまた別のルールがあったはず。
0601デフォルトの名無しさん
NGNGDim WshShell As Object
Set WshShell = CreateObject("WScript.Shell")
MsgBox WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\ProductId"), , "ProductId"
0602ばかばっか
NGNG0604デフォルトの名無しさん
NGNGインストーラー作る時にMDAC_TYP.EXEは含めたほうが良いのでしょうか？
0605デフォルトの名無しさん
NGNG最初からProductIDって言ってたか？
0606593
NGNG言ってないですよん、ProductID以外の値も取れましたが、何か問題でも？
0607デフォルトの名無しさん
NGNGええもん取れた？
0608デフォルトの名無しさん
NGNG0609593
NGNG先輩からの信頼が取れました。
0610デフォルトの名無しさん
NGNG0611デフォルトの名無しさん
NGNGHIKEY_LOCAL_MACHINEを読んだおかげで大金を手にしました!!
0612デフォルトの名無しさん
NGNG0613デフォルトの名無しさん
NGNG0614デフォルトの名無しさん
NGNG0615デフォルトの名無しさん
NGNGFileSystemObjectを使わずにファイルをコピーしようとしています。
FileCopyステートメントを使ったのですが、
コピー先に指定したファイルがない場合、「ファイルが見つかりません。」
とエラーが返されます。
FileSystemObjectのoverwrite=trueに該当する処理を実現するには
どうしたらいいでしょうか？
0616デフォルトの名無しさん
NGNGファイルがあるか、使用中でないか確認する。
なんでそんな質問すんだ。
0617デフォルトの名無しさん
NGNGCopyFile APIを使う
0618デフォルトの名無しさん
NGNGOn Error Goto でエラー捕まえりゃいいだろ。
0619デフォルトの名無しさん
NGNGあーもうホントすみません。
いろいろ考えたんですけど、On Error Gotoの後の処理
（存在しなかった場合の処理）が分からなかったんです。
指定した名前のファイルを指定した場所に作成する？関数なりステートメントが
MSDNで引いても見つからなくて・・・・
ヒントの単語だけでも教えていただけませんか？
0620デフォルトの名無しさん
NGNG＞指定した名前のファイル
って何？何でもいいなら空っぽのテキストファイル作れば？
0621デフォルトの名無しさん
NGNG大体、何言ってるのかわからん。
>コピー先に指定したファイルがない場合、「ファイルが見つかりません。」
「コピー元」の間違いかと思えば、
>FileSystemObjectのoverwrite=trueに該当する処理を実現するには
上書きに失敗しないようにするには、とも読みとれる。
通常は上書きに失敗することはない。属性とか使用中とかなら別だが。
「ファイルが見つかりません」とは、コピーする元のファイルがないってことだ。
てことは、最初にファイルの有無を調べればよい。
if Dir(FileName)<>"" Then
FileCopy FileName, FileName2
end if
とでもすりゃあ済むのではないのか？ 違うのなら、もう少し状況説明を詳しく。
0622デフォルトの名無しさん
NGNG0623デフォルトの名無しさん
NGNGヘルプテキストをポップアップさせたいのですが、
テキストボックスの幅より出ている、というのはどうやって判断するのでしょうか。
VBでは等幅フォントで文字数数えたりそんなのしか無理ですか。
0624デフォルトの名無しさん
NGNGTextWidthプロパティで長さ調べるのは？
0625デフォルトの名無しさん
NGNG0626デフォルトの名無しさん
NGNG0627デフォルトの名無しさん
NGNGおお！横、縦、がx,yだから、なるほどzですね。ありがとうございました。
0628デフォルトの名無しさん
NGNG0629デフォルトの名無しさん
NGNG大体の長さでいいなら、Textボックスの幅と、
Textボックスに入れた文字と同じ文字を入れたAutoリサイズしている
非表示のラベルの幅を比べる。
#手抜きだけど。
0630デフォルトの名無しさん
NGNGディストリビューションをつかっって見たところ、ファイルを追加するということはできてもフォルダが追加できませんでした。
0631デフォルトの名無しさん
NGNG1ファイルずつボチボチとﾏﾀｰﾘやるしかない。
0632デフォルトの名無しさん
NGNG0634デフォルトの名無しさん
NGNGShell "gta.exe", vbNormalFocus
Shell "gta.exe", vbNormalFocus
Shell "gta.exe", vbNormalFocus
みたいな感じで一定の期間で終了するexeを多重起動したとして起動しているexeがすべて
終了してプロセスから無くなるまで待機させたいんだけど、どうしたらいいですか？
0635デフォルトの名無しさん
NGNGhttp://support.microsoft.com/default.aspx?scid=kb;ja;408441
0636デフォルトの名無しさん
NGNG0637デフォルトの名無しさん
NGNGどうもっす！
0638デフォルトの名無しさん
NGNG試してみまっす！
0639ひきプロ
NGNGこういうのもありました
0640デフォルトの名無しさん
NGNG多重起動したexeをどのように処理するのか？
0641デフォルトの名無しさん
NGNGコマンドボタンとかを動的に追加する方法は見つかったんですが
OCXの方が分かりません…
0642デフォルトの名無しさん
NGNGhttp://jsweb.muvc.net/index.html
0643デフォルトの名無しさん
NGNG重いのかな？
0644デフォルトの名無しさん
NGNGしかもJavaよりもさらに遅いことが多いんですけど。
0646デフォルトの名無しさん
NGNGいえ、実際Web上の実行速度の調査とかを読んでいても
良くてJavaの実行速度近くまで出るけど、
アルゴリズムによってはJavaの３倍ぐらいの速度がかかってるんだよね。
どうしてかなと思って。
0647デフォルトの名無しさん
NGNGもちろんJavaもVBも同じアルゴリズムだよ。
書き方が悪いとかそう言う問題じゃないと思う。
0648デフォルトの名無しさん
NGNG実際のソースを見ないと、なんとも言えんとおもうんだが、どうだろう。
0649デフォルトの名無しさん
NGNG（ ´_ゝ`）
0650デフォルトの名無しさん
NGNG書き方が悪いに1000ﾔﾏｼｬｷ
クラス(COM)を使ったコーディングだとVBは遅くなりやすい。
Javaはよく知らんけどコンパイルの最適化ってある？
0651デフォルトの名無しさん
NGNGJavaでも一応あった気がする。
0652デフォルトの名無しさん
NGNGVB4 VB5 VC5 Java(IE4) Java(NN4) のベンチマークがあった。
http://member.nifty.ne.jp/aya/vb/javabench.htm
97年調査だから、それぞれバージョンが古い。
最新版どこにあるの？
0653デフォルトの名無しさん
NGNGそれ見る限りじゃ、むしろ最適化したVBのほうが速いような感じだね。
とりあえず、646が「Web上の実行速度の調査」とやらのURLを
出さない限り話にならないような。
0654デフォルトの名無しさん
NGNG0655デフォルトの名無しさん
NGNGといわれるDLLは、VBでは使えませんか？
Borland Cで書かれてるそうで、関数仕様以外はよく分からないものなんですが…
0656デフォルトの名無しさん
NGNGDeclare
0657デフォルトの名無しさん
NGNGpic.Picture = LoadPicture()
pic.ForeColor = vbBlack
pic.CurrentX = 10: pic.CurrentY = 3: pic.Print "モナー"
pic.CurrentX = 10: pic.CurrentY = 4: pic.Print "ギコ"
pic.CurrentX = 10: pic.CurrentY = 5: pic.Print "しぃー"
pic.CurrentX = 10: pic.CurrentY = 6: pic.Print "8頭身"
などの場合に"モナー"だけ赤く表示させるにはどうしたら良いのでしょうか？
何方かご教授お願いします。
0658デフォルトの名無しさん
NGNGファイルが使用中であるか（別のプロセスが使用中で無いか）を調べる方法を
教えてください。関数でもあるのでしょうか。
MSDNおよびグーグルで"ファイル 使用中 Visual Basic"で検索しましたが
力が及びませんでした。
0659デフォルトの名無しさん
NGNGpic.ForeColor = vbRed
pic.CurrentX = 10: pic.CurrentY = 3: pic.Print "モナー"
pic.ForeColor = vbBlack
pic.CurrentX = 10: pic.CurrentY = 4: pic.Print "ギコ"
>>658
とりあえず(ロック付きで)開いてみるとか名前を変えてみるとか削除に挑戦するとかは？
0662デフォルトの名無しさん
NGNGHTMLを読み込む時にキャッシュを使いたくないのですが、どうすれば良いでしょうか？
Googleで検索してもあまり出てこないし･･･
よろしくお願いします･･･（´Д｀；）
0663デフォルトの名無しさん
NGNG0664デフォルトの名無しさん
NGNGレジストリ弄るしょぼい方法しか知らない…
0665デフォルトの名無しさん
NGNGメニューエディタで表示をOffにしたメニューを作成しておき、
MouseUpイベントで、右クリックを感知したら
PopupMenuメソッドで呼び出せばいい。
0666デフォルトの名無しさん
NGNGピクチャボックスにpngファイルを読み込む方法を教えてくれたら教えてあげる。
0667ひきプロ
NGNGWinsockかINetコントロールで、ローカルファイルに
URLの内容を取得した後、Webbrowserの
Navigateで先ほど取得したローカルファイルのURLを
設定してはどうでしょうか？
0668ひきプロ
NGNGhttp://www.planet-source-code.com/xq/ASP/txtCodeId.29135/lngWId.1/qx/vb/scripts/ShowCode.htm
こういうのがありますけどどうですか？
今見つけたところなのでどういうものか分かりませんが
0669ひきプロ
NGNG0670初心者１号
NGNGVB6.0でRichTextBoxを利用しているのですが、IMEmodeプロパティがなくて困っています。
何か解決方法はないのでしょうか・・・・
0671デフォルトの名無しさん
NGNG自exeを削除する技を教えて下さい。
batファイル作成→exeを削除→batが残る→ﾏｽﾞｰ
こんな具合です。。
0672ひきプロ
NGNGPrivate Declare Function ImmGetContext Lib "imm32.dll" (ByVal hwnd As Long) As Long
Private Sub Command1_Click()
dim mContext as long
mContext = ImmGetContext(RichTextBox1.hwnd)
ImmSetOpenStatus mContext, 1
End Sub
みたいな感じでIMEをONにできます。また
Private Declare Function ImmGetOpenStatus Lib "imm32.dll" (ByVal himc As Long) As Long
を使うとIMEの状態を取得できるようです
0673662
NGNGおお、サンクスです！
早速試してみます
0674ひきプロ
NGNGbatファイルの最後に、
del [batファイルの名前].bat
を追加すれば解決できると思います
0675デフォルトの名無しさん
NGNGうーん、さっき自batファイル消そうと、やった時は消えませんでしたが、
今やったら消えました・・。なんでかなぁ。。
ありがとうございますた。
0676デフォルトの名無しさん
NGNGhttp://sagatoku.fc2web.com/
あなたの探し物こちらで見つかります
0678初心者１号
NGNGマジサンクスです。
でも技が良く分からない・・・
試してみますです。
0679名無しさんだよもん ◆ZAYX.QGihc
NGNG別に何も教えてもらいたくないけど．．．
imgctl.dllでDIB取ってピクチャボックスに転送しる
>>677
さらに App.Path を ”で囲うとイイ
0680ひきプロ
NGNGImmSetOpenStatus、ImmGetOpenStatus、ImmGetContext
についてはMSDNを参照してください。
これは、Win32APIを使った技なので、VBのマニュアルの
APIを使う・・・みたいな章を読めば詳しく書かれています。
0681初心者１号
NGNGひじょ〜にありがたいです。
うちの教官が貴方みたいな人なら神だ・・・
0682デフォルトの名無しさん
NGNGに便乗させてください。
FileSystemObjectは環境に依存するというのは
なんとなくわかってましたが、
具体的に必要な環境としてはどういう環境が必要なのでしょうか？
教えていただけませんか？
よろしくお願いします。
0683デフォルトの名無しさん
NGNGWSH
0684デフォルトの名無しさん
NGNG初期バージョンのWindows95で動かないだけでしょ。
金出し渋るタイプの、企業や国の機関以外で使ってないだろうから気にすな。
0686デフォルトの名無しさん
NGNGVBではできねーのかな？
いやねえ、戻り値をMA_NOACTICATEに変えたいだけなんだが・・・・
（Delphiなら簡単だが）
0687デフォルトの名無しさん
NGNGサブクラス化
0688デフォルトの名無しさん
NGNG---
Dim a As Double
Dim b As Double
Dim c As Double
a = &H8000
b = &HAED000
c = a + b
---
こんなことしてやると計算結果 c は &HAE5000 になります。
a が signed 扱いにされているようですが、これを unsigned に
する（計算結果を &HAF5000 にする）方法ないですか？
0689デフォルトの名無しさん
NGNGreal
0690デフォルトの名無しさん
NGNGrealという型はVBには無いようですが…
0691デフォルトの名無しさん
NGNGで解決しますた
0692デフォルトの名無しさん
NGNG0693デフォルトの種無しさん
NGNGtreeviewコントロールを用いてエクスプローラ風に見せたいのですが、ドラッグ・ドロップ
をする時に詰まってしまいました。ドラッグ中のアイコンが32*32で表示されるのは
32*32のアイコンのなかに16*16のアイコンを描いて、それをドラッグする時に選択することで
回避できたのですが、アイテムの名前が表示されません。IEのエクスプローラバーでの
お気に入りと同じになってしまいます。自分としては是非アイテム名を表示しながらドラッグ
したいのですが…ご教示お願いします。
0695デフォルトの名無しさん
NGNGこのバカはなんで偉そうなんでしょう？
0696デフォルトの名無しさん
NGNGバカだから(´∀` )
0697666
NGNG0698666
NGNG0699デフォルトの名無しさん
NGNGウィンドウサイズを変更できないような風にするにはどうしたらいいのですか？
0700ひきプロ
NGNGMinbutton = True
0701デフォルトの名無しさん
NGNGめっちゃ初心者質問ですみませんでした
0702デフォルトの名無しさん
NGNGいや、喪前が来るな。
質問者として最低限必要なものが喪前には無い。
0703デフォルトの名無しさん
NGNGウィンドウの最小化とか最大化のボタンの左に同じ様なボタンを1つ2つ
追加したいんですがどうしたらできますか？
0704デフォルトの名無しさん
NGNG「なんだ」
「家へ、家へ帰してください、お願い」
無駄だとわかっていても、夏子は哀願した。愛する子供は今ごろどうしているのだろう、夫は……。ボロボロにされた身体ではあっても、夏子はこのまま家庭を捨てることはできない。
「こ、子供のことが気になるんです……」
「帰してやってもいいが……」
はじめは、このまま夏子を自分の牝として囲ってしまうつもりだった。ヤクザに追われて殺されるなら、それまでとことん楽しんでおこうというヤケっぱちな気持ちだった。
だが今の冷二は、不安と恐怖はあるものの、ずっと落ちつきを取りもどしていた。三人よりも、真樹子と二人のほうが安全だと思う。
それに夏子が行方不明ということで、警察が動きだしでもしたら、かえってやっかいになる。
「いいだろう、帰してやるぜ。だが、奥さんはもう俺の女だってことを忘れるなよ」
夏子は小さくうなずいた。だが、夏子はうれしくはなかった。冷二からは逃げられるものの、もう夫に顔向けできない身体にされ、殺人にまで巻きこまれて、どうして心が晴れよう。
「そうと決まったら、帰る前に、朝のつとめだ」
冷二は布団のなかで夏子を抱きすくめたまま、朝立ちで硬くたくましくなった肉塊を双臀に押しつけた。
「尻の穴だぞ」
「……は、はい……」
うなずいた夏子はすすり泣いた。
数えきれないまでに犯してもなお、朝からおぞましい肛交を求める冷二の貪欲さに、眼もくらむ思いだった。
「前……ではいけませんか……お尻、ヒリヒリと痛いんです」
「だから尻の穴がいいんだ、フフフ」
「ああ……」
夏子の声に哀しみとあきらめがこもった。何度されても肛交はおぞましい。
それでなくとも夏子のアヌスは赤く腫れて、ヒリヒリとうずいていた。
このうえまた冷二の太いものを受け入れさせられたら……。夏子はおびえた。
だが、おずおずと冷二のほうへ双臀を突きだした。
0705デフォルトの種無しさん
NGNG使っているのですが、同じフォームに別のtreeviewを他のカスタマイズのソースを適用したいと
思っているのですが、出来ますでしょうか？現状ではエラーは出ないのですが2つ目のカスタマイズが
有効になりません。私見では、一つのコントロールに対して異なる2つのサブクラス化（言葉は正確
ではないかもしれません）は出来ないようにも思えるのですが…
あ…666が…
0706デフォルトの名無しさん
NGNGサブクラス化
0707デフォルトの名無しさん
NGNG自アプリに飛んでくる全てのメッセージを取得する事はできませんか？
SetWindowLongの引数にウィンドウメッセージを拾いたいコントロールのハンドルを渡せば、
そのコントロールに飛んでくるウィンドウメッセージは取得できますけど、
フォームに大量のコントロールを張ってるとき、
どのコントロールとは限らず全てのコントロール（と、フォーム）に飛んでくるウィンドウメッセージを知りたいんです。
0708デフォルトの種無しさん
NGNG良かったのですね。ただ…693については依然わかりません。よろしく
お願いします。
0711706
NGNGhttp://www.google.com/search?num=100&hl=ja&ie=Shift_JIS&q=wm_ncpaint+wm_nchittest&btnG=Google+%8C%9F%8D%F5&lr=lang_ja
ボタンの動作をエミュレートする
>>707
SetWindowsHookEx は使えない？
0712デフォルトの名無しさん
NGNGＩＤキーを入力してからインストール開始するようにする
インストーラの作り方を教えてください。
ディストリビューションウィザードではできないのでしょうか？
0713デフォルトの名無しさん
NGNGVisualStudioInstller
ディストリビューションウィザードのようには簡単ではないが、
使いこなせばそれなりに良いみたいよ。マイクロソフトのサイトに行ってゲットせよ。
0714712
NGNGありがとうございます。
さっそく探してみます。
0715デフォルトの名無しさん
NGNGソースとかありませんか？
0716デフォルトの名無しさん
NGNG0717デフォルトの名無しさん
NGNGどのコントロールを使って実現したらいいのでしょう?
0718デフォルトの名無しさん
NGNGプロパティのPictureで指定するのではなく，アイコンを登録してある場所の
ディレクトリを保存したテキストファイルから，必要な行を呼びだして
コマンドボタンに表示する方法です。
0719デフォルトの名無しさん
NGNG君は少し頭を使いなさい。
0720デフォルトの名無しさん
NGNG意味がわかりません。
0721（・∀・）ﾁﾝﾎﾟ!!
NGNG0722名無しさんだよもん ◆ZAYX.QGihc
NGNG今さら ﾚｽしても遅いか？
imgctl.dll は PNG変換DLLだった
imgctl.dll では PNGの表示はできん(と思う)...すまん
表示には、Susie Plug-inを使ってくれ
http://www.koalanet.ne.jp/~akiya/vbtaste/vbp/ の Susie Plug-inを動的に利用する
を参照のこと
NT系のOSには対応していません。と書いてあるもののXPでは動いた
俺は親切だな... 神にでもなろうかな...
0723デフォルトの名無しさん
NGNGVBでPNGならｺﾚが定番かもしれないがどーかなー。
http://www.vector.co.jp/soft/win95/prog/se148530.html
hDCに直接書き込めるぞ。保存もできるぞ便利。
素のOSそのままでPNG扱う方法は知らん。
0724デフォルトの名無しさん
NGNGむぅ？
∩∩
（゜x゜ ）○
0725デフォルトの名無しさん
NGNGOSインスコした直後の、OS付属のAPIだけでやる方法は知らないって意味ー。
>>723の場合は、ソフトを配布する場合はDLLも一緒に配布が必要、ってことね。
0726デフォルトの名無しさん
NGNGヘッダーよんでふんにゃかふんにゃかするんでしょう。
0727デフォルトの名無しさん
NGNGヘッダに関しては難しいアルゴリズムとかとは無縁だから楽チンだね。
0728ひきプロ
NGNGこの前拾ったサンプルにzlib.dllの機能使ってる箇所があったので
0729666
NGNGそれも参考にするけど、
とにかくコピペしてそのままつかえるサンプルやPNGを読み込むためのActiveXコンポーネントをきぼんぬ。
リッチテキストボックスぐらい使いやすいのを。
0730666
NGNG668 ：ひきプロ ：03/02/21 22:35
>>666
http://www.planet-source-code.com/xq/ASP/txtCodeId.29135/lngWId.1/qx/vb/scripts/ShowCode.htm
こういうのがありますけどどうですか？
今見つけたところなのでどういうものか分かりませんが
--------------------
このカキコミを見落としていた。しばらくそこを呼んでみる。
0732デフォルトの名無しさん
NGNGグレープシティーより
LEADTOOLSというのがでてる。
９万で買えるActiveXだ。君の望みのものがある
0734666 ◆ExGQrDul2E
NGNG参照設定のところがうまくいかなかったので
>>722のSusieプラグインを使う方法に挑戦中。
>>723もそのあと試してみる。
0735666 ◆ExGQrDul2E
NGNG722のサンプルのプロジェクトファイルを開いて画像を表示しようとしてもプラグインがない状態なのでまだ画像を表示できないようだ。
ttp://www.vector.co.jp/vpack/filearea/win/art/graphics/loader/susie/index.html
ここで画像表示用のプラグインを探してみる。
0736666 ◆ExGQrDul2E
NGNGプロジェクトファイルを開いてからF5キーでプログラムを動かし、ファイルを開く、で画像を指定しても
画像が表示できなかったのでプラグインを使う方法はあきらめる。
つぎは723を試してみる。
0737666 ◆ExGQrDul2E
NGNG取説.txtにサンプルプログラムがありそれはファンクションプロシージャがつかってあり、
SUBプロシージャしか使えない初心者のオレには難しい話だが試行錯誤ちう。
0738666 ◆ExGQrDul2E
NGNGどうやって実際にVBのピクチャーボックスでpngを表示させるプログラムに改造したらいいのかわからず断念。
結局ピクチャーボックスがpngを読み込んでくれるVB.NETを買うときまでpngファイルの扱いはあきらめる。
0739＋激しく初心者＋
NGNG作ったんですが、
（いや、迷惑メールとは無関係です。会員登録アドレスへの一斉送信に使います）
しばしばエラーメールが返ってきます。
もちろん、相手の方は拒否設定はしておられません。
届くこともあれば届かないこともあるといったような状況です。
相手がＰＣなら何のトラブルもないのですが、携帯だととたんに確実性が落ちます。
よい解決策をご存知の方はいらっしゃいませんでしょうか？
0740デフォルトの名無しさん
NGNGVectorのヤツは取説がバグっとる…。
http://www.akikuma.cx/lzh/transg32.lzh
こっちの修正済み取説.txtを使え。
んで、取説末尾のプロシージャを適当な標準モジュールにコピペ。
更に、そのプロシージャの上の行に、
Public Declare Function DCReadPNG Lib "TransG32.DLL" (ByVal pngf As String, ByVal TargetDC As Long) As Integer
をコピペ。
んで、
Picture1.AutoRedraw = True
ReadPNGFile Picture1, "C:\hoge\hoe.png"
ってやるとあらびっくり。
AutoRedrawがFalseだと表示しないので注意だ。
AutoRedrawは上記のような実行時に設定する方法ではなく、
デザイン時にプロパティーで設定しておくのが普通。
つーわけでがんがれ。
0741デフォルトの名無しさん
NGNG0742デフォルトの名無しさん
NGNGいいかげん言い飽きたこのフレーズ。
そ の エ ラ ー メ ー ル の 内 容 を 書 け
携帯は迷惑メール対策の関係上、同一サーバからの同時多発送信を
弾くという対策を取っているケースが多いのも関係しているかもな。
0743＋激しく初心者＋
NGNG自分の携帯でテストしてみても、届いたり届かなかったりなんですよね。
0744＋激しく初心者＋
NGNGキャリアによって異なりますが、概ね User Unknown なんですよね。
0745デフォルトの名無しさん
NGNG0746デフォルトの名無しさん
NGNGなんか、スレ違いな領域の問題じゃないの？
VBとして解決できることは無いと思うが。
通信関係の板で聞いた方が解決すると思う。
同報発信の量が多すぎるとか、送信者のホスト名が引けなかったとか、
そういうようなVBと関係ない領域の不具合だと思うよ。
0748デフォルトの名無しさん
NGNGおまえ、ちょっといいかげんにしろ。
いちいち「実験開始」だのなんだのって余計なことでレスしなくていいよ。
>>733-738まで細切れで一人で消費してまだ足りないのか？
そんなに独り言が言いたきゃこっち逝け。
夢・独り言
http://life.2ch.net/yume/
0749デフォルトの名無しさん
NGNG0750デフォルトの名無しさん
NGNGそれも分かるが、試してから結果も含めて書けばいいだけの話じゃん。
時間かかるなら、ひとまず「ありがとうございました、試してみます」と言うのも分かるが、
>>740の内容なんてものの数分かせいぜい数十分あれば試せる話でしょ。
「実験開始」なんていちいち宣言するのはまったくの無駄。
その発言だけならともかく、>>733-738がひどすぎるので、ちょっとね。
まあ、こんなこと書くのもレスの無駄使いなのでこの辺にしておく。
666もこのレスに反応しなくていいから。
0751666 ◆ExGQrDul2E
NGNGいろいろとあれこれ実際にやってみた。
でけた！
神様に感謝。ﾅﾑﾅﾑ(-人-)
-----------
666 ：デフォルトの名無しさん ：03/02/21 22:30
>>662
ピクチャボックスにpngファイルを読み込む方法を教えてくれたら教えてあげる。
----------------------------
662が教えてくれたわけじゃないけど
>>662
に約束の情報を。
ttp://www.galliver.co.jp/writing/susume_vb/tre902/
ttp://www.galliver.co.jp/writing/msdn/msdn13/
0752デフォルトの名無しさん
NGNGは報告不足で会社でトラブルをおこさなければいいが・・・
0753デフォルトの名無しさん
NGNG0754デフォルトの名無しさん
NGNG反映されません。
Private Sub ActiveReport_ReportStart()
Me.PageSettings.PaperSize = vbPRPSUser
Me.PageSettings.PaperWidth = 12 * 1440
Me.PageSettings.PaperHeight = 17 * 1440
End Sub
プリンタのデバイス名をnullにすればプレビューではサイズが
反映されるのですが…これはプリンタが対応していないってことなんでしょうか。
一応、プリンタはユーザー定義サイズに対応していて、専用のホッパも
あるのですが…。
どなたか原因をご存知の方、教えてください。よろしくお願いします。
0755デフォルトの名無しさん
NGNGBinaryのFile（c:\NULL.lif)の中のデータに、NULLを含めようとテストプログラムを作ったのですが、うまくいきません。
Open "c:\NULL.lif" for Binary as #1
for i = 0 to 9 step 1
put #1 , , NULL
next i
close #1
この LINK.lif をBinaryEditerで確認すると、NULLの箇所が、
『 01 00 』とされています。
NULLなので、『 00 00 』とずっと思っていたので、
今まで私が間違っていたのか、それともこのプログラムがいけないのか、
そんなところで詰まってしまいました。
皆さん教えてください。お願いします。
0756初心者１号
NGNGユーザーにRichTextBoxに文章を入力させ,保存させたのですが。
当然のようにテキストを取得するとRTF形式に･･･
うまいことテキストだけ保存はできないのでしょうか・・・
0757デフォルトの名無しさん
NGNG0758デフォルトの名無しさん
NGNGSaveFileで rtfTextを指定すればいいのでは？
0759デフォルトの名無しさん
NGNGVBでNULLは不定値。
もともとNULLの概念は処理系に依存。
0760初心者１号
NGNGヒントでしょうか･･調べてみます。
取っ掛かりすらないので非常に助かります。
>758
当初そうしようと思ってRichTextBoxにしたんですが・・・
少し事情が変わりまして。
シーケンシャルファイルの1レコードとして保存しなければならなくなってしまって。
0761たすけてママン
NGNG先日wm9プレイヤーをインストールしたあと、プログラムを修正していたら、
デバッグ実行時に、PG中のメディアプレイヤーコントローラーの外観がwm9のものになってしまいました。
デバッグ中は問題なかったんですが、コンパイルしたexeを実行すると
「msdxm.ocxからコントロール'MediaPlayer'をロードできませんでした。msdxm.ocxのバージョンが最新のものではありません。以下略」
といわれ、起動できなくなってしまいました。
コンポーネントを見てみると、msdxm.ocxなるものがあり、選択してみるとwm9のアイコンがツールボックスに表示されます。
嗚呼、まさかwm9プレイヤーを入れただけでこんなことになるとは。たすけてママン
0762たすけてママン
NGNGmsdxm.ocxのリンクを張ってみると、ツールボックスには真っ白なアイコンが・・・・。（なくなってる！？
ためしにmsdxm.ocxにリンクを張って、オブジェクト名を以前のバージョンのコントロールの名前を同じにして実行してみたら、
サポートしていないメソッドが・・・・・。（これってソース書き直しじゃん！？
wm9アンインストールしたら元に戻るとおもいますか？
0763デフォルトの名無しさん
NGNGVBだけでPNG画像を扱うモジュールを作ったことがある。
もちろんZIP圧縮/解凍もVBだけでやった。
・・・が、笑える程遅くて使い物にならなかったよ・・・
PNGの全部の形式に対応してた訳ではなかったが、
PNGのRFCよりZIP関連のRFCと格闘してる方が長かったな。
DQNなんで英語は苦手なんよ。
JPEGをVBでやった「つわもの」(バカともいう)もどっかにいたな・・
0764デフォルトの名無しさん
NGNGVBは遅くないって結論出たわけだし、あんたもコード出せないわけだし、信用度低いな。
> JPEGをVBでやった「つわもの」(バカともいう)もどっかにいたな・・
お前はもっとバカだな（ｗ
0765デフォルトの名無しさん
NGNGttp://www.interq.or.jp/earth/kokoro/japanese/vb_sample_latest.html
VBのみでZIP扱えたらそれはそれでｶｺｲｲな
0766デフォルトの名無しさん
NGNGできそうなら手法を教えてください。
0767ひきプロ
NGNGWSH
http://www.geocities.co.jp/SiliconValley-SanJose/9236/subdoc2/0209.htm
RUNDLL
http://www.geocities.co.jp/SiliconValley-SanJose/9236/subdoc2/0208.htm
0768ひきプロ
NGNGSelTextなどを使って、保存したい部分のテキストだけを
文字列変数に入れて、それをファイルに保存してはどうでしょうか。
一部分だけをうまく選択するのが難しいかも
0770デフォルトの名無しさん
NGNGdeflate圧縮はビットシフトとか多用しそうな気がする。
だとしたら、VBは速度的にかなり辛いんじゃないかなぁ…。
漏れは作ったこと無いからわかんないけど。
deflateの前に１回差分取るみたいな感じの圧縮もあったよーな気がする。
一度挑戦してみたいけど、漏れのスキルじゃzlib弄るのがせいぜい…。勉強しよ。
>>760
単にNULL値として 0x00を出力したいなら、素直に CByte(0) でも出力するのが
いいんじゃないかな。 0x00 0x00 なら CInt(0)。
vbの“Null値”はCの“Null文字”とは別物なので注意だ。“vbNullChar"も
“vbNullString"もまたちょっと違うのだ。
RichTextBoxからプレーンテキストを得たいだけなら、
RichTextBox.Text とか、
RichTextBox.SelText とか。
…意味が違う？
0771763
NGNG>お前はもっとバカだな（ｗ
バカ系プログラマには最高の褒め言葉だ。ありがとうｗ
PNGやったときは300MHzぐらいのときでVB4だったんよ。
今なら少しは使えるかもしれんけど、ビット演算が多いからね・・・
あとVBが遅いとはおいらも思ってないな。
2^1398269-1(メルセンヌ素数)を出力するプログラムは
Pen3-400MHz／VB4で6時間かかったが、
Pen3-933GHz／VB6で25分だった。
ちなみに同じマシンでVC++では16分。Linux/gccでは17分。
VC++/gccはコンソールだし最適化とか考えてないロジックでだから、
バカみたいに遅いわけじゃないんでない？
VB4まではバカみたいに遅かったと思うけど。
0772デフォルトの名無しさん
NGNG＞Pen3-933GHz／VB6で25分だった。
CPUの速度にプログラムの速度が全然ついて行ってないが。特に下。
0773デフォルトの名無しさん
NGNG？？
単に、VB4でP-Codeの場合死ぬほど遅い、
VB6で最適化コンパイルかけるとCと比較して遜色ない(と言えないこともない)、
という結果が出てるだけのよーに見えるけど？
何が言いたいかサッパリわからん…。
そういや、みんなは最適化コンパイルかけるとき、PentiumのFDIVバグチェック
外してる？ 今どきPentium60/66があるとも思えないので必ず外してるんだけど、
かなり速度やサイズに影響するよ…。
0774デフォルトの名無しさん
NGNG普段から単位書かないから肝心なときに単位を間違えて恥をかく。
0775デフォルトの名無しさん
NGNGなんだ、Typoか。吊ってくる。
0776デフォルトの名無しさん
NGNGDLL側から値がどんどん送られてくる場合ＶＢ側ではどのような処理でその値を
取り出したらいいか分かりません。
具体的にはDLLのタイマーイベントで何秒かごとに値がVBに送られてくるとして、
VBではその値を送られてきた順に処理するという感じです。
VB側でタイマーをコントロールするのではなく、送られてきた値をキューに入れて
どうにかするという方法は無いでしょうか？よろしくお願いします。
0777ひきプロ
NGNG0778初心者1号
NGNGみなさんありがとうございます。
0779デフォルトの名無しさん
NGNGログ読んでも俺レベルよりはるかに上ばっかりで下は絶対いなさそうなのでサッパリわかりませんでした。
今安いぺらぺらの本買ってきて読みながら勉強してるんですけど、最初の方でつまづいてしまって・・
しかも答えとか載ってないから全然わかりません、いろいろと試行錯誤してるんですが・・
もし答えていただける方がいるなら質問させていただきます。
0781779
NGNG0782デフォルトの名無しさん
NGNGやったぁ、ありがとう。
テキストの文そのままうつします。
問題・ボーリングのスコアを２回分入力すると平均とランクを表示するプログラムをつくりなさい。
○処理条件○
・コマンドボタンを「開始」をクリックするとデータ入力用のダイアログボックスを表示し、１回目のスコアを表示する。
300を超えるデータを入力したら、メッセージ表示用のダイアログボックスを表示し、データエラーを警告し、プロシージャから抜け出す
ただし、999の場合はプログラムを終了する。
・１回目のスコアを正しく入力したら、２回目のスコアを１回目と同様の条件で入力する。
・２回目のスコアを正しく入力したら、平均とランクの判定を行って、その結果をラベルに表示する。
・ランクの判定基準は、スコアが２回とも250以上の場合は「超Ａ級」、平均が２００以上の場合は「Ａ級」
１００以上の場合は「Ｂ級」、１００未満の場合は「Ｃ級」とする。
です。
それから、ラベルは４つでコマンドボタン１つです。
しょーもない問題かもしれませんが、本当に困ってるのでよろしくお願いします。
わかりにくかったら言ってください
0783ひきプロ
NGNGShell "C:\Program Files\Internet Explorer\IEXPLORE.EXE http://playboy.com/"
>>782
宿題なら自分でやりましょう
0784779・782
NGNG0785779
NGNG休みの間になんか覚えたいと思ってはじめたんです。
だめですか？
0786ひきプロ
NGNGやってみてつまづいたら聞くようにした方がよいと思います
（いきなりつまづくのはなしで）
0787デフォルトの名無しさん
NGNGではどーしてもわからないのを聞きます。
判定の出し方とかはわかったんですけど、２回値を入力するとこがうまくいかないんです。
ダイアログボックスは２回でるんですけど、２回入力してもなんにも表示されないんです。
そもそも１回目に入力した値がどこに記録されてるのかもわからないんです。
0788デフォルトの名無しさん
NGNGVBでプログラム作って、揉んでもらえるところに池。
0789デフォルトの名無しさん
NGNG0790ひきプロ
NGNG出していますか？
それから、ダイアログボックスで入力した値は変数に保存する
必要があります。変数の概念が分からなければマニュアルを
読んでみてください
0791デフォルトの名無しさん
NGNG0792デフォルトの名無しさん
NGNGです。
0794デフォルトの名無しさん
NGNG0795ひきプロ
NGNG２回目は別の場所にいれないとまずいです
0796デフォルトの名無しさん
NGNGじゃあSUKOA2とかにしたらいいんですか？
0797デフォルトの名無しさん
NGNGsukoa1=inputbox("1回目")
sukoa2=inputbox("2回目")
label1=sukoa1
label2=sukoa2
heikin=Int((sukoa1+sukoa2) / 2)
label3=heikin
if sukoa1>=250 and sukoa2>=250 then
label4="超A級"
elseif heikin>=200 then
label4="A級"
elseif heikin>=100 then
label4="B級"
else
label4="C級"
end if
0799デフォルトの名無しさん
NGNGintってなんですか？
それからdimですけど、そんな風にまとめてよかったんですね。
俺は１つ１つ分けて書いてました。
797さんわざわざありがとう。
でも自分なりのを書いてみます。
0800781
NGNGvoid main(){
int ちんこ通常;
int ちんこトランス;
int ちんこ平均;
printf("通常時の大きさをいれてください[mm]\n");
scanf("%d",&ちんこ通常);
if(ちんこ通常=999){
printf("終了します\n");
return 0;
}
if(ちんこ通常>300){
printf("化け物かよ！\n");
return 0;
｝
printf("大きくなっちゃった時の大きさをいれてください[mm]\n");
scanf("%d",&ちんこトランス);
if(ちんこ通常=999){
printf("ちんこ測定終了\n");
return 0;
}
0801デフォルトの名無しさん
NGNGif(ちんこトランス>300){
printf("それでもでかすぎ！\n");
return 0;
｝
if(ちんこ通常>=250){
if(ちんこトランス>=250)printf("超ボブさっ布級");
return 0;
}
ちんこ平均=(ちんこ通常+ちんこトランス)/2
if(ちんこ平均>=200)printf("外国ＡＶ男優級\n");
elseprintf("ちちぇえ\n");
return 0;
}
0802デフォルトの名無しさん
NGNG0803デフォルトの名無しさん
NGNGでも７９７さんみたいに綺麗にまとまらなくてバカ長くなってしまいました。
こんな感じです↓
Option Explicit
Private Sub Command1_Click()
Dim SUKOA1 As Integer
Dim SUKOA2 As Integer
Dim HEIKIN As Integer
Dim ERA As Integer
SUKOA1 = InputBox("スコアを入力してください", "１回目", 0)
Select Case SUKOA1
Case 999
End
Case 0 To 300
Case Else
ERA = MsgBox("エラー", vbOKOnly, "エラー")
Exit Sub
End Select
0804デフォルトの名無しさん
NGNGSelect Case SUKOA2
Case 999
End
Case 0 To 300
Case Else
ERA = MsgBox("エラー", vbOKOnly, "エラー")
Exit Sub
End Select
HEIKIN = Val((SUKOA1) + Val(SUKOA2)) / 2
Label3.Caption = HEIKIN
If SUKOA1 >= 250 And SUKOA2 >= 250 Then
Label4.Caption = "超Ａ級"
End If
Select Case HEIKIN
Case Is >= 200
Label4.Caption = "Ａ級"
Case Is >= 100
Label4.Caption = "Ｂ級"
Case Else
Label4.Caption = "Ｃ級"
End Select
End Sub
ひきプロさんアドバイスありがとうございました。
0805デフォルトの名無しさん
NGNGSUKOA2 = InputBox("スコアを入力してください", "２回目", 0)
Select Case SUKOA2
Case 999
End
Case 0 To 300
Case Else
ERA = MsgBox("エラー", vbOKOnly, "エラー")
Exit Sub
End Select
HEIKIN = Val((SUKOA1) + Val(SUKOA2)) / 2
Label3.Caption = HEIKIN
If SUKOA1 >= 250 And SUKOA2 >= 250 Then
Label4.Caption = "超Ａ級"
ElseIf HEIKIN >= 200 Then
Label4.Caption = "Ａ級"
ElseIf HEIKIN >= 100 Then
Label4.Caption = "Ｂ級"
Else
Label4.Caption = "Ｃ級"
End If
End Sub
0806たすけてママン
NGNGありがとう。いろいろやってみました。ではその一部始終をご覧いただこう。
他のWM9インストール前のPCから取ってきてコピーしてみたがだめでした。
そもそも同じバージョンのファイルでした。あとサービスパックから古いバージョンのファイルを入れてみたがだめ。
どうだめかというと、一度リンクをはずしてあったので、ファイルをコピーしてもコンポーネントの一覧には表示されない。
おそらくレジストリをいじられてるとおもわれる。レジストリをどういじれば出てくるのかわからないっす。
方法としては事前にディストリビューションウィザードで作ってあったセットアップを実行すれば、このocxが登録される可能性大
とおもって、セットアップを実行。さっきコンパイルしてたexeを実行するが同じエラー。そこで再度IDEを開き、コンポーネントを見てみると、
予想通り、ocxが使える状態に。リンクを張ると、ツールボックスのアイコンもちゃんと表示される。その状態で再度コンパイル＆実行。
うまくいきました。
結論
wm9player入れただけで、VBのコンポーネントから旧バージョンのocxへのリンクを消された。これはマイクロソフトが意図的にやったのか
だとしたら何のためか。意図的じゃないなら修正してほしい。
0807デフォルトの名無しさん
NGNG＞wm9player入れただけ
って・・・ (´д｀;)
開発環境に、ましてやWMPコンポーネントを使ったアプリを作ってるところに
バックアップも取らずにホイホイ新しいものを入れちゃう君の姿勢が
一番問題だと思うんだが。
0808デフォルトの名無しさん
NGNGどうしたらいいでしょうか？
Printer.PaperSizeだと現在の用紙サイズだけですよね。
0809デフォルトの名無しさん
NGNGAPI使え。
DeviceCapabilitiesとか。
0810デフォルトの名無しさん
NGNG対して文字を出力するにはどうすればいいんでしょうか？
VBから新規にコマンドプロンプト立ち上げて出力は出来るんだけど・・・
0811デフォルトの名無しさん
NGNG標準出力へ出力するってこと？
API使っためんどくさいやり方しか漏れは知らない…。
0813たすけてママン
NGNGそういうものですか。以後気をつけます。
0814810
NGNGそうです。でも、カレントのコマンドプロンプトへの標準出力がどうしても出来ないんですよ。
↓とか参考にして作ってますけど、プロンプトが立ち上がるだけで何も出ない…
ttp://support.microsoft.com/default.aspx?scid=kb;ja;171654
0815デフォルトの名無しさん
NGNG「どうしてもVBじゃなきゃ嫌」 と言うわけでもなければ
さっさと別の環境を使った方が早い。
0816な
NGNGEXEファイルを作成した後
editbin /subsystem:console exeファイルのパス
を実行してコンソールアプリにする必要があります。
editbinはVisualC++に付属しています。
それと、
> ttp://support.microsoft.com/default.aspx?scid=kb;ja;171654
に出ている例では WriteConsole で出力してますけど、これだとリダイレクトが使えなくなるので、
WriteFile で出力したほうがいいと思います。
0817デフォルトの名無しさん
NGNG'Oracle 接続用ｵﾌﾞｼﾞｪｸﾄ作成
Set gOraSession = CreateObject("OracleInProcServer.XOraSession")
'ﾃﾞｰﾀﾍﾞｰｽOPEN
Set gOraDB = gOraSession.DbOpenDatabase("GA", "GA/GA", 0)
この、セッション接続が６〜１０秒ほどかかります
この速度を早くする方法はありますか？
環境はWin2000(sp1)+VB6.0(sp5)+oo4o+Ora8iです。
それともこれってこういうもの？
0818810
NGNGでも、editbinってVB6オンリーの開発環境だと入らないのでしょうか？
私は幸いにもVisualStudioだったので使えましたが…
0819デフォルトの名無しさん
NGNGそういうものだと思われ
0821な
NGNGlink.exeを置き換えて、リンクオプションで subsystem を指定する方法が
過去ログにあったと思います。
この方法なら editbin がない環境でも対応できるでしょう
0822デフォルトの名無しさん
NGNGプロジェクト プロバティの実行形式ファイルの作成タブの
アプリケーション タイトルに
CONSOLE:hogehoge
としたらできなかったかなあ
(ちょっと自信ナシなので、バックアップをお忘れなく)
0823デフォルトの名無しさん
NGNGあ、間違った。822は無視してくだされ
0825デフォルトの名無しさん
NGNGOracle知らんのだが、名前解決に時間がかかってるって可能性は？
0826デフォルトの名無しさん
NGNGで、OLEDropModeを1にして、OLEDragDropイベントが発生した時に
RichTextBox.SelText = Data.GetData(vbCFText)
ってやったんですが、これだとOLEオブジェクトは弾けるものの、
テキストをドロップするときの動作がOLEDropModeが2のときと変わっちゃうんですね。
(ドラッグ中に挿入位置が変えられなくなる)
仕方がないんでこの方法は諦めてGoogleで検索しまくってみたら、
SendMessageとEM_GETOLEINTERFACEでこちょこちょやると行けるらしいと発見。
しかし、それ以上探しても何も出てきませんですた。。
ということで、おまいら助けてください。よろしく。
#錯乱中なので文がおかしいかも知らんが許して。。
0827デフォルトの名無しさん
NGNGそれはローカルに置いてるのかい？間にルーターとか挟まってない？
0828デフォルトの名無しさん
NGNG別の意味の論理演算子に取られてしまうよう
全部拾いVBで選別する以外でよい方法ある？
0829817
NGNGすいません、名前解決ってよくわからないです
ちっともOracleのチューニングとかしてないので
これを設定すると早くセクションがはれるのですか？
>>827
ルータやら専用線やらはさまっていまつ
でも、SQLPLUSは早く繋がるので（といっても３〜５秒はかかる）
回線は大丈夫かなーとおもいまつ
つーか、ググってみてもセクションの部分の速度に関しては
言及してるところが見つからなかったので
そんなものなのかなとチト諦め気味です。
（他人のサンプルとか見ても接続中ってメッセージ出して
時間をかせいでいるかんじだし）
0830デフォルトの名無しさん
NGNG近くの電巧堂に売っていますか？
0831デフォルトの名無しさん
NGNGVB6単体はすでに販売終了だったよーな気がする…。
まぁ、流通在庫が山とあるだろうけど。
ビジネスソフトのパッケージとかを沢山置いてある店ならあると思うよ。
書店で売ってることもあるな。文教堂に売ってたの見たことある…。
0832デフォルトの名無しさん
NGNG厨房扱いされると思いましたが、
すばやい回答ありがとうございます。
うちは超田舎なので、あちこち探しても無いんですよ。。
0833デフォルトの名無しさん
NGNGありがとう！早速試してみます＾＾
>>759
処理系に依存、システムによってNULLの値が変わるということでしょうか？
検証してみます。ありがとうございました＾＾
0834デフォルトの名無しさん
NGNGいっぺんローカルで試してみろ。問題の切り分けはそれからだ。
0835デフォルトの名無しさん
NGNG高いけどMicrosoft Visual Studio .NET Professional Version 2002 MSDN Deluxe Editionを買えば
http://www.microsoft.com/japan/msdn/vstudio/campaign/default.asp
いろいろ揃えられる。いまキャンペーン中みたいだし。
0836デフォルトの名無しさん
NGNG0837デフォルトの名無しさん
NGNGtnspingとかは？ためした？
0838デフォルトの名無しさん
NGNGMSDNライブラリ関連づけつつインストール出来ないんじゃなかったっけ。
0839デフォルトの名無しさん
NGNGa=10/3
のような場合にaは何型で宣言すればいいのでしょうか？
0840デフォルトの名無しさん
NGNGDoubleでも好きなものを。
0841デフォルトの名無しさん
NGNGDoubleなどを使う場合浮動小数点についても勉強しておきましょう。
0843デフォルトの名無しさん
NGNG0844デフォルトの名無しさん
NGNG0845デフォルトの名無しさん
NGNGとりあえずスレ違い。
ｺｯﾁへﾄﾞｿﾞｰ http://pc2.2ch.net/test/read.cgi/tech/1043629429/l50
ﾄﾞﾄﾈﾄｰはﾜｶﾗﾝ…。
0846VBしらん
NGNG0847デフォルトの名無しさん
NGNGわかりました。ありがとうございます。
0848デフォルトの名無しさん
NGNG> intってなんですか？
これは一番やってはいけない聞き方だ。
まずはヘルプを見る癖をつけろ。
その上でヘルプのどこがわからないかを聞く。
0849デフォルトの名無しさん
NGNGとりあえずＨＰ作ろうと思ってるんですがＶＢでホームページって作れるんでしょうか？
やり方とか書いた本とか知りませんか？
0850デフォルトの名無しさん
NGNG釣りは他でやって下さい。
0851デフォルトの名無しさん
NGNG最近VBを始めたのですがちょっと分からない事が出てきました。
例えばデスクトップ画面などでファイルを複数選択して、削除
する場合複数同時に削除できますよね。
これをコードで書く場合にはどういう風に書けばいいのでしょうか。
点線で囲んだ範囲のコントロールを複数同時に削除したいのですが
ちょっと分かりません^^;
どうかお助けお願いします。
0852デフォルトの名無しさん
NGNG何がしたいのか良くわかりません
0854デフォルトの名無しさん
NGNGActiveXならできるよ
0855デフォルトの名無しさん
NGNG0856デフォルトの名無しさん
NGNGこれから買うならVB.NETにしろよ
0857デフォルトの名無しさん
NGNGデザイン時の話？
0858デフォルトの名無しさん
NGNGフォルダ内の選択中の複数ファイルを順に取得するにはどうしたら良いのか、
ってことじゃない？
俺取得方法がわからんけど、ループはFor Eachかなぁ。
0859デフォルトの名無しさん
NGNGまったく聞かないんだけど。
0860デフォルトの名無しさん
NGNG違うと思う。
ふつうはSHIFTやCTRLキーで複数選択するけど、
マウスのラバーバンドで範囲指定して、その領域内に含まれる
ファイル(アイコン状態)をすべて選択したことにする方法。
これってListViewコントロールで出来たっけ？
あんまり使ったことないんだよな。
0861デフォルトの名無しさん
NGNGVB.NETスレ見たら？
ネット関係とか、ネットデータベースが楽になったみたい。
でも、それ以外はよくなってないみたいだし、遅そうだし。
0862デフォルトの名無しさん
NGNGVB4に慣れてるならVB6を探して買う事をおすすめする。
私はVB4、5、6とつかってきて、.NETのあまりの変貌さに驚いた。
はっきり言ってアレはVBじゃない。
それと、スタンダードはアップデートは無かったと思うぞ。
プロ版以上しかなかったと思われ・・・。
0863デフォルトの名無しさん
NGNGVB.NETはアプリの起動は遅いが処理速度は上がったと思うよ
0864デフォルトの名無しさん
NGNGそれなりに苦労はあるが、取っつきやすいが色々と制限のきついVB6よりは
ﾄﾞﾄﾈﾄｰの方が少々知らないといけないことが多いが遙かに柔軟性があって
いろんなことが簡単に出来てしまうからお奨めだね。
特にVB6の中途半端なオブジェクト指向もどきは糞だね。
0865デフォルトの名無しさん
NGNG0866デフォルトの名無しさん
NGNG「VB4の32ビット版を買うやつはアフォ
Windows 3.1じゃ動かないからダメ 」
って感じですか？
0867デフォルトの名無しさん
NGNGaaa = Right$("00" & Hex(IN), 2)
このaaaをまた10進数の値として取り出すことは可能ですか？
0868デフォルトの名無しさん
NGNG頭に"&H"つけてVALで変換
0869デフォルトの名無しさん
NGNGヘルプで「16 進表記」を検索
0870867
NGNG0871デフォルトの名無しさん
NGNGODBCでmicrosoft Text Driverを使っています。
読み込みはできました。今度はその読み込めたCSVのデータを書き換えるために以下のようにしました。
adodc1.recordset.fields(1) = 1
adodc1.updateの行でmicrosoft text driverが以下のエラーを出しました。
このISAMではリンクテーブル内のデータを更新することができません。
このドライバーは読み込み専用なのでしょうか？
0872デフォルトの名無しさん
NGNG訂正です。
adodc1.udpate × -＞ adodc1.recordset.update ○
0873861
NGNGそう？
どっかにVB6とVB.NETのベンチマークない？
VS.NETが800MHz以上推奨だったので、見送ってたんだけど、
VB.NETのパッケージ見たら、それほどではなかったのね。
買ってみようかな。
0874デフォルトの名無しさん
NGNGなにかいいアイコンエディターはありますでしょうか？
0875デフォルトの名無しさん
NGNGお手軽にやるならフリーソフトでいくらでも転がってるけど・・・
ちなみに俺はSaluteとかいうやつ。
ttp://www2.justnet.ne.jp/~south/salute/
本格的にやるならPhotoshopとかで32x32のbmpを書いて
bmp→ico のコンバータにかける。
0877デフォルトの名無しさん
NGNG>このドライバーは読み込み専用なのでしょうか？
残念ながらそうです。ひょっとしてINSERT文だけ使えたかもしれませんが、どっ
ちにしろほとんど実用的ではないです。Recordset.GetRowsをうまく使ってファ
イルを作り直すか、
Recordset.Save "hogehoge.xml" , adPersistXML
でXML形式で保存するとか。
0878デフォルトの名無しさん
NGNGADOでCSVを扱う情報が少なくて大変でした。
やっぱり書き込みは無理でしたか。
仮にINSERTだけが使えてもDELETEが使えないときついですね。
更新があるたびに新規にテーブルを作るという荒業も考えられますが・・・。
実用的じゃないですね＾＾；
>Recordset.GetRowsをうまく使ってファイルを作り直す
いま作ってるアプリがたいしたものじゃないので、こういう感じでつくってもいいのですが、
それ以外のアプリでも使えるようにするため、
一般にADOをつかってCSVをデータベースとして直接扱える方法があるかいろいろ調べてました。
XMLはぜんぜん視野に入れてませんでした。
XMLも視野に入れていろいろ検討してみます。ありがとうございました。
0879デフォルトの名無しさん
NGNG英語のサイトですけど膨大なサンプルコードが転がってますよ。
ここで検索するといいよ。もう知ってるかな？
http://www.planet-source-code.com/vb/scripts/BrowseCategoryOrSearchResults.asp?txtCriteria=&blnWorldDropDownUsed=TRUE&txtMaxNumberOfEntriesPerPage=10&blnResetAllVariables=TRUE&lngWId=1&B1=Quick+Search&optSort=Alphabetical
0880デフォルトの名無しさん
NGNGﾔﾒﾃｰ｡･ﾟ･（ﾉД`）･ﾟ･｡
0881878
NGNGいやまだ見てません。
検索してみます。
教えていただいてありがとうございました。
0882817
NGNGやってみたよ・・・
やっぱりセッション接続に６〜１０秒ほどかかる・・・
sqlplusでもSqlplus.exe GA/GA@GAって起動すると
やっぱり６秒くらいはかかるぅ・・・
（２回目の接続はどちらも２、３秒でいけるのに）
つか、もう原因はOracleっぽい感じなので
スレ違いだな
つか、VB+Oracleな事してる人って
この辺はあんまり気にならないのかなぁ
0883878
NGNGCSVで検索してみました。
CSV形式へのコンバートといった使い方が目的のソースと、
レコードセットをCSVで書き出すやつ（書き出すレコードが指定できないので実質はコンバート目的）しかありませんでした。
あと何か会員にならないと手に入らないソースがあるみたいですが・・・・。
面白そうなのがCSVをADOのような感覚で使えるCSVDBSなるクラスを発見しましたが、SQL使えない。
ADOコントロールと違ってフレックスグリッドコントロールと連携できないので今作ってるアプリに組み込むには多少面倒ですが、
やっぱりADOから直接CSV扱うのはいろいろ制限あって実質使えないかな・・。
0884デフォルトの名無しさん
NGNG普通はそこまで遅くないよ。
0885デフォルトの名無しさん
NGNGDim frmD As frmDocument
Dim font
Set frmD = New frmDocument
font = frmD.rtfText.font
lblFontName = font
でオプションダイアログだしたらなんか新しい子フォームが出た。
どうしてでしょうか？
教えて君で非常にｽﾏｿ
0886デフォルトの名無しさん
NGNGよくわからんが
Dim font
font = frmDocument.rtfText.font
lblFontName = font
でいいとおもうが
0887デフォルトの名無しさん
NGNGFormってのは、Classと似たようなもんです（というと突っ込まれそうだが
Set frmD = New frmDocument
を繰り返すたびに、フォームのインスタンスが出来ます。ただし、
Set frmD = Nothing
としてもそのフォームが消える(Unloadされる)わけではない。
0888885
NGNG返信どうもです。
が、>>886のコードでやると
実行時ｴﾗｰ '91' :
ｵﾌﾞｼﾞｪｸﾄ変数または With ﾌﾞﾛｯｸ変数が設定されていません。
と出るんですよねー。
改めて自分がﾍﾀﾚだって知りました。
0889デフォルトの名無しさん
NGNG何がしたいんか？
ラベルにフォントを設定したいんか？
フォント名を表示させたいんか？
0891そうだ選挙にいこう
NGNG885のコードで、スタートアップモジュールを
frmDocument(.frm)からmain(.bas)へ変更する。
もちろんmain.basは新規に作成し、frmDocument.frm中にはコードを
書かない。書きたければInitialize,terminateでｺﾝｽﾄﾗｸﾀ・ﾃﾞｽﾄﾗｸﾀ
を記述する。
結構こういう組み方は海外のサイトで見かける。
0892デフォルトの名無しさん
NGNGどの行でエラーでてんの？
0893デフォルトの名無しさん
NGNGフォントはStdFontオブジェクト。
そのNameプロパティがフォント名
よって…
Dim frmD As frmDocument
Dim objFont As StdFont
Set frmD = New frmDocument
Set objFont = frmD.rtfText.font
lblFontName.Caption = objFont.Name
では駄目かな？
実際試して無いんで解らないが。
規定のプロパティを付けるところと、
暗黙Variantは止めなさい。
0895デフォルトの名無しさん
NGNGここではモジュールの層は関係ないだろ。
0896デフォルトの名無しさん
NGNG0897デフォルトの名無しさん
NGNG設計の話はまた今度。
もしくは別スレ立ててやってくれや。
言いたいことや、やりたいことは推奨するし、
層の切り分けは大事だが、
こ こ は 初 心 者 ス レ
0898デフォルトの名無しさん
NGNGだって「上級者」スレってないじゃんｗ
単なる「VB質問スレ」でいいような気がするんだが・・・
0899デフォルトの名無しさん
NGNGふーん
0900そうだ選挙にいこう
NGNG仕切っているところを見ると2ch初心者ですか？
>>885
Dim ft As New FontDialog()
ft.Font = TextBox1.Font
ft.ShowDialog()
TextBox1.Font = ft.Font
0901ネ刀必者
NGNGフォント名の表示と多層アーキテクチャはどのような関係があるのですか？
初心者の僕には関係が見出せません。
よろしくお願いします。
0902デフォルトの名無しさん
NGNG0903デフォルトの名無しさん
NGNG１を聞くと１０答える人なんじゃない。超ウザイよね。
0904デフォルトの名無しさん
NGNG（ ´,_ゝ`）ﾌﾟｯ
0905デフォルトの名無しさん
NGNGアクティブな子フォームってＭＤＩ使ってるの？
0907デフォルトの名無しさん
NGNGなんか斜め読みしかしてないんだが、すでに開いてるフォームを
新たにインスタンス作成してるのが問題なのでは？？
0908デフォルトの名無しさん
NGNGちゃんと読んでからカキコしてね
0909デフォルトの名無しさん
NGNG893どう駄目だった?
0910885
NGNGオプションダイアログ出すたびにフォームが出ます。
0911893
NGNGすまん、アクティブフォームのコントロールを拾うのね（＾−＾；
これでは新規にフォームのインスタンス作ってるから、
子フォームが増える罠。
だから、フォームのインスタンスを作ってるところ
Set frmD = New frmDocument
これを、アクティブフォームを拾うように変えればいいよ。
0912デフォルトの名無しさん
NGNG> Set frmD = New frmDocument
この行は何をしているつもりだい？
0913デフォルトの名無しさん
NGNGDim objFont As StdFont
Set objFont = frmDocument.rtfText.font
lblFontName.Caption = objFont.Name
0914デフォルトの名無しさん
NGNG0915デフォルトの名無しさん
NGNG0916885
NGNGやってみますたが、「複数の MDIﾌｫｰﾑは使用できません」
と怒られてしまいました。
ﾚｽ遅れるかも知れません。
0917893
NGNGSet frmD = [MDIフォーム名].ActiveForm
でアクティブな子ウィンドウを取得できるよ。
0918デフォルトの名無しさん
NGNG0919885
NGNG>>913
それでもダメでした。
ご教授ありがとうございます。
>>917
やっぱり、ダメでした。
ご指摘ありがとうございます。
>>918
いえ。おかしいところを口で説明するのが難しいため、
ソースを公開すると言うことです。
0920893
NGNG乗りかかった船だ。
ソース出してみ。
0921デフォルトの名無しさん
NGNG987ってなんだ？887のことか？
0922885
NGNGttp://web-box.jp/511
ご指摘お願いします。
毎回厨房でｽﾏｿ
0923デフォルトの名無しさん
NGNG今Win2000にVB6.0(訳あってSPなし)を
導入して画面を作っているのですが、
今日急にVBのヘルプが使えなくなってしまいました｡
(メニューからヘルプ選んだりF1押すと
｢"0x00730076"の命令が"0x80004005"のメモリを参照しました。
メモリが"written"になることはできませんでした｡｣
というエラーが出て強制終了する)
どなたか解決方法をご存知ないでしょうか？
ちなみにVB６やMSDNを入れなおしても解決しませんでした。
OfficeやIEなどほかのアプリのヘルプは
正常に見れるのですが…｡
0924デフォルトの名無しさん
NGNG886。それで、ちゃんとその
rtfText
rtfText.font
がoublicになってるかどうか。
0925デフォルトの名無しさん
NGNGサービスパック入れれ。
0926デフォルトの名無しさん
NGNGこれかな
http://www.microsoft.com/japan/msdn/vs_previous/vstudio/techinfo/ie5.htm
0927924
NGNGrtfTextってコントロール？
0928893
NGNGまず、MDIフォームはModule1のSub Mainでインスタンスを生成している、
fMainFormがインスタンス名。
よって、frmOptionsのロードイベントでのMDIフォームには
frmMainじゃなく、fMainFormを使う
その上にあるDim frmD〜がコメントアウトされてるから、有効にしとくように。
さらに、ActiveControlプロパティなっているが、呼び出すのはActiveFormプロパティな。
おそらく、これでフォント名は表示するはず。
で、閉じるときなのだが、cmdOKのクリックボタンを例に出すと、
frmDocumentを直接触ろうとしているが、これが間違い。
実際に触るフォームはfMainForm.ActiveFormである。
frmDocumentを触ろうとすると、新規のフォームのインスタンスを生成してしまうよ。
（クラス的に言えばフォームはGlobalMultiUse属性なので）
だから、frmDocumentの部分をfMainForm.ActiveFormに変えたら、新たにフォームを開かずに動くだろう。
書き方としてはもっと整理しなければならないが、現状動くというレベルまでで。
0929893
NGNGもう少し、オブジェクトとインスタンスは理解しないと、しんどいよ。
0930デフォルトの名無しさん
NGNGまた、Error.Numberというのもありますか？
たしか、ErrオブジェクトとErrorオブジェクト両方あったような気もするんですけど
やっぱりこれは同じもので、ただ短い文を書きたいときはErrをつかえばいいんですよね？
0931デフォルトの名無しさん
NGNG0932デフォルトの名無しさん
NGNGヘルプ見たか？
自分で試したか？
自分で調べることをしない奴にはプログラムは無理だろう
0933デフォルトの名無しさん
NGNGそう、献身さだ。
0934デフォルトの名無しさん
NGNGそう、知識に対する貪欲さだ。
0935デフォルトの名無しさん
NGNG0936デフォルトの名無しさん
NGNG自慰行為に対する貧欲さだ。
0937デフォルトの名無しさん
NGNG猿のAA張っといて〜
0938デフォルトの名無しさん
NGNG0939デフォルトの名無しさん
NGNG0940885
NGNGやっぱり、漏れは厨でした。
ご指摘してくださったみなさん、ありがとうございました。
0941938 ◆I3oM8XJnRI
NGNGオレが寝てる間に答えがあることを期待する。
0942デフォルトの名無しさん
NGNGVBにErrorオブジェクトは無い。
ErrorステートメントとError関数ならある。
Errオブジェクトもある。
なにがしかのコントロール(例としてData Report デザイナ)が
Errorという名前のオブジェクトを持つことがあるが、VBのエラー
とは関係無い。
満足したか？ 漏れはこれから寝る。
0944デフォルトの名無しさん
NGNG0945デフォルトの名無しさん
NGNG0946デフォルトの名無しさん
NGNGHTML上でハイパーリンクをクリックした時に開くブラウザをボタンで変更したいのです。
おながいします。
0947デフォルトの名無しさん
NGNGでも
Picture1.BackColor = "&HFFFFFF"
でもどちらでもピクチャボックスの背景色を変えられましたが、
正しくはどちらなんでしょうかね？
0948デフォルトの名無しさん
NGNG川川 ::::::⌒ ⌒ヽ ﾊｧﾊｧ
川川::::::::ー◎-◎-） ←
川（６|:::::::: （ 。。）） ／￣￣￣￣￣￣￣￣￣￣￣￣￣￣
.＿川川;;;::∴ ノ ３ ﾉ ＜ 漏れ？
／;;;:::::::::::::::＼＿;;;;;;;;;;;;;;;;ノ ＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿
/:::: /:::::::::::: |::::|
（:::::::: （ξ:: ・ ノ::・/:::|
＼::::: ＼::::::: （::: |
/:::＼::::: ＼::: ヽ|
/:::: ＼::::: ＼::: ヽ ）
|::: ＼:: ￣￣⊇)＿＿ 〜
|::::::: ＼;;;;;;;;;;;（＿＿（;;;・） 〜 ﾓﾜｰ
＼:::::::::: ξ（;;; ）;; ） 〜
＼:::::::::::: ） ）
）::::: ／／
/::::::::: ／／
／::::: （＿（＿
（;;;;;;;;;;;＿＿っ)))つ))
0949デフォルトの名無しさん
NGNG／ ＼
／ ＼
／ ヽ
/ 神 ヽ
| ヽ
| ,,,,;;::'''''ヽ
| ;;:::::::'''" .: ,,,,,, ヽ ／￣￣￣￣￣￣￣￣￣￣￣￣￣
ヽ... " ,,,,,,,,, .:: ;''“”` | ＜ ハッハッハ！見ろ！人がゴミのようだ！
.―. ;::''“”“~` ::::. .. |. ＼＿＿＿＿＿＿＿＿＿＿＿＿＿
..| |￣.. ::::::: |
.＼{＿ ( ,-､ ,:‐､ ) |
＼＼/.. ＼＼＼＼ |
＼＿ヽ.| ヽ.__,-'ﾆ＼＼＼＼| ;": ．．;．;"．;
`､ヽ ヾニ二.＼＼＼＼ ;": ．．;．;"．;
;"．;""．;":ヽ＼ ..＼＼＼＼;": ．．;．;"．;
;"．;":;"．" : `ｰ-::､_ ,,..'...＼＼＼＼ ;"．;":
．;"．;: ．;" `ー――''''' .＼＼＼＼ ;": ．．;．;"．;
: ゴ オ ォ ォ …… ！ ！"．;" ＼＼＼＼ ;": ．．;．;"．;":
;" ．;"．;": ＿．;．;_"．;": ＼＼＼＼ ド カ ァ ン ！
．;"．;": ．．;．;"．; ζ /＿．;＿/| ．;"．;", ＿ ＼＼＼＼ ．;"．;．;"．;":
．;"．;": ．．;．;"．;": ;:'．;| ΓΓ | |;":从へ＿/| . ＼＼＼＼"＿．;_＿．．:
从へ从へへ从 ; ζ | Γ从 | |;:.. |从Γ | | 从へ从∠＿＿_／|
（ ⌒（ ⌒ ） ζ | 从Γ | |.:;. |从Γζ．;"．． ．;． ＼ |ΓΓΓ| |p
0950デフォルトの名無しさん
NGNG,,.ｒ'' ゛~~` ''ッ,, 何見てんだよ？ ) ）
､ ゛ ,,,,,,,,,,,,,,,,,,,,, ヾ. 荒らすなよな！ ,.、 / ／
ﾐ ﾐ゛,へ.__, ,_ﾉヽ i. .| |l l ,´
ﾐ ﾐ, ( ・) {・ﾌ 〉 ﾐ. ＿-､i::| |ニニii '
、,,,,ツi: ﾐ,｀~´ ヽ~〈 .ﾐ /,‐ヽヽ`､||
､ｼ`｀ i: ,ゞ 'ｎ.inヽ. .ﾐ （ .〉〉/
ｼ ／／ ﾐ｀ l.l ヽ"、 ／ ノ
ﾐ/ ｼ 彡 ,＝こ二=.{ ﾐ,, ,ｒ'´ ,,､'゛
ﾐi. / / ' ! w､｀~^' vwｖ '､ ﾐ 〃 .ﾐ
.ﾐ / i: / ｀＾^ ＼ ." 〃 ﾐ
.ﾐ.:/ / / i: ｖ ! ,, ＼ ､ 〃 ﾐ
：i; .i: ｗ !! ミ!: ﾐ ＼＼( ⌒ヽ
:i; / i: !! .ミ ｷ , ⌒｀、_ ) ）
:iｌ .i: ! ｗ! ミ .:i. （_ ( _,ノ ） ,
:iｌ ! i: ! ,〃゛ ｷ ゞ、 __, ノ ,
.:iｌ ! ／~~｀｀``` " '''' ＝ ‐- ､ﾐ _,,,,_ﾐ, il ` ー ´
:iｌ ´ ― ￣ - ,,. -‐‐-､、 ヽ. ヾ、 ゞ､ ` 〃
ゝ､ｗｘ.mn.!!++ナ'~ ヾ~ヽ、 ヽ、 ,, ~^^}´
彡 〃 〃 }｝ /〉.〉〉〉i''" 〃
彡､ ｛{ 〃,__!////l | 〃
X,, 》. ≪.__`‐'.' '´,Uwwvw'､...,,,___
＾＾＾＾ !ｗニこ)こ)二）｀) （＿,,,..- ､...二⊃_).)
0951デフォルトの名無しさん
NGNGﾚｼﾞｽﾄﾘ
0952デフォルトの名無しさん
NGNGそのままつかんじゃって切断できません。なにかうまい方法はありますか？
0953デフォルトの名無しさん
NGNG下
>>952
Dirの使い方間違ってるかFSOで代用する
0954デフォルトの名無しさん
NGNGウソついた。上。
暗黙の型変換について調べることをオススメする。
0956デフォルトの名無しさん
NGNGすべてのフォルダ・ファイルにアクセスするにはどうしたらいいでしょうか。
色々試行錯誤してはみたのですが、どうもうまくいきません。
0957デフォルトの名無しさん
NGNG再起検索しる。
sub hoge(pathHoge)
a=Dir(pathHoge)
Do While a <> ""
aの値を配列にでも格納しる
a = Dir()
Loop
For 配列の中身
Call hoge(配列(i))
Next
End Sub
みたいな感じ。
間違っても、Dirで列挙している最中に再帰呼び出ししてはいけない。
Dir関数が腐るぞ(笑
0959デフォルトの名無しさん
NGNGSQLのスレ逝け
0961デフォルトの名無しさん
NGNG0962デフォルトの名無しさん
NGNGDeclare か LoadLibrary
0963961
NGNGDllMain(HINSTANCE hDLL, DWORD dwReason, LPVOID lpReserved)
呼び出す時にこの引数の中に何も入れたくないんですけど無理ですか？
0964デフォルトの名無しさん
NGNG1つずつ取り出すにはどうしたらよいでしょうか?
0965962
NGNGどっかでみたような質問だな
引数に何も入れたくないってことは全部値0でってことか？
DllMainがエントリポイントである限り無理だと思われ。
何でそんなことがしたいわけ？
0966デフォルトの名無しさん
NGNGDim arrayHoge() As String
arrayHoge = Split("hoge,hoe,hanyan", ",")
For i = 0 to Ubound(arrayHoge)
Debug.print arrayHoge(i)
Next
というカキコミから
www.uploader/forlder001/
だけを抜き出すにはどのような正規表現を使えばいいの？
当方InStr関数とかは使えるけど正規表現はｻﾊﾟｰﾘ。
0969デフォルトの名無しさん
NGNGというアドレスだったらどうする？
0970968 ◆HLRHHB4j46
NGNG全角文字列・/を含んだ半角文字列・全角文字列
という1行から/を含んだ半角文字列を抜き出すアルゴリズムがほしいのよ。
だから
「www.uploader/forlder001/にファイルをアップしてみた。」
というアドレスは無視。
ちなみに
upSHITEMITAYO----------KOKONI-----www.uploader/forlder001/
というようなのもupSHITE〜001/まで抜き出してしまってもかまわない。
とにかく/を含んだ半角文字列はアドレスである確立が高いのでそこを抜き出したい。
0971デフォルトの名無しさん
NGNG２バイトURLは見なかったことにする。
w+\...+\/.+[^!#-;=?-~]
ってな感じかなぁ。試してないけど。
0972968 ◆HLRHHB4j46
NGNGDim myStr as String
myStr="www.uploader/forlder001/"
myStr2="アドレスwww.uploader/forlder001/にファイルをアップしてみた。"
'だとすると、
If myStr = (w+\...+\/.+[^!#-;=?-~](myStr2)) then
form1.caption="アドレス抽出しました。"
End if
'のように正規表現は使うわけ？
正規表現の書き方は今日教えてもらった
w+\...+\/.+[^!#-;=?-~]
をコピペして使ってみるけど
正規表現の使い方がわからないのだ。
0973968 ◆HLRHHB4j46
NGNGmyStr2="アドレスwww.uploader/forlder001/にファイルをアップしてみた。"
に対してどうやって正規表現を使ったら
"www.uploader/forlder001/"
が出てくるのだろうか？
0974デフォルトの名無しさん
NGNG規定した文字列で連続するもの毎に配列に入れる処理
IN "つまりYouはこうEたい訳だ、「となりのuploader/forlder001/ってかっこEeeee」"
OUT You E uploader/forlder001/ Eeeee
「アドレスかどうか判定する処理」
文字列 like "*.*/*" 程度でいいのかどうか・・
0975968 ◆HLRHHB4j46
NGNGそんなことより速戦的な使い方のソースをクレよ。
たぶん
Set mySeiki = 正規表現オブジェクト
みたいな感じで宣言すると正規表現が使えると思うんだよね。
0976デフォルトの名無しさん
NGNG0978デフォルトの名無しさん
NGNG「set 正規表現 オブジェクト」でgoogleしたら
すぐにヒットしたけど？
0979デフォルトの名無しさん
NGNGあはははははははははははははははははははははははははははははははは。
てめーで検索しろよ、間抜け野郎！
ここで探せ：
http://www.google.co.jp/search?q=vb+regexp&ie=UTF-8&oe=UTF-8&hl=ja&btnG=Google+%E6%A4%9C%E7%B4%A2&lr=lang_ja
0982デフォルトの名無しさん
NGNG丸投げｲｸﾅｲ
0983デフォルトの名無しさん
NGNG思い出したんじゃなくて、今知ったんだろｗ
0984968 ◆HLRHHB4j46
NGNGまったく知らなかったんなら正規表現という言葉自体知らないはずだろ。まあ多少の記憶のひっかかりはあった。
無事正規表現使用の見通しもたったところで、この話題はここでピタッと終了〜。
0985デフォルトの名無しさん
NGNG0986名無しさん＠そうだ選挙にいこう
NGNGあー、やっちゃったね。
0987デフォルトの名無しさん
NGNG0988デフォルトの名無しさん
NGNGをテキストファイルに書き出したいのですが、なにかいい方法はありま
すでしょうか？
よろしくおねがいします。
0989デフォルトの名無しさん
NGNG0990デフォルトの名無しさん
NGNGそれをなんで6.0の方のスレで聞く？
0991デフォルトの名無しさん
NGNGどこにも6.0のスレとは書かれていない罠。
ところで次スレは？ないなら立てるけど。
0992デフォルトの名無しさん
NGNG6.0なのココ？
0993デフォルトの名無しさん
NGNGファイル一覧を取得し、ファイル名と更新日時を配列に突っ込む。
ユーザー定義型の配列か、二次元配列を使え。
んで、その配列をソートしる。
件数少ないならバブルソートでも充分だろ。
激しく手抜きしたいなら、Sorted = True にしたListBoxを用意して、
List1.AddItem Format(FileDateTime(ファイル名),"yyyymmddhhnnss") & ファイル名
っつー手も無いこともない。
書き出す時はForで回して、
Print #1, Mid(List1.List(i),15)
とかやる。
…ま、本気で手抜きする時以外は勧めないが。
0994990
NGNG↓次スレよろ。
0995デフォルトの名無しさん
NGNG0996デフォルトの名無しさん
NGNG0997デフォルトの名無しさん
NGNG0998デフォルトの名無しさん
NGNG0999デフォルトの名無しさん
NGNG1000デフォルトの名無しさん
NGNG1001１００１
Over 1000Threadもう書けないので、新しいスレッドを立ててくださいです。。。
レス数が1000を超えています。これ以上書き込みはできません。