0

フレームワーク 4.0 の実行 (VB.net)

プロパティ ShowInTaskbar が True に設定されています。

メイン ウィンドウを実行するコードを次に示します。

 Dim frm As New frmMain
 frm.ShowInTaskbar = True
 Application.Run(frm)

ここに frmMain からのすべてのコード

  Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Try
        Application.DoEvents()
        Me.Focus()
        Me.Activate()

        PeutExecuterSynchronisationAutomatique = True
        'placer le bouton d'aide en ligne 
        btnAideToolTip.Location = New Point((btnPreference.Location.X - btnAideToolTip.Width) - 5, btnAideToolTip.Location.Y)
        btnAideToolTip.Visible = True



        Label5.Text = "version(x)"

    Catch ex As Exception
        HandleException(ex)
    End Try
End Sub

ここで継承フォームからのすべてのコード

Public Overridable Sub FormBase_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Try


        If Not designmode AndAlso Not Application.ExecutablePath.ToLower().IndexOf("devenv.exe") > -1 Then
            If EasyDealINI.FichierINIEasyDealTailleDefaut = False Then

                Me.Height = CInt(Me.Height * Ratio)
                Me.Width = CInt(Me.Width * Ratio)
                Me.Font = New Font(Me.Font.FontFamily, (Me.Font.Size * Ratio) - (DIMINUEUR_RATIO_POLICE * Ratio), Me.Font.Style)


                Me.CenterToScreen()

                UC_MenuBottom.AjusterControles()
                UC_MenuBottom.AppliquerTypeBouton()
            End If
        End If


        If Not DesignMode Then
            'Sert à ce qu'EasyDeal en plein écran n'ait pas l'air d'un Transformer qui se déplie.
            'Me.Visible = False --> Suspend le layout dans FormBaseDetailCalcul (voir AjusterControls) - Philippe 2008/06/04

            If Not FormBase.DossierImagesPath Is Nothing Then
                Dim strNomFichier As String = FormBase.DossierImagesPath & "Icone.ico"  'Le signe chinois
                'Dim strNomFichier As String = FormBase.DossierImagesPath & "Logo.ico"   'La terre
                Dim Fichier As New FileInfo(strNomFichier)
                If Fichier.Exists Then
                    Me.Icon = New Icon(strNomFichier)
                End If
            End If
        End If

        Me.MaximizeBox = False
        Me.MinimizeBox = True
        DesactiverCloseBouton()

        'Pour permettre que sur le ENTER la navigation se fasse comme en Access
        '(Agir comme un (TAB)... Voir évenement FormBase_KeyUp
        Me.KeyPreview = True
        Me.ShowInTaskbar = True
        Me.StartPosition = FormStartPosition.CenterScreen

        Me.AppliquerCouleurs(Me)

        'on met Easydeal comme texte de fenêtre 
        Me.Text = DEFAULT_WINDOW_TEXT
        Me.Focus()
        Me.Activate()

    Catch ex As Exception
        HandleException(ex)
    End Try
End Sub

フォームをクリックしてもアプリがタスクバーに表示されません。

ただし、本当に奇妙なのは、ブレークポイントを配置するか、最初にタスクバーをクリックしてからフォームをもう一度クリックすると、プログラムがタスクバーに表示されることです。

alt-tab を使用すると、プログラムがタスク バーにも表示されます。

ありがとう！

4

3 に答える 3

2

ウィンドウのFormBorderStyleとは何ですか？FixedToolWindowの場合、タスクバーに表示されません

于 2012-11-26T19:15:52.240 に答える
0

フォームの読み込みイベントでShowInTaskbarを次の2行で切り替えます。

ウィンドウがモーダルウィンドウでない場合にのみ機能します。今のところ、これは良いことです。

This.ShowInTaskbar = False;
This.ShowInTaskbar = True;

ただし、モーダルウィンドウのshowmeintaskbarをfalseに設定すると、フォームは自動的に閉じます

これがコールスタックです：

>   EasyDeal.exe!EasyDeal.Windows.UI.FrmMenuSuivi.FrmMenuSuivi_FormClosing(Object sender, System.Windows.Forms.FormClosingEventArgs e) Line 382 Basic
System.Windows.Forms.dll!System.Windows.Forms.Form.OnFormClosing(System.Windows.Forms.FormClosingEventArgs e) + 0x85 bytes  
System.Windows.Forms.dll!System.Windows.Forms.Form.CheckCloseDialog(bool closingOnly) + 0x8d bytes  
System.Windows.Forms.dll!System.Windows.Forms.Application.ThreadContext.System.Windows.Forms.UnsafeNativeMethods.IMsoComponent.FContinueMessageLoop(int reason, int pvLoopData, System.Windows.Forms.NativeMethods.MSG[] msgPeeked) + 0x148 bytes   
System.Windows.Forms.dll!System.Windows.Forms.Application.ComponentManager.System.Windows.Forms.UnsafeNativeMethods.IMsoComponentManager.FPushMessageLoop(System.IntPtr dwComponentID, int reason, int pvLoopData) + 0x1e9 bytes    
System.Windows.Forms.dll!System.Windows.Forms.Application.ThreadContext.RunMessageLoopInner(int reason, System.Windows.Forms.ApplicationContext context) + 0x16c bytes  
System.Windows.Forms.dll!System.Windows.Forms.Application.ThreadContext.RunMessageLoop(int reason, System.Windows.Forms.ApplicationContext context) + 0x61 bytes    
System.Windows.Forms.dll!System.Windows.Forms.Application.RunDialog(System.Windows.Forms.Form form) + 0x33 bytes    
System.Windows.Forms.dll!System.Windows.Forms.Form.ShowDialog(System.Windows.Forms.IWin32Window owner) + 0x38f bytes    
System.Windows.Forms.dll!System.Windows.Forms.Form.ShowDialog() + 0x7 bytes 
EasyDeal.exe!EasyDeal.Windows.UI.EasyDealCommon.ShowEasyDealForm(EasyDeal.Windows.UI.FormBase formToShow, EasyDeal.Windows.UI.FormBase formSender, Boolean closeFormSender, Boolean forceDialog) Line 2787 + 0xc bytes  Basic
于 2012-12-03T22:22:32.803 に答える
0

申し訳ありませんが、C# の例しかありませんが、同じロジックが適用されます!

Form_Load メソッドでフォームのサイズ変更または配置が行われる場合に、この問題が発生することがあります。このような操作:

// Set Size and location of items...
this.MaximumSize = new System.Drawing.Size(1012, 665);
this.MinimumSize = new System.Drawing.Size(1012, 665);
this.MaximizeBox = false;

またはこのようなもの：

// Centre the main form to centre screen...
this.Location = new Point((Screen.PrimaryScreen.Bounds.Size.Width / 2) - (this.Size.Width / 2), (Screen.PrimaryScreen.Bounds.Size.Height / 2) - (this.Size.Height / 2));

これを行う必要がある場合は、適切な場所で行われていることを確認してください。私は私のものを好みます：

Form1()

メソッドの直後:

// Initialize Components...
InitializeComponent();

方法。これにより、フォーム アイコンが表示され、問題が解決されます。

于 2013-12-27T06:34:11.017 に答える