Forum

Dear Support team.

           We have purchased Elegant Ribbon, and had a valid license key starting with "85EE-9B24-2CA4-7667-xxxx-xxxx-xxxx-xxxx" .

now we are using version 4.3, we need to upgrade the component to latest allowed version.

What’s the latest allowed version we can upgrade to?

How  do we upgrade to latest version.?

What are new features in latest version?

Thanks and best regards,

Hassan Shehata

using version 4.3 there’s getting lots of error as https://epsonsupports.net/blog/how-to-fix-printer-offline/ helped me to update this.

Kindly Reminder

Dear Support team,

     Kindly Reminder, to replay ASAP as need to upgrade to latest version to Continue our work

Thanks and best regards,

Hassan Shehata

Hello

I build combo box by code , and the item is one element

when this comb box created , and try to select this value , it will not be filled

Here is code
--------------------------------------------------------------------------------------
Private Sub btnCreateCombobox_Click(sender As System.Object, e As System.EventArgs) Handles btnCreateCombobox.Click
Dim dt As New Data.DataTable
dt.Columns.Add("Name")
dt.Columns.Add("ID")
dt.Rows.Add("Object Name", "Object ID")

Dim Ctrl As New Elegant.Ui.ComboBox()
Ctrl.Editable = False
Ctrl.DataSource = dt
Ctrl.DisplayMember = "Name"
Ctrl.ValueMember = "ID"
’Ctrl.SelectedIndex = 0 Here is give error ( first case )
Ctrl.SelectedValue = dt.Rows(0)("ID") ’ come empty ,slect value , you see can not take any value
Ctrl.Dock = DockStyle.Top

pnl.Controls.Add(Ctrl)
End Sub
-------------------------------------------------------------------------------------------


Iam using Elegant Ribbon V4.2

best regard
omar naser

Just add combobox in parent list of controls earlier to create the control window:

Dim Ctrl As New Elegant.Ui.ComboBox()
pnl.Controls.Add(Ctrl)
Ctrl.Editable = False
Ctrl.DataSource = dt
Ctrl.DisplayMember = "Name"
Ctrl.ValueMember = "ID"
’Ctrl.SelectedIndex = 0 Here is give error ( first case )
Ctrl.SelectedValue = dt.Rows(0)("ID") ’ come empty ,slect value , you see can not take any value
Ctrl.Dock = DockStyle.Top

is the correct order.

Suggestions on how to fix.

The debug exe is ok, but when trying to load the main form in .net 2012 I am seeing this error (27 of the same). This followed updating the Elegant Ribbon installer


Instances of this error (27)

1. Hide Call Stack

at Elegant.Ui.SkinManager.LoadThemeSkinManager(Assembly assembly)
at Elegant.Ui.SkinManager.LoadTheme(Assembly assembly)
at Elegant.Ui.SkinManager.LoadTheme(Product product, EmbeddedTheme theme)
at Elegant.Ui.SkinManager.LoadEmbeddedTheme(EmbeddedTheme theme, Product product, Boolean loadDependencies)
at Elegant.Ui.SkinManager.LoadDefaultEmbeddedTheme(Product product, Boolean loadDependencies)
at Elegant.Ui.Control..cctor()

Here the same Problem:

Updateing Elegant UI from 3.7 to 4.5

if i open my existing Project and open a Form, the designer doesent Show the objects.

at Elegant.Ui.SkinManager.LoadThemeSkinManager(Assembly assembly)
at Elegant.Ui.SkinManager.LoadTheme(Assembly assembly)
at Elegant.Ui.SkinManager.LoadTheme(Product product, EmbeddedTheme theme)
at Elegant.Ui.SkinManager.LoadEmbeddedTheme(EmbeddedTheme theme, Product product, Boolean loadDependencies)
at Elegant.Ui.SkinManager.LoadDefaultEmbeddedTheme(Product product, Boolean loadDependencies)
at Elegant.Ui.Control..cctor()


if i add a new Windows Form it isen’t possible to create an Elegant.UI.-Control (button/TextBox...) on the form.
BUT
If i open the designer in my new form, writing some "asdf", delete my "asdf" and save it. After reload my Project the Designer works !!!
also Existing Ribbons works
BUT
Creating a new Ribbon is not possible !!

I’m using visual Studio 2013. Elegant.UI-Update from 3.7 to 4.5

thanks

Olli

Hello

I want to ask if you can provide custom control ?

What is the cost ?

In Text Box , When using it in RTL in design , and start writting from RTL any number with forword slash

Example  215/65  ,

You will see the final result in will be    65/215

the direction is reverse

I can provide sample project for this case

best regard

omar naser

Hello

Iam usig Elegant Ribbon As registered customer

We develop application using Elegant Ribbon
Our application is RTL

When minimized the application to Taskbar , and keep it for some time in task bar

When try to restore it , you will failed

this case and my customer suffer from this point




best regard
omar naser

Hello

This case is in my application

Let me prepare example and send it to you

best regard

omar naser

Hello,

I am evaluating the ribbon control, and am having an issue- when the application is maximized it can not be moved (it is a forms application and has a main form)

IE maximize the form, and grabbing the top of the form and click dragging does not have the form minimize and move as it normally does.

Modify ProcessButtonDown method from FormFrameSkinner.cs in Elegant.Ui.Common (red is the color for modification):

private bool ProcessButtonDown(ref Message m)
        {
if (GlassEnabled)
return false;

            MouseButtons button = MouseButtons.None;

            switch(m.Msg)
            {
                case WinApi.WM_NCLBUTTONDOWN:
if (Form.WindowState == FormWindowState.Maximized && m.WParam == (IntPtr)StandardFrameItemType.Caption)
{
if (Form != Form.ActiveForm)
Form.Activate();

return false;
}
             button = MouseButtons.Left;
                    break;
                case WinApi.WM_NCMBUTTONDOWN:
                    button = MouseButtons.Middle;
                    break;
                case WinApi.WM_NCRBUTTONDOWN:
                    button = MouseButtons.Right;
                    break;
                case WinApi.WM_NCXBUTTONDOWN:
                    if(m.WParam == (IntPtr) WinApi.XBUTTON1)
                        button = MouseButtons.XButton1;
                    else
                        button = MouseButtons.XButton2;
                    break;
            }

            Point screenPoint = new Point(m.LParam.ToInt32());

            IFormFrameItem frameItemAtPoint = GetFormFrameItemAtPoint(screenPoint);
            if(DesignMode && frameItemAtPoint is FormFrameCaptionButton)
                return false;

            Control control = GetHandlefulControlAtPoint(screenPoint);
            if(control == null)
                return false;

Point point = PointToClient(control, screenPoint);
            control.InvokeMouseDown(
new MouseEventArgs(button, 0, point.X, point.Y, 0));

            if (Form.WindowState == FormWindowState.Maximized)
            {
                IFormFrameItem formFrameItem = control as IFormFrameItem;
                if (formFrameItem != null && formFrameItem.FrameItemType == StandardFrameItemType.Caption)
                    return true;
            }
            
            if(!(frameItemAtPoint is FormFrameCaptionButton))
                return false;

            return true;
        }

Return false on WM_NCLBUTTONDOWN message when click point is on caption and frame state is maximized.

It’s been a while since I have had to post here as the Version 4 Ribbon Bar is very reliable and any issue we have had have been fixed extremely quickly.

But (and this is a big BUT) we have just hit a situation where the Ribbon Bar licencing control appears to try and make some network connection using LDAP Connection (can be seen via Wire shark trace).

The problem here is one of our customers has a high Latency Network eg can be in the region of 100ms it causes our application to hang on start up and the initialisation of the Ribbon Bar Is there any way to switch this feature/check off ?

Does the later versions of this product have the same issues? What’s more is this still a supported product at any version as it seems there have been no updates for nearly 2 years?

Dave
Great work
We will update the libraries this month.
Sales at Prof-UIS

Further investigation led me to this article on the infraluation support forums 

http://www.infralution.com/phpBB2/viewtopic.php?t=688&highlight=rsa+slow 



I know we could download and evaluate the latest version, but as this issue only arises when the license key is provided, this makes it difficult for us to confirm via testing, 

Can you confirm whether the latest version has the fix?

Thanks

An update for you. The Ribbon Bar does not appear to make a connection directly, but when we call

var = new Elegant.Ui.RibbonTabPage

the RibbonTabPage makes a call to CheckRuntimeLicense - which calls through the Infralution Library to the underlying Cryptography( see stack trace below) and this is slow.

When I said we had a latency of 100ms, that was an understatement, we actually have to work across a GPRS network and this License check is crippling as we have to work with on average of 500ms latency/512Kb Link with up to 50% packet lose. And the machine needs to be part of an Active Directory Domain

crypt32.dll!_CryptFindOIDInfo@12()  
[Managed to Native Transition] 
mscorlib.dll!System.Security.Cryptography.X509Certificates.X509Utils.FindOidInfo(System.Security.Cryptography.X509Certificates.OidKeyType keyType, string key, System.Security.Cryptography.X509Certificates.OidGroup group) + 0x124 bytes 
mscorlib.dll!System.Security.Cryptography.X509Certificates.X509Utils.GetAlgIdFromOid(string oid, System.Security.Cryptography.X509Certificates.OidGroup oidGroup) + 0x86 bytes 
mscorlib.dll!System.Security.Cryptography.Utils.ObjToAlgId(object hashAlg, System.Security.Cryptography.X509Certificates.OidGroup group) + 0xb0 bytes 
mscorlib.dll!System.Security.Cryptography.RSACryptoServiceProvider.VerifyData(byte[] buffer, object halg, byte[] signature) + 0x1a bytes 
Elegant.Ui.Common.dll!Infralution.Licensing.EncryptedLicenseProvider.LoadLicense(System.ComponentModel.LicenseContext context, System.Type type, string licenseKey) + 0x32b bytes 
Elegant.Ui.Common.dll!Infralution.Licensing.EncryptedLicenseProvider.ValidateLicenseKey(string licenseParameters, string licenseKey) + 0x4d bytes 
Elegant.Ui.Common.dll!Elegant.Ui.LicenserUtilities.ValidateLicenseKey(Elegant.Ui.Product product, System.Version version, string licenseKey) + 0xf9 bytes 
Elegant.Ui.Common.dll!Elegant.Ui.LicenserUtilities.CheckRuntimeLicence(Elegant.Ui.Product product, string productDisplayName, System.Version productVersion, string licenseKey) + 0x7e bytes 
Elegant.Ui.Common.dll!Elegant.Ui.Control.CheckRuntimeLicense() + 0x9d bytes 
Elegant.Ui.Common.dll!Elegant.Ui.Control.Control() + 0x8c bytes 
Elegant.Ui.Ribbon.dll!Elegant.Ui.RibbonTabPage.RibbonTabPage(bool ) + 0x7c bytes 
Elegant.Ui.Ribbon.dll!Elegant.Ui.RibbonTabPage.RibbonTabPage() + 0x38 bytes 
Symmetry.exe!G4T.KMPlugin.ClientApplication.Framework.MainFrame.InitializeComponent() Line 32 + 0x15 bytes C#
Symmetry.exe!G4T.KMPlugin.ClientApplication.Framework.MainFrame.MainFrame() Line 70 C#
Symmetry.exe!G4T.KMPlugin.ClientApplication.Framework.Program.CreateMainFrame() Line 270 + 0x15 bytes C#
Symmetry.exe!G4T.KMPlugin.ClientApplication.Framework.Program.DoMainCore() Line 115 C#
G4T.KMPlugin.Native.dll!G4T::KMPlugin::Native::NativeExceptionAdapter::Execute(System::Objectˆ callback, System::Objectˆ callbackData) Line 66 C++
G4T.KMPlugin.Native.dll!G4T::KMPlugin::Native::NativeExceptionAdapter::Execute(G4T::KMPlugin::Native::NativeExceptionAdapter::Callbackˆ callback) Line 34 + 0xb bytes C++
Symmetry.exe!G4T.KMPlugin.ClientApplication.Framework.Program.DoMain(string[] args) Line 51 + 0x27 bytes C#
Symmetry.exe!G4T.KMPlugin.ClientApplication.Framework.Program.Main(string[] args) Line 378 C#
mscoreei.dll!__CorExeMain@0()  + 0x71 bytes 
mscoree.dll!_ShellShim__CorExeMain@0()  + 0x227 bytes 
mscoree.dll!__CorExeMain_Exported@0()  + 0x8 bytes 
kernel32.dll!@BaseThreadInitThunk@12()  + 0x12 bytes 
ntdll.dll!___RtlUserThreadStart@8()  + 0x27 bytes 
ntdll.dll!__RtlUserThreadStart@8()  + 0x1b bytes 
Please see Microsoft Knowledge base article http://support.microsoft.com/kb/948080

Regards

Dave

I have a group with several button. If the window is reduced in size, the group resizes and all the buttons appear in a dropdown box, but the icon for the group is empty. How do I add an icon to the group when it reduces in size?

Ian

Dear Support,

i use several default themes who are deployed with the elegant ribbon (z.B. Office 2010 Black, Office 2010 Blue, aso...)

MyQuestion: how can i change the forecolor in the theme dll for all controls? Office 2010 Black is my default template, but the forecolor is black and i want to change it to whitesmoke.

Greetings

Heiko

It does not look like there is a universal command but.

You can add this method in Control.cs:

public override Color ForeColor
{
get { return Color.FromArgb(245, 245, 245); }
}

From Elegant.Ui.Common in each control class you want to change forecolor.

Prof-UIS Support

Hi Support-Team,

i have created a ribbon with severel Tabpages. How can i change the TabPages for ex. i want the TabPage 4 on position 3?

Greetings

Heiko

Hi,

I struggled a long time on this issue because some customers report that in place of the buttons, they sometimes see a large red cross meaning that controls are not rendered at all. After several investigations, it appears that this is connected to some rare printer drivers. When we read. In the form_load event, we have this code:

Private Sub LoadPrinters(installedPrinters As System.Drawing.Printing.PrinterSettings.StringCollection)
Dim pkInstalledPrinters As String

PrinterNames.Clear()
Try
Dim printdoc As New PrintDocument()
Dim printDocPrinterName As String = printdoc.PrinterSettings.PrinterName

’ Find all printers installed
For Each pkInstalledPrinters In installedPrinters
PrinterNames.Add(pkInstalledPrinters)
If pkInstalledPrinters = printDocPrinterName Then
If printdoc.PrinterSettings.IsDefaultPrinter Then
SelectedPrinter = pkInstalledPrinters
End If
End If
Next pkInstalledPrinters
Catch ex As Exception
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
End Try
End Sub

Which simply fills a combo (an Elegant.UI one) with printer names. When we don’t do that or when we select a default pinter driver which has no problem, if works well and we see the buttons but as soon as we select a wrong driver (happens with some very new printer drivers too), we get the red cross.

Have you ever heard anything like this? The selection of a default printer could corrupt something and prevent EG from rendering?

Best Regards,

I am using elegant ribbon and when I built the app and trying to run it from exe in another pc , it’s not working. so how I can run my app exe in pc without setup the ribbon?

Report from the support software group
I was able to run the exe (untitled.png) from debug directory that you sent me but it’s not compile. The assembly Syncfusion.Core and Syncfusion.Shared.Base are missing. I suggest to tell to your customer to change copy local flag from false to true for custom references like in reference.png (in debug or release directory he will see the syncfusion… dll’s).

Prof-UIS Support

Hi,

I having the following issue. I have a main form (MDI Parent) set up with the Elegant Ribbon and three MDI Children. On the Elegant Ribbon, I have one button to clear any contents of the TextBox component. On one MDI Child, I have a Elegant Ribbon TextBox component. When I click the button, it does nothing. The content in the TextBox still remains.

Now, I wanted to check if the MDI Child is active or not. But this does not work either.

Private Sub btnNew_Click(sender As Object, e As EventArgs) Handles btnNew.Click
Dim NewMDIChild As New frmCLA()
Dim activeChild As Form = Me.ActiveMdiChild

If (Not activechild Is Nothing) Then
MsgBox("No active MDI Child", MsgBoxStyle.Exclamation)
Else
MsgBox("Active MDI Child: " & NewMDIChild.Name, MsgBoxStyle.Information)
End If
End Sub

The source code shows whether or not the MDI Child is active and it gives constantly "No active MDI Child".

What am I doing wrong or missing?

Roland

Hi,

Can you help me out with the following? I want to use the ProgressBar with the .step and .performstep() properties. But your progressbar component doesn’t have these. How can I enable or modify the progressbar to make it work, with the source code below?

Private Sub CopyWithProgress(ByVal ParamArray filenames As String())
’ Display the ProgressBar control.
pBar1.Visible = True
’ Set Minimum to 1 to represent the first file being copied.
pBar1.Minimum = 1
’ Set Maximum to the total number of files to copy.
pBar1.Maximum = filenames.Length
’ Set the initial value of the ProgressBar.
pBar1.Value = 1
’ Set the Step property to a value of 1 to represent each file being copied.
pBar1.Step = 1

’ Loop through all files to copy.
Dim x As Integer
for x = 1 To filenames.Length - 1
’ Copy the file and increment the ProgressBar if successful.
If CopyFile(filenames(x - 1)) = True Then
’ Perform the increment on the ProgressBar.
pBar1.PerformStep()
End If
Next x
End Sub

With kind regards,
Roland

Hi,

I know it has been a while, but I was .... no, hoping if you have the update ready for the: Elegant Ribbon (.NET)? I will assume to will be the 4.4 version.

With kind regards,
Roland

ok, long absence :) due to moving to another country and employer. And now I am starting to develop again and I thought about you guys.

What is the latest on version 4.4 and the ProgressBar issue?

Gentlemen,

It has been a long time. And I am very curious on how you are doing with the new update? I am still dealing with that issue regarding the ProgressBar.

With kind regards,

Roland

Hi,

Any news on the update?

With kind regards,

Roland

Hi
We are scheduling an update for the Elegant line in Late February or Early March.
Your Progress bar update should be in the new update..
Sales at Prof-UIS

Gentlemen,

It has been a while and I was wondering when the update becomes available? Any news?

With kind regards,

Roland

Hi,

Can you please provide me with any feedback or progression on the ProgressBar component?

With kind regards,
Roland

We are reviewing you request. I’m sure we will put it in the next release.
We are still analyzing the products to see what we need to do.
Thanks
Prof-UIS Support Team

Please tell him to use pBar1.Value++ to increment current value or pBar1.Value=x to move progress bar position to x (x must be between minim and maxim of progress) instead of pBar.SetBar(x)

Hi,

Any progress on the matter?

PS: I have purchased the product.

With kind regards,
Roland

Please tell him to use pBar1.Value++ to increment current value or pBar1.Value=x to move progress bar position to x (x must be between minim and maxim of progress) instead of pBar.SetBar(x).

Hi,

Your suggested approach did not solve the issue. Maybe you like to reproduce the issue yourself? Know this, I am extremely satisfied with your product. But I like to see this feature being active in my next version. The old version has a working ProgressBar and Label.

Find below the source code used in the application having the Elegant Ribbon product installed.

Components used:
- Button "btnUnpack" > on Ribbon (For starting the unpack process)
- Button "btnOpenFILE" > on form (For browsing for the zipped file)
- RadioButton "rbPrepFILE"
- TextBox "tbST" (For having the serial number)
- TextBox "tbFILE" (For displaying the complete path and filename)
- Background Worker "bwFILE"
- OpenFileDialog "ofdLogFile"
- StatusBar (within here using: Label "tsslInfo" & ProgressBar "pbFILE")

I am using Ionic.Zip for unpacking the files. Now bear in mind, the initial unpacking with the Background Worker in my MDI application is working fine. Faster than I ever hoped, compared to my previous SDI application. The only issue is, displaying the current progress using the Label "tsslInfo" & ProgressBar "pbFILE": both components are not showing anything. The pbFILE.Step and pbFILE.PerformStep() is working for the original Microsoft ProgressBar component.

*******************************************

Private Sub btnOpenFILE_Click(sender As Object, e As EventArgs) Handles btnOpenFILE.Click
Select Case True
Case rbPrepFILE.Checked
ofdLogFile.Filter = "FILE files (*.zip)|*.zip"
Case rbPrepTTY.Checked
ofdLogFile.Filter = "TTY files (*.log)|*.log|TTY files (*.txt)|*.txt"
Case rbPrepRAID.Checked
ofdLogFile.Filter = "Controller_x (*.log)|*.log|Controller_x (*.txt)|*.txt|TTY files (*.log)|*.log"
End Select

ofdLogFile.Title = "Please select a FILE or TTY Log..."
ofdLogFile.FileName = ""

If frmOptions.tbFILELocation.TextLength > 0 Then
ofdLogFile.InitialDirectory = frmOptions.tbFILELocation.Text
Else
ofdLogFile.InitialDirectory = "C:\"
End If

ofdLogFile.ShowDialog()
ApplicationCommands.cmdUnpack.Enabled = True

Select Case True
Case ApplicationCommands.cmdPrepare.Enabled
ApplicationCommands.cmdPrepare.Enabled = False
Case ApplicationCommands.cmdReview.Enabled
ApplicationCommands.cmdReview.Enabled = False
End Select
End Sub                                
                                
Private Sub btnUnpack_Executed(ByVal sender As Object, ByVal e As CommandExecutedEventArgs)
Select Case True
Case rbPrepFILE.Checked
Dim destFolder As String = "C:\DIRECTORY\Logs\"
frmMain.tsslPhoneRegion.Text = ""

If tbST.Text = "" Then
frmMain.tsslInfo.Text = "Please enter the Serial Number..."
Else
If tbFILE.Text.Length > 0 Then
ApplicationCommands.cmdUnpack.Enabled = True
frmMain.pbFILE.Visible = True
frmMain.tsslInfo.Text = "Unpacking FILE.ZIP..."
Me.bwFILE.RunWorkerAsync()
Else
ApplicationCommands.cmdUnpack.Enabled = False
frmMain.tsslInfo.Text = "FILE.ZIP missing..."
End If
End If
Case rbPrepTTY.Checked ’ this needs to be checked, something is not right here... possibly wrong place
Dim TTY As String
TTY = ofdLogFile.FileName

frmMain.tsslPhoneRegion.Text = ""

If tbST.Text = "" Then
frmMain.tsslInfo.Text = "Please enter the Serial Number..."
Else
My.Computer.FileSystem.CopyFile(TTY, "C:\DIRECTORY\Logs\" & tbST.Text & "\raid.log", FileIO.UIOption.OnlyErrorDialogs, FileIO.UICancelOption.DoNothing)
End If

fileReader = My.Computer.FileSystem.ReadAllText("C:\DIRECTORY\Logs\" & tbST.Text & "\raid.log")
End Select

’Entry = Date.Now & " | " & username & " | " & tbST.Text & " | FILE unpacked..." & linea1
’Caselog_Entry()
End Sub

Private Sub bwFILE_DoWork(sender As Object, e As DoWorkEventArgs) Handles bwFILE.DoWork
Select Case True
Case rbPrepFILE.Checked
Dim extractPath As String = "C:\DIRECTORY\" & tbST.Text
Dim zipPath As String = tbFILE.Text

Using zip As New ZipFile(zipPath)
frmMain.pbFILE.Minimum = 1
frmMain.pbFILE.Maximum = zip.Entries.Count
frmMain.pbFILE.Value = 1
>> frmMain.pbFILE.Step = 1 << this is not applicable in the Elegant ProgressBar component

Dim x As ZipEntry

For Each x In zip
If (x.UsesEncryption) Then
x.Password = "P@ssw0rd"
x.Extract(extractPath, ExtractExistingFileAction.OverwriteSilently)
Else
x.Extract(extractPath, ExtractExistingFileAction.OverwriteSilently)
End If
>> frmMain.pbFILE.PerformStep() << this is not applicable in the Elegant ProgressBar component

’ {0} = pbFILE.Value
’ {1} = pbFILE.Maximum
’ {2} = (CDbl(pbFILE.Value) / (0.01 * pbFILE.Maximum))
’ {3} = zipPath
’ {4} = extractPath

If tbFILE.TextLength > 40 Then
>> frmMain.tsslInfo.Text = String.Format("Copying FILE.ZIP to {4} - {2:N0}% complete", frmMain.pbFILE.Value, frmMain.pbFILE.Maximum, (CDbl(frmMain.pbFILE.Value) / (0.01 * frmMain.pbFILE.Maximum)), zipPath, extractPath) << Does not show any information
Else
>> frmMain.tsslInfo.Text = String.Format("Copying {1} items from {3} to {4} - {2:N0}% complete", frmMain.pbFILE.Value, frmMain.pbFILE.Maximum, (CDbl(frmMain.pbFILE.Value) / (0.01 * frmMain.pbFILE.Maximum)), zipPath, extractPath) << Does not show any information
End If
Next
End Using

Entry = Date.Now & " | " & username & " | " & tbST.Text & " | FILE.ZIP unpacked" & linea1
’Caselog_Entry()

If My.Computer.FileSystem.FileExists(extractPath & ".zip") Then
My.Computer.FileSystem.DeleteFile(extractPath & ".zip")
My.Computer.FileSystem.CopyFile(zipPath, extractPath & ".zip")
Else
My.Computer.FileSystem.CopyFile(zipPath, extractPath & ".zip")
End If

Entry = Date.Now & " | " & username & " | " & tbST.Text & " | FILE.ZIP copied to " & tbST.Text & ".ZIP" & linea1
’Caselog_Entry()
End Select
End Sub

Private Sub bwFILE_ProgressChanged(sender As Object, e As ProgressChangedEventArgs) Handles bwFILE.ProgressChanged
frmMain.pbFILE.Value = e.ProgressPercentage
End Sub

Private Sub bwFILE_RunWorkerCompleted(sender As Object, e As RunWorkerCompletedEventArgs) Handles bwFILE.RunWorkerCompleted
frmMain.tsslInfo.Text = "FILE Report unpacked..."

If My.Computer.FileSystem.FileExists("C:\DIRECTORY\" & tbST.Text & "\report.hta") Then
LinkLabel2.Visible = True
LinkLabel2.Text = "FILE Report"
LinkLabel5.Visible = True
LinkLabel5.Text = "DCV - FILE Upload"
Else
LinkLabel2.Visible = False
End If

ApplicationCommands.cmdPrepare.Enabled = True
TTY_FileCheck()
End Sub

With kind regards,
Roland

Thank you for the fast response. But the SetBar(x) is not existing within ELegant Ribbon. At least I can’t find it. But ok, here is the thing.

Scenario: MDI Parent - 2x MDI Childs (for now)
Within the MDI Child, a process will be executed for unpacking .zip files. A ProgressBar and Label component on the MDI Parent will be used to update the user with the current process.

MDI Parent - frmMain: one button (located in Ribbon Bar) for starting the process, Label (tsslInfo) and ProgressBar (pbFILE) located in the StatusBar
MDI Child - frmLog: source code (as shown below), TextBox component, Button component (for browsing to the file), OpenFileDialog component and BackGroundWorker component


    Dim extractPath As String = "C:\REPOSITORY\FILE\" & tbST.Text
    Dim zipPath As String = tbFILE.Text

    Using zip As New ZipFile(zipPath)
        frmMain.pbFILE.Minimum = 1
        frmMain.pbFILE.Maximum = zip.Entries.Count
        frmMain.pbFILE.Value = 1
        ’frmMain.pbFILE.Step = 1 >> research on this to activate it again

        Dim x As ZipEntry

        For Each x In zip
            If (x.UsesEncryption) Then
                x.Password = "secret"
                x.Extract(extractPath, ExtractExistingFileAction.OverwriteSilently)
            Else
                x.Extract(extractPath, ExtractExistingFileAction.OverwriteSilently)
            End If
            ’frmMain.pbFILE.PerformStep() >> research on this to activate it again

            ’ {0} = frmMain.pbFILE.Value
            ’ {1} = frmMain.pbFILE.Maximum
            ’ {2} = (CDbl(frmMain.pbFILE.Value) / (0.01 * frmMain.pbFILE.Maximum))
            ’ {3} = zipPath
            ’ {4} = extractPath

            If tbFILE.Text.Length > 40 Then
                frmMain.tsslInfo.Text = String.Format("Copying FILE.ZIP to {4} - {2:N0}% complete", frmMain.pbFILE.Value, frmMain.pbFILE.Maximum, (CDbl(frmMain.pbFILE.Value) / (0.01 * frmMain.pbFILE.Maximum)), zipPath, extractPath)
            Else
                frmMain.tsslInfo.Text = String.Format("Copying {1} items from {3} to {4} - {2:N0}% complete", frmMain.pbFILE.Value, frmMain.pbFILE.Maximum, (CDbl(frmMain.pbFILE.Value) / (0.01 * frmMain.pbFILE.Maximum)), zipPath, extractPath)
            End If
        Next
    End Using
    
I am sorry, if I was not clear in what I try to do or achieve. But the process worked for me in my old project.

What we would suggest is to change the code to perform your own step function
something like:
pBar.SetBar(x);
I’m not sure what the Setbar function is in the code you are using.

Hi,

Ok, the issue (or puzzle, if you may call it) is still remaining. The goal is, I think, simple: how to display the unpacked files with the progress bar, using Ionic.Zip?

With kind regards,
Roland

Hi,

I am currently working with the Elegant Ribbon (trial version) under VB.NET 2012 and VB.NET 2013. I am developing a Ribbon-enabled MDI application and it works perfectly. But I have some suggestions and requests for the Elegant Ribbon.

- LinkLabel component: is it possible to add this to the Elegant Ribbon? Similar to the standard LinkLabel component of Visual Studio.
- Checked and CheckBox property: Can or is this be added to the DateTimePicker component? Similar to the standard DateTimePicker of Visual Studio.

Can you provide me with feedback, on short notice, if possible?

With kind regards,
Roland

Hi,

Any update on my requests?

With kind regards,
Roland

Prof-UIS is pleased to announce that TSELLC will provide the maintenance and management of the Prof-UIS (.NET) product line. Sales and support contacts will remain the same, sales@Prof-UIS.com and Support@Prof-UIS.com.

I’ve forwarded you request to the appropriate support engineer. I should get a response in the next day or two.
Prof-UIS Support

I tried to install this program but it was not installed well. An error occured. It was saying File not found in end. But I use Visual Studio 2012 .. Please help me. How can add these controls and use them ? And How can i resize buttons ? (Before this i was used a few years ago)

Will there be a new version for Visual Studio 2013, if so when do you anticipate a release date? We would like to upgrade our VS2008 to current version.

Thanks in advance,

Hello,

I have an application that is using the Elegant Ribbon control, and we are experiencing a display issue in Windows XP. When you click on the Minimixe/Maximize/Close buttons in the upper right corner, the unthemed buttons appear. This does not happen in other operating systems.

The code to set the theme is
[assembly: DefaultTheme(EmbeddedTheme.Windows7)] in AssemblyInfo.cs.

The following assemblies are in the install directory:
Elegant.UI.Common.dll
Elegant.UI.Common.Theme.Windows7.dll
Elegant.UI.Ribbon.dll
Elegant.UI.Ribbon.Theme.Windows7.dll

Is there something I am missing? Are there known compatibility issues with XP?

Thank you for any guidance.