Windows LiveWindows Live™
 
 
Santosh's profileSantosh KumarPhotosBlogListsMore Tools Help

Blog

    Web Application, Recolouring the scroll bars

     
    The following style will change the default look of the scrollbars of the page whereever they appears
     
    <head>
      <style>
        body {
          scrollbar-base-color:#000000; 
          scrollbar-face-color:white; 
          scrollbar-arrow-color:black; 
          scrollbar-shadow-color:white; 
          scrollbar-track-color:black; 
          scrollbar-highlight-color:silver; 
          scrollbar-darkshadow-Color:steelblue; 
        }
      </style>
    </head>

    »»»»»»»   by Santosh Kumar     ?     Original @ http://santu4you.spaces.live.com
    29/03/2007 17:02 | Add a comment | Permalink | Blog it | Visual Studio .NET

    Visual Basic, Spelling an amount

     
    'Option Explicit
        Option Explicit
        Dim vArr1() As Variant
        Dim vArr2() As Variant
        Dim vArr3() As Variant
    'Option Explicit
     
    Private Function pGet(vVal As Integer, vPos As Integer) As String
        If vVal < 20 Then
            pGet = vArr1(vVal)
        Else
            pGet = vArr2(Left(vVal, 1)) & " " & vArr1(Right(vVal, 1))
        End If
        pGet = Trim(pGet)
        If pGet <> "" Then
            pGet = pGet & " " & vArr3(vPos)
            If vPos <> 0 Then pGet = pGet & " "
        End If
    End Function
     
    Public Function AmtInRs(Optional Number As Variant) As String
       
        On Error GoTo eHnd
       
        If Number > 10000000000000# Then _
        Err.Raise 12345, , "Too big amount"
       
        If Number = "" Then _
        GoTo sEnd
       
        If Not IsNumeric(Number) Then _
        Err.Raise 12345, , "Non numeric value"
       
        Call FuncInit
       
        Dim vStr As String
        Dim nStr As String
       
        Dim vRsPs() As String
        Dim vRs As String
        Dim vPs As String
        Dim vBr As Integer
        Dim vSz As Integer
        Dim vWht As Boolean
       
        nStr = Number
        vWht = IIf(InStr(1, nStr, "-"), True, False)
        nStr = Replace(nStr, "-", "")
       
        vSz = 14
        nStr = Format(Val(nStr), "0.00")
        vRsPs = Split(nStr, ".")
        vRs = Right(String(15, "0") & vRsPs(0), vSz)
        vPs = vRsPs(1)
        vStr = ""
       
        vBr = Mid(vRs, vSz - 13, 2): vStr = vStr & pGet(vBr, 3)
        vBr = Mid(vRs, vSz - 11, 2): vStr = vStr & pGet(vBr, 2)
        vBr = Mid(vRs, vSz - 9, 1): vStr = vStr & pGet(vBr, 1)
       
        vBr = Mid(vRs, vSz - 8, 2): vStr = vStr & pGet(vBr, 4)
        If vStr <> "" And InStr(1, vStr, "CRORE") = 0 Then vStr = vStr & "CRORE "
       
        vBr = Mid(vRs, vSz - 6, 2): vStr = vStr & pGet(vBr, 3)
        vBr = Mid(vRs, vSz - 4, 2): vStr = vStr & pGet(vBr, 2)
        vBr = Mid(vRs, vSz - 2, 1): vStr = vStr & pGet(vBr, 1)
        vBr = Mid(vRs, vSz - 1, 2): vStr = vStr & pGet(vBr, 0)
       
        If vStr = "" Then vStr = "ZERO "
       
        vBr = vPs
       
        vStr = "RUPEES " & vStr & "AND PAISE " & IIf(vBr = 0, "ZERO ", pGet(vBr, 0)) & "ONLY"
           
        vStr = StrConv(vStr, vbProperCase)
           
        If vWht Then vStr = "(" & vStr & ")"
       
        GoTo sEnd
    eHnd:
        vStr = "Can't handle"
    sEnd:
        AmtInRs = vStr
    End Function
     
    Private Sub FuncInit()
        vArr1 = Array("", "ONE", "TWO", "THREE", "FOUR", "FIVE", "SIX", "SEVEN", "EIGHT", "NINE", "TEN", "ELEVEN", "TWELVE", "THIRTEEN", "FOURTEEN", "FIFTEEN", "SIXTEEN", "SEVENTEEN", "EIGHTEEN", "NINETEEN")
        vArr2 = Array("", "", "TWENTY", "THIRTY", "FORTY", "FIFTY", "SIXTY", "SEVENTY", "EIGHTY", "NINETY")
        vArr3 = Array("", "HUNDRED", "THOUSAND", "LAKH", "CRORE")
    End Sub

     

    »»»»»»»   by Santosh Kumar ? Original @ http://santu4you.spaces.live.com 

    29/03/2007 16:36 | Add a comment | Permalink | Blog it | Coding, Visual Basic

    Reading an entire file

     
    Public Function ppGetTextFileData(bvFile As String) As String
        Dim ff As Integer
        ff = FreeFile
        Open bvFile For Input As ff
            ppGetTextFileData = Input(LOF(ff), #ff)
        Close ff
    End Function
     
    »»»»»»»   by Santosh Kumar ? Original @ http://santu4you.spaces.live.com 
    29/03/2007 16:26 | Add a comment | Permalink | Blog it | Coding, Visual Basic

    Visual Basic, Dedicated process in Shell

     
    Private Declare Function _
        OpenProcess Lib "kernel32" ( _
            ByVal dwDesiredAccess As Long, _
            ByVal bInheritHandle As Long, _
            ByVal dwProcessId As Long _
        ) As Long
    Private Declare Function _
        WaitForSingleObject Lib "kernel32" ( _
            ByVal hHandle As Long, _
            ByVal dwMilliseconds As Long _
        ) As Long
    Private Function ShellAndWait(ProgramName As String) As Long
        Const SYNCHRONIZE = &H100000
        Const INFINITE = &HFFFF
       
        Dim hHandle As Long
        Dim PID As Long
       
        PID = Shell(ProgramName, vbHide)
       
        If PID <> 0 Then
            hHandle = OpenProcess(SYNCHRONIZE, 0&, PID)
            WaitForSingleObject hHandle, INFINITE
        End If
       
        ShellAndWait = PID
    End Function
     
    Private Sub Command1_Click
        ShellAndWait "imp     tmp/tmp@ora8i file=c:\usr.dmp tables=(tab1,tab2,tab3)"
    End Sub
     
    »»»»»»»   by Santosh Kumar ? Original @ http://santu4you.spaces.live.com
    29/03/2007 16:23 | Add a comment | Permalink | Blog it | Coding, Visual Basic