-1

私のvb.net Windowsアプリケーションでは、 event 内にいくつかのコードを書きMouseMoveました。アプリケーションが実行され、カーソルがアプリケーション内に入ると、messageboxポップアップが表示され、1 秒以内に表示されなくなります。その中に何が入っているか読めませんmessagebox

messageboxキャプション.netフレームワークを持っているこの不要なものを取り除くのを手伝ってくれませんか。これが私のコードです

Public Class ToolDashboard
    Imports System.Configuration
    Imports System.Collections.Specialized
    Public Class CompassToolDashboard
    Dim path As NameValueCollection

        Private Sub ToolDashboard_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            Me.Location = New Point(Screen.PrimaryScreen.WorkingArea.Width - (Me.Width - 50), Screen.PrimaryScreen.WorkingArea.Height - Me.Height)
            path = ConfigurationManager.GetSection("ToolPath")
        End Sub

         Private Sub ToolDashboard_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.MouseEnter
              Me.BringToFront()
              While Me.Opacity < 1
                 Me.Opacity = Me.Opacity + 0.06
             End While
        End Sub

       Private Sub ToolDashboard_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.MouseLeave
             While Me.Opacity > 0
                Me.Opacity = Me.Opacity - 0.001
             End While
       End Sub    
       Private Sub CloseForm_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CloseForm.Click, CloseForm.Click
            Process.GetCurrentProcess().Kill()
        End Sub

        Private Sub ShareTool_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VMDashboard.Click
            System.Diagnostics.Process.Start(path("IndexGenerator")) 
        'getting path for Indexgenerator.exe from app.config                 
        'Index generator.exe is present in a remote system      
        End Sub
 End Class
4

2 に答える 2