タイトル | : 検索ダイアログ |
記事No | : 9024 |
投稿日 | : 2009/05/26(Tue) 20:16 |
投稿者 | : bin |
VB2008 Express Edition を使用しある本に従ってエディタに検索機能をつけよ うとしています。 質問はコーディングの下のほうにある CType(Me.Owner, Form1) のところで 「Form1 が定義されていません」という警告が出されてしまい、どのように定 義したらよいのかわかりません。 出版元に質問すると「そのようなことはない。VB を再インストールしたらどう か」という答えがかえってきました。 Form1 をどのように定義すればよいのかお教えください。
メインのフォーム Form1 検索のフォーム FindDialog 下記はFindDialog.vbのコーディングの一部 ----------------------------------------------------------------------- Public Class FindDialog Public StrFind As String
Private Sub FindDialog_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load TextBox1.Text = StrFind End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged StrFind = TextBox1.Text End Sub
Private Sub btnNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNext.Click If StrFind.Length > 0 Then CType(Me.Owner, Form1).StrFind = Me.StrFind CType(Me.Owner, Form1).EditFindNext() End If End Sub
以下 略
------------------------------------------------------------------------
|