실행중인 프레임 워크 4.0 (VB.net)응용 프로그램이 application.run (FRM)과 함께 작업 표시 줄에 표시되지 않습니다. 시도한 여러 항목
ShowInTaskbar 속성은 True로 설정됩니다.
여기에서 주 창을 실행할 코드입니다. 내가 양식을 클릭하는 경우에도 모든 코드
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
는하지만이 도움이되지 않는 상속 양식에서 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
모든 코드에서 다음
Dim frm As New frmMain
frm.ShowInTaskbar = True
Application.Run(frm)
, 앱이 작업 표시 줄에 나타나지 않습니다.
그러나 정말 이상한 점은 중단 점을 넣거나 처음 작업 표시 줄을 클릭 한 다음 프로그램이 작업 표시 줄에 나타나는 양식을 다시 클릭하면됩니다.
alt-tab을 사용하면 작업 표시 줄에도 프로그램을 표시 할 수 있습니다.
감사합니다.
더 많은 코드를 붙여주세요. 양식로드 이벤트는 최소한 –
입니다. 여기에 많이 없습니다. – Pilouk
응용 프로그램에 제목이 있습니까? –