Write.ini function ( please help me to convert from vb6 to vb.net)

darkstrike20

Member
Joined
Jul 17, 2014
Messages
7
Programming Experience
Beginner
Guys , I'm new in vb6 so please do teach me how to convert my write.ini and read.ini function from VB6 to VB.net. Declaration using As Any are not acceptable in vb.net so which type should i change it to?

(Declaration)
Public DataConn As ADODB.Connection
Public FSO As New FileSystemObject
Public KMsg, TmSql, ConnStr, ConnServerName, ConnUserId, ConnPassword, ConnTable As String
Public RetCode As String


Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Public Declare Function OpenProcess Lib "kernel32" _
(ByVal dwDesiredAccess As Long, _
ByVal bInheritHandle As Long, _
ByVal dwProcessId As Long) As Long


Public Declare Function GetExitCodeProcess Lib "kernel32" _
(ByVal hProcess As Long, lpExitCode As Long) As Long


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


Public Const PROCESS_QUERY_INFORMATION = &H400
Public Const STATUS_PENDING = &H103&


Public Declare Function getprivateprofilestring Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationname As String, ByVal lpKeyname As Any, ByVal lpdefault As String, ByVal lpreturnedstring As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Public Declare Function writeprivateprofilestring Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationname As String, ByVal lpKeyname As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long


Public Function ReadINI(Section As String, KeyName As String, FileName As String) As String
Dim sRet As String
sRet = String(255, Chr(0))
ReadINI = Left(sRet, getprivateprofilestring(Section, ByVal KeyName$, "", sRet, Len(sRet), FileName))
End Function


Public Function WriteINI(sSection As String, sKeyName As String, sNewString As String, sFileName) As Integer
Dim r
r = writeprivateprofilestring(sSection, sKeyName, sNewString, sFileName)
End Function



( this is my call function)
ProcessId = Shell(F, 1)
hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, False, ProcessId)
Do
Call GetExitCodeProcess(hProcess, exitCode)
DoEvents
Loop While exitCode = STATUS_PENDING
Call CloseHandle(hProcess)
 
Instead of trying to convert some VB6 code, how about you do VB.NET the .NET way? Here's a class that someone else has created that will let you read and write INI files without having to worry about all that unmanaged code:

IniFile Class using VB.NET
 
Back
Top