Never been to CodeSnippets before?

Snippets is a public source code repository. Easily build up your personal collection of code snippets, categorize them with tags / keywords, and share them with the world (or not, you can keep them private!)

Astaga.com lifestyle on the net

Portal Astaga.com Lifestyle on the net. Human life will not be separated from the name of his lifestyle on the net or in the Indonesian language say lifestyle, especially in the era of era of sophisticated technology like this is not a foreign thing again if it was a fundamental requirement. Indirectly we are created by God already has the basic things such as balance, just imagine if we did not have a grace born of different styles will look strange waah he would.

In view of the lifestyle of course we have some differences that are somewhat visible, from the way until the problem berpakaiaan and small in any case we have differences, especially when asked about preferences, lifestyle model on the net or what our interest, sometimes very far waah well different.


Astaga.com Lifestyle on the Net

Selected items from a multiple select or checkboxes in VB.net

My co-worker found this code for VB.net that is used to access selected items from check boxes or multiple select boxes. If you've been wondering how to do this, this may help :)

The URL is http://dotnetjunkies.com/weblog/davetrux/archive/2003/11/14/3557.aspx

// The results of a mulitple-select list are also a NameValueCollection
Request.Form.GetValues(i)
// and the individual items are accessed like this:
Request.Form.GetValues(i)(j)

VB.net Modified Preorder Tree Traversal

In order to utilize this, I would recommend reading the article located at sitepoint.com (Search google for modified preorder tree traversal). It took me quite some time and some help from a coworker to port this from PHP to VB.net. :D

Replace the application("sql").query("*") with your SQL code, I was inclined to write my own SQL class to make querying DB's easier, but you can do whatever you want.
record = application("sql").query("select * from categories order by lft asc")
dim output as new arraylist()
dim right as new arraylist()
do while not record.eof
  if right.count > 0
    do while right(right.count - 1) < record("rgt").value
      right.removeAt(right.count - 1)
      if right.count = 0 then exit do
    loop
  end if
  response.write(record("name").value & " is " & right.count & " levels deep in the tree..." & controlchars.cr)
  right.add(record("rgt").value)
  record.movenext
loop

Processing a Native Window Message Inside a Non-visual Class

Say you have a dynamic library and you want to treat a native window message inside any non-visual class in that library.
Derive this class from NativeWindow as shown below. After creating the new class from Class1, you can pass the Handle (like IntPtr) of this class to any native function.

public class Class1: NativeWindow
{
	CreateParams cp = new CreateParams();

	public Class1()
	{
		// Create the actual window
		this.CreateHandle(cp);
	}

	protected override void WndProc(ref Message m)
	{
		if(m.Msg == WM_...)
		{
			// Do something here in response to messages
			return;
		}
		base.WndProc(ref m);
	}

}