MERRY CHRISTMAS!

Today i am going to  say :Merry Christmas to all of the person who I known ,whosoever i love and  whosoever i hate!

---------------------------------

How "Merry Christmas" is said .....

Happy New Year

Microsoft Removing Java From Applications

Sun has designed a series of complementary programs for OEMs, consumers, and developers to ensure that a current version of Java software is freely available on desktops worldwide:

Distribution Agreements - Source and binary redistribution licenses. Industry leading PC vendors such as Apple, DELL, Gateway, HP,Samsung, Toshiba, and Tsinghua Tongfang intend to ship a current version of Java installed on their computers to provide a richer consumer experience. Sun has reached deals with companies representing approximately 50% of the world wide shipping volume of PCs. See the recent announcement at: http://www.sun.com/smi/Press/sunflash/2003-09/sunflash.20030923.1.html

Set Folder Path API

We can get the path name of a special folder with SHGetFolderPath  API.

we can find this function name in shfolder.dll or shell32.dll,but i can't find it's corresponding interface function  in shfolder.dll or shell32.dll.

In fact,this function is provided by shell32.dll

for example:

a piece of code:

Public Declare Function SHSetFolderPathW Lib "shell32" Alias "#232" (ByVal csidl As Long, ByVal hToken As Long, ByVal dwFlags As Long, ByVal pszPath As Long) As Long

Public Declare Function SHSetFolderPathA Lib "shell32" Alias "#231" (ByVal csidl As Long, ByVal hToken As Long, ByVal dwFlags As Long, ByVal pszPath As String) As Long

If IsWinNT Then

        ReVal = SHSetFolderPathW(lngCSIDL, -1, SHGFP_TYPE_CURRENT, StrPtr(strPath))

    Else

        ReVal = SHSetFolderPathA(lngCSIDL, ByVal 0&, 0, strPath)

    End If

note:

the SHSetFolderPath API  work in

Takes the CSIDL of a folder and returns the pathname

Set glodal mouse cursor

Most of control in VB has a MousePointer .we can set me pointer of mouse,such as setbusy cursor.

But sometime we need set a global mouse cursor instead of someone control 's cursor .

 At this time .we can use ShowCursor API to do this :

Option Explicit

Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long

Public Enum CursorType

   Normal

   Busy

   HideIt

   ShowIt

End Enum



'

Public Function SetMouseCursor(Status As CursorType) As Boolean

Select Case Status

   Case CursorType.Normal

      Screen.MousePointer = vbDefault

      SetMouseCursor = True

   Case CursorType.Busy

      Screen.MousePointer = vbHourglass

      SetMouseCursor = True

   Case CursorType.HideIt

      ShowCursor False

      SetMouseCursor = True

   Case CursorType.ShowIt

      ShowCursor True

      SetMouseCursor = True

   Case Else

      SetMouseCursor = False

End Select

End Function



Private Sub Command1_Click()

  SetMouseCursor Busy

End Sub



Private Sub Command2_Click()

  SetMouseCursor Normal

End Sub

ERL function

How to ascertain a string variable wether has been initialized

In VB,if a string variable has not been initialized yet, it's value is vbNullString,if a string variable has  been initialized ,but it assigned a zero-length string "" .

In VB, you cannot compare an empty string to a vbNullString because VB equates "" to be equal to vbNullString even though the two are quite different.

However, you can use the undocumented StrPtr function to determine whether the string has been initialized.

 A vbNullString's pointer is, by definition, zero

Example:

Dim str As String



Private Sub Command1_Click()

    If StrPtr(str) = 0 Then

      Debug.Print "str has not been initialized yet"

    Else

      Debug.Print "str has  been initialized"

    End If



End Sub



Private Sub Command2_Click()

  str = "test"

End Sub

tips

Open Your VB Projects With a Clean Slate 

If you're like me, you hate all the clutter of open form, class, and module windows when you open your VB projects in the IDE. Here's a simple workaround to let you start your project with a clean workspace.
Edit the accompanying VB Workspace file for your project (with notepad). It has the same name as your project file, but with a VBW file extension. Delete all the lines in this file and save it. Now make this file read-only. Whenever you save your project from then on it will not update this file since it is read only, and it will not complain.
A Simple IsAlphaNum Function:

Code: