HPの画像表示などについて

タグの編集
投稿者 tooo  (高校生) 投稿日時 2010/7/30 15:25:21
こんにちは

フォーム1にToolStripMenuを設置してタグ→画像って打ち込んで画像をダブルクリックしてコードを開きます。

フォーム4を呼び出します。

Private Sub 画像ToolStripMenuItem_Click(ByVal sender As System.ObjectByVal e As System.EventArgs) Handles 画像ToolStripMenuItem.Click
        Dim f As New Form4()
        
        f.ShowDialog(Me)
    
        f.Dispose()
    End Sub


で、フォーム4にテキストボックス1とテキストボックス2を設置します。
テキストボックス1が画像の場所でテキストボックス2が代替テキストです。

テキストボックスに入力してOKボタンを押すとフォーム1のRichTextBox1に反映する方法が知りたいです。

テキストボックス1が画像のURLのところに反映されテキストボックス2がテストってところに反映されるようにしたいです。

<IMG src="画像のURL" alt="テスト"> 

おねがいします 
投稿者 魔界の仮面弁士  (社会人) 投稿日時 2010/7/30 16:26:59
> テキストボックスに入力してOKボタンを押すとフォーム1のRichTextBox1に反映する方法が知りたいです。
方法は幾つかありますが、ここでは Form4 側に、テキストボックスの内容を返すための
「SrcText プロパティ」「AltText プロパティ」を用意する方法を提示しておきます。


(1) Form4 の [AcceptButton] プロパティに、OK ボタンを割り当てておきます。
 キャンセルボタンがある場合には、[CancelButton] プロパティも設定しましょう。

(2) OK ボタンの [DialogResult] プロパティに、"OK" を割り当てます。
 キャンセルボタンがある場合には、"Cancel" を割り当てておくと良いでしょう。

(3) Form4 に、SrcText プロパティの定義を追加します。
Private _SrcText As String = ""
Public ReadOnly Property SrcText() As String
    Get
        Return _SrcText
    End Get
End Property

(4) 同様に、Form4 に AltText プロパティを追加します。
Private _AltText As String = ""
Public ReadOnly Property AltText() As String
    Get
        Return _AltText
    End Get
End Property

(5) Form4 の FormClosing イベントに、以下のコードを記述します。
If Me.DialogResult = System.Windows.Forms.DialogResult.OK Then
    _SrcText = TextBox1.Text    '画像の場所 
    _AltText = TextBox2.Text    '代替テキスト 
Else
    _SrcText = ""
    _AltText = ""
End If



これで準備完了です。呼び出し側(Form1)のコードは、たとえば以下のようになります。

Using f As New Form4()
    If f.ShowDialog(Me) = System.Windows.Forms.DialogResult.OK Then
        RichTextBox1.SelectedText = String.Format( _
            "<IMG src=""{0}"" alt=""{1}"">", _
            f.SrcText, f.AltText)
    End If
End Using
投稿者 tooo  (高校生) 投稿日時 2010/7/30 16:49:42
魔界の仮面弁士さんありがとうございます。
出来ました!!!