Almendras @ .NET

Tnomeralc web design toys

2009-03-01T21:53:00.000-08:00

One amazing thing about the internet is its capacity to adopt to change. Five years ago may be completely different from what the internet is today. A lof of tools are being developed and being discovered by people who wants the internet experience to be better every after a new innovation comes out.

Tnomeralc Web Design Toys is one of these products in the internet that plays a lot significance in the user's everyday internet experience. The Tnomeralc Web Design Toys is a suite of application which makes use of the latest technologies in software engineering and web development. The tnomeralcs is made from an open source suite that you can freely download.

A lot of our websites these days are made from Tnomeralcs. Tnomeralc is just a part or a segment of the complete suite. We can consider tnomeralc as the building blocks of the web. They comprise each pixel in the world wide web. The world wide web won't be around if not for the tnomeralcs.

Tnomeralcs plays a great role in web toy design.

- Claremont Design

Indeed, claremont is right with Tnomeralc. I tried it myself and it's good.

You may purchase the Tnomeralc Web design toys from the LA Toy Store. Get it now and experience the world wide web like you never did before.

Marhgil Macuha

2007-12-27T04:42:00.000-08:00

SEO Marhgil Macuha is one the latest phone models released by Nokia, and it's the first phone model that has a unique name, because it's not numbers, and it's not a Nseries phone, nor a Eseries phone. It's the first of its kind in its series, the SEO Series. This one-of-a-kind phone will be available in the market by early 2010. It's also called nokia MM, an acronym of its original model name "Marhgil Macuha". The brand name was taken from the late SEO Guru, Marhgil Macuha. That's why its series is SEO, and its model name was MM.

This phone is rumored to be more powerful and more sophisticated than all the latest Nseries and Eseries Nokia mobile phones. It has a 3G, HSPDA (3.5G), UOLU (4.0G), MENTA (4.5G), LYXSIS (5.0 G), IEEE (Wi-Fi), QOUTES (Wi-Fi 2.0), Infrared, Bluetooth and GPRS wireless connectivity. And, it's the only phone that can massively explode using its remote control. If someone steals this phone, you can opt to press the explode button if you want the thief to die instantly. You can trace the whereabouts of this phone, even if it's brought outside planet earth. Marhgil Macuha has many unbelievable features that is yet to be announced in the market early next year.

The price of this mobile phone ranges from 200,000.00 Pesos to 250,000.00 Pesos. This is subjected to change without prior notice.

That's all for now, we'll be informing you about the latest trends and features of this awesome phone soon. Subscribe to our updates now!

December 2007 Nursing Board Exam Results Update

2007-12-27T04:19:00.000-08:00

For those who are looking for the December 2007 Nursing Board Exam Results (Nursing Licensure Examination Results), you better check the following websites below:

Philippine Nursing Board Exam Results
Nursing Exam Results
December 2007 Board Exam Results for Nursing
Nursing Board Exam Results (NLE) December 2007
Nursing Board Exam Results

If you're looking for QOUTES, you can visit this post by Mr. Laurente, and check his latest love qoutes, friendship qoutes, famous qoutes, and all of the qoutes that you can think of.

Special thanks also to Marhgil Macuha for sharing his qoutes and text messages in his blog. Belated Merry Christmas and Happy New Year to everyone :)

For those who loves Digital Photography, check out Winston's blog, you'll definitely love it! But, if you love Vedios rather than Digital Photos, you can check this post about Vedio, you can also find Pinay Scandals using your ASUS EEE. Hehehe ^_^ ang gulo no? :P

VB.NET Code to Send Mail

2007-11-22T23:02:00.000-08:00

Private Sub SendEmail_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SendEmail.Click

Dim mailman As New Chilkat.MailMan() ' Any string passed to

UnlockComponent begins a 30-day trial.
mailman.UnlockComponent("anything")
mailman.SmtpHost = "smtp.earthlink.net"

Dim email As New Chilkat.Email()
email.Subject = "This is the subject"
email.Body = "This is the body"
email.AddTo("Chilkat Support", "support@chilkatsoft.com")
email.From = "John Smith john.smith@chilkatsoft.com"

If (Not mailman.SendEmail(email)) Then
MsgBox(mailman.LastErrorXml)
Else
MsgBox("Mail Sent!")
End If

End Sub

Control Array using VB.NET 2005

2007-11-22T06:09:00.000-08:00

Public Class clsControlArray
Public Shared Function getControlArray(ByVal frm As Windows.Forms.Form, ByVal controlName As String) As System.Array
Dim i As Short
Dim startOfIndex As Short
Dim alist As New ArrayList
Dim controlType As System.Type

Dim ctl As System.Windows.Forms.Control
Dim strSuffix As String
Dim maxIndex As Short = -1 'Default

'Loop through all controls, looking for controls with the matching name pattern
'Find the highest indexed control
Dim allControls As ArrayList = GatherAllControls(frm)

For Each ctl In allControls
startOfIndex = ctl.Name.ToLower.IndexOf(controlName.ToLower)
If startOfIndex = 0 Then
strSuffix = ctl.Name.Substring(controlName.Length)
If IsInteger(strSuffix) Then 'Check that the suffix is an integer (index of the array)
If Val(strSuffix) > maxIndex Then maxIndex = Val(strSuffix) 'Find the highest indexed Element
End If
End If
Next ctl

Return alist.ToArray(GetType(Control))
End Function

Private Shared Function getControlFromName(ByRef frm As Windows.Forms.Form, ByVal controlName As String, ByVal index As Short) As System.Windows.Forms.Control
controlName = controlName & index
For Each ctl As Control In frm.Controls
If String.Compare(ctl.Name, controlName, True) = 0 Then
Return ctl
End If
Next ctl

Return Nothing
End Function

Private Shared Function getControlFromName(ByVal allControls As ArrayList, ByVal controlName As String, ByVal index As Short) As System.Windows.Forms.Control

controlName = controlName & index
For Each ctl As Control In allControls
If String.Compare(ctl.Name, controlName, True) = 0 Then
Return ctl
End If
Next ctl

Return Nothing
End Function

Private Shared Function IsInteger(ByVal Value As String) As Boolean
If Value = "" Then Return False

For Each chr As Char In Value
If Not Char.IsDigit(chr) Then
Return False
End If
Next
Return True
End Function

End Class

Module modKeys: Easy way to manipulate key event using this class module in VB .NET 2005

2007-11-21T06:00:00.000-08:00

Module modKeys
Public Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Integer, ByVal dwExtraInfo As Integer)
Public Declare Function MapVirtualKey Lib "user32" Alias "MapVirtualKeyA" (ByVal wCode As Integer, ByVal wMapType As Integer) As Integer

Public Const KEYEVENTF_KEYDOWN As Short = &H0S
Public Const KEYEVENTF_KEYUP As Short = &H2S

Public Enum EnumCharType
vbAlphaOnly = 0 'type for Characters only
vbNumericOnly = 1 'type for numeric only
vbAlphanumeric = 2 'Allow Alphanumeric
vbOnListOnly = 3
End Enum

Public Enum EnumKeyExec
vbEnterOnly = 0 'this would only allow enter key
vbBackSpaceOnly = 1 'allow backspace only
vbSpaceOnly = 2 'allow space only
vbEnterBackSpace = 3 'allow both backspace and enter
vbEnterSpace = 4 'allow enter and space
vbSpaceBackSpace = 5 'allow space and backspace
vbDefaultKeys = 6 'allow space,enter and backspace
End Enum

Public Sub AutoShiftTab()
keybd_event(System.Windows.Forms.Keys.ShiftKey, MapVirtualKey(System.Windows.Forms.Keys.ShiftKey, 0), KEYEVENTF_KEYDOWN, 0)
keybd_event(System.Windows.Forms.Keys.Tab, MapVirtualKey(System.Windows.Forms.Keys.Tab, 0), KEYEVENTF_KEYDOWN, 0)
keybd_event(System.Windows.Forms.Keys.ShiftKey, MapVirtualKey(System.Windows.Forms.Keys.ShiftKey, 0), KEYEVENTF_KEYUP, 0)
End Sub

End Module

SAMPLE CODE:
Public Class Form1

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
'//-ALPHA NUMERIC with special characer " .?/@#"
e.KeyChar = ChrW(modKeys.Keyed(AscW(e.KeyChar), EnumCharType.vbAlphanumeric, EnumKeyExec.vbEnterBackSpace, True, "[ .?/_]"))
Select Case AscW(e.KeyChar)
Case System.Windows.Forms.Keys.Return
AutoTab() '//-focused on next tab order
End Select
End Sub

Private Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
Select Case e.KeyCode
Case System.Windows.Forms.Keys.Down
AutoTab() '//-focused on next tab order
Case System.Windows.Forms.Keys.Up
AutoShiftTab() '//-focused on previous tab order
End Select
End Sub

Private Sub TextBox4_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox4.KeyPress
'//-SELECTED CHARACTER
e.KeyChar = ChrW(modKeys.Keyed(AscW(e.KeyChar), EnumCharType.vbOnListOnly, EnumKeyExec.vbEnterBackSpace, True, "[RrUuBbEeNn]"))
End Sub

End Class