Đã Đóng

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

Kỹ năng: .NET, Visual Basic

Xem thêm: 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

Về Bên Thuê:
( 0 nhận xét ) Dhaka, Bangladesh

Mã Dự Án: #1700726

19 freelancer đang chào giá trung bình $176 cho công việc này

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 Thêm

$120 USD trong 2 ngày
(32 Đánh Giá)
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 Thêm

$200 USD trong 5 ngày
(18 Đánh Giá)
4.8
infoshree80

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

$150 USD trong 8 ngày
(10 Đánh Giá)
4.7
lorjnr

Dear Sirs, Please check my private message. BR

$145 USD trong 3 ngày
(5 Đánh Giá)
3.6
kfanx

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

$180 USD trong 3 ngày
(1 Đánh Giá)
2.1
honeypotant

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

$250 USD trong 7 ngày
(1 Đánh Giá)
1.6
rkrtechno

we have experienced team to work on your project

$180 USD trong 3 ngày
(0 Đánh Giá)
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 Thêm

$200 USD trong 10 ngày
(0 Đánh Giá)
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 Thêm

$180 USD trong 8 ngày
(0 Đánh Giá)
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 Thêm

$200 USD trong 90 ngày
(0 Đánh Giá)
0.0
octets

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

$100 USD trong 5 ngày
(0 Đánh Giá)
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 trong 2 ngày
(0 Đánh Giá)
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 Thêm

$250 USD trong 10 ngày
(0 Đánh Giá)
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 trong 7 ngày
(0 Đánh Giá)
0.0
vinaykamalsharma

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

$110 USD trong 2 ngày
(0 Đánh Giá)
0.0
chauminhtuan

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

$250 USD trong 4 ngày
(0 Đánh Giá)
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. Thêm

$200 USD trong 2 ngày
(0 Đánh Giá)
0.0
mbarqawi

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

$130 USD trong 4 ngày
(0 Đánh Giá)
0.0
buntys2010

we will deliver this project on time please see PM

$200 USD trong 23 ngày
(0 Đánh Giá)
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 trong 10 ngày
(0 Đánh Giá)
0.0