タイトル : 検索ダイアログ 投稿日 : 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 以下 略 ------------------------------------------------------------------------ |