Visual Basic

"You can have everything in life you want if you will just help enough other people get what they want." --Zig Ziglar

The Second EuroCPian Event will be in Brussels on the 4th of September

Can't manage to P/Invoke that Win32 API in .NET? Why not do interop the wiki way!

<br />
 Private Sub btnDisplay_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDisplay.Click<br />
        Dim sp As Course.theClass.myApp<br />
        sp.printOut(Me.InputText.Text())  ' here the error pointing to.<br />
    End Sub<br />

<br />
Option Strict On<br />
Option Explicit On <br />
<br />
Imports System.Windows.Forms<br />
<br />
' The class module is enclose in a namespace named CountingStatement. <br />
' The root namespace was set to Course using the Project Properties dialog box. <br />
Namespace theClass<br />
<br />
    ' The class is named StringProcessor.<br />
    Public Class myApp<br />
        Public Sub printOut(ByVal theText As String)<br />
            'get the total number of characters,#of Words, #of paragraph, and # of sentence in that paragraph. <br />
            MsgBox (theText)<br />
        End Sub<br />
    End Class<br />
End Namespace<br />

Dim sp As New Course.theClass.MyApp

Private Declare Function Beep Lib "kernel32" Alias "Beep" _
    (ByVal dwFrequency As Long, ByVal dwDuration As Long) As Long

Beep 5000, 250

cmdLine$ = chr$(34) & "C:\Windows\notepad.exe" & chr$(34)  ' "C:\Windows\notepad.exe"
WorkingDirectory = Path.GetFullPath(cmdLine$)              ' will be C:\Windows\notepad.exe
WorkingDriectory = Path.GetPathRoot(WorkingDirectory)      ' Should be C:\Windows

<br />
Public Function ExecuteAndWait(cmdline$)<br />
On Error GoTo Error<br />
<br />
    Dim NameOfProc As PROCESS_INFORMATION<br />
    Dim NameStart As STARTUPINFO<br />
    Dim x As Long<br />
    Dim WorkingDirectory As String<br />
    Dim Path As String<br />
<br />
Path = cmdline$<br />
WorkingDirectory = Mid(Path, 1, InStrRev(Path, "\") - 1)<br />
<br />
MsgBox WorkingDirectory<br />
   GoTo Quit<br />
    NameStart.cb = Len(NameStart)<br />
    x = CreateProcessA(0&, cmdline$, 0&, 0&, 1&, NORMAL_PRIORITY_CLASS, 0&, WorkingDirectory, NameStart, NameOfProc)<br />
    x = WaitForSingleObject(NameOfProc.hProcess, INFINITE)<br />
    x = CloseHandle(NameOfProc.hProcess)<br />
    <br />
Exit Function<br />
Error:     ' Error handling<br />
MsgBox "Run-Time Error number " & Err.Number & vbCrLf & Err.Description, vbOKOnly + vbCritical, "CreateProcess"<br />
GoTo Quit<br />
Quit:<br />
End Function<br />

<br />
GetFullPath declared like this : ?<br />
<br />
Public Declare Function GetFullPath Lib "kernel32" Alias "GetFullPathNameA" (ByVal lpFileName As String, ByVal nBufferLength As Long, ByVal lpBuffer As String, ByVal lpFilePart As String) As Long<br />
<br />
<br />
GetPathRoot declared like this : ?<br />
<br />
Private Declare Function GetPathRoot Lib "gdi32.dll" (ByVal hdc As Long, ByRef lpPoint As POINTAPI, ByRef lpTypes As Byte, ByVal nSize As Long) As Long<br />
<br />
<br />

<br />
   Dim WorkingDirectory As String<br />
   Dim Path As String<br />
   Dim Path1 As String<br />
<br />
Path = cmdline$<br />
Path1 = Right(Path, Len(Path) - 1)<br />
WorkingDirectory = Mid(Path1, 1, InStrRev(Path1, "\") - 1)<br />
msgbox WorkingDirectory<br />

ALTER TABLE Invoice ADD COLUMN " & taxName.Text & " currency BEFORE <fieldname>

1. Rename that table.
2. Create a new table with the same fields as the original with all the sametriggers, constraints, ...
   But when you create the columns, create them in order and create the new column when appropriate.
3. Copy the data to the new table.
4. Delete the old table.