(*´д`*)ウッ… 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
0511デフォルトの名無しさん
NGNG0512デフォルトの名無しさん
NGNGマッピング、マッピングやっほ～やっほ～。
0513デフォルトの名無しさん
NGNG本当に初心者質問ですいません。
マッピングとは具体的にどのように
やればいいのですか？
よろしくお願いします。
0514
NGNG株価は単位株でしか買えないので１０００株単位なら
１０２６０株－＞１００００株
１０８３０株－＞１１０００株
のようにある単位で四捨五入したいのですが、ＦＯＲＭＡＴ関数の使い方がわかりません。
今のコードは
KABUSU = Format$(KABUSU, "#.")
とやっていますが何も変わらないのです。上の方の書き込みをみて色々試したのですが。。
ｖｂ６．０を使ってます。
KABUSUの値は10526.3157...
という数字が入っており 結果は11000になってほしいのですが。
ある桁数で四捨五入はできないのでしょうか？
0515デフォルトの名無しさん
NGNGそのままでは出来ないから、１０００で割ってあとで１０００を掛ける。
0516デフォルトの名無しさん
NGNGどうもありがとうございます。
四捨五入ってできないんですね。ＥＸＣＥＬとかはRound関数とかでできたような
気がしたので頑張ってやろうとしていました。
0517デフォルトの名無しさん
NGNG増やしても意味ないよ。
たいてい32767より小さくして使ってる。
0518デフォルトの名無しさん
NGNGExcelの関数と同機能のVB用関数はいっぱい公開されてるよ。
ぐぐってみなはれ。
0519デフォルトの名無しさん
NGNGＶＢを部品にしてＣＯＢＯＬで制御したいんだけど。
0520デフォルトの名無しさん
NGNGVBからCOBOLを使いたいの？
COBOLからVBを使いたいの？
0521デフォルトの名無しさん
NGNGやたら処理が遅い。VCがあるので、これをCに変換したらもっとサクサク
動くかなと思うのだが、VB自体よく分かんない。
ということで、VBからCとかJavaにコードを変換してくるフリーのソフトって
ないですかね？
0522デフォルトの名無しさん
NGNGない。あったとしてもコードの問題の可能性が大きいからどっちみち速くならないだろう。
0523
NGNGＶＢでＤＬＬ化などして使ったら エクセルよりは 速いよ。
0524519
NGNGＣＯＢＯＬから、ＶＢ（画面制御部品Ｐ）を呼んで、
ＣＯＢＯＬに値を返したいんですけど。
0525D
NGNG四捨五入のソースは結構公開されてるんですが、あえてFormat関数を使うなら
Dim D As Double
D = 10830
D = Format(D / 1000, "#0") * 1000
Debug.Print D
という手もあります。ただFormat関数は文字列を返すはずなのであまり誉められた方法では
ありませんが。（cDbl()で変換した方がよいかも）
0526D
NGNG元々プログレスバーは進捗状態を表すのでパーセントに変換してます。
0527D
NGNGどんな種類のCOBOLを使ってるか分からないけどBPCなんかだとCOBOLからプログラムを
実行できたはず。状態によって少し違いますが、
最初に起動するのがCOBOL以外の場合
COBOLランタイムのコマンドラインにexeを指定して起動する必要があります。
COBOLからexeを呼び出すShell関数はあったはず（メーカーによってまちまち）
値を渡すにはﾌｧｲﾙ経由orDB経由で渡してたと思います。
0528デフォルトの名無しさん
NGNGやたら処理が遅いって、まず何処が遅いのかﾊｯｷﾘさせんと何もできんぞ。
どうせExcelのオブジェクトをﾑﾀﾞにグリグリ弄繰り回してるだけだろうけど。
0529デフォルトの名無しさん
NGNGとあるOS(たしかXP)ではFormatは四捨五入じゃないから気をつけてな。
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デフォルトの名無しさん
NGNG
■ このスレッドは過去ログ倉庫に格納されています