kblogs-LifeChecker.com

Save Button Dialog Box

DeanKeith — Sat, 06 Jan 2007 23:59:40 -0600

The main thing about the folling code is that is used a dialog box to save a file. This is an essential element for most applications.

Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
'Bring up file save dialog
Dim dlgSave As New SaveFileDialog
dlgSave.Filter = 'Image files (*.bmp)|*.bmp|All files (*.*)|*.*'
If dlgSave.ShowDialog() = DialogResult.OK Then
'makebitmap and save it
Dim bmpArea As Bitmap = bitmap.Clone(New Rectangle
(0, 0, Me.Width, Me.Height), bitmap.PixelFormat)
bmpArea.Save(dlgSave.FileName, ImageFormat.Bmp)
End If
End Sub

Patterns

DeanKeith — Fri, 20 Jan 2006 00:16:45 -0600

It may be an outmoded form of document validation, however, the DOCTYPE definition for an XML document permits almost pivot table like analysis of data.

Defining the Elements and Attributes using the

Blooming Database Features

DeanKeith — Sun, 20 Nov 2005 20:02:59 -0600

SQL Server 2005 New Features

Ranking Functions:

Rank()
Dense_Rank()
NTile()
Row_Number()

Each of these uses the OVER Clause to set up the query.

The coolest of these in my opinion is the NTILE function as it
will divide up a result set into value bands producing an auto-
matic set of categories. In the sample below 4 price ranges would
be created.

SELECT NTILE(4) OVER(Partition BY PRODUCT.NAME ORDER BY PRICE) as
PRICERANGE, PRODUCT.NAME, PRICE
FROM PRODUCT

WSH - Add Users Script

DeanKeith — Mon, 14 Nov 2005 13:33:13 -0600

Option Explicit
Dim objou, objUser
Set objOU = GetObject('LDAP://ou=Marketing,dc=mydomain,dc=com')
Set objUser = objOU.Create('User', 'cn=EOsterman')
objUser.Put 'sAMAccountName', 'Eosterman'
objUser.SetInfo

This adds a user to AD. The account is created with a blank password and disabled.

Take Off - The Blog for Little Guys Reaching Up

DeanKeith — Wed, 12 Oct 2005 00:21:48 -0500

This is the starting place, the launching place of the LifeChecker Tech Blog. We will look at code, at group policy, at some Linux and at some trends in technology. Hopefully you will get some ADO.NET connection strings, some Timer code as well as some guidelines on how to implement security in your organization. I am sure we will do some router configs as well. Hold onto your seat for a first class flight. So ---- Welcome.