(*´д`*)ウッ… VB初心者質問スレ Part15
■ このスレッドは過去ログ倉庫に格納されています
0001エロチカセブン
NGNGPart 2 http://piza.2ch.net/tech/kako/990/990793224.html
Part 3 http://piza2.2ch.net/tech/kako/1000/10005/1000523122.html
Part 4 http://pc.2ch.net/tech/kako/1006/10069/1006922992.html
Part 5 http://pc.2ch.net/tech/kako/1010/10106/1010624646.html
Part 6 http://pc.2ch.net/tech/kako/1013/10138/1013844542.html
Part 7 http://pc.2ch.net/tech/kako/1015/10158/1015836357.html
Part 8 http://pc.2ch.net/tech/kako/1018/10187/1018794901.html
Part 9 http://pc.2ch.net/tech/kako/1020/10208/1020830472.html
Part10 http://pc.2ch.net/tech/kako/1022/10221/1022127528.html
Part11 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/l50
Win32 API関連スレ
Win32API 質問箱 Build4
http://pc.2ch.net/test/read.cgi/tech/1023361418/
心得
壱．質問する前に過去ログにも目を通してみる。
弐．質問する前に MSDN などで調べてみる。
参．VBScript もこのスレでOK。
４．インストーラーなどの質問もOK。
五．下ネタもたまにならOK
0530デフォルトの名無しさん
NGNGKABUSU=((KABUSU+500)\1000)*1000
0531デフォルトの名無しさん
NGNG0532デフォルトの名無しさん
NGNGFreeで .EXE 作成ソフトってありますか？
0533デフォルトの名無しさん
NGNGほえぇ？
0534521
NGNGデータ数が多いのと統計解析があるので、どうしても計算量が多いので
遅くなるのです。うーむ、VBからCへの変換ソフトってのは無いようですね。
Cへ変換できたら、計測からそのまま解析に繋げられて楽だなと思ったのですが。。。
BASICと名がつくものはN88BASIC以来さわってなかったが、VB勉強して
処理の流れを把握してから移植するしかないかな。
0535デフォルトの名無しさん
NGNGコードの最適化と、Professional以上でネイティブコンパイル、
CPUのアップグレード
なんてところがいいんじゃない？
0536デフォルトの名無しさん
NGNGなんかしたり顔で言っているけど、処理速度向上にJAVAを上げているようじゃ
全然分かってないだろ。
0537デフォルトの名無しさん
NGNGお前は何か？PCの前でひとりでしゃべってんのか？あ？
0538デフォルトの名無しさん
NGNG0539デフォルトの名無しさん
NGNG実際にVBA使った経験で演算は困るほど遅くなかったから、
セルからデータの取得、またはその逆の個所を見直して
配列を使って範囲を一気にって言う風に変えれば見違えるほど早くなったよ。
0540521
NGNG>>536
書き方が悪かったですね。Javaを上げたのは処理速度向上のためではなく、
VBよりはJavaの方が読めるので、Javaからなら自分でCに直せるなという
ことで、あのように書きました。誤解するような文章で申し訳ないです。
>>539
なるほど。まずそちらから検討してみます。
0541D
NGNGまじで。今使ってるのがWin2Kやからできたんか。使ってなくてよかった～
そのうちやりかねんからな。でも何で今頃．．．調べてみよ。
大変ありがとー
0542デフォルトの名無しさん
NGNGこれのScriptingって、なんのことでしょう？VBScriptのことでしょうか？
古いOSだと使えないとかありますか？
0543デフォルトの名無しさん
NGNGhttp://www.microsoft.com/japan/developer/scripting/
0545デフォルトの名無しさん
NGNG0546542
NGNGとりあえずWin98以降なら標準でいけるようですね。
0547デフォルトの名無しさん
NGNGたいていST4KIT.DLLだったかを使う物ばかりです
VBではむりなんでしょうか？
0548デフォルトの名無しさん
NGNG電卓を作りたいです。
そこでウィンドウがアクティブな時に
キーダウンイベントに反応できるようにしたいのですが、
上手くいきません。
ウィンドウに送られるキーダウン全てに反応するには
どこに記述したらいいのでしょうか？
つまりウィンドウのどこにフォーカスがあっても
キーダウンをキャッチしたいわけです。
どうすればいいでしょうか？
よろしくお願いします。
0549デフォルトの名無しさん
NGNGDelphiなら.lnkの作成もパスの取得も簡単ですよ♪
>>548
DelphiならKeyPreviewプロパティをtrueにするだけだよ♪
0550デフォルトの名無しさん
NGNGIShellLinkインタフェースを実装するとか。ぐぐって。
>>548
コマンドボタン上にあるときの←キーとかは取れないが、
KeyPreview=Trueで。
0551548
NGNG助かりました、無事成功しました。
ありがとうございました。
0552デフォルトの名無しさん
NGNGhttp://www.yecc.gr.jp/vb/prog/pricla/primain.html
開発環境を持ってないので、これからVBを購入するつもりです。
現在最新のVB用開発環境はVB.NETだと思うのですが、
上記のソースがVB.NETでビルドできるか知りたいです。
お願いします。
0553デフォルトの名無しさん
NGNGなんで、作者に聞かんの ? 掲示板みたいな奴もあったよ。(あまり活発そうじゃないけど...。)
0554デフォルトの名無しさん
NGNGビルドできない。
さらに、このソースコードはVB.NET用に直すのにも手間がかかるパターン。
VB6までのVBとVB.NETは別の言語と思ってもらった方がいい。
VB.NETで一から勉強して作るがよろしかろう。
0555547
NGNGと思ってやったら
Norton先生が反応しますた。
いや、つくれたんですけどね。これじゃだみだ。
0556543
NGNG世話が焼けるなあ。
プリインストされてるWSHのバージョン
Windows95 なし
WindowsNT4.0 なし
Windows98 WSH1.0
Windows2000 WSH2.0
WindowsME WSH5.5
WindowsXP WSH5.6
98や2Kはバージョン古すぎるから、最新版をインスト。
95やNTは新規インストすればいいだけ。
0557552
NGNG>>553
そうなんです、BBSあまりにもアレだったんで、
こちらでお聞きした次第です。
>>554
流用は無理ですか。。。
VB.NETって、VBと同じことができるんでしょうか。
他にUSBカメラからの画像キャプチャもしたいんです。
実は、簡易プリクラを作ろうと思ってるんですが、
そんな用途にもVB.NETは向いてますか？
どっちかというと、VB6の方がいいような。。。
ご意見をお願いします。
0558デフォルトの名無しさん
NGNGWinXPではFormat関数が内部で利用しているAPIの仕様変更の影響で
動作が四捨五入じゃなくなった。MSはそれを仕様だと逃げようとしたが、
苦情殺到のため、SP1で元の仕様に戻した。
SP1を入れないWinXPへの対応として、そのFormat関数を四捨五入する
仕様に戻すパッチも単独で提供されている。
0559542
NGNGなるほど、全然バージョンが違いますね
オンラインソフトにはむかないかなぁ？
今のところFileSystemObjectしかつかってないけど
やっぱりWinAPI使った方がいいかな
0560デフォルトの名無しさん
NGNGWritePrivateProfileSection
などを使用することがわかったのですが、
うまくいきません。
VB6.0で書くと構文エラーで赤字で表示されます。
これはなぜでしょうか？
よろしくお願いします。
0561デフォルトの名無しさん
NGNG構文エラーだからです。それ以上でもそれ以下でもありません。
0562新実
NGNGヽ( ･∀･)ﾉ < ㌶㌍㌫㌻㍍㍗㌫㍊㍍㌘㌶㌍㌫㌻㍍㍗
http://genie.gaiax.com/home/nakatai
お前等お前等お前等お前等お前等お前等お前等お前等
0563デフォルトの名無しさん
NGNG> .iniファイルに書き込もうと思って調べたら
> WritePrivateProfileSection
> などを使用することがわかったのですが、
> うまくいきません。
何で、.ini ファイルなんか使うの ?
GetSetting() / GetAllSettings() / SageSetting() / DeleteSetting() じゃダメなん ?
0564デフォルトの名無しさん
NGNG0565デフォルトの名無しさん
NGNG0566デフォルトの名無しさん
NGNGエラーのメッセージボックスを出したいと思っています。でもどうやって
ファイルのopenに失敗したことを知ればいいのか分かりません。
どうすればいいでしょうか？
今は実行されると同時に次のようにしてファイルを読み込んでいます。
Public Sub Form_Load()
Open "C:\AtomCount\M.txt" For Input As #1
For i = 1 To Ypixel
For j = 1 To Xpixel
Input #1, A(i, j)
Next
Next
Close #1 'これと同じような動作を後2回します。
0567デフォルトの名無しさん
NGNGならしょうがないね。>>560 には declare 文を勉強してもらうしかないみたいね。
>>565
> 俺はiniを読むときはAPI使うが書くときは普通に開いて整形しながら書き込み
なんでそんなことを... ?
0568デフォルトの名無しさん
NGNGOn Error Goto ...
を使う。これを使ってファイルが存在するか調べるって方法があったっけ。
0569５６６
NGNG0570デフォルトの名無しさん
NGNGごめん、俺の勘違い。
0571デフォルトの名無しさん
NGNG入力用で開くならエラーはこんくらいか
0572デフォルトの名無しさん
NGNG0573５６６
NGNGエラーナンバーが必要なようですが、ファイルを開くのに失敗した時
エラーナンバーは何になるんでしょうか？
0574デフォルトの名無しさん
NGNG0575536
NGNG> ファイルを開くのに失敗した時エラーナンバーは何になるんでしょうか？
試せばいいと思うが ?
全部のエラーを知りたいなら、ヘルプで「トラップできるエラー」を調べるべし。
0576542
NGNGここみれ。
（インストールフォルダ違ったらなおして）
というか読みとりエラーが発生するなんてファイルが存在しないときぐらいしかないんじゃないの？
なら
If Dir("C:\AtomCount\M.txt")="" then
MSGBOX "エラーなのですです。。"
Else
Open～～～
End If
みたいなのじゃだめ？
0577デフォルトの名無しさん
NGNGいいサンプル載ってるページ知ってる人いませんか？
Googleでいくつかは見つけたんだけどいまいち。
いつもはVCでやってるんだけど久しぶりにVBに手ぇ出したら引っかかった。
0578５６６
NGNGありがとうございます。見てみます。開くファイルは
データ数が指定されたテキスト形式の数字の羅列なので
簡単に「読み込みできない」状態にできるんではないかと思い、
できればファイルオープン時のエラーにしたいんです。
0579542
NGNG＞簡単に「読み込みできない」状態にできるんではないかと思い
ごめん俺には意味が分からない
0580５６６
NGNG試してみたら分かりました５３でした。ありがとうございます。
0581542
NGNG0582５６６
NGNGほんとだ。５３ではないですね。でもデータを変えたらそれなりのメッセージが
出るように始めからなっているんですね。VB賢いなー
データの形式が
11,12,13,14,15
21,22,23,24,25
31,32,33,34,35
みたいな感じのテキストファイルということです。
0583デフォルトの名無しさん
NGNGちゃんとやるならダメだろ。Dir() と Open の間にファイルが消されてるかもしれないしね。
つーか、Open でエラーとラップできるんだからそうすりゃいいと思う。
On Error Goto Next
Open "C:\AtomCount\M.txt" For ...
If Err.Number <> 0 Then
MsgBox "エラーなのですです。"
...
End If
0584542
NGNGFor j = 1 To Xpixel
Input #1, A(i, j)
Next
でエラーがおきるってこと？
読み込み回数を指定しているようだけど
そうだと仮定して書くけど
Do Until EOF(#1) = True
Input #1, A(i, j)
Loop
こういう風にやるもんだよ。
0585デフォルトの名無しさん
NGNGVB.NETならいいんだが・・・。だめくさいな。
http://dobon2.tripod.co.jp/dotnet/string.html#base64
0586デフォルトの名無しさん
NGNGhttp://www.geocities.co.jp/SiliconValley/4334/unibon/asp/base64.html
http://www.take-c.com/soft0006.aspx
0587５６６
NGNG行列の行数と列数の違うデータも後々取り込みたいので行数と列数
を指定していたほうがいいかな・・・・と思いました。
0588デフォルトの名無しさん
NGNG0589577
NGNGありがとー
0590デフォルトの名無しさん
NGNG> VisualBasic本体はどうやって手に入れるのですか?
お金もって、近所のヤ○ダ電機か LA○X にでも逝けよ。
0591デフォルトの名無しさん
NGNGいくらくらいですかね？
0592552
NGNGこれから秋葉行ってVB買ってこようと思ってます。
1万円のVB Standard版でもアプリケーションの配布ってできるもの？
教えてくだされ
0593デフォルトの名無しさん
NGNG笑える対応だね。仕様をコロコロ変えるのは、ほんとにみっともない。
0594デフォルトの名無しさん
NGNG> 苦情殺到のため、SP1で元の仕様に戻した。
>
> SP1を入れないWinXPへの対応として、そのFormat関数を四捨五入する
> 仕様に戻すパッチも単独で提供されている。
ttp://support.microsoft.com/default.aspx?scid=kb;ja;JP418691
↑仕様を元に戻したとは書いてないが？（ネタ？？）
0595デフォルトの名無しさん
NGNGごめん、SP1へのリンクがあるね。（見落としてた）
逝ってきます・・・。
0596デフォルトの名無しさん
NGNG> いくらくらいですかね？
お店の Web ページ見るとか、お店に電話するとか考えつかないの ?
0597デフォルトの名無しさん
NGNG0598547
NGNGIShellLinkは、どうもProfessional以上じゃないとダメのようです
Leaningでは使えないらしいです。
Cで作られたDLLを利用するぐらいしかないでしょうか
0599ピンポロ
NGNGNULLを入れたいと考えています。
>dim str as string
>str = vbNullChar
>
>lrs.Open "testtbl", cnn, adOpenForwardOnly, adLockPessimistic
>
>With rs
>.AddNew
>.Fields("aaa") = "01"
>.Fields("bbb") = str
>.Update
>End With
の様な形でtesttblというテーブルにレコードをINSERTして
"select * from testtbl where bbb is NULL"
というようなSQL文でSQLを発行しても
レコードはヒットしませんでした。
上記の様なSQL文でレコードを引っ張ってこれるようにするには
どうしたらいいでしょうか？
0600ピンポロ
NGNG朝からステーキ食べたら笑顔もドカンと世界一！！（ヨイショ！）
0601デフォルトの名無しさん
NGNGいいかげん、vbNullChar と vbNullString の違いを覚えれ。
0602デフォルトの名無しさん
NGNGお前こそいいかげん、vbNullString と Null の違いを覚えれ。
0603デフォルトの名無しさん
NGNG悪いことは言わないから（ｗ）、転職、または他部門への異動を真剣に
検討して頂きたい。技術のない技術者（言葉が矛盾しているが ｗ）の
存在は、顧客にとっても、同業者にとっても、迷惑（足手纏い）以外の
何者でもない。
0604542
NGNGこれまたWindowsScriptオブジェクトならわかったんですが、WinAPIでどうやるのか
GetSystemDirectoryあたりとEnvironつかうっぽいですが
0605542
NGNG0606デフォルトの名無しさん
NGNG名前がSHから始まる関数。
0607デフォルトの名無しさん
NGNG0608デフォルトの名無しさん
NGNG0609デフォルトの名無しさん
NGNG0610デフォルトの名無しさん
NGNG0611デフォルトの名無しさん
NGNG0612550
NGNG>IShellLinkは、どうもProfessional以上じゃないとダメのようです
なんで？エディションは関係ないぞ。
http://www.geocities.co.jp/SilkRoad/4511/vb/shlink.htm
このURLを見たのかな？このサイトのDLLを使わせてもらうのでもいいが、
MkTypLib.ExeがなくてもODLの知識がなくても
要はタイプライブラリを手に入れればいいわけで。
http://www.domaindlx.com/e_morcillo/
例えばここにタイプライブラリあるよ。「Type Libraries」ページな。
0613デフォルトの名無しさん
NGNG0614ピンポロ
NGNG0615デフォルトの名無しさん
NGNG0616デフォルトの名無しさん
NGNG0617デフォルトの名無しさん
NGNG0618デフォルトの名無しさん
NGNGvbNullString・・・String型の初期値。アドレスが0で値が""。APIに渡すときの(文字列型の)ヌルポインタとして利用する。
InputBox関数でキャンセルされたときの戻り値もこれ。
Null・・・Variant型の値の1つで有効な値が設定されていないことを示す。
DBから取得した値がNullのときはこれが返る。
0619デフォルトの名無しさん
NGNG丁寧な説明は大いに結構だが、肝心の>>599氏が理解できるかどうか、
甚だ疑問と思われ。
無駄な努力（猫に小判、豚に真珠に値する行為）は放棄すべし。ｗ
・・・他のROM者にはプラスになるのかもしれないが・・・。
0620デフォルトの名無しさん
NGNGだから599宛てにしてないんだろうな。
0621デフォルトの名無しさん
NGNG答えるかどうかはお前の知ったことじゃない。
0624デフォルトの名無しさん
NGNG>>619 がぐちゃぐちゃ言ってるけど、気にすることはないと思うよ。
役に立つ情報だしね。
0626デフォルトの名無しさん
NGNG0627デフォルトの名無しさん
NGNGもしプログラムを職業としてるなら>>603が正しい。
0628デフォルトの名無しさん
NGNG今度は自作自演ですかな？
0629デフォルトの名無しさん
NGNGできますか？
■ このスレッドは過去ログ倉庫に格納されています