Results 1 to 16 of 16

Thread: Neumorphism Design

  1. #1

    Thread Starter
    Hyperactive Member
    Join Date
    Dec 2008
    Location
    Argentina
    Posts
    439

    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.

    Name:  Neumorphism1.jpg
Views: 1195
Size:  17.1 KBName:  Neumorphism2.jpg
Views: 1096
Size:  18.1 KBName:  Neumorphism4.jpg
Views: 1069
Size:  32.0 KBName:  Neumorphism5.jpg
Views: 1055
Size:  15.4 KB

    Neumorphism.zip
    Last edited by LeandroA; Mar 16th, 2021 at 09:43 PM.
    leandroascierto.com Visual Basic 6 projects

  2. #2
    Fanatic Member
    Join Date
    Aug 2016
    Posts
    673

    Re: Neumorphism Design

    You can be a designer

  3. #3
    Lively Member
    Join Date
    Nov 2020
    Posts
    67

    Re: Neumorphism Design

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

  4. #4

  5. #5

    Thread Starter
    Hyperactive Member
    Join Date
    Dec 2008
    Location
    Argentina
    Posts
    439

    Re: Neumorphism Design

    Quote Originally Posted by xxdoc123 View Post
    You can be a designer
    so let's forget the orange form

    @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
    leandroascierto.com Visual Basic 6 projects

  6. #6
    Hyperactive Member
    Join Date
    Jun 2016
    Location
    EspaƱa
    Posts
    506

    Re: Neumorphism Design

    good job

  7. #7
    Lively Member
    Join Date
    Nov 2020
    Posts
    67

    Re: Neumorphism Design

    Quote Originally Posted by LeandroA View Post
    @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!

  8. #8
    PowerPoster wqweto's Avatar
    Join Date
    May 2011
    Location
    Sofia, Bulgaria
    Posts
    5,120

    Re: Neumorphism Design

    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>

  9. #9

    Thread Starter
    Hyperactive Member
    Join Date
    Dec 2008
    Location
    Argentina
    Posts
    439

    Re: Neumorphism Design

    Quote Originally Posted by wqweto View Post
    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.
    leandroascierto.com Visual Basic 6 projects

  10. #10
    Registered User
    Join Date
    Jun 2020
    Posts
    1

    Re: Neumorphism Design

    Very cool!

  11. #11

    Thread Starter
    Hyperactive Member
    Join Date
    Dec 2008
    Location
    Argentina
    Posts
    439

    Re: Neumorphism Design

    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/

    Name:  Vbforums.jpg
Views: 599
Size:  60.8 KB
    Last edited by LeandroA; Mar 23rd, 2021 at 10:34 AM.
    leandroascierto.com Visual Basic 6 projects

  12. #12
    Fanatic Member
    Join Date
    Jul 2007
    Location
    Essex, UK.
    Posts
    578

    Re: Neumorphism Design

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

  13. #13
    Lively Member
    Join Date
    Nov 2020
    Posts
    67

    Re: Neumorphism Design

    Quote Originally Posted by Steve Grant View Post
    Hi Leandro, unable to download either of the 2 files listed. Edge just shows a white screen.
    Also by me.

  14. #14

    Thread Starter
    Hyperactive Member
    Join Date
    Dec 2008
    Location
    Argentina
    Posts
    439

    Re: Neumorphism Design

    Quote Originally Posted by Steve Grant View Post
    Hi Leandro, unable to download either of the 2 files listed. Edge just shows a white screen.
    Thanks for reporting, it's already solved
    leandroascierto.com Visual Basic 6 projects

  15. #15
    Hyperactive Member
    Join Date
    Jun 2016
    Location
    EspaƱa
    Posts
    506

    Re: Neumorphism Design

    Very good project and very beautiful.
    It works very well

    regards

  16. #16
    PowerPoster yereverluvinuncleber's Avatar
    Join Date
    Feb 2014
    Location
    Norfolk UK (inbred)
    Posts
    2,235

    Re: Neumorphism Design

    More of a desinger than a designer perhaps.

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  



Click Here to Expand Forum to Full Width