Hi Craig

This sounds like a great utility. Thanks. I have just downloaded it and can't wait to try it out.

Thanks for the positive feedback. I hope you find it useful.

Hello!
I am Visual Foxpro 5,6,7,8 from 1997, Now I would like to Create My VFP Bases Application in Visual Basic 6, but there is a problem to Creating Application in VB , VFP Grid is the Best and Powerfull Grid ,I Tried many Other Third Party Grids but there is no any one like VFP Grid. So Please Tell me the Idea that Can I Use VFP GRID in VB.

Waiting for your Reply!

Thanks
Kamran Khania

Hi Kamran,

I would first counsel you to not move to VB 6 as it is on limited life support and going nowhere. Now, that having been said, there is no equivalent to the VFP Grid in VB. You may try the FlexGrid, but you will be sorely disappointed after having used VFP's grid class.

I have downloaded Code & exe but it want shows what shown in picture there is calling button on code & exe


may be this is a bug !!!!!!

Thanks Craig !!

You can find the Spanish version of this article at (Puede encontrar la versión en Español de este artículo en:)

http://www.portalfox.com/modules.php?op=modload&name=Sections&file=index&req=viewarticle&artid=101

Regards / Saludos,

Ana
www.amby.net
www.PortalFox.com

Hi, I have downloaded the file vbtovpf, but in the .zip file I dont find the .bas and in the form I can´t see the ellipsis button [...], whi?

I am use VFP 9.0 SP1.

Best regards.
Roberto Barros - BH/Brasil

Please helpme to convert the following VB program to VFP program; i am not work in VB.
thank you. the utility vbtovfp not full convertion.
Walter John

Option Explicit

' ///
' /// Ejecutar una aplicación con permisos de otro usuario ("Run As")
' /// Lluís Franco i Montanyés (MVP-MCP-VB) 07/06/2004
' /// Ejemplo: fRunAsEx "NOTEPAD.EXE", "<usuario>@<dominio>", "<password>"
' ///

Private Const LOGON_WITH_PROFILE = &H1&
Private Const CREATE_DEFAULT_ERROR_MODE = &H4000000
Private Const CREATE_NEW_CONSOLE = &H10&
Private Const CREATE_NEW_PROCESS_GROUP = &H200&
Private Const FORMAT_MESSAGE_FROM_SYSTEM = &H1000
Private Const LANG_NEUTRAL = &H0

Private Type PROCESS_INFORMATION
hProcess As Long
hThread As Long
dwProcessId As Long
dwThreadId As Long
End Type

Private Type STARTUPINFO
cb As Long
lpReserved As Long
lpDesktop As Long
lpTitle As Long
dwX As Long
dwY As Long
dwXSize As Long
dwYSize As Long
dwXCountChars As Long
dwYCountChars As Long
dwFillAttribute As Long
dwFlags As Long
wShowWindow As Integer
cbReserved2 As Integer
lpReserved2 As Byte
hStdInput As Long
hStdOutput As Long
hStdError As Long
End Type

Private Declare Function CreateProcessWithLogon Lib _
"Advapi32" Alias "CreateProcessWithLogonW" _
(ByVal lpUsername As Long, ByVal lpDomain As Long, ByVal _
lpPassword As Long, ByVal dwLogonFlags As Long, ByVal _
lpApplicationName As Long, ByVal lpCommandLine As Long, _
ByVal dwCreationFlags As Long, ByVal lpEnvironment As Long, _
ByVal lpCurrentDirectory As Long, ByVal lpStartupInfo As STARTUPINFO, _
ByVal lpProcessInfo As PROCESS_INFORMATION) As Long

Private Declare Function CloseHandle Lib "kernel32" _
(ByVal hObject As Long) As Long

Private Declare Function FormatMessage Lib "kernel32" Alias "FormatMessageA" _
(ByVal dwFlags As Long, ByVal lpSource As Any, ByVal dwMessageId As Long, _
ByVal dwLanguageId As Long, ByVal lpBuffer As String, ByVal nSize As Long, _
ByVal Arguments As Long) As Long

Private Declare Function GetLastError Lib "kernel32" () As Long

Public sError As String

Public Sub Main()

Dim sParams() As String, sParam, i As Long, fReturn As Long
Dim sApp As String, sUser As String, sPwd As String

'Verificación de argumentos correctos (/path aplicación /usuario@dominio /contraseña)

If Trim(Command$) = "" Then
MsgBox("Error! No se han suministrado argumentos para ejecutar RunAs:" & _
vbNewLine & vbNewLine & _
"Parametros= /<path aplicación> /<usuario> /<password>" & _
vbNewLine & vbNewLine & _
"Ejemplo= /NOTEPAD.EXE /administrador@dominio.com /mypassword", vbExclamation)
Exit Sub
End If

sParams = Split(Command$, "/")

For Each sParam In sParams
If Trim(sParam) <> "" Then
i = i + 1
If i = 1 Then sApp = Trim(sParam)
If i = 2 Then sUser = Trim(sParam)
If i = 3 Then sPwd = Trim(sParam)
End If
Next

fReturn = fRunAsEx(sApp, sUser, sPwd)
If fReturn = 0 Then MsgBox(sError, vbExclamation)

End Sub

Public Function fRunAsEx(ByVal sFileName As String, _
ByVal sUserName As String, ByVal sUserPwd As String) As Long

'Declaració vars
Dim lpBuffer As String * 200
Dim fReturn As Long
Dim lpUsername As String, lpDomain As String
Dim lpPassword As String, lpApplicationName As String
Dim lpCommandLine As String, lpCurrentDirectory As String
Dim StartInfo As STARTUPINFO, ProcessInfo As PROCESS_INFORMATION
lpApplicationName = sFileName
lpUsername = sUserName
lpPassword = sUserPwd
lpCommandLine = vbNullString
lpCurrentDirectory = vbNullString
StartInfo.cb = LenB(StartInfo)
StartInfo.dwFlags = 0&

fReturn = CreateProcessWithLogon(StrPtr(lpUsername), StrPtr(lpDomain), _
StrPtr(lpPassword), LOGON_WITH_PROFILE, StrPtr(lpApplicationName), _
StrPtr(lpCommandLine), CREATE_DEFAULT_ERROR_MODE Or CREATE_NEW_CONSOLE _
Or CREATE_NEW_PROCESS_GROUP, ByVal 0&, StrPtr(lpCurrentDirectory), _
StartInfo, ProcessInfo)

If fReturn = 0 Then
If GetLastError = 0 Then
sError = "La operación no se ha podido completar con éxito."
Else
FormatMessage FORMAT_MESSAGE_FROM_SYSTEM, ByVal 0&, _
GetLastError, LANG_NEUTRAL, lpBuffer, 200, ByVal 0&
sError = lpBuffer
End If
End If

fRunAsEx = fReturn
CloseHandle(ProcessInfo.hThread)
CloseHandle(ProcessInfo.hProcess)

End Function