(´д`)ウッ…　VB初心者質問スレ Part15

**エロチカセブン** · NG

**デフォルトの名無しさん** · NG

どう言ったらいいのかわからないんですが、
電卓を作りたいです。
そこでウィンドウがアクティブな時に
キーダウンイベントに反応できるようにしたいのですが、
上手くいきません。
ウィンドウに送られるキーダウン全てに反応するには
どこに記述したらいいのでしょうか？
つまりウィンドウのどこにフォーカスがあっても
キーダウンをキャッチしたいわけです。
どうすればいいでしょうか？
よろしくお願いします。

**デフォルトの名無しさん** · NG

>>547
Delphiなら.lnkの作成もパスの取得も簡単ですよ♪

>>548
DelphiならKeyPreviewプロパティをtrueにするだけだよ♪

**デフォルトの名無しさん** · NG

>>547
IShellLinkインタフェースを実装するとか。ぐぐって。

>>548
コマンドボタン上にあるときの←キーとかは取れないが、
KeyPreview=Trueで。

**548** · NG

>550
助かりました、無事成功しました。
ありがとうございました。

**デフォルトの名無しさん** · NG

VB未経験者ですが、下記のソースをビルドしたいと思ってます。
http://www.yecc.gr.jp/vb/prog/pricla/primain.html

開発環境を持ってないので、これからVBを購入するつもりです。
現在最新のVB用開発環境はVB.NETだと思うのですが、
上記のソースがVB.NETでビルドできるか知りたいです。
お願いします。

**デフォルトの名無しさん** · NG

>>552
なんで、作者に聞かんの ? 掲示板みたいな奴もあったよ。(あまり活発そうじゃないけど...。)

**デフォルトの名無しさん** · NG

>>552
ビルドできない。
さらに、このソースコードはVB.NET用に直すのにも手間がかかるパターン。
VB6までのVBとVB.NETは別の言語と思ってもらった方がいい。

VB.NETで一から勉強して作るがよろしかろう。

**547** · NG

お～WindowsScriptオブジェクト使えばショートカット作れるんじゃん
と思ってやったら

Norton先生が反応しますた。

いや、つくれたんですけどね。これじゃだみだ。

**543** · NG

>>546
世話が焼けるなあ。

プリインストされてるWSHのバージョン
Windows95 なし
WindowsNT4.0 なし
Windows98 　WSH1.0
Windows2000 　WSH2.0
WindowsME 　WSH5.5
WindowsXP 　WSH5.6

98や2Kはバージョン古すぎるから、最新版をインスト。
95やNTは新規インストすればいいだけ。

**552** · NG

レスありがたう。

>>553
そうなんです、BBSあまりにもアレだったんで、
こちらでお聞きした次第です。

>>554
流用は無理ですか。。。
VB.NETって、VBと同じことができるんでしょうか。
他にUSBカメラからの画像キャプチャもしたいんです。

実は、簡易プリクラを作ろうと思ってるんですが、
そんな用途にもVB.NETは向いてますか？

どっちかというと、VB6の方がいいような。。。
ご意見をお願いします。

**デフォルトの名無しさん** · NG

>>529 >>541 >>545
WinXPではFormat関数が内部で利用しているAPIの仕様変更の影響で
動作が四捨五入じゃなくなった。MSはそれを仕様だと逃げようとしたが、
苦情殺到のため、SP1で元の仕様に戻した。

SP1を入れないWinXPへの対応として、そのFormat関数を四捨五入する
仕様に戻すパッチも単独で提供されている。

**542** · NG

>>556
なるほど、全然バージョンが違いますね
オンラインソフトにはむかないかなぁ？
今のところFileSystemObjectしかつかってないけど

やっぱりWinAPI使った方がいいかな

**デフォルトの名無しさん** · NG

.iniファイルに書き込もうと思って調べたら
WritePrivateProfileSection
などを使用することがわかったのですが、
うまくいきません。
VB6.0で書くと構文エラーで赤字で表示されます。
これはなぜでしょうか？
よろしくお願いします。

**デフォルトの名無しさん** · NG

>>560
構文エラーだからです。それ以上でもそれ以下でもありません。

新実 · NG

お前等お前等お前等お前等お前等お前等お前等お前等
ヽ( ･∀･)ﾉ < ㌶㌍㌫㌻㍍㍗㌫㍊㍍㌘㌶㌍㌫㌻㍍㍗
http://genie.gaiax.com/home/nakatai
お前等お前等お前等お前等お前等お前等お前等お前等

**デフォルトの名無しさん** · NG

>>560
> .iniファイルに書き込もうと思って調べたら
> WritePrivateProfileSection
> などを使用することがわかったのですが、
> うまくいきません。

何で、.ini ファイルなんか使うの ?
GetSetting() / GetAllSettings() / SageSetting() / DeleteSetting() じゃダメなん ?

**デフォルトの名無しさん** · NG

編集しやすいから

**デフォルトの名無しさん** · NG

俺はiniを読むときはAPI使うが書くときは普通に開いて整形しながら書き込み

**デフォルトの名無しさん** · NG

ファイルのopenについて聞きたいんですが、ファイルのopenに失敗した時
エラーのメッセージボックスを出したいと思っています。でもどうやって
ファイルの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回します。

**デフォルトの名無しさん** · NG

>>564
ならしょうがないね。>>560 には declare 文を勉強してもらうしかないみたいね。

>>565
> 俺はiniを読むときはAPI使うが書くときは普通に開いて整形しながら書き込み

なんでそんなことを... ?

**デフォルトの名無しさん** · NG

>>566
On Error Goto ...
を使う。これを使ってファイルが存在するか調べるって方法があったっけ。

**５６６** · NG

ありがとうございます。使い方を調べてみます。

**デフォルトの名無しさん** · NG

>>567
ごめん、俺の勘違い。

**デフォルトの名無しさん** · NG

存在チェックならdir関数で充分だぽ
入力用で開くならエラーはこんくらいか

**デフォルトの名無しさん** · NG

存在チェックならFindFirstFile()

**５６６** · NG

ファイルを開く時の失敗を検出したいんです。On Error Gotoでは
エラーナンバーが必要なようですが、ファイルを開くのに失敗した時
エラーナンバーは何になるんでしょうか？

**デフォルトの名無しさん** · NG

Err.Numberでｴﾗｰﾅﾝﾊﾞｰ取得しる

**536** · NG

>>573
> ファイルを開くのに失敗した時エラーナンバーは何になるんでしょうか？

試せばいいと思うが ?

全部のエラーを知りたいなら、ヘルプで「トラップできるエラー」を調べるべし。

**542** · NG

mk:@MSITStore:C:\Program%20Files\Microsoft%20Visual%20Studio\MSDN98\98VS\1041\vbenlr98.chm::/HTML/vamsgtrappableerrors.htm
ここみれ。
（インストールフォルダ違ったらなおして）
というか読みとりエラーが発生するなんてファイルが存在しないときぐらいしかないんじゃないの？
なら
If Dir("C:\AtomCount\M.txt")="" then
　 MSGBOX "エラーなのですです。。"
Else
　 Open～～～
End If
みたいなのじゃだめ？

**デフォルトの名無しさん** · NG

VBでBase64エンコードしたいんだけど
いいサンプル載ってるページ知ってる人いませんか？
Googleでいくつかは見つけたんだけどいまいち。
いつもはVCでやってるんだけど久しぶりにVBに手ぇ出したら引っかかった。

**５６６** · NG

>>576
ありがとうございます。見てみます。開くファイルは
データ数が指定されたテキスト形式の数字の羅列なので　
簡単に「読み込みできない」状態にできるんではないかと思い、
できればファイルオープン時のエラーにしたいんです。

**542** · NG

＞データ数が指定されたテキスト形式の数字の羅列なので　
＞簡単に「読み込みできない」状態にできるんではないかと思い
ごめん俺には意味が分からない

**５６６** · NG

>>575
試してみたら分かりました５３でした。ありがとうございます。

**542** · NG

５３だとDirでやったのと同じじゃない？

**５６６** · NG

>>542
ほんとだ。５３ではないですね。でもデータを変えたらそれなりのメッセージが
出るように始めからなっているんですね。VB賢いなー

データの形式が
11,12,13,14,15
21,22,23,24,25
31,32,33,34,35
みたいな感じのテキストファイルということです。

**デフォルトの名無しさん** · NG

>>576
ちゃんとやるならダメだろ。Dir() と Open の間にファイルが消されてるかもしれないしね。
つーか、Open でエラーとラップできるんだからそうすりゃいいと思う。

On Error Goto Next
Open "C:\AtomCount\M.txt" For ...
If Err.Number <> 0 Then
　MsgBox "エラーなのですです。"
　...
End If

**542** · NG

ひょっとして
For j = 1 To Xpixel
　　　　　Input #1, A(i, j)
　　Next
でエラーがおきるってこと？
読み込み回数を指定しているようだけど

そうだと仮定して書くけど
Do Until EOF(#1) = True
Input #1, A(i, j)
Loop
こういう風にやるもんだよ。

**デフォルトの名無しさん** · NG

>>577
VB.NETならいいんだが・・・。だめくさいな。
http://dobon2.tripod.co.jp/dotnet/string.html#base64

**デフォルトの名無しさん** · NG

>>577
http://www.geocities.co.jp/SiliconValley/4334/unibon/asp/base64.html
http://www.take-c.com/soft0006.aspx

**５６６** · NG

>>584
行列の行数と列数の違うデータも後々取り込みたいので行数と列数
を指定していたほうがいいかな・・・・と思いました。

**デフォルトの名無しさん** · NG

VisualBasic本体はどうやって手に入れるのですか?

**577** · NG

>>585,586
ありがとー

**デフォルトの名無しさん** · NG

>>588
> VisualBasic本体はどうやって手に入れるのですか?

お金もって、近所のヤ○ダ電機か LA○X にでも逝けよ。

**デフォルトの名無しさん** · NG

>>590
いくらくらいですかね？

**552** · NG

便乗質問です。
これから秋葉行ってVB買ってこようと思ってます。
1万円のVB Standard版でもアプリケーションの配布ってできるもの？
教えてくだされ

**デフォルトの名無しさん** · NG

>>558
笑える対応だね。仕様をコロコロ変えるのは、ほんとにみっともない。

**デフォルトの名無しさん** · NG

>>558

> 苦情殺到のため、SP1で元の仕様に戻した。
>
> SP1を入れないWinXPへの対応として、そのFormat関数を四捨五入する
> 仕様に戻すパッチも単独で提供されている。

ttp://support.microsoft.com/default.aspx?scid=kb;ja;JP418691

↑仕様を元に戻したとは書いてないが？（ネタ？？）

**デフォルトの名無しさん** · NG

>>594

ごめん、SP1へのリンクがあるね。（見落としてた）

逝ってきます・・・。

**デフォルトの名無しさん** · NG

>>591
> いくらくらいですかね？

お店の Web ページ見るとか、お店に電話するとか考えつかないの ?

**デフォルトの名無しさん** · NG

視野が狭くて考えられないんでしょ

**547** · NG

>>550さん
IShellLinkは、どうもProfessional以上じゃないとダメのようです
Leaningでは使えないらしいです。
Cで作られたDLLを利用するぐらいしかないでしょうか

**ピンポロ** · NG

Access2000でテーブル中の何も無い項目には
NULLを入れたいと考えています。

>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文でレコードを引っ張ってこれるようにするには
どうしたらいいでしょうか？

**ピンポロ** · NG

あ～朝から～
朝からステーキ食べたら笑顔もドカンと世界一！！（ヨイショ！）

**デフォルトの名無しさん** · NG

>>599
いいかげん、vbNullChar と vbNullString の違いを覚えれ。

**デフォルトの名無しさん** · NG

>>601
お前こそいいかげん、vbNullString と Null の違いを覚えれ。

**デフォルトの名無しさん** · NG

>>599
悪いことは言わないから（ｗ）、転職、または他部門への異動を真剣に
検討して頂きたい。技術のない技術者（言葉が矛盾しているがｗ）の
存在は、顧客にとっても、同業者にとっても、迷惑（足手纏い）以外の
何者でもない。

**542** · NG

デスクトップのフォルダーと、SendToのフォルダーってどうやって調べます？
これまたWindowsScriptオブジェクトならわかったんですが、WinAPIでどうやるのか
GetSystemDirectoryあたりとEnvironつかうっぽいですが

**542** · NG

さっさと答えろよオラ

**デフォルトの名無しさん** · NG

じゃヒントね。
名前がSHから始まる関数。

**デフォルトの名無しさん** · NG

SHIT

**デフォルトの名無しさん** · NG

SHOP

**デフォルトの名無しさん** · NG

Get

**デフォルトの名無しさん** · NG

**デフォルトの名無しさん** · NG

Path

**550** · NG

>>598
>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」ページな。

**デフォルトの名無しさん** · NG

ちなみにinfファイルを使う方法もあるぞ

**ピンポロ** · NG

僕は学生です。

**デフォルトの名無しさん** · NG

僕も学生だよ。

**デフォルトの名無しさん** · NG

無職をバカにすんな

**デフォルトの名無しさん** · NG

俺は留年中です。

**デフォルトの名無しさん** · NG

vbNullChar・・・Chr(0)と同じ。いわゆるヌル文字。C言語では(Windows的にはLPSTRでは)文字列の終端を表す。
vbNullString・・・String型の初期値。アドレスが0で値が""。APIに渡すときの(文字列型の)ヌルポインタとして利用する。
　　　　　　　　　 InputBox関数でキャンセルされたときの戻り値もこれ。
Null・・・Variant型の値の1つで有効な値が設定されていないことを示す。
DBから取得した値がNullのときはこれが返る。

**デフォルトの名無しさん** · NG

>>618
丁寧な説明は大いに結構だが、肝心の>>599氏が理解できるかどうか、
甚だ疑問と思われ。
無駄な努力（猫に小判、豚に真珠に値する行為）は放棄すべし。ｗ

・・・他のROM者にはプラスになるのかもしれないが・・・。

**デフォルトの名無しさん** · NG

>>619
だから599宛てにしてないんだろうな。

**デフォルトの名無しさん** · NG

>>619
答えるかどうかはお前の知ったことじゃない。

**601** · NG

>>602
> お前こそいいかげん、vbNullString と Null の違いを覚えれ。

すまん、勘違いしてた。

**602** · NG

>>622
了解。今のお前は男の中の男。

**デフォルトの名無しさん** · NG

>>618
>>619 がぐちゃぐちゃ言ってるけど、気にすることはないと思うよ。
役に立つ情報だしね。

**619** · NG

>>620 >>621 >>624
うるせーよ。お前ら。

**デフォルトの名無しさん** · NG

逆切れですかな？

**デフォルトの名無しさん** · NG

そんな基本中の基本でもめるな。
もしプログラムを職業としてるなら>>603が正しい。

**デフォルトの名無しさん** · NG

>>627=619=603
今度は自作自演ですかな？

**デフォルトの名無しさん** · NG

ネットワークにつながったマシンのCDトレイをOPENすることは
できますか？

**542** · NG

>>605
ここまで露骨な偽物は２ｃｈ初めて以来初めてだ（ｗ
>>606
あ～これがIShellLinkってやつですね。
う～んわりとめんどくさそう

正直WindowsScript使いたいけど、ダメかな？
95とNTは切り捨てるってことで
98,2000,Me,XPのバージョンの違いで挙動がどう違うか心配だけども。

**606** · NG

>>630
SHGetSpecialFolderLocation+SHGetPathFromIDList
のことだったんだが。IShellLinkとは無関係。

98でもインストールオプションによってはWSHが
入ってない可能性がある。
どうせ95とNTを捨てるならShellオブジェクトを
実行時バインディングで利用した方がいい。
(95とNTでもIE4が入っていれば使える)

**デフォルトの名無しさん** · NG

>>629
できる。
そのマシンの前に行って、CD-ROM ドライブのボタンを押しな。

**デフォルトの名無しさん** · NG

なぜVBにはまともなスレがないですか?
マジ質問なんですけど。だれかたてて。

**デフォルトの名無しさん** · NG

>>633
お前が立てろ。

**633** · NG

勃てますた
ttp://love.2ch.net/test/read.cgi/gay/1032259496/l50

**デフォルトの名無しさん** · NG

↑【ゲイ】オナニー用おかず画像ver.11【専用】

**デフォルトの名無しさん** · NG

>>619は

**デフォルトの名無しさん** · NG

ある朝、ふと不安な夢から目覚めた>>619は

**577** · NG

昼間はどーも。
base64は力ずくで何とかしました。

ところでopen "hoge.txt" for input as #1ってしたときに
カレントフォルダのファイルを読みに行かないようなんだけど
俺のopenに関する知識が間違ってる？
"実行時エラー 53 ファイルが見つかりません"
泣きそう。

**デフォルトの名無しさん** · NG

> 俺のopenに関する知識が間違ってる？

多分、お前のカレントフォルダに関する知識が
間違ってるんだろうよ。

**デフォルトの名無しさん** · NG

>>639
一度保存しろ。

**577** · NG

ども。
exe作って c:\testに入れて
c:\test\hoge.txt作って
Open "hoge.txt" For Input As #1
で実行時エラー。
何でなんだろ。
あ、一応フルパス指定なら読めます。

**デフォルトの名無しさん** · NG

>>642
> 何でなんだろ。

お前のカレントフォルダに関する知識が
間違ってるんだろうよ。

**デフォルトの名無しさん** · NG

>>642
カレントフォルダがわかるようにデバッグすれば？
メッセージボックスだすとか。

**デフォルトの名無しさん** · NG

>>619は短小包茎でモーヲタ

**デフォルトの名無しさん** · NG

>>642
exeで実行した時のエラーメッセージって何？

**577** · NG

>>646
何度も同じことを書かせるな。

(*´д`*)ウッ… VB初心者質問スレ Part15

(´д`)ウッ…　VB初心者質問スレ Part15