• ベストアンサー

Letステートメントの使い方について

http://oshiete1.goo.ne.jp/kotaeru.php3?q=307244 に書込もうとしたら締め切られたので,質問という形で投稿します。 Private Sub Command1_Click() Dim a As Object Let a = Label1 End Sub を実行すると 実行時エラー91:オブジェクト変数が設定されていません。 になります。 どういう理由でしょうか？

質問者が選んだベストアンサー

  • ベストアンサー
noname#227796
noname#227796
回答No.3

>オブジェクト変数へ代入もLetで行なうという仕様でも何も問題がないと思います。 そう開発者も思ったのででしょう、VB7ではSetに統一されました。 以前は、おそらく、オブジェクトとオブジェクトインスタンスとそのプロパティと変数とを、それぞれ分離して考えたかったのでしょう。 >文法の設計上何か理由があるのでしょうか? 中途半端なオブジェクト指向がそうさせたのでしょう。 オブジェクトとそれ以外を分けたいという。 .NETでは、そこら辺はJava的になっています。 >Let Text1 = Label1 >は >Let text1.text = Label1.caption >を省略したものと解釈されます(変なの) textとcaptionは、それぞれデフォルトプロパティです。 要は、そのオブジェクトの中で頻繁に使われるプロパティであり、いつも指定するのは面倒だから省略してもいいじゃん、ってことでしょう。 なので、省略された場合は、デフォルトプロパティを指定したと解釈します。 紛らわしいので（開発者がそう思ったのかどうかは知りませんが）、VB7ではデフォルトプロパティはなくなりました。 参考まで。

todo36
質問者

お礼

回答ありがとうございます。 なるほど、変な文法もVB.NETで改善されたわけですね。 Visual Basic 6.0 ユーザーのための Visual Basic.NET 移行ガイド 4.4すべてがオブジェクト型 4.4デフォルトプロパティ http://www.microsoft.com/japan/msdn/net/vbtransitionguide/

その他の回答 (3)

noname#102878
noname#102878
回答No.4

Setに統一されたのとトレードオフで、規定のプロパティを省略できなくなりました。 Dim a As Object Let a = Label1 というコードを見せられて、Captionプロパティの値を入れようとしているのか、インスタンスを参照させようとしているのか、判断つきません。 a = Label1.Caption Set a = Label1 これらはVB6.0以前では明確に別の処理なのです。

noname#227796
noname#227796
回答No.2

Label1は、フォーム上に設置したLabelオブジェクトのインスタンスでしょうか？ Letは、変数やプロパティに値（式の結果）を代入するステートメントです。 また、Letで変数やプロパティに代入できるのは、同じデータ型（またはユーザ定義型）の値だけです。 この場合、aがオブジェクトであるため、代入できません。 オブジェクト変数に、オブジェクトまたはオブジェクトインスタンス（への参照）を代入する場合、Setを使うことになります。 ですので、 Set a = Label1 として、LabelオブジェクトのインスタンスであるLabel1を参照するようにします。 Letを使うのは、例えば、 Dim a As String Let a = Label1.Caption という場合です。 詳しく載っているサイトが見つからなかったので、とりあえず１つだけ参考URLを上げておきます。

参考URL：
http://homepage1.nifty.com/CavalierLab/lab/vb/clsmdl/instance.html
todo36
質問者

補足

回答ありがとうございます。 質問307244でLetとSetの話が出ていますが、そこの結論に 納得できなかったので質問を立てました。 そもそもSetは何故必要なのだろう、以前から疑問でした。 オブジェクト変数へ代入もLetで行なうという仕様でも何も問題が ないと思います。 文法の設計上何か理由があるのでしょうか? ちなみに Let オブジェクト(変数) = オブジェクト(変数) は、標準プロパティから標準プロパティへの代入となります。 Let Text1 = Label1 は Let text1.text = Label1.caption を省略したものと解釈されます(変なの)

  • project-a
  • ベストアンサー率54% (107/195)
回答No.1

エラーとなったときにヘルプを参照するとエラーの説明が表示されます。 この場合は、Let ではなくて Set ではないでしょうか？

  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. Visual Basic

関連するQ&A

  • ビジュアルベーシックのお絵かき掲示板

    まったくの初心者です。初歩的な質問で申し訳ありません。 カラーのところでクリックが実行できません。 なぜなのかよくわかりません。お暇なときご教授下さい。 　そしてもう一つ質問ですが以下のコードを追加したいの ですがどこに挿入すればいいのですか。 →private sub image_click() ccolor = 7 end sub ここまでのコードを追加したいです。 ーーーーーーーーーーーーーーーーーーーーーーーーーー Private Sub Command1_Click() Form1.Cls End Sub Private Sub Command2_Click() End End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Form1.DrawWidth = 3 If Button = 1 Then PSet (X, Y), QBColor(ccolor) End If End Sub Private Sub Label1_Click() cccolor = 14 End Sub Private Sub lavel2_click() cccolor = 0 End Sub Private Sub label3_click() ccolor = 9 End Sub Private Sub label4_click() ccolor = 12 End Sub Private Sub label5_click() ccolor = 10 End Sub

  • Currency (通貨型)に関して教えてください

    Currency (通貨型)に関して教えてください。(VB5です) Private Sub Command1_Click() Dim a As Currency a = 222222 For i = 1 To a Next i End Sub 上のコードではFor文が一度も実行されずに終わってしまいます。 Private Sub Command1_Click() Dim a As Currency a = 22222 For i = 1 To a Next i End Sub これだとちゃんとiが22222まで実行されます。 一体どうしてでしょうか。 よろしくお願いします。

  • Elseifのコードが分かりません。（至急）

    急ぎのため再度の質問失礼します。 ３つの数字すべてが７のとき、メッセージ１を出し、 どれか２つだけが７のときは、メッセージ２を出し、 どれか１つだけが７のときは、メッセージ３を出し、 どこにも７が含まれていないときは、メッセージ４を出すようにEndifを使って書きたいのですが、正しいコードを教えて下さい。 Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Randomize() End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Me.Close() End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click PictureBox1.Visible = False Label4.Visible = False Label1.Text = CStr(Int(Rnd() * 10)) Label2.Text = CStr(Int(Rnd() * 10)) Label3.Text = CStr(Int(Rnd() * 10)) If End If End Sub Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click End Sub Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click End Sub Private Sub Label5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label5.Click End Sub End Class よろしくお願いします。

  • VBAのCallステートメントについて

    ExcelのSheet1にCommandButton1（表示）があります。 -------------------------------------------------- Private Sub 表示_Click() （DBより表示処理） End Sub -------------------------------------------------- UserForm1にCommandButton1（登録）があります。 -------------------------------------------------- Private Sub 登録_Click() （DBへの登録処理） UserForm1.Hide Call WorkSheets("Sheet1").表示_Click() ・・・☆ Exit Sub End Sub -------------------------------------------------- 表記のようなプログラムにしたところ、☆印のところで、 下記エラーが表示されてしまいます。 【エラー】--------------------------------------------------- 実行時エラー'91'： オブジェクト変数またはWithブロック変数が設定されていません。 ------------------------------------------------------------- どのようにしたらCallステートメントで表示_Clickを呼び出すことが できるのでしょうか。

  • 別のプロシージャに変数を渡したい

    別のプロシージャに変数を渡せなくて困っています。 下記の内容を実行させようとしています。 １．command1ボタンをクリックして計算を終えて ２．command2ボタンをクリックすると計算結果をクリップボードに入れてメモ帳に貼り付ける コードの概要は下記です。 【１．】////////////////////////////////////////////////////////////// Private Sub Command1_Click() Dim final as String 'いろいろと計算して最終的にfinalというstring型変数に文字列を得る。 final=計算結果 End Sub 【２．】////////////////////////////////////////////////////////////// Private Sub command2_click() Clipboard.Clear Clipboard.SetText final Dim memo As Long memo = Shell("Notepad.exe", vbNormalFocus) AppActivate memo, True 'アプリをアクティブにする SendKeys "^v" End Sub ////////////////////////////////////////////////////////////////////// 調べた結果，ByValがキーワードではないかと思い，Private Sub Command1_Click(ByVala final as string)など試してみましたができませんでした。 [余談] １．のプロシージャ内で，クリップボードに入れてしまえばよいのですが，そうすると，１．の処理が終わってから，command2を押すまでの間にユーザがクリップボードを利用したら，このプログラムが成立しなくなるので，それは避けたいと思っています。

  • 変数の値について

    変数の値について教えてください。 VB2010 Private Sub Button１_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim A As Single A = 2.0 MsgBox(A) End Sub 上記のプロシジャを実行するとメッセージボックスに２と表示され 2.0と表示しません。 2.0と表示させるには、どのようにすればよいなでしょうか。

  • ＶＢ初心者です

    計算結果が"7"の時に限り、「当たり！」と表示される、ちょっと意味不明な計算機を作っています。 現在、下記のように書いてますが、何故かうまくいきません。（当たりが表示されない 何故でしょうか？お助けください。。m(_ _)m Private Sub Command1_Click() Label1.Caption = Str(Val(Text1.Text) + Val(Text2.Text)) Label3.Caption = "+" Label4.Visible = False '画像を隠す。 'いずれかの数字が「7」のとき、メッセージを表示する。 If Label1.Caption = "7" Then Label4.Visible = True End If End Sub Private Sub Command2_Click() End End Sub Private Sub Command3_Click() Label1.Caption = Str(Val(Text1.Text) * Val(Text2.Text)) Label3.Caption = "*" End Sub Private Sub Command4_Click() Label1.Caption = Str(Val(Text1.Text) - Val(Text2.Text)) Label3.Caption = "-" End Sub Private Sub Command5_Click() Label1.Caption = Str(Val(Text1.Text) / Val(Text2.Text)) Label3.Caption = "/" End Sub

  • ユーザーコントロール(OCX)のオブジェクト名

    ２点わからない点がありますのでよろしくお願いします。 (1)ユーザーコントロールのオブジェクト名を引数として使用したいのですが エラーが発生し困っています。どのようにしたらいいのでしょうか？ ユーザ-コントロールのオブジェクト名：UserControl1 ☆でエラーが発生する「オブジェクトはこのプロパティまたはメソッドをサポートしていません。」 ※関数aはDLLとなっておりどうしてもオブジェクト型で渡さなければなりません。 Private Sub Command1_Click() Call a(Me) End Sub ＝＝＝DLL関数：a＝＝＝ オブジェクト名とボタン名をINIファイルに書き込む処理 ＝＝＝＝＝＝＝＝＝＝＝ Private Sub a(prmObj As Object) Dim strMsg As String strMsg = prmObj.Name　・・・☆ ： ： ： End Sub (2)String型からObject型に変換するのは可能でしょうか？ INIファイルから"UserControl1.Command.Enable = False"というString型のデータを読込み、 ボタンを有効・無効設定するという事が処理がしたいのですが何かいい方法がありましたら教えてください。 Private Sub UserControl_Initialize() Dim a As Object Dim b as String 'INIファイルから取得 Dim c as String　　　　　　 'INIファイルから取得 b = "UserControl1.Command1" c = "False" 　　Set a = Me.Controls(b) If c = "False" then a.Enable = False else a.Enable = True End If End Sub

  • MDIParent1に、ToolStripButton1とLabel1

    MDIParent1に、ToolStripButton1とLabel1、Label2を 配置しています。 やりたいことは 　(1)ToolStripButton1をクリックしてForm1を表示させる。 　(2)Label1をクリックしてForm1のTextをLabel1のTextに変更する。 　(3)Label2をクリックしてForm1のTextをLabel2のTextに変更する。 最初に表示させたForm1のTextのみを変更させる。 現在下記のプログラムを実行したのですが Label1をクリックすると新たにForm1が表示されてしまいます。 (Form1のTextはLabel1のTextに変更されている) Label2をクリックすると新たにForm1が表示されてしまいます。 (Form1のTextはLabel2のTextに変更されている) クリックする毎にForm1がふえていきます。 対策方法を教えてください。 Public Class MDIParent1 Dim F1 As Form1 　Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click Dim frm As New Form1 frm.MdiParent = Me frm.Show() End Sub 　　Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click F1 = New Form1 F1.Visible = True F1.Text = Label1.Text Label1.BorderStyle = BorderStyle.Fixed3D Label2.BorderStyle = BorderStyle.None End Sub 　　Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click F1 = New Form1 F1.Visible = True F1.Text = Label2.Text Label2.BorderStyle = BorderStyle.Fixed3D Label1.BorderStyle = BorderStyle.None End Sub End Class

  • 途中でエラーが出てしまい手が止まってしまいました（T_T）

    Visual Basicについてなんですが、いいですか？ http://azsx00.tripod.co.jp/D001.jpg 初心者じみた質問ですみません。 上記の画像ののようなプログラムが途中までで引っかかってしまって先に進めません。 どなたかご指導下さい。 一応自分で考えた結果です。どこが悪いとか何が分かってないとかいろいろアドバイスもあればお願いします。まだ習い始めたばかりです。 Dim Number As Integer Dim Score As Integer Dim MessageText As String Private Sub Command1_Click() If Number > 7 Then Score = Score + 1 MessageText "あたり" End If If Number < 7 Then Score = Score - 1 MessageText "外れ" End If If Number = 7 Then Score = Score + 0 MessageText "引き分け" End If End Sub Private Sub Command2_Click() If Number > 7 Then Score = Score + 1 MessageText "あたり" End If If Number < 7 Then Score = Score - 1 MessageText "外れ" End If If Number = 7 Then Score = Score + 0 MessageText "引き分け" End If End Sub Private Sub Form_Load() Number = Rnd() * 13 + 1 Score = 0 Label1.Caption = "?" Text1.Text = "Score:" & Score End Sub Private Sub Label1_Click() If Number > 7 Then Label1.Caption = "Score" End If If Number < 7 Then Label1.Caption = "Score" End If End Sub

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する