• ベストアンサー

VB6では、Applicationは未定義なのでしょうか？

VB6を使ってプログラムを書いているのですが、以下のソースの部分で エラーになりました。 Dim winname As String winname = Application.Caption <-- Applicationが未定義？　 コンパイルエラー 変数が定義されていません。 というエラーメッセージが表示されます。 VB6では、Applicationは未定義なのでしょうか？

  • hdkoa
  • お礼率0% (1/117)

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

  • ベストアンサー
  • osamuy
  • ベストアンサー率42% (1231/2878)
回答No.1

インスタンスAppはありますが、Captionというプロパティは備えてないはず。 FormならCaptionありますね。 App.Pathとかで代用するとか。 詳しくはリファレンス(F1)をご覧下さい。 # Excel VBAからの移行?

その他の回答 (2)

回答No.3

App.Title かな？

  • dsuekichi
  • ベストアンサー率64% (171/265)
回答No.2

> VB6では、Applicationは未定義なのでしょうか？ 未定義です。 というか・・・「Application」として、何が定義されているとおもわれたでしょうか？ ＃例えば、ExcelVBAでは「Application」は「Excelそのもの」ですが・・・ 強いて言うなら、「貴方が作ろうとしているプログラムそのもの」？ だとすると、VB6には「App」と言うオブジェクトはありますが・・・ 「Caption」プロパティは持ってませんけど。

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

関連するQ&A

  • VB6.0からVB2008移植時のStringの使用方法

    初歩的な質問だと思うのですが色々調べてもわからなかったのでご教授願います。 VB6.0からVB2008にプログラムを移植しているのですが以下の部分の修正方法がわかりません。 元(VB6.0)のソース Dim strStart, strEnd As String strStart = Format( data.Start(0), "0.0" ) strEnd = Format( data.End(0), "0.0" ) Label.Caption = strStart & "-" & strEnd 'data.Start/data.EndはSingleの配列 VB2008のソース Dim strStart As String Dim strEnd As String strStart = VB6.Format( data.Start(0), "0.0" ) strEnd = VB6.Format( data.End(0), "0.0" ) Label.Caption = strStart & "-" & strEnd 'VB6.Format～はソースをUpGradeしたときに自動で変換されました VB2008のstrStartに設定する時点でエラー('System.NullReferenceException' の初回例外が DataRcvSample.exe で発生しました。)となりstrStartがNothingなのがいけないところまではわかったのですが、Newを使ってどのように設定すればいいのかがわかりません。 VB自体まだ２週間位しか触っていない初心者なのですが、急ぎの仕事で勉強する時間がなく、どうすればいいのか困っています。 修正方法をご教授願います。

  • VBのString型の配列をVCで受け取るには？

    VBでString型の配列として定義されている変数を VCのプログラムで受け取るにはどうすればよいのでしょうか？ 試しにVBでString型の配列を作って DLLのC_TESTというファンクションを呼び出すという 処理を作ってみたのですが、コンパイルエラーになってしまいます。 なにかおかしいところありますか？ そもそもVCにはString型ってないんですよね？ プログラミング初心者ですので、変な言葉遣いに なってるかもしれませんが宜しくお願いします。 VB Declare Function C_TEST Lib "\test.dll" (ByVal data() As String) As Integer Dim A(1) As String dim rtn as Integer A(0)="あああ" A(1)="いいい" rtn= C_TEST(A) VCのプログラム int _stdcall C_TEST(LPSTR A[2] ){ AfxMessageBox( A[0] ); return(0); }

  • 関数の引数に複数のユーザ定義型変数を使いたい

    一つの関数の一つのパラメータが異なるユーザ定義型を受けられるようにしたいのですが、どのようにすればいいのでしょうか？ Public Type TypeA strCodeA As String intNumA As Integer End Type Public Type TypeB strCodeB As String intNumB As Integer End Type Public Function funcTest(arg1 As Variant) As Integer (略) End Function と記述して関数を Dim datA As TypeA iResult = funcTest(datA) と呼び出そうとすると、次のようなエラーメッセージが表示されて進みません。 コンパイルエラー: パブリックオブジェクトモジュールで定義されたユーザー定義型に限り、変数に割り当てることができ、実行時バインディングの関数に渡すことができます。

  • Windows7 & VB6(SP6) & office2010(Bata)

    WindowsXP & VB6(SP5) & office2003の組み合わせで プログラミングをしておりました。 Windows7 & VB6(SP6) & office2010(Bata)の組み合わせで テストをしております。 Dim wApp As Excel.Application ここで、 コンパイルエラー ユーザー型は定義されていません。 と、なってしまいます。 解決方法を教えて下さい。宜しくお願い致します。

  • Access2002 VB がエラー

    Access2002 VBで以下のコーディングをしてます Dim db As Database Dim rs As Recordset Dim fld As Field Set db = CurrentDb Set rs = db.OpenRecordset("ConvertChar") これを実行するとdb宣言行で以下のエラーが表示されます。 コンパイルエラー： ユーザ定義型は定義されていません。 これは何が原因でエラーとなるのでしょうか？ 宜しくお願いします。

  • VB６のTYPE文をVB.NETのStructureに変えるとき

    VB６のTYPE文をVB.NETのStructureに変えるとき 下記VB6のコードをVB.NETのStructureに変える場合 Type kouzou1 i As Integer j As Integer a As String * 20 b As String * 50 End Type を下記にしてみたのですが *20,*50のところは、どのように表現するのでしょうか。 Structure kouzou1 Dim i As Integer Dim j As Integer Dim a As String * 20　<- ステートメントの終わりを示してくださいのエラーになる。 Dim b As String * 50　<- ステートメントの終わりを示してくださいのエラーになる。 End Structure お教え下さい。

  • VB.net 引数で配列変数を渡す際の要素数

    VB.net 2010 の質問です。 配列変数を他のプロシージャに引数で渡す際の、配列変数の要素数をあらかじめ宣言していないとエラーになります。 Dim Hairetsu() As String '　←エラー Dim Hairetsu(100) As String '　←正常 Public Sub aaa(ByRef Hairetsu() As String) Hairetsu(0) = "Test" '←正常の場合と、エラーの場合 End Sub Hairetsu(100) のように、要素数を宣言していると、エラーにならないのですが、 プログラム中、要素数がどこまで増加するか、分かりません。 Hairetsu()のように、要素数未確定の配列変数を渡すことは出来ないのでしょうか。 ご存知の方がいらっしゃいましたら、なにとぞアドバイスの程、よろしくお願いいたします。

  • VBのFileStreamについて

    Visual Basicについて質問です。 ファイルをD＆Dをするとそのファイルのサイズを表示するプログラムをつくっています。 今まで順調だったのですがいざコンパイルしてやってみるとエラーが出てしまいます。 パスに空白文字が含まれているのが原因だとわかったんですがダブルクオーテーションをつけても治りません。 空白文字のないパスなら成功します。 これはこのプログラムのコードで原因があると思われる部分です。↓ Dim path As String = Command().ToString path.Trim() Dim ifs As FileStream = New FileStream(path, FileMode.Open) １，FileStreamでは空白文字のあるパスは使えないのですか？ ２，この場合はどうやったら対処できますか？ どなたかVBに詳しい方、ご教授願います。

  • Access2002 VB で「ユーザ定義型は定義されていません」

    Access2002で ------------------------------- Private Sub 起動パスの確認_Click() Dim db As DAO.Database Dim strPass As String Set db = CurrentDb strPass = db.Name Me.起動パス = strPass db.Close: Set db = Nothing End Sub ------------------------------- を実行すると コンパイルエラー： ユーザ定義型は定義されていません。 と表示されます。 他の方の質問の回答で、 ツール-参照設定 で「Microsoft DAO 3.6・・・」にチェックをつけてください。 とありましたが、ツールの中に「参照設定」が見つかりません。 この場合、どうしたら良いのでしょうか？ 初歩的な質問ですみません。 教えてください。

  • 「変数の宣言」と「変数の定義」は同じ意味ですか？

    Dim myStr As String は、変数の宣言と定義、どちらになるのでしょうか？ どちらともいいますか？

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

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

質問する