<body><script type="text/javascript"> function setAttributeOnload(object, attribute, val) { if(window.addEventListener) { window.addEventListener('load', function(){ object[attribute] = val; }, false); } else { window.attachEvent('onload', function(){ object[attribute] = val; }); } } </script> <div id="navbar-iframe-container"></div> <script type="text/javascript" src="https://apis.google.com/js/platform.js"></script> <script type="text/javascript"> gapi.load("gapi.iframes:gapi.iframes.style.bubble", function() { if (gapi.iframes && gapi.iframes.getContext) { gapi.iframes.getContext().openChild({ url: 'https://www.blogger.com/navbar/2184886057686351170?origin\x3dhttp://astarfall.blogspot.com', where: document.getElementById("navbar-iframe-container"), id: "navbar-iframe" }); } }); </script>
Form fun stuff [vb.net]
Tuesday, August 7, 2007


Noticed how some program has some nice features like the one above which the opacity can be adjusted? Well this doesn't have anything to do with Mr. Khairol's class but and extra stuff you can implement in your program *hints*. *smirk and smile*

Control used :

Well heres the code.

Public Class Form1

Private Sub HScrollBar1_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles HScrollBar1.Scroll
'okay me.opacity actually mean, the parent form or the main form or the active form, the rest you can figure it out yourself, the opacity of the form depends on the value the scrollbar is at currently'
Me.Opacity = 0.1 + HScrollBar1.Value / 100
'this code is just extra just to show you the opacity value currently on the title bar of the form'
Me.Text = Me.Opacity.ToString
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'this one is to make the scrollbar start at 100 when the program load so u can actually see the program on initial startup lol (p/s : try and remove this line and see what happen, dont worry it wont harm your computer) p/s again : this colour reminds me of someone's tamagotchi lol'
HScrollBar1.Value = 100
End Sub
End Class

Labels:

♥ 2 voice out ♥

As I wonder.. @ 9:22:00 PM

profile



It would be a lie if i say I'm not nobody, and it would also be exaggerating to say I'm somebody. Cut it short, I'm a student, not that friendly but I try to be. ;), to keep it simple, ask people who know me. They judge me better then I judge myself.

the loves

[x] Friends
[x] Cameras
[x] Graphics
[x] Books
[x] Money (then again who doesnt?)

tagboard


links

credits
designer : kathleen
image : starfall
editor : starfall
helper : lilangel
lyrics : It Ends Tonight/ AAR

A falling star
Least I fall alone.
I can't explain what you can't explain.
You're finding things that you didn't know
I look at you with such disdain

memories
August 2007
September 2007
October 2007
November 2007
December 2007
January 2008