The following are codes are from VB6, we want to rewrite our project in VBR Please help with how to convert the following vb6 code, please.
Please help
thanks
Rem WORK TYPE DETAILS details the fields of each record Type WTDETSRECTYPE WTN As String * 25 ' Type description WTLF As Integer WTUT As Double End Type
Global WTDETSREC As WTDETSRECTYPE Global SEVEN As Integer Global FWT As Integer
Sub MainProg() Rem Open the file FWT = 7 WTDETS$ = "C:\llwtdet.ran" Open WTDETS$ For Random Access Read Write Shared As FWT Len = 35
Rem Read the 5th record SEVEN = 5 Get FWT, SEVEN, WTDETSREC
Rem Assign new values to the fields and write modified record back to file WTDETSREC.WTN = "New Name" WTDETSREC.WTLF = 33 WTDETSREC.WTUT = 120.50 Put FWT, SEVEN, WTDETSREC Close FWT
End Sub
|