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

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

**デフォルトの名無しさん** · 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
何度も同じことを書かせるな。

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

AccessでADO使ってんですが、これを会社の端末に持っていきたいのです。
で、
・VBをインストールしていない。
・VBランタイムは上書きしてはいけない。
という端末の為、ADOの参照ファイルのみ持って逝きたいのですが、
msado21.tlb(ADO2.1の場合)というファイルのみ持って逝けば動くのでしょうか。

他にもあるのであれば、どれとどれをというのを教えていただきたいのですが。。。
あ、特殊なコントロールは使っていません。Accessのバージョンは同じです。

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

>>647
exeで実行してそういうメッセージなら、そりゃファイルがないんだろうな。
ファイル名チェックしろよ。

**577本物** ◆XlX2jv26Qo · NG

初めて騙られますた。
---------------------------
pdxsend
---------------------------
実行時ｴﾗｰ '53':

ﾌｧｲﾙが見つかりません。
---------------------------
OK
---------------------------
です。

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

>>648
「バージョン同じです」って、おまえバージョン書いてないじゃん。

**577本物** ◆XlX2jv26Qo · NG

あーごめん。
３つぐらい開くファイルあって一個だけ間違ってた。
すべて俺が悪かった。
お手数かけました。

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

>>650
まあ経験。

ファイル名の確認した？　フォルダの表示オプションとかは？
dos窓開いて確認してみ。

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

>>650
なんべん同じこと書かせりゃ気が済むんだ？

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

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

>>651
97です。
それに関して、何も必要なファイルは無いです、という意味で
「バージョンは同じです」と書いたつもりっす。
必要なファイル、ご存じですか？

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

>>655
そもそもその端末ではVBE（ビジュアルベーシックエディター）は
インストールされてないのか？　普通access97と一緒にインストール
されるはずだが。

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

MDACいれろやチンカス

**542** · NG

>>642
chdir app.path

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

チンカスとはご挨拶だなチキン野郎。

**648** · NG

>>656
Accessだけなら他に何もファイルを入れなくても当然動きます。
ADOを使っているので、それ系の参照ファイルを入れないといけないのです(多分)。
>>657
MDACってVBランタイム系のファイルは何も入っていないのでしょうか。
細かく書いていなくて申し訳ないのですが、会社にはVB5ランタイムが
入っていて、VB6ランタイムで上書きすることが許されないのです。
ADO入りのVBランタイムは大概VB6ランタイムなので。。。
ランタイムに入っているファイルが上書きされやしないかと実験も
あまり出来ていない状況なのです。。。

**648** · NG

>>659
騙り師、ごくろうさまです。そろそろ飽きようね。

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

だったら最初からDAOでもブン回す仕様にしとけやハナ汁娘が

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

>>662
俺はハナ汁娘じゃないぞこのマントヒヒが。

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

>>660
あのさ、どっちにしてもコード(モジュール）書かなきゃADOでアクセスできないだろ？
で、普通そのためのVBEがインストールされてると思うんだよ。
で、そのメニューの「ツール]「参照設定」でActiveX Data Object　が参照
されてるはずなのね。
どうなの、そのへん？

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

誰がマントヒヒだこの野郎。そんなお前はモヤシ組のカイワレ君だろうが。

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

>>664
ていうか、もって行きたいって書いてるから当然モジュールあるはずだな。
そのｍｄｂファイル。

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

なんでMDACがVB6のランタイムなんだこの野郎。関係ないだろダボハゼ野郎。
しかも2.1だろこの野郎。IE5でも入ってりゃ充分だこのバカ野郎。

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

ほんとVBって駄目だな

**648** · NG

>>662
すみません、最近、本見て始めたもので、ADOしかよく分からないのですよ。
JETの場合はDAOの方が効率良いみたいなのをよく見るので、
いずれ勉強しようとは思うのですが。
>>664
AccessのVBEから参照設定してますよ。
Accessインストールだけじゃ、多分、ActiveX Data Objectは入らないと思うのです。
VBをインストールしているから参照設定の項目にも並ぶってもんで。
で、会社にはVBはインストールされていない。
すると、ADO関係の所でエラーが出るでしょう？
まさか、最近のバージョンではAccessだけでActiveX Data Objectも入るんですか？

**648** · NG

あらあら、書き込むの遅いからすごいレス付いてるな。
IE5入れればActiveX Data Object2.1入るんすか。。。
ちょっとやってみることにします。
ありがとうございます。

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

>>669
> まさか、最近のバージョンではAccessだけでActiveX Data Objectも入るんですか？
入るよ。
逆にDAOは入らんよ。

**648** · NG

>>671
そうだったのか…。
まだ97しか触ったことないんすよ。勉強になります。。。

**ついでに** · NG

>>665
ママのおっぱいでも吸ってろ包茎野郎。

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

>670
ちがうよ。MDAC2.1入れるのに、IE5の環境が必要なだけだよ
MDACは分かるよな　MDACTYP.EXEとかそんな感じのファイルだよ

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

>>648
質問を読む限り、ＶＢとはぜんぜん関係ないようだが。

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

なぜVBにはまともなスレがないですか?
なぜVBにはまともなスレがないですか?

NG

>>676
スレがないんじゃなくてまともじゃないレスがあるだけ（ｗ

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

>>619はカントン包茎

-- · NG

ステートメント1
ステートメント2
があって、
1を実行し終わって少し時間を置いてから2を実行したい場合はどうするのでしょうか？
ステートメント1
timer1_timer
ステートメント2
としてtimerを割り込ませてもすぐにステートメント2が実行されてしまいました。

-- · NG

Option Explicit
Dim i, t As Integer
'----------------------------------
Private Sub Form_Load()

Form1.Caption = "始まり" '（ステートメント1）

Timer1.Interval = 1000
t = 5
Timer1.Enabled = True

Timer1_Timer

Form1.Caption = "終わり" '（ステートメント2）

End Sub
'-----------------------------------
Private Sub Timer1_Timer()
i = i + 1
If i > t Then Timer1.Enabled = False: Exit Sub
End Sub
'-----------------------------------
これを実行すると
本当は5秒後にキャプションを"終わり"にしたいのに
実行開始直後に"終わり"と表示されてしまいました。

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

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

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

>>681
何様のつもりなんだ？コイツは

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

>>682
貴様のつもりだろ(w

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

(w
(w
(w
ﾀﾞｻｯ

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

>670-680が職業プログラマだとは限らんだろうに。

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

>>680

タイマーの使い方を知らないみたいだな。

タイマーはインターバルに指定した時間がたったら、実行されるイベントだ。

正解はこれ。

Option Explicit
Public i, t As Integer
'----------------------------------
Private Sub Form_Load()

Form1.Caption = "始まり" '（ステートメント1）
Timer1.Interval = 1000
t = 5
i = 0
Timer1.Enabled = True

End Sub

'-----------------------------------
Private Sub Timer1_Timer()
i = i + 1

If i > t Then
Timer1.Enabled = False
Form1.Caption = "終わり" '（ステートメント2）
End If
End Sub
'-----------------------------------

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

タスクバーに表示されている他のウィンドウの
アイコンとキャプションを変えるには？
なおウィンドウのハンドルは取得してます

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

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

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

>>688
悪いことは言わないから（ｗ）、他のスレ、または他の板への異動を真剣に
検討して頂きたい。答える気のない技術者の存在は、このスレの住人にとっても、
同業者にとっても、迷惑（足手纏い）以外の何者でもない。

-- · NG

>>686さんありがとうございました。
なるほどぉ。
timer1_timerの中にステートメント2を入れるんですね。
i=0も言われて気づきましたが必要ですね。

>>682さん
かばってくれてありがとうございます。

>>685さん
たとえ肉体労働でもいいのでアルバイト探し中です。

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

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