『コードにエラーがある？』のクチコミ掲示板

[prtwqq]

ビジュアルベーシックについて、勉強しようと思いある本を
購入しました。
その本の中に、簡易なプログラム作成という章があり
意味が不明ですが、そこに書いているプログラムの通りに
以下のコードを入力しました。
このプログラムは、win標準装備のペイント、電卓、ワードパッドを
ボタンを押して起動させるプログラムです。


Option Explicit
Const PROG_NAME As String = "MyLauncher"
Const SECTION_NAME As String = "Settings"
Const LEFT_NAME As String = "Left"
Const TOP_NAME As String = "Top"
Private Sub Form_Load()
frmLauncher.Left = GstSetting(PROG_NAME, SECTION_NAME, LEFT_NAME, 0)
frmLauncher.Top = GetSetting(PROG_NAME, SECTION_NAME, TOP_NAME, 0)

End Sub

Private Sub Form_Unload(Cancel As Integer)
Call SaveSetting(PROG_NAME, SECTION_NAME, LEFT_NAME, frmLauncher.Left)
Call SaveSetting(PROG_NAME, SECTION_NAME, TOP_NAME, frmLauncher.Top)
End Sub


Private Sub cmdLaunch_Click(Index As Integer)
Call Shell(cmdLaunch(Index).ToolTipText, vbNormalFocus)
End Sub




Private Sub Label1_Click()

End Sub

Private Sub Text1_Change()


End Sub


ここまでがコードです。
ファイルからプログラムの作成を選択すると

コンパイル中と出て、

Private Sub Form_Load()
frmLauncher.Left = GstSetting(PROG_NAME, SECTION_NAME, LEFT_NAME, 0)
のGstSettingのところで、

コンパイルエラー
subまたはfunctionが定義されていませんト出ます。


情報はこれだけですが、もし分かる方がおられたら
教えて下さい。

書込番号：4158094

[ｈｏｔman]

インタプリタの状態でデバッグしてみてはどうですか？

書込番号：4158130

[ｈｏｔman]

↑

ごめん GetSetting が GstSetting になってる！

VBなんて10年以上コーディングしてないんで、なんか感が戻らないもんで．．．。

書込番号：4158144

[prtwqq]

ｈｏｔman　さん へ

回答ありがとうございました。
スペルを訂正するとコンパイルに成功しました。
ところが、作成したプログラムの電卓ボタン、ワードパッドボタン
ペイントボタンのどれを押しても、


実行時エラー53

ファイルが見付かりません。

と表示されます。

コードの記述に不備があるのでしょうか？

書込番号：4158193

[ｈｏｔman]

そこから先はご自分で悩んでください、それがスキルにつながります。



．．．といって逃げる（最近プログラミングやってないもんな．．．）

でも、きっと親切な人が、書き込んでくれるんだろうな．．．。

書込番号：4158227

[はなまがり]

小学生ですか？
英語をわかれとは言いませんが、
アルファベットがわからないと難しいですよ。

さて今回の場合、フォームのほうでタイプミスをしています。

notopadとかpeintとかkalcとか、なんかそんな感じになってるんでしょう。
もしくは気を利かせてそこらへんを勝手に日本語にしたとか。

書込番号：4159325

[まきにゃん]

どういう画面なのか分からないのでなんとも言えませんが、コード自体はほかの方の指摘を修正したもので問題ないと思われます。　あとは、Formのプロパティ(cmdLaunch(Index).ToolTipText)が間違ってないかを確認しましょう。

はなまがりさんも書いてますけど、起動するプログラムのスペルを間違ってる可能性が大ですね。　間違ってれば当然「そんなファイルはネーヨ！」と言われます (^^;

たぶんどうってこと無い所でミスってると思いますので、もう一踏ん張りです、頑張りましょう。　こういうミスはプロのプログラマーでもしょっちゅうですから気にしない気にしない(笑)

書込番号：4159431

[prtwqq]

使っている本にパスが書いているのですが
下記にToolTipTextの内容をコピーペーストします。


C:\WINDOWS\CALC.EXE　電卓
C:\Program Files\Accessories\MSPAINT.EXE　ペイント
C:\Program Files\Accessories\WORDPAD.EXE　ワードパッド
です。

書込番号：4159448

[まきにゃん]

本に書いてあることが間違ってる可能性は低いので、本が想定しているＯＳ(おそらくXP)とprtwqqさんが使ってるＯＳ(2000?)が違うのかもしれませんね。
(少なくとも2000には通常 C:\Windows や C:\Program Files\Accessories というフォルダは存在しません)

書込番号：4160153

[prtwqq]

まきにゃん　さんへ

アドバイスありがとうございました。
各プログラムのプロパティから以下の情報を得ました。

ペイントの場合　リンク先　%SystemRoot%\System32\mspaint.exe 　　　　　　　　作業フォルダ C:\WINDOWS\System32

ワードパッドの場合 　 リンク先 "C:\Program Files\Windows NT\Accessories\wordpad.exe" 作業フォルダ %HOMEDRIVE%%HOMEPATH%
電卓の場合
リンク先%SystemRoot%\System32\calc.exe
作業フォルダ C:\WINDOWS\System32

上記の作業フォルダ、リンク先の内いずれに置き換えたらいいのでしょうか？ところどころ％なる表記がありこれを入力するとエラーになるような気がします。
本は２０００年刊行ですのでwin98,meに準拠しているのでは？
私のOSは、win xp pro sp1です。

書込番号：4160257

[まきにゃん]

詳細な情報提示ありがとうございます。

まず、リンク先の %SystemRoot% は C:\Windows に置き換えて下さい。
その上で３つのプログラムのリンク先のパスをセットしてやればよさそうですね。

書込番号：4160769

[prtwqq]

まきにゃん　さん

返信どうもありがとうございました。
ご指摘の通りに変更したら、正常にプログラムが起動しました。
存在しないパスを入れても当然　そんなものはありません　と言われますよね。

ところで、ｖｂは古い開発環境でしょうか？
全くプログラムの知識がないので　近所の図書館に今回の本があった
ので、始めて見ました。
C言語　コボルなどが現在の主流でしょうか？

書込番号：4161105

[まきにゃん]

うまく動いたほうでよかったですね。

＞ところで、ｖｂは古い開発環境でしょうか？
VB6.0自体は２世代前の開発環境になるので(現在はVB.net2003、もうすぐVB.net2005が出ます)古いといえば古いですね。
もしもっとVBを覚えたいということであれば、VB6.0よりもVB.netを覚えた方がいいと思います。
(VB6.0までとVB.netでは同じVBとはいってもかなり違いますので・・・実際かなりてこずりました ^^;)

＞C言語　コボルなどが現在の主流でしょうか？
どれが主流かといわれると難しいところですね。
・COBOL⇒大型コンピュータ等の事務処理分野では未だ主流
・C言語⇒制御系や速度が要求されるプログラム(ゲームなども)で使われることが多い
・VB⇒一般的なWindowsアプリケーションでは最も使われている
・Java⇒インターネットが絡むアプリケーションで最も使われている
といった感じで、分野によって使い分けられているというのが現状です。

書込番号：4161756

[prtwqq]

Private Sub cmdCheck_Click(Index As Integer)
intState = 0
wskPop3.RemoteHost = txtServerName.Text
wskPop3.RemotePort = 110
wskPop3.Connect
Call ButtonState(True)
End Sub

上記のコードも本の記述どおりですが
コンパイルエラー

メソッドまたはデータメンバが見付かりません。
と表示されます。txtServerName.Textの.Text
の部分が赤字表示されています。
バージョンはVB5.0です。

よろしくお願い致します

書込番号：4163896

[まきにゃん]

考えられるのは、
txtServerNameがテキストコントロール以外のコントロールになってる
位ですね・・・(実はラベルコントロールだったとか ^^;)

書込番号：4165089

[prtwqq]

皆様　いろいろと教えていただきありがとうございました。
WEBでも情報を探していますが、目ぼしいのが見付からないので
ここに質問させてもらっています。
特に　まきにゃんさんには丁寧に教えていただきありがとうございます。

Private Sub Form_Load()
Set objZone = New Zone
Dim i As Integer
For i = 0 To objZone.ZoneCount - 1
objZone.Index = i
lstZoneName.AddItem (objZone.GetName)
Next i
lstZoneName.ListIndex = 0
End Sub


本の通りにコードを書いてエラーになります。
上記のコードの中で、.ZoneCount が赤字表示になり
メソッドまたはデータメンバが見付かりません

と出ます。

書込番号：4165265

[prtwqq]

まきにゃんさん

ありがとうございます。

確認したら、プロパティで見るとtxtServerNameは、テキストボックスに
なっていました。

書込番号：4165311

[はなまがり]

あのさ、本の通りって何の本だよ
ほんとは学生が課題を書き込んで他人にやってもらおうとしてるんじゃないのか

書込番号：4165993

[prtwqq]

accessを使用したプログラムを作っています。
MsFlexGridをフォームに配置しようとしたら、
以下のエラーメッセージが出ました。

このコンポーネントのライセンス情報が見つかりません。デザイン環境でこの機能を使うために必要なライセンスがありません。(Error 429)

この ActiveX コントロールを使うためのライセンスがありません。このエラーの原因と、その解決方法を次に示します。

ｷ デザイン時に、ActiveX コントロールをフォームに配置しようとしたか、または ActiveX コントロールを含むフォームをプロジェクトに追加しようとしましたが、レジストリ内に関連情報がありませんでした。

レジストリ内の情報が削除されたかまたは破損していることが考えられます。ActiveX コントロールを再度セットアップするか、コントロールの発売元に問い合わせてください。


上記の状況ですが、具体的にどう対処すればいいか分かりませんでした。
同様の経験がある方で無事解決できた方がいれば、アドバイスをお願いします。

書込番号：4166728

[まきにゃん]

MsFlexGridについては↓
http://www.google.co.jp/search?hl=ja&q=MsFlexGrid+%E3%83%A9%E3%82%A4%E3%82%BB%E3%83%B3%E3%82%B9&lr=

その前のは、 Zone というオブジェクトがなんなのか分からないので答えようがありません。

>本の通りにコードを書いてエラーになります。
コードだけ本の通りでもダメなわけで、ほかのところもちゃんとあってるか再確認しましょう。
あと、本で想定しているVBのバージョンと使ってるVBのバージョンが違う場合はその差を自分で補わなくてはいけません。

それから、ここは製品そのものに関するやり取りがメインなので、それを使った開発の質疑は他の掲示板の方がレスは付きやすいですよ (^^;
http://www.google.co.jp/search?num=100&hl=ja&q=VB%E5%88%9D%E5%BF%83%E8%80%85%E6%8E%B2%E7%A4%BA%E6%9D%BF&lr=

書込番号：4166831