1 PRivate Sub lstShowRunning_MouseDoubleClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles lstShowRunning.MouseDoubleClick 2 Try 3 If lstShowRunning.SelectedItems.Count > 0 Then 4 If lstShowRunning.SelectedItems(0).ToolTipText <> "" Then 5 Using frmMsg As New frmMessage(lstShowRunning.SelectedItems(0).ToolTipText) 6 frmMsg.ShowDialog() 7 End Using 8 End If 9 10 End If11 Catch12 Try13 If lstShowRunning.SelectedItems.Count > 0 Then14 MessageBox.Show(lstShowRunning.SelectedItems(0).ToolTipText)15 End If16 Catch17 End Try18 End Try19 End Sub20 End Class
新闻热点
疑难解答