Neumorphism Design

In this case, it is, on the one hand, a class Module and, on the other, a Usercontrol to create a modern user interface called Neumorphism, which began to become fashionable as of 2020, although it is designed for mobile applications or webs I see no reason not to implement it in our beloved vb6, at least in small applications so as not to overload memory and slow down our app. The whole engine is based on GDI +.

With the class module there is an example where we can play with the properties of the class and other forms with some graphical examples.
In addition, this allows you to draw a GDI + Path with which an extra module was used, where you can create different shapes (Shapes) and the style can be applied to them, I take the opportunity to thank Eduardo for taking part in the routines of his ShapeEx. and thank you very much to SomeYguy for the rutine to rotate path.

With the Usercontrol there are three applied examples. I am not going to detail all the properties, it is a matter of reaching out and playing a bit, they are the same as the module. Accompanying the examples is the "LabelPlus" usercontrol, which is to add text and icons to the forms, (I didn't want to reprogram all this, that's why I used two usercontrols).

Later I am going to upload a music player in which I am working where you can see all this applied.

Finally I want to clarify that all this works faster when it is compiled.

Attachment 180622Attachment 180623Attachment 180624Attachment 180625

Attachment 180626

You can be a designer

Great!
Leandro, how do the 'player' image sample?
Thank.

Very cool!

Quote:

---

Originally Posted by xxdoc123

You can be a designer

---

so let's forget the orange form :bigyello:

@LeoFar
Hello, inside the folder «Neumorphism\UserControl Neumorphism\Metronome» is the project
The metronome is a device for musicians with which they can keep track of musical time when playing their instrument.

@Eduardo :thumb:

good job

Quote:

---

Originally Posted by LeandroA

@LeoFar
Hello, inside the folder «Neumorphism\UserControl Neumorphism\Metronome» is the project
The metronome is a device for musicians with which they can keep track of musical time when playing their instrument.

---

Thanks!
:thumb:

JFYI, here is MZ-Tools review source code on Neumorphism\UserControl Neumorphism\Metronomo\Proyecto1.vbp

Code:

---

Proyecto1
  User Controls
      LabelPlus (LabelPlus.ctl)
        (General)-(Declarations)
            The declaration Declare 'TlsFree' is not used
            The declaration Declare 'GdipImageRotateFlip' is not used
            The declaration Declare 'GdipSetSolidFillColor' is not used
            The declaration Declare 'GdipGetGenericFontFamilySerif' is not used (it is used only inside commented block)
            The declaration Declare 'GdipDrawPie' is not used
            The UDT Type 'POINTL' is not used
        Private Function GDIP_AddPathString(ByVal hGraphics As Long, X As Long, Y As Long, Width As Long, Height As Long, Optional ForShadow As Boolean, Optional GetMeasureString As Boolean) As Boolean
            The variable 'hdc' is not used
        Private Sub CreateCaptionShadow(ByVal X As Long, ByVal Y As Long, ByVal lWidth As Long, ByVal lHeight As Long)
            The parameter 'X' is not used
            The parameter 'Y' is not used
            The variable 'hBrush' is not used
            The variable 'hPen' is not used
            The variable 'RecL' is not used
        Private Sub DrawProgress(hGraphics As Long, ByVal X As Long, ByVal Y As Long, ByVal Width As Long, ByVal Height As Long, ByVal Value As Long, ByVal Max As Long)
            The variable 'HScale' is not used
            The variable 'VScale' is not used
            The variable 'imgWidth' is not used
            The variable 'imgHeight' is not used
            The variable 'nSize' is not used
        Private Function CreateBrushTexture(hGraphics As Long, hPath As Long, ByVal X As Long, ByVal Y As Long, ByVal Width As Long, ByVal Height As Long) As Long
            The parameter 'hGraphics' is not used
            The parameter 'hPath' is not used
            The variable 'imgWidth' is not used
            The variable 'imgHeight' is not used
        Private Function CreateBlurShadowImage(ByVal hImage As Long, ByVal Color As Long, blurDepth As Integer, _
            The variable 'Alpha' is not used
            The variable 'lSrcAlpha' is not used
            The variable 'lDestAlpha' is not used
            The variable 'initX' is not used
            The variable 'initXstop' is not used
        Private Function WriteValue(ByVal lProp As Long, ByVal lValue As Long) As Boolean
            The procedure 'WriteValue' is not used (it is used only inside commented block)
        Private Function ObjFromPtr(ByVal pObj As Long) As Object
            The procedure 'ObjFromPtr' is not used
      ucNeumorphism (ucNeumorphism.ctl)
        (General)-(Declarations)
            The declaration Declare 'MulDiv' is not used
            The declaration Declare 'SetRect' is not used
            The declaration Declare 'VarPtrArray' is not used
            The declaration Declare 'BitBlt' is not used
            The declaration Declare 'CreateCompatibleDC' is not used
            The declaration Declare 'CreateCompatibleBitmap' is not used
            The declaration Declare 'SelectObject' is not used
            The declaration Declare 'DeleteDC' is not used
            The declaration Declare 'DeleteObject' is not used
            The declaration Declare 'CreateStreamOnHGlobal' is not used
            The declaration Declare 'GdipGetPathWorldBoundsI' is not used
            The declaration Declare 'GdipTranslateTextureTransform' is not used
            The declaration Declare 'GdipAddPathLineI' is not used
            The declaration Declare 'GdipClosePathFigures' is not used
            The constant 'LOGPIXELSY' is not used
            The variable 'hDCMemory' is not used
        Public Function CloneTo(ByVal SRC_ucNeumorphism As ucNeumorphism, Optional TwoState As Boolean, Optional DontClone As Boolean)
            The variable 'm_State' is not used
        Private Function IsPointInPath(PX As Single, PY As Single) As Boolean
            The variable 'hPath' is not used
  Property Pages
      PropPagLP (PropPagLP.pag)
        (General)-(Declarations)
            The declaration Declare 'SetWindowLong' is not used
            The declaration Declare 'GetWindowLong' is not used
            The declaration Declare 'SetWindowLongW' is not used
            The declaration Declare 'GetWindowLongW' is not used
            The constant 'WM_KILLFOCUS' is not used
            The constant 'WM_SETFOCUS' is not used
            The constant 'EN_CHANGE' is not used
            The constant 'WM_COMMAND' is not used
            The constant 'GWL_WNDPROC' is not used
            The constant 'WM_DESTROY' is not used
            The declaration Declare 'GetFileTitle' is not used
            The variable 'm_Parent' is not used
            The variable 'm_WinProc' is not used
            The variable 'm_WinProcParent' is not used
        Private Function VBGetOpenFileName(Filename As String, _
            The variable 'afFlags' is not used
        Private Sub cmdBrowse_Click()
            The variable 'svName' is not used
        Private Sub Command1_Click()
            The procedure 'Command1_Click' is not used
  Forms
      FrmMetronomo (FrmMetronomo.frm)
        Private Function ReadFile(sPath As String, bArr() As Byte) As Boolean
            The procedure 'ReadFile' is not used

---

cheers,
</wqw>

Quote:

---

Originally Posted by wqweto

JFYI, here is MZ-Tools review source code on Neumorphism\UserControl Neumorphism\Metronomo\Proyecto1.vbp

Code:

---

Proyecto1
  User Controls
      LabelPlus (LabelPlus.ctl)
        (General)-(Declarations)
            The declaration Declare 'TlsFree' is not used
            The declaration Declare 'GdipImageRotateFlip' is not used
            The declaration Declare 'GdipSetSolidFillColor' is not used
            The declaration Declare 'GdipGetGenericFontFamilySerif' is not used (it is used only inside commented block)
            The declaration Declare 'GdipDrawPie' is not used
            The UDT Type 'POINTL' is not used
        Private Function GDIP_AddPathString(ByVal hGraphics As Long, X As Long, Y As Long, Width As Long, Height As Long, Optional ForShadow As Boolean, Optional GetMeasureString As Boolean) As Boolean
            The variable 'hdc' is not used
        Private Sub CreateCaptionShadow(ByVal X As Long, ByVal Y As Long, ByVal lWidth As Long, ByVal lHeight As Long)
            The parameter 'X' is not used
            The parameter 'Y' is not used
            The variable 'hBrush' is not used
            The variable 'hPen' is not used
            The variable 'RecL' is not used
        Private Sub DrawProgress(hGraphics As Long, ByVal X As Long, ByVal Y As Long, ByVal Width As Long, ByVal Height As Long, ByVal Value As Long, ByVal Max As Long)
            The variable 'HScale' is not used
            The variable 'VScale' is not used
            The variable 'imgWidth' is not used
            The variable 'imgHeight' is not used
            The variable 'nSize' is not used
        Private Function CreateBrushTexture(hGraphics As Long, hPath As Long, ByVal X As Long, ByVal Y As Long, ByVal Width As Long, ByVal Height As Long) As Long
            The parameter 'hGraphics' is not used
            The parameter 'hPath' is not used
            The variable 'imgWidth' is not used
            The variable 'imgHeight' is not used
        Private Function CreateBlurShadowImage(ByVal hImage As Long, ByVal Color As Long, blurDepth As Integer, _
            The variable 'Alpha' is not used
            The variable 'lSrcAlpha' is not used
            The variable 'lDestAlpha' is not used
            The variable 'initX' is not used
            The variable 'initXstop' is not used
        Private Function WriteValue(ByVal lProp As Long, ByVal lValue As Long) As Boolean
            The procedure 'WriteValue' is not used (it is used only inside commented block)
        Private Function ObjFromPtr(ByVal pObj As Long) As Object
            The procedure 'ObjFromPtr' is not used
      ucNeumorphism (ucNeumorphism.ctl)
        (General)-(Declarations)
            The declaration Declare 'MulDiv' is not used
            The declaration Declare 'SetRect' is not used
            The declaration Declare 'VarPtrArray' is not used
            The declaration Declare 'BitBlt' is not used
            The declaration Declare 'CreateCompatibleDC' is not used
            The declaration Declare 'CreateCompatibleBitmap' is not used
            The declaration Declare 'SelectObject' is not used
            The declaration Declare 'DeleteDC' is not used
            The declaration Declare 'DeleteObject' is not used
            The declaration Declare 'CreateStreamOnHGlobal' is not used
            The declaration Declare 'GdipGetPathWorldBoundsI' is not used
            The declaration Declare 'GdipTranslateTextureTransform' is not used
            The declaration Declare 'GdipAddPathLineI' is not used
            The declaration Declare 'GdipClosePathFigures' is not used
            The constant 'LOGPIXELSY' is not used
            The variable 'hDCMemory' is not used
        Public Function CloneTo(ByVal SRC_ucNeumorphism As ucNeumorphism, Optional TwoState As Boolean, Optional DontClone As Boolean)
            The variable 'm_State' is not used
        Private Function IsPointInPath(PX As Single, PY As Single) As Boolean
            The variable 'hPath' is not used
  Property Pages
      PropPagLP (PropPagLP.pag)
        (General)-(Declarations)
            The declaration Declare 'SetWindowLong' is not used
            The declaration Declare 'GetWindowLong' is not used
            The declaration Declare 'SetWindowLongW' is not used
            The declaration Declare 'GetWindowLongW' is not used
            The constant 'WM_KILLFOCUS' is not used
            The constant 'WM_SETFOCUS' is not used
            The constant 'EN_CHANGE' is not used
            The constant 'WM_COMMAND' is not used
            The constant 'GWL_WNDPROC' is not used
            The constant 'WM_DESTROY' is not used
            The declaration Declare 'GetFileTitle' is not used
            The variable 'm_Parent' is not used
            The variable 'm_WinProc' is not used
            The variable 'm_WinProcParent' is not used
        Private Function VBGetOpenFileName(Filename As String, _
            The variable 'afFlags' is not used
        Private Sub cmdBrowse_Click()
            The variable 'svName' is not used
        Private Sub Command1_Click()
            The procedure 'Command1_Click' is not used
  Forms
      FrmMetronomo (FrmMetronomo.frm)
        Private Function ReadFile(sPath As String, bArr() As Byte) As Boolean
            The procedure 'ReadFile' is not used

---

cheers,
</wqw>

---

uffff I did not know that this plugin had that functionality! It is very interesting to clean excess code, thanks for the information.

Very cool!

Well here is the music player that I had mentioned in the initial post, I have used the bass.dll and bass_fx.dll libraries to be more familiar, maybe I could have done it with DirectSound but I don't know if the pitch part could have been implemented and this It is what interests me the most for personal / musical reasons.

The player has some features such as: read from a playlist, command lines, drag and drop, tag editor, animated display, preview in the taskbar, keyboard operation, picth, tempo, samplerate, equalizer, unicode compliant.

The design is copied from this image

By the rules of the forum I cannot upload the project here because I use the bass.dll and bass_fx.dll so I will put the link to my blog and it is up to you to download it.


http://leandroascierto.com/blog/neumo-player/

Attachment 180741

Hi Leandro, unable to download either of the 2 files listed. Edge just shows a white screen.

Quote:

---

Originally Posted by Steve Grant

Hi Leandro, unable to download either of the 2 files listed. Edge just shows a white screen.

---

Also by me.

Quote:

---

Originally Posted by Steve Grant

Hi Leandro, unable to download either of the 2 files listed. Edge just shows a white screen.

---

Thanks for reporting, it's already solved

Very good project and very beautiful.
It works very well

regards

More of a desinger than a designer perhaps.