(*´д`*)ﾊｳｧｯ…　VB初心者質問スレ Part16

>>948
エクセルのVBAのヘルプ

>>947
ありがとうございます。

WinXPを使っているのですが、
システム→詳細設定→環境変数→ユーザ環境変数と辿っていき、
pathのところに「;c:\Program Files\Afolder\Bfolder\client.exe」と追加
してみたのですが、状況が変わりません。

何かのバッチファイルとかを書かなくてはいけないのでしょうか？
それとも書き方がおかしいんですかね？

そもそもが良くわかっていないので、よろしくお願いいたします。
（何かに何かの設定をすれば、フルパスを打たずに実行できるように
なりそうだ、というのは理解しているのですが・・・）

>>953
client.exeはいらないと思うがどうだろう

>946
分かってない割には的確だな。中途半端だけど。
「;c:\Program Files\Afolder\Bfolder」でよし。

なんでわざわざシステムの環境変数をいじってまで
フルパス指定を避けたいんだろう？

chdir
はダメ？

>949-952
レスありがとうございました。
いろいろ見てみます。

http://yahooo.s2.x-beat.com/

>>954-955(630)さん、ありがとうございます。
言われた通りにしてrebootしたら出来ました。

>>956
今作ってるアプリを使うのが特定のマシンとは限らないんです。
で、呼び出すEXEが格納されているディレクトリはマシンによって異なる
可能性があるんで、何か回避方法はないかな？と思ったのです。

ありがとうございました。

>>960
iniファイルとかレジストリとかに絶対パスを設定するようにしたほうがｲｸﾅｲ?

>>960
> 今作ってるアプリを使うのが特定のマシンとは限らないんです。
> で、呼び出すEXEが格納されているディレクトリはマシンによって異なる

だったら別にフルパスのままでいいじゃん。

s = "c:\Program Files\Afolder\Bfolder\"
( ↑ 実際にはレジストリや設定ファイルから取得)
Shell s & "client.exe"

わざわざシステムの設定を書き換える必要はないと思うが。

あ、ごめん。961とかぶってたわ。

shellを使ってエクスプローラを開くときに指定したフォルダを開きたいときは
どうするんでしょうか？

>>964
何で開きたいのかによるがな
Shell "EXPLORER.EXE C:\WINDOWS", vbNormalFocus

>>965さん
コマンドボタンを押したらお気に入りのフォルダがたちどころに開けるとベンリなのでつくってみたかったです。
ありがとうございました。

２つのフォームを使って１つ目をメニューにして、２つ目で作業するとして、

フォーム１の「開始」みたいな感じのボタン
Dim frm2 As New Form2()
frm2.ShowDialog()
Me.Hide()

フォーム１の「終了」ボタン
Me.Close()

フォーム２の「メニューに戻る」みたいな感じのボタン
Dim frm1 As New Form1()
frm1.Show()
Me.Close()

とするとプログラムが終了してくれないんですけどどうしてでしょうか？
VB.NETです。

>>967
VB.NET?

とりあえずフォーム１がフォーム２によって新規に作られてるかなじゃない？
Dim frm1 As New Form1()

>>968
答えていただいてありがとうございます
確かにForm1がもうひとつ作られて、「終了」で閉じられているのは
１つだけになっているようです。
新しく作らないようにするにはどうやってfrm1を宣言すればいいのでしょうか。
As NewのNewを何かに変えればいいのですか？

>>VB.NET?
ごめんなさい勝手に略しました。VisualBasic.NETです。
6.0と.NETではだいぶ違うらしいので･･･
（最近やり始めたので6.0はわかりません）

>>969
VB.NETわかんない
http://pc3.2ch.net/test/read.cgi/tech/1025848458/l50
できいてみそ

すみません。VB.NET用のスレがあるの知りませんでした。
そっちで聞いてきます。

(　´,_ゝ`）ﾌﾟｯ

次スレ たてたよ
http://pc3.2ch.net/test/read.cgi/tech/1036154952/

>>973
小津。

VB6でActiveX EXE形式でコンパイルしたファイルを
削除しようとしたのですが、
REGSVR32ではActiveX Dll,Ocxなどはレジストリから削除できるのですが、
ActiveX EXEはできないようです。
どなたか方法知っていたら教えてください

>>975
hoge.exe -Unregserver
(hoge.exeがそのActiveX EXEのフルパス名ね)

>>976
解決しました!!
ありがとうございました。

テキストボックスをコントロール配列にして使用していますが、
要素がある場合にも、「実行時エラー"340"　コントロール配列の要素"xxxx"がありません」
となることがあります。
一度終了して、再実行すると直りますが、
何でこのエラーが発生する場合とそうでない場合があるのでしょうか。
このバグの修正方法はコントロール配列を使用しないことなのでしょうか。
どなたかアドバイスいただけませんか。

>>978
ソースにバグがあると思われ

>>979
ソースはこのようになっています。
コントロール配列(txtMenu(0)〜txtMenu(3)まであります。
　　
Dim MenuStr(3, 3) As String
Dim StaffStr(10, 1) As String

For i = 0 To 3
If Len(txtMenu(i).Text) > 0 Then

　　　　　　 rsSalesInfo.AddNew

rsSalesInfo!stfStatus = StaffStr(i, 1)
rsSalesInfo!stfID = StaffStr(i, 0)
rsSalesInfo!mpID = Val(MenuStr(i, 0))
rsSalesInfo!mpName = MenuStr(i, 1) + " " + MenuStr(i, 2)
rsSalesInfo!mpPrice = Val(MenuStr(i, 3))
rsSalesInfo!mpQnt = 1

rsSalesInfo.Update

End If
Next
このような感じでデータベースに新規レコードを追加しています。
発生するときと発生しないときがあり、どうしても解決できません。

ﾀﾞﾚﾓｲﾅｲ…

1000get ｽﾙﾅﾗ…

ｲﾏﾉｳﾁ…

ﾗﾝﾀﾝﾀﾝ♪ ﾗﾝﾀﾝﾀﾝﾀﾝ♪

2重ｶｺｷにもﾏｹﾅｲｿﾞ…ｯﾄ。

ﾗﾝﾀﾝﾀﾝ♪

　　　　　　　　まもなくここは　乂1000取り合戦場乂　となります。

　 　 　 ＼∧＿ﾍ　　　　　／￣￣￣￣￣￣￣￣￣￣￣￣
　,,､,､,,,　/ ＼〇ノゝ∩ ＜　1000取り合戦、いくぞｺﾞﾙｧ！！　　　　　　　,,､,､,,,
　　　　/三√ ﾟДﾟ)　/　　 ＼＿＿＿＿＿＿＿＿＿＿＿＿　　,,､,､,,,
　　 　　/三/| ﾟＵﾟ|＼　　　　　　,,､,､,,,　　　　　　　　　　　　　　　　　　　　　　　,,､,､,,,
　,,､,､,,,　Ｕ （:::::::::::）　　,,､,､,,,　　　　　　　　　＼オーーーーーーーッ！！／
　　 　 　//三/|三|＼　　　　　∧＿∧∧＿∧ ∧＿∧∧＿∧∧＿∧∧＿∧
　　　　　　∪　 ∪　　　　　　 （　　　　）　　　 （　　　　 ）　　　（　　　　）　　　 ）
　,,､,､,,,　　　　　　　,,､,､,,,　　∧＿∧∧＿∧∧＿∧ ∧＿∧∧＿∧∧＿∧∧＿∧
　　　　　　,,､,､,,,　　　　　　 （　　　　）　　　 （　　　　）　　　 （　　　　）　　　 （　　　　）

(　´,_ゝ`)ﾌﾟｯ…

989get

今だ！990番ゲットォォｫｫ！！
￣￣￣￣￣∨￣￣￣　　　　　　　(´´
　　　 　 　 　 　 　 　 　 ∧∧　　　　　　　(´⌒(´
　　　　　　 　　　　　⊂（ﾟДﾟ ）≡≡≡(´⌒;;;≡≡≡
　　　　　　 　⊆⊂´￣ ⊂ソ 　(´⌒(´⌒;;
　　　　　　　　　　￣￣￣　　　ｽﾞｻﾞｰｰｰｰｰｯ

ヾ(；ﾟ∀ﾟ)ﾉｼ　ｶﾞｯｾﾝﾊｼﾞﾏﾙ

>>980
わるいけど、次スレ持ち越しってことで

(ﾟ∀ﾟ)

（´∀｀　）

（,,ﾟДﾟ）

（´д｀）

(･ω･)

(ﾟ∀ﾟ)~°ｱﾋｬﾋｬ

1000

1000

　　　　　　　　　　　　　　　┌┐　　　　　　　　　　　　　　　　　 　　　　　　　　　　　　　　●●●
　　　　人　　　　　　　　　 ││　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　●＼　　●＼
　　　ノ二＼　　ナ　ゝゝ　　 Ｖ　　　　　　　　　　　　　　　　　●●●　　　　　　　　●＼　　　 　●＼
　　　　　/　　 /　乙　つ　　Ｏ　　　　　　　　　　　　　　　●＼　　 ●＼ 　　　　 ●＼　　　　 　 ●＼
　　　　　　　　　　　　　　　　　　●●●　　　　　　　　●＼　　　 　●＼　　　 ●＼　　　　　　　●＼
　　　　　　　　　　　　　　　　 ●＼　　 ●＼ 　　　　 ●＼　　　　 　●＼ 　　 ●＼　　　　　　　 ●＼
　　　　　　 ●●＼　　　　 ●＼　　　 　●＼　　　 ●＼　　　　　　 ●＼ 　　●＼　　　　 　　 ●＼
　　　　　　　　●＼　　　 ●＼　　　　 　●＼ 　　 ●＼　　　　　　 ●＼ 　　 ●＼　　　　　　 ●＼
　　　　　　　 ●＼　　　 ●＼　　　　　　●＼ 　　 ●＼　　　　　　●＼　　　　●＼　　　　　●＼
　　　　　　　●＼　　　 ●＼　　　　　　 ●＼ 　　 ●＼　　　　　 ●＼ 　　　　 ●＼　　 　●＼
　　　　　　 ●＼　　　　●＼　　　　　　●＼　　　　●＼　　　　 ●＼　 　　　　　　●●●　＼
　　　　　　●＼　　　　 ●＼　　　　　 ●＼ 　　　　 ●＼　　　●＼ 　　　　　　　　　 ＼＼
　　　　　 ●＼　　　　　●＼　　　　 ●＼　 　　　　　　●●●　＼
　　　　　●＼　　　　　　●＼　　　●＼ 　　　　　　　　　 ＼＼＼
　　　　 ●＼　　　　　　　　●●●　＼　　　　　　　　　　　　　　　　　　　　　　　　　　　 　　┌┐ ┌┐
　　　　●＼　　　　　　　　　　＼＼＼　　　　　　┣━┳┃┃　　　　　 ┃　　　　　　　　　　││ ││
　　 ●●●＼　　　　　　　　　　　　　　　　　　　　　　┃　　　┃┃┃　┣┓　━╋　━╋ 　Ｖ　　 Ｖ
　　　＼＼＼＼　　　　　　　　　　　　　　　　　　　　　┛　　　　　━┛　┃　　 ┏┫　┏┫　 Ｏ　　Ｏ
　　　　　　　　　　　　　　　　　　　　　(´´
　　　　 ／■＼ 　　　）　　　　　　(´⌒(´
　　⊂（ﾟДﾟ⊂⌒｀つ≡≡≡(´⌒;;;≡≡≡
　　　　　　 ￣￣　 (´⌒(´⌒;;

このスレッドは１０００を超えました。
もう書けないので、新しいスレッドを立ててくださいです。。。