Conver From VB6 to .net 2005

I want convert some code from Vb6 to 2005

there are 3 modules , contains function procedure .... it use common use defined fiction and APIs aslo

Approximate LOC of a each module will be 1000

sample of the code

Public EndDate As Date

Public currentYear As Boolean

Public ErrorHandler As Label

Public conString As String

Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Public Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long

Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal sBuffer As String, lSize As Long) As Long

Public Declare Function ReleaseCapture Lib "user32" () As Long

Public Declare Function CreatePolygonRgn Lib "gdi32" (lpPoint As POINTAPI, ByVal nCount As Long, ByVal nPolyFillMode As Long) As Long

Public Declare Function CreateRectRgn Lib "gdi32" (ByVal x1 As Long, ByVal y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long

Public Declare Function CreateRoundRectRgn Lib "gdi32" (ByVal x1 As Long, ByVal y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long) As Long

Public Declare Function CreateEllipticRgn Lib "gdi32" (ByVal x1 As Long, ByVal y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long

Public Declare Function CombineRgn Lib "gdi32" (ByVal hDestRgn As Long, ByVal hSrcRgn1 As Long, ByVal hSrcRgn2 As Long, ByVal nCombineMode As Long) As Long

Public Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long

Public Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long

Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Public Const LB_FINDSTRING = &H18F

Public Type POINTAPI

X As Long

Y As Long

End Type

Public Const RGN_COPY = 5

Public ResultRegion As Long

Public PrinterDialog As New clsPrintDialog

'-----------User Defined Constants---------------------

Public Const msgStrngNoPermisionToope = "Access Denied "

Public Const Catring = "Catering "

Public Const Takeaway = "Take away"


Sub Main()

[url removed, login to view]

End Sub

Public Sub Conect_To_DataBase()

'Call SetAttr(DBPath, vbNormal)

'On Error GoTo Erh:

Set xindata = New Connection 'opening database globaly using ADO

conString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBPath & ";Persist Security Info=False"

conString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=L:\est\[url removed, login to view];Persist Security Info=False;Jet OLEDB:Database Password=xinonsystems)(*&^12345"

conString = "Provider = Microsoft.Jet.OLEDB.4.0; " & _

"Persist Security Info= False; " & _

"Data Source = " & DBPath & "; " & _

"Jet OLEDB:Database Password =xin12#$bj"

[url removed, login to view] = conString

[url removed, login to view]

Dim RsConfig As New [url removed, login to view]

[url removed, login to view] "Select * from Config", xindata, adOpenStatic, adLockPessimistic

Do While Not [url removed, login to view]

If RsConfig!Particular = "StartDate" Then StartDate = RsConfig!dtdata

If RsConfig!Particular = "EndDate" Then EndDate = RsConfig!dtdata

If RsConfig!Particular = "YearStatus" And RsConfig!strData = "CurrentYear" Then currentYear = True

[url removed, login to view]


Exit Sub


MsgBox [url removed, login to view]

MsgBox [url removed, login to view]

MsgBox "Check Network Connection Exist/Permision", vbInformation

End Sub

Function NewDate(DtTop As Integer, DtLeft As Integer) As Date

[url removed, login to view] = DtLeft

[url removed, login to view] = DtTop

[url removed, login to view] vbModal

NewDate = CldValue

End Function

Taidot: .NET, Visual Basic

Näytä lisää: convert vb6 2005, vb6 net, public declare function copyfile lib kernel32, vb6 0, user32, open.mdb, open 2005, network apis, loop net, database constants, common string, 3 x net, 2005 open, vb6 to, y3, vb6, take away, Microsoft Net, mdb, loc, eof, boolean, ado, net convert vb6, net private

Tietoa työnantajasta:
( 0 arvostelua ) Dubai, United Arab Emirates

Projektin tunnus: #1699251

13 freelanceria on tarjonnut keskimäärin %project_bid_stats_avg_sub_26% %project_currencyDetails_sign_sub_27% tähän työhön


I am expert in .NET and windows API's. See PMB for details.

$300 USD 4 päivässä
(11 arvostelua)

Hello, I can do it for you. Please check my PMB. Thank you.

$150 USD 3 päivässä
(80 arvostelua)

Hi, We have excellent .Net,and PHP expertise. Please have a look at private message for relevant work done. Awaiting a positive response from your end and looking forward to work with you. Thanks

$250 USD 6 päivässä
(32 arvostelua)

I am an expert in VB6, VB.NET, So I can do this for you with Quality and Performance. I have 9 years of experience in .Net and this project suits me very well. I complete my projects on or before time, my bid cost Lisää

$65 USD 4 päivässä
(32 arvostelua)

Hi, I am ready, please read PMB for my further detail.

$100 USD 2 päivässä
(10 arvostelua)

Dear Sir, I have a lot of experience in VB6, .NET and Win32 API. Kindly check PM for more details. Regards, R. Krishna Prasadh

$250 USD 7 päivässä
(1 arvostelu)

The converted code will still use windows api. Wrapper classes would be provided to call those.

$250 USD 5 päivässä
(0 arvostelua)

Hi, this is an easy project I can handle in 3 days. Moreover, I can finish your project just with $25. Let me know if you choose me for this project.

$30 USD 3 päivässä
(0 arvostelua)

Hello, I am 12 years experienced Tutor and assignment helper for Computer Science. I have been teach Programming in C, C++, Java, PHP, MySQL, ASP, C#.NET, Visual Basic, Oracle, HTML, VBScript, JavaScript, Data Struc Lisää

$100 USD 3 päivässä
(0 arvostelua)

Sir we are interest in this project having two year exp. in different type of project we can done smoothly sir..

$100 USD 5 päivässä
(0 arvostelua)

Please Check My PM.

$70 USD 5 päivässä
(0 arvostelua)

Hi, This is one of the good assignment for me. Please take a look at my PM Thanks, Shrikant

$100 USD 10 päivässä
(0 arvostelua)

Hi I have over 10 years experience in developing applications both in vb6 and .net. Please have a look at my profile. Shazad.

$250 USD 4 päivässä
(0 arvostelua)