タイトル | : FormにDrag&Drop時の他フォーム呼び出しについて |
記事No | : 2112 |
投稿日 | : 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 この後に圧縮処理が続く
|