momo Splash Screen implementálása

momoERP.Win.HA/MomoSplash.Designer.vb

@@ -0,0 +1,122 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class MomoSplash
+    Inherits DevExpress.XtraSplashScreen.SplashScreen
+
+    'Form overrides dispose to clean up the component list.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Required by the Windows Form Designer
+    Private components As System.ComponentModel.IContainer
+
+    'NOTE: The following procedure is required by the Windows Form Designer
+    'It can be modified using the Windows Form Designer.
+    'Do not modify it using the code editor.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(MomoSplash))
+        Me.pictureEdit1 = New DevExpress.XtraEditors.PictureEdit()
+        Me.labelControl2 = New DevExpress.XtraEditors.LabelControl()
+        Me.labelControl1 = New DevExpress.XtraEditors.LabelControl()
+        Me.marqueeProgressBarControl1 = New DevExpress.XtraEditors.MarqueeProgressBarControl()
+        Me.pictureEdit2 = New DevExpress.XtraEditors.PictureEdit()
+        CType(Me.pictureEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.marqueeProgressBarControl1.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.pictureEdit2.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'pictureEdit1
+        '
+        Me.pictureEdit1.Cursor = System.Windows.Forms.Cursors.WaitCursor
+        Me.pictureEdit1.EditValue = CType(resources.GetObject("pictureEdit1.EditValue"), Object)
+        Me.pictureEdit1.Location = New System.Drawing.Point(347, 359)
+        Me.pictureEdit1.Name = "pictureEdit1"
+        Me.pictureEdit1.Properties.AllowFocused = False
+        Me.pictureEdit1.Properties.Appearance.BackColor = System.Drawing.Color.Transparent
+        Me.pictureEdit1.Properties.Appearance.Options.UseBackColor = True
+        Me.pictureEdit1.Properties.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder
+        Me.pictureEdit1.Properties.ShowMenu = False
+        Me.pictureEdit1.Size = New System.Drawing.Size(160, 48)
+        Me.pictureEdit1.TabIndex = 13
+        Me.pictureEdit1.UseWaitCursor = True
+        '
+        'labelControl2
+        '
+        Me.labelControl2.Location = New System.Drawing.Point(23, 206)
+        Me.labelControl2.Name = "labelControl2"
+        Me.labelControl2.Size = New System.Drawing.Size(50, 13)
+        Me.labelControl2.TabIndex = 12
+        Me.labelControl2.Text = "Starting..."
+        Me.labelControl2.UseWaitCursor = True
+        '
+        'labelControl1
+        '
+        Me.labelControl1.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder
+        Me.labelControl1.Location = New System.Drawing.Point(23, 379)
+        Me.labelControl1.Name = "labelControl1"
+        Me.labelControl1.Size = New System.Drawing.Size(168, 13)
+        Me.labelControl1.TabIndex = 11
+        Me.labelControl1.Text = "Copyright © 2017-2018 momo ERP"
+        Me.labelControl1.UseWaitCursor = True
+        '
+        'marqueeProgressBarControl1
+        '
+        Me.marqueeProgressBarControl1.EditValue = 0
+        Me.marqueeProgressBarControl1.Location = New System.Drawing.Point(23, 341)
+        Me.marqueeProgressBarControl1.Name = "marqueeProgressBarControl1"
+        Me.marqueeProgressBarControl1.Properties.MarqueeAnimationSpeed = 1
+        Me.marqueeProgressBarControl1.Properties.ProgressAnimationMode = DevExpress.Utils.Drawing.ProgressAnimationMode.PingPong
+        Me.marqueeProgressBarControl1.Size = New System.Drawing.Size(484, 12)
+        Me.marqueeProgressBarControl1.TabIndex = 10
+        Me.marqueeProgressBarControl1.UseWaitCursor = True
+        '
+        'pictureEdit2
+        '
+        Me.pictureEdit2.Cursor = System.Windows.Forms.Cursors.WaitCursor
+        Me.pictureEdit2.EditValue = CType(resources.GetObject("pictureEdit2.EditValue"), Object)
+        Me.pictureEdit2.Location = New System.Drawing.Point(23, 12)
+        Me.pictureEdit2.Name = "pictureEdit2"
+        Me.pictureEdit2.Properties.AllowFocused = False
+        Me.pictureEdit2.Properties.Appearance.BackColor = System.Drawing.Color.Transparent
+        Me.pictureEdit2.Properties.Appearance.Options.UseBackColor = True
+        Me.pictureEdit2.Properties.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder
+        Me.pictureEdit2.Properties.ShowMenu = False
+        Me.pictureEdit2.Properties.SizeMode = DevExpress.XtraEditors.Controls.PictureSizeMode.Squeeze
+        Me.pictureEdit2.Size = New System.Drawing.Size(484, 323)
+        Me.pictureEdit2.TabIndex = 14
+        Me.pictureEdit2.UseWaitCursor = True
+        '
+        'MomoSplash
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(525, 428)
+        Me.Controls.Add(Me.pictureEdit2)
+        Me.Controls.Add(Me.pictureEdit1)
+        Me.Controls.Add(Me.labelControl2)
+        Me.Controls.Add(Me.labelControl1)
+        Me.Controls.Add(Me.marqueeProgressBarControl1)
+        Me.Name = "MomoSplash"
+        Me.Text = "Form1"
+        Me.UseWaitCursor = True
+        CType(Me.pictureEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.marqueeProgressBarControl1.Properties, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.pictureEdit2.Properties, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+    Private WithEvents pictureEdit1 As DevExpress.XtraEditors.PictureEdit
+    Private WithEvents labelControl2 As DevExpress.XtraEditors.LabelControl
+    Private WithEvents labelControl1 As DevExpress.XtraEditors.LabelControl
+    Private WithEvents marqueeProgressBarControl1 As DevExpress.XtraEditors.MarqueeProgressBarControl
+    Private WithEvents pictureEdit2 As DevExpress.XtraEditors.PictureEdit
+End Class

momoERP.Win.HA/MomoSplash.vb

@@ -0,0 +1,51 @@
+Imports DevExpress.ExpressApp.Win
+Imports DevExpress.XtraSplashScreen
+
+Public Class MomoSplash
+    Implements ISplash, ISupportUpdateSplash
+
+    Private _IsStarted As Boolean = False
+    Private _Counter As Int16 = 0
+    Sub New()
+        InitializeComponent()
+    End Sub
+
+    Public ReadOnly Property IsStarted As Boolean Implements ISplash.IsStarted
+        Get
+            Return _IsStarted
+        End Get
+    End Property
+
+    Public Overrides Sub ProcessCommand(ByVal cmd As System.Enum, ByVal arg As Object)
+        MyBase.ProcessCommand(cmd, arg)
+    End Sub
+
+    Public Sub Start() Implements ISplash.Start
+        If _Counter <= 1 Then
+            _IsStarted = True
+            Me.Properties.UseFadeInEffect = False
+            Me.Properties.UseFadeOutEffect = False
+            Me.Show()
+            System.Windows.Forms.Application.DoEvents()
+
+        End If
+    End Sub
+
+    Public Sub [Stop]() Implements ISplash.Stop
+        Me.Hide()
+        Me.Close()
+        _IsStarted = False
+    End Sub
+
+    Public Sub SetDisplayText(displayText As String) Implements ISplash.SetDisplayText
+
+    End Sub
+
+    Public Sub UpdateSplash(caption As String, description As String, ParamArray additionalParams() As Object) Implements ISupportUpdateSplash.UpdateSplash
+        Me.labelControl2.Text = description
+    End Sub
+
+    Public Enum SplashScreenCommand
+        SomeCommandId
+    End Enum
+End Class

momoERP.Win.HA/My Project/licenses.licx

@@ -0,0 +1 @@
+DevExpress.XtraEditors.PictureEdit, DevExpress.XtraEditors.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a

momoERP.Win.HA/Program.vb

@@ -67,7 +67,8 @@ Friend NotInheritable Class Program
                 AddHandler winApplication.CreateCustomUserModelDifferenceStore, AddressOf winApplication_CreateCustomUserModelDifferenceStore
                 AddHandler winApplication.LastLogonParametersWriting, AddressOf winApplication_LastLogonParametersWriting
                 winApplication.DelayedViewItemsInitialization = True
-                winApplication.SplashScreen = New DevExpress.ExpressApp.Win.Utils.DXSplashScreen
+                'winApplication.SplashScreen = New DevExpress.ExpressApp.Win.Utils.DXSplashScreen
+                winApplication.SplashScreen = New MomoSplash()
 
                 AuditTrailService.Instance.ObjectAuditingMode = ObjectAuditingMode.Lightweight
 

momoERP.Win.HA/momoERP.Win.vbproj

@@ -9,9 +9,9 @@
     <OutputType>WinExe</OutputType>
     <StartupObject>Sub Main</StartupObject>
     <RootNamespace>Nuvolar.Win</RootNamespace>
-    <AssemblyName>Nuvolar.Win</AssemblyName>
+    <AssemblyName>momoERP.Win.HA</AssemblyName>
     <MyType>WindowsFormsWithCustomSubMain</MyType>
-    <ApplicationIcon>favicon.ico</ApplicationIcon>
+    <ApplicationIcon>momoerp.ico</ApplicationIcon>
     <OptionExplicit>On</OptionExplicit>
     <OptionCompare>Binary</OptionCompare>
     <OptionStrict>Off</OptionStrict>
@@ -367,6 +367,12 @@
     <Import Include="System.Windows.Forms" />
   </ItemGroup>
   <ItemGroup>
+    <Compile Include="MomoSplash.Designer.vb">
+      <DependentUpon>MomoSplash.vb</DependentUpon>
+    </Compile>
+    <Compile Include="MomoSplash.vb">
+      <SubType>Form</SubType>
+    </Compile>
     <Compile Include="PostgreSQL.vb" />
     <Compile Include="Service References\MNBArfolyamService\Reference.vb">
       <AutoGen>True</AutoGen>
@@ -408,6 +414,9 @@
     <Compile Include="XMLUserStore\UserStore.vb" />
   </ItemGroup>
   <ItemGroup>
+    <EmbeddedResource Include="MomoSplash.resx">
+      <DependentUpon>MomoSplash.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="My Project\licenses.licx" />
     <EmbeddedResource Include="My Project\Resources.resx">
       <Generator>VbMyResourcesResXFileCodeGenerator</Generator>
@@ -468,8 +477,7 @@
       <Generator>WCF Proxy Generator</Generator>
       <LastGenOutput>Reference.vb</LastGenOutput>
     </None>
-    <Content Include="favicon.ico" />
-    <Content Include="Nuvolar.ico" />
+    <Content Include="momoerp.ico" />
     <None Include="app.config" />
     <Content Include="Model.xafml">
       <CopyToOutputDirectory>Always</CopyToOutputDirectory>
@@ -494,7 +502,7 @@
     <None Include="Service References\MNBArfolyamService\arfolyamok.wsdl" />
   </ItemGroup>
   <ItemGroup>
-    <Content Include="ExpressApp.ico" />
+    <Content Include="Momo_ERP_logo.ico" />
     <Content Include="My Project\Application.myapp">
       <Generator>MyApplicationCodeGenerator</Generator>
       <LastGenOutput>Application.Designer.vb</LastGenOutput>