My Very First Theme Ever! [Update]
If you have completed an application and wish to share the complete source/project files with everyone then please post it in here. Source-code files only, no tutorials.
Hey guys, I'm here because I have made my very own and first theme EVER! wahooo;
Screenshots:
If you want to try my theme you can download it below cooll;


This file is hosted off-site.
Screenshots:
**Change LogCredits to #RyggTonning - For his Awesome Fade Effects cooll; (Much Respect, Dude)
ControlBox - New
TabControl - New
ListBox - New
Theme Fade In/Out Effects - Added!
If you want to try my theme you can download it below cooll;


This file is hosted off-site.
You do not have the required permissions to view the files attached to this post.
Last edited by 3aaBrSbeel on Sun Sep 30, 2012 12:09 am, edited 4 times in total.
Vikhedgehog wrote:Is it a full theme with custom listboxes, textboxes etc?Only:
- Button
- GroupBox
- Textbox
- Progressbar
- Radiobutton
I'm still working out other elements.
Very nice work ^^
You asked for fade in/out?
well i'll give you the code I use for Optimo
Fade In:
Use wisely, my friend :3
You asked for fade in/out?
well i'll give you the code I use for Optimo

Fade In:
Code: Select all
Fade out:
For FadeIn = 0.0 To 1.1 Step 0.1
Me.Opacity = FadeIn
Me.Refresh()
Threading.Thread.Sleep(25)
Next
'Whats gonna happen after fading is complete
Code: Select all
For FadeOut = 100 To 0 Step -1
Me.Opacity = FadeOut / 100
Me.Refresh()
Threading.Thread.Sleep(0)
Next
'Whats gonna happen after fading is complete
Use wisely, my friend :3
Formerly known as RyggTonning.
PM me if you have any business proposals or similar.
PM me if you have any business proposals or similar.
RyggTonning wrote:Very nice work ^^Excuse me, where do I put it? dunnno;
You asked for fade in/out?
well i'll give you the code I use for Optimo
Fade In:Code: Select allFade out:For FadeIn = 0.0 To 1.1 Step 0.1 Me.Opacity = FadeIn Me.Refresh() Threading.Thread.Sleep(25) Next 'Whats gonna happen after fading is complete
Code: Select allFor FadeOut = 100 To 0 Step -1 Me.Opacity = FadeOut / 100 Me.Refresh() Threading.Thread.Sleep(0) Next 'Whats gonna happen after fading is complete
Use wisely, my friend :3
3aaBrSbeel wrote:Fade in: form load eventRyggTonning wrote:Very nice work ^^Excuse me, where do I put it? dunnno;
You asked for fade in/out?
well i'll give you the code I use for Optimo
Fade In:Code: Select allFade out:For FadeIn = 0.0 To 1.1 Step 0.1 Me.Opacity = FadeIn Me.Refresh() Threading.Thread.Sleep(25) Next 'Whats gonna happen after fading is complete
Code: Select allFor FadeOut = 100 To 0 Step -1 Me.Opacity = FadeOut / 100 Me.Refresh() Threading.Thread.Sleep(0) Next 'Whats gonna happen after fading is complete
Use wisely, my friend :3
Fade out: minimize/close event
Formerly known as RyggTonning.
PM me if you have any business proposals or similar.
PM me if you have any business proposals or similar.
If I helped, please give credits :3
Formerly known as RyggTonning.
PM me if you have any business proposals or similar.
PM me if you have any business proposals or similar.
RyggTonning wrote:If I helped, please give credits :3Yay, It worked 100% wahooo;
#3aaBrSbeel i thought you were asking for a differant code . I have used this code before .Is the same code for GDI that we use to code applications ?
Find my programs on Softpedia
Copyright Information
Copyright © Codenstuff.com 2020 - 2023