Suljettu

Conver From VB6 to .net 2005

I want convert some code from Vb6 to Vb.net 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]

Loop

Exit Sub

Erh:

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ää: vb6 0, user32, open.mdb, open 2005, network apis, loop net, database constants, common string, 3 x net, 2005 open, clsprintdialog, vb6 to vb.net, y3, vb6, take away, Microsoft Net, mdb, loc, eof, boolean, ado, net convert vb6, net private, visual basic 2005 source code, vb6 modules

About the Employer:
( 0 reviews ) Dhaka, Bangladesh

Projektin tunnus: #1700726

19 freelanceria on tarjonnut keskimäärin 176 $ tähän työhön

skctechno

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ää

120 $ USD 2 päivässä
(32 arvostelua)
5.9
crajeshbe

Hi Good day, This is Rajesh from Chennai, India. Having 8+ years working experience in VB6, COM, COM+, DCOM, VB.Net, C#. Handled migration & maintenance projects in Classic ASP & VB 6.0. Ready to start the work. Reg Lisää

200 $ USD 5 päivässä
(18 arvostelua)
4.8
infoshree80

Hi , Having 9 yrs of exp in VB and .[url removed, login to view] check my protfolio.

150 $ USD 8 päivässä
(10 arvostelua)
4.7
lorjnr

Dear Sirs, Please check my private message. BR

145 $ USD 3 päivässä
(5 arvostelua)
3.6
kfanx

I am expert from vb5 to net4. I am your best choice. Regards!

180 $ USD 3 päivässä
(1 arvostelu)
2.1
honeypotant

I can do it. I have rich experience in porting. Regards.

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

we have experienced team to work on your project

180 $ USD 3 päivässä
(0 arvostelua)
0.0
AllTechSoftware

Hi, I have over 4 years of Experience in software design, development and implementation of various commercial applications in Client/Server environment, Web and ERP applications using 2.0/3.5/4.0, ASP.Net, VB.Net 1 Lisää

200 $ USD 10 päivässä
(0 arvostelua)
0.0
RedWhiteWolf

I am good at jQuery and dotnetnuke(CMS,Catalook,Smith Cart) and asp.net MVC/Form and silverlight and C#/[url removed, login to view] and sqlserver and Joomla(CMS,VirtueShop) &WordExpress and ERP module developing and actualizing.I am Lisää

180 $ USD 8 päivässä
(0 arvostelua)
0.0
vijaydevani

I am having 1 year of experience in .NET. I have created 2 desktop applications in VB and also 5 projects in .NET. I am ready to do this. You can contact me on skype if you are interested. My skype name is : vijay.d Lisää

200 $ USD 90 päivässä
(0 arvostelua)
0.0
octets

we have a good team of professionals with good experience in Microsoft development environments. Quality output is assured.

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

Dont worry iam very strong in vb,vb.net i have long experience with them I can do it efficiently :)

150 $ USD 2 päivässä
(0 arvostelua)
0.0
TeamRcreation2

[PLEASE HAVE A LOOK ON OUR PORTFOLIO FIRST] Hello sir! We are the team of professionals working in this industry for last 10 years. We are having experience of developing 150+ web applications and 250+ desktop app Lisää

250 $ USD 10 päivässä
(0 arvostelua)
0.0
shekharbahuguna

HI sir I have more than 2 years of experience in VB.NET and VB6. I would like to see the requirements so that I can tell you exact time I can deliver the product in.

200 $ USD 7 päivässä
(0 arvostelua)
0.0
vinaykamalsharma

i am too good... give me less than -5 on your best bid.

110 $ USD 2 päivässä
(0 arvostelua)
0.0
chauminhtuan

I am an expert in VB6, VB.NET I will good complete

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

i have several years experience with pos development, specifically with the use of the .net framework and its predecessors, i am accomplished with software conversion and have an extensive knowledge of each technology. Lisää

200 $ USD 2 päivässä
(0 arvostelua)
0.0
mbarqawi

I am Ready to be convert it to Vb.net or C#

130 $ USD 4 päivässä
(0 arvostelua)
0.0
buntys2010

we will deliver this project on time please see PM

200 $ USD 23 päivässä
(0 arvostelua)
0.0
TasosPanagis

Hello, I can help you with converting your code to .net 2005. Thank you for taking my bid under consideration. Looking forward to your contacting me. Kind Regards!

200 $ USD 10 päivässä
(0 arvostelua)
0.0