tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]  [ワード検索]  [Home]

タイトル FormにDrag&Drop時の他フォーム呼び出しについて
投稿日: 2005/09/12(Mon) 16:53
投稿者ageha
[OSのVer]:Windows    [VBのVer]:VB.NET 
御疲れ様です。
またご教授願いたく参りました。
今回はForm1にファイルをDrag&Dropして、ドロップされたらForm2を開くという
流れのプログラミングを作成中なのですが、Form2が描画されてから、Form2をDrag&Dropして位置
を動かした
りしますと、残像が残ります。またその後の処理が全て終わるまで、Form2が消えません。
下記に簡単では抜粋致しましたので、どなたか御教授願います。

Public Class Form1
    Inherits System.Windows.Forms.Form
                     .
                     .
                     .
     Private Sub Form1_DragDrop(ByVal sender As Object, ByVal e As                    
System.Windows.Forms.DragEventArgs) Handles MyBase.DragDrop

        Dim Fstr() As String = e.Data.GetData(DataFormats.FileDrop, True)
        Dim AddFiles As String

        '圧縮の詳細設定の呼び出し
        f6 = New D_Property
        f6.ShowDialog()
                        .
                        .
                        .
end Class

Public Class D_Property
    Inherits System.Windows.Forms.Form
                        .
                        .
                        .
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button1.Click

        If ComboBox1.Text = "" And ComboBox2.Text = "" Then
            MsgBox("圧縮形式と圧縮率を指定して下さい。")
        ElseIf ComboBox1.Text = "" Then
            MsgBox("圧縮形式を指定して下さい。")
        ElseIf ComboBox2.Text = "" Then
            MsgBox("圧縮率を指定して下さい。")
        Else
            ZipTypeNo = ComboBox1.SelectedIndex
            ZipOptNo = ComboBox2.SelectedIndex
            Me.Close()
        End If

    End Sub
end class
この後に圧縮処理が続く

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。