Martes, Agosto 30, 2011

code on how to create a picturebox

If txtusername.Text = "weng_lorenzo@yahoo.com" Then
            Me.txtusername.Enabled = False

            Me.PictureBox1.Visible = True
            Me.PictureBox2.Visible = False

        Else
            Me.PictureBox1.Visible = False
            Me.PictureBox2.Visible = True

        End If
    End Sub





 If txtpassword.Text = "exer5" Then
            Me.txtpassword.Enabled = True

            Me.PictureBox3.Visible = True
            Me.PictureBox4.Visible = False
        Else
            Me.PictureBox3.Visible = False
            Me.PictureBox4.Visible = True

        End If
    End Sub

code in how to covert in celsius to fahrenheit

If Me.txtpassword.Text = "labqiuz" And Me.txtusername.Text = "weng_lorenz@yahoo.com" Then
            MsgBox("you may now proceed")
            Me.lblusername.Visible = False
            Me.lblpassword.Visible = False
            Me.txtusername.Visible = False
            Me.txtpassword.Visible = False
            Me.BTNLOGIN.Visible = False
            Me.btncancel.Visible = False
            Me.lblwelcome.Visible = True
            Me.btnclick.Visible = True
            Me.lblleovelyn.Visible = True
            Me.lblleovelyn.Text = Me.txtusername.Text
        ElseIf txtpassword.Text = "" And txtusername.Text = "" Then
            MsgBox("please enter your username and password")

        Else

            MsgBox("sorry, but you've entered incorrect username and password")
        End If


Private Sub btnconvert_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnconvert.Click
celsius to fahrenheit:
        lblfah.Text = 9 / 5 * (Val(txtcelsius.Text)) + 32

        Me.lblfahrenheit.Visible = True
        Me.lblfah.Visible = True


Private Sub btncon_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncon.Click
fahrenheit to celsius:
        lblfahblank.Text = (txtfahrenheit.Text - 32) * 5 / 9
        Me.lblcelsius.Visible = True
        Me.lblfahblank.Visible = True
    End Sub
btn retry:
  Me.lblfah.Visible = False
        Me.lblfahrenheit.Visible = False
      
        Me.txtcelsius.Text = ""

    End Sub
btn retry:
  Me.lblfahblank.Visible = False
        Me.lblcelsius.Visible = False
        Me.txtfahrenheit.Text = ""
 End Sub

Martes, Agosto 2, 2011

SO ROMANTIC SONG!!!

Lately I'm not who I used to be
Someone's come and taken me
Well, I don't wanna go

If I knew exactly what I have to do
In order to be there for you
When you were feeling low

And all the things we ever wanted
Were once yours and mine
Now, I know we can revive it
All the love we left

Everytime I kiss I feel your lips
And everytime I cry I see your smile
And everytime I close my eyes, I realize

That everytime I hold your hand in mine
The sweetest thing my heart could ever find
And I have never felt this way
Since the day I gave your love away

Save me, I've fallen from my destiny
You and I were meant to be, I've thrown it all away
Now you're gone, it's time for me to carry on
But baby, I just can't go on without you by my side

And all the things we ever wanted
Were once yours and mine
Now, I know we can revive it
All the love we left

Everytime I kiss I feel your lips
And everytime I cry I see your smile
And everytime I close my eyes, I realize

That everytime I hold your hand in mine
The sweetest thing my heart could ever find
And I have never felt this way
Since the day I gave your love away

We can survive it all the pain we feel inside
You relied on me and now I've let you down
(I've let you down)
Now, I promise you forever I will be the best I can
Now, I know we can revive it all the love we left

Everytime I kiss I feel your lips
And everytime I cry I see your smile
And everytime I close my eyes, I realize

That everytime I hold your hand in mine
The sweetest thing my heart could ever find
And I have never felt this way
Since I gave your love away

Everytime I kiss, everytime I cry
And everytime I close my eyes, I realize
That everytime I hold your hand in mine

The sweetest thing my heart could ever find
And I have never felt this way
Since the day I gave your love away