Member Avatar for yaho01

Dim arr1 As String

If Left(arr1(i), Len(n) + 2) = n& ": " Then

titleBar = String$(100, Convert.ToChar(0))

valid1 = Right(arr1(1), Len(arr1(1)) - 13)

how to convert vb6 to vb.net ?
Left
String$
Right

Private Declare Function ObjectFromLresult Lib "oleacc" (ByVal lResult As Long, ByVal riid As Guid, ByVal wParam As Long, ByVal ppvObject As any) As Long

ppvObject As any ?

Edited by yaho01
  • 2 Contributors
  • 1 Reply
  • 249 Views
  • 5 Hours Discussion Span
  • Latest Post Latest Post by Reverend Jim
Member Avatar for Reverend Jim

The vb.net equivalents are

Dim s As String = "abcdefghijklmnopqrstuvwxyz"

MsgBox(s.Substring(0, 5))           'Left(s,5)
MsgBox(s.Substring(15, 5))          'Mid(s,15,5)
MsgBox(s.Substring(Len(s) - 5))     'Right(s,5)

MsgBox(New String("a", 10))         'String$("a",10)
Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.