
	ASP Shopping Cart, Forum & BBS - all for $20 from CodeToad Plus!

Home || ASP | ASP.Net | C++/C# | DHTML | HTML | Java | Javascript | Perl | VB | XML || CodeToad Plus! || Forums || RAM

Search Site:

Home » Visual Basic » Article

Type Anywhere

Article by:

Sumit Pranav (5/25/2004)

	Add to Favourites
	Tell a friend

Sponsored by:

FindMyHosting - Web Hosting Search

Summary:

Type anywhere is a magical notepad with which you can type anywhere,on the desktop, on any file or program open. It gives you facility to make its window transclusent, save the file and change fonts etc. With this You can work on two windows simultaniously.

Viewed: 23186 times

Rating (29 votes):

3.9 out of 5

Rate this Article

Read Comments

Post Comments

Type Anywhere

Type Anywhere : This program is developed for Windows 2000 or later and will not work on previous versons of the windows. The pragram makes it possible to work simultaniously in the two windows while both appear as same. Same screen has been layered to get the effect. user can also set the transparancy level of the program window.
With the help of Layering APIs the aim has been achieved.Windows has been set to the top ofn all the windows by SetWindowPos API.
This program is straight farward to be grasped and for experimentation.

Select All Code

'------------------------------------------------------------------
'*****************************************************************
'Developed By :- Sumit Pranav
'**********************************************
'Mail: sumit_pranav@hotmail.com
'Website: Sumitpranav.8m.com ,Magicbrush.8m.com

'Requires Windows 2000 or later:
'*****************************************************************
Option Explicit

'declaration for settin windows to the top
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, _
    ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, _
    ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

Const HWND_TOPMOST = -1
Const SWP_SHOWWINDOW = &H40
Dim retValue As Long
'------------------
'Declaration for setting windows to the size of the bitmap

Private Declare Function SendMessageLong Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Const WM_SYSCOMMAND = &H112&
Private Const SC_MOVE = &HF010&
Private Const WM_NCLBUTTONDOWN = &HA1
Private Const HTCAPTION = 2

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
   (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
   (ByVal hwnd As Long, ByVal nIndex As Long, _
   ByVal dwNewLong As Long) As Long
Private Const GWL_STYLE = (-16)
Private Const GWL_EXSTYLE = (-20)

Private Const WS_EX_LAYERED = &H80000
Private Type BLENDFUNCTION
   BlendOp As Byte
   BlendFlags As Byte
   SourceConstantAlpha As Byte
   AlphaFormat As Byte
End Type
' currently defined blend function

Private Const AC_SRC_OVER = &H0

' alpha format flags
Private Const AC_SRC_ALPHA = &H1
Private Const AC_SRC_NO_PREMULT_ALPHA = &H1
Private Const AC_SRC_NO_ALPHA = &H2
Private Const AC_DST_NO_PREMULT_ALPHA = &H10
Private Const AC_DST_NO_ALPHA = &H20

Private Declare Function SetLayeredWindowAttributes Lib "user32" _
   (ByVal hwnd As Long, ByVal crKey As Long, _
   ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Private Const LWA_COLORKEY = &H1
Private Const LWA_ALPHA = &H2

Private Declare Function UpdateLayeredWindow Lib "user32" _
   (ByVal hwnd As Long, ByVal hdcDst As Long, pptDst As Any, _
   psize As Any, ByVal hdcSrc As Long, _
   pptSrc As Any, crKey As Long, _
   ByVal pblend As Long, ByVal dwFlags As Long) As Long
Private Const ULW_COLORKEY = &H1
Private Const ULW_ALPHA = &H2
Private Const ULW_OPAQUE = &H4

Private Declare Function RedrawWindow Lib "user32" (ByVal hwnd As Long, lprcUpdate As Any, ByVal hrgnUpdate As Long, ByVal fuRedraw As Long) As Long
Private Const RDW_ALLCHILDREN = &H80
Private Const RDW_ERASE = &H4
Private Const RDW_FRAME = &H400
Private Const RDW_INVALIDATE = &H1

Private Sub Form_DblClick()
rtf1.Visible = False
End Sub

Private Sub Form_Load()
  'setting window to the top
    retValue = SetWindowPos(Me.hwnd, HWND_TOPMOST, 100, 200, _
               6000, 4000, SWP_SHOWWINDOW)
'--------------------------------------------------
'setting window to  the size of the bitmap
rtf1.Text = Date
 Me.Width = picBackground.ScaleWidth
   Me.Height = picBackground.ScaleHeight
   Set Me.Picture = picBackground.Picture
   
   Dim transColor As Long
   transColor = vbWhite
   Me.BackColor = transColor
   
   Dim lStyle As Long
   lStyle = GetWindowLong(hwnd, GWL_EXSTYLE)
   lStyle = lStyle Or WS_EX_LAYERED
   SetWindowLong hwnd, GWL_EXSTYLE, lStyle
      
   SetLayeredWindowAttributes Me.hwnd, transColor, 220, LWA_COLORKEY 'Or LWA_ALPHA
   
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
   
    If Button = vbLeftButton Then
    'Fake a mouse down on the titlebar so form can be moved...
    ReleaseCapture
    SendMessageLong Me.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&

        rtf1.Visible = True
        List1.Visible = False
      rtf1.SetFocus
    ElseIf Button = 2 Then
    List1.Visible = True
    List1.SetFocus
    End If
    
End Sub


Private Sub Image1_Click()
Dim result As VbMsgBoxResult
result = MsgBox("Save changes before quit ?", vbYesNoCancel, "Type Anywhere")
If result = vbYes Then
    
   Dim strNewFile As String
   CommonDialog1.DialogTitle = "Save File"
   CommonDialog1.DefaultExt = ".rtf"
   CommonDialog1.Filter = "*.rtf"
   CommonDialog1.ShowSave
   strNewFile = CommonDialog1.FileName
   rtf1.SaveFile strNewFile
   Unload Me
   Set form1 = Nothing
ElseIf result = vbNo Then
    Unload form1
   Set form1 = Nothing
End If
End Sub

Private Sub List1_Click()
Select Case List1.ListIndex
Case 0 ' save
    Dim strNewFile As String
   CommonDialog1.DialogTitle = "Save File"
   CommonDialog1.DefaultExt = ".rtf"
   CommonDialog1.Filter = "*.rtf"
   CommonDialog1.ShowSave
   strNewFile = CommonDialog1.FileName
   rtf1.SaveFile strNewFile
Case 1 'font
CommonDialog1.Flags = cdlCFBoth + cdlCFEffects
CommonDialog1.ShowFont
    rtf1.Font.Name = CommonDialog1.FontName
    rtf1.Font.Size = CommonDialog1.FontSize
    rtf1.Font.Bold = CommonDialog1.FontBold
    rtf1.Font.Italic = CommonDialog1.FontItalic
    rtf1.Font.Underline = CommonDialog1.FontUnderline
    rtf1.Font.Strikethrough = CommonDialog1.FontStrikethru
'    rtf1.Font.Color = CommonDialog1.Color
Case 2 'setting transparancy level
    Dim transparancy As Integer
    On Error GoTo error_sol
      transparancy = InputBox(" Input a tranparancy level between 1 and 220", "Type Anywhere", 220)

    
           
   Me.Width = picBackground.ScaleWidth
   Me.Height = picBackground.ScaleHeight
   Set Me.Picture = picBackground.Picture
   
   Dim transColor As Long
   transColor = vbWhite
   Me.BackColor = transColor
   
   Dim lStyle As Long
   lStyle = GetWindowLong(hwnd, GWL_EXSTYLE)
   lStyle = lStyle Or WS_EX_LAYERED
   SetWindowLong hwnd, GWL_EXSTYLE, lStyle
      
   SetLayeredWindowAttributes Me.hwnd, transColor, transparancy, LWA_COLORKEY Or LWA_ALPHA
Me.Refresh
List1.Visible = False
error_sol:     Exit Sub
End Select
End Sub

Useful Links

Affordable Windows Hosting

Reseller Hosting

Web+Hosting=$1.66

Web Hosting

Hosting

Windows Hosting

Web Hosting Providers

Cheap Hosting

Advertise here

CodeToad Experts

Can't find the answer?
Our Site experts are answering questions for free in the CodeToad forums

Rate this article: Poor Excellent

View highlighted Comments

User Comments on 'Type Anywhere '

Posted by : sumitpranav at 16:12 on Tuesday, May 25, 2004

Excellent Software. i am using it enjoying.

Posted by : dton at 21:27 on Saturday, May 13, 2006

Hello
I am new to this, i have assignment in Accounting and i need help.

To post comments you need to become a member. If you are already a member, please log in .

RELATED ARTICLES
Generate License Keys (such as CD keys on Microsoft software) by Brian Gillham This class allows you to generate license keys, such as the CD keys on the case of most Microsoft software

Visual Basic Read and Modify the Registry by Kenneth Ives Perform the four basic functions to the Windows registry. Add, change, delete, and query. Allows you to to read registry values, and modify both keys and values.

Communicating with the Database (Using ADO) by Chaudhary Pradeep K. Roy Using ADO to get connected with the database.

Generate an Array of Unique Random Numbers by Brian Gillham This function will generate an ARRAY of TRULY random numbers.

Beginning Resource Files in Visual Basic by Kenneth Ives Have you ever wanted to use graphics, such as icons, bitmaps, cursors, and AVI files? How about sound or even message box text? This can be an enormous amount of overhead. These are all examples of more files to keep track of when you distribute an application, DLL, or OCX. Lets find out how resource files can help....

Visual Basic Compact/Repair Access Database Utility by Kenneth Ives This utility will compact and repair the access database you select. It is actually more convenient to use this utility than do the same task with Access, because you don't have to save the database with a different name and then delete the old database when you are done: here, a temporary copy of the database is automatically created and deleted.

Creating a watermark in Excel with VBA by Kenneth Ives Adding a watermark to an Excel spreadsheet using VBA.

Generate your own Random Numbers by Thaha Hussain This simple program generates random numbers using the basic mathematical methods.

Change Cursor to Hour Glass by Brian Gillham A simple script to change the cursor to an hour glass.

Analog Clock by Thaha Hussain This program demonstrates Thaha Hussain's Clock Work Formula to paint an Analogue Clock.

Recent Forum Threads

•	Re: Perl Script - File Handling.
•	Open a file from website
•	Re: to open 5 terminals from one and also execute different commands on each terminal
•	read a selected multiple line, those should match some of the values read in the files..
•	Help me please
•	Empty the contents of a file.
•	Month Start, End dates
•	show hide problem in dynamic table creation
•	Re: ASP Sendmail has huge delay - ANYONE??

Recent Articles

	ASP GetTempName
	Decode and Encode UTF-8
	ASP GetFile
	ASP FolderExists
	ASP FileExists
	ASP OpenTextFile
	ASP FilesystemObject
	ASP CreateFolder
	ASP CreateTextFile
	Javascript Get Selected Text

submit a link - privacy - contact - advertise - hot links - link to us - submit your article