VB6中好多方法在VB.NET中怎么使用?有没有详细的资料?谢谢

[okyzx2]

VB6中好多方法在VB.NET中怎么使用(对应)?有没有详细的资料?谢谢
比如:
FORM1.CAPTION ="HAHA"
VB.NET =???

[okyzx]

有呀!!
FORM1.CAPTION ="HAHA"

VB.NET中为
FORM1.ACTIVEFORM.TEXT ="HAHA"

VB6和VB.NET差得太多了,.NET带的升级工具,老是不成功

个人意见想学VB.NET就要忘记VB6,不要把它们结合到一起,容易出问题的,嘿嘿 ....

[FlyNoWings]

vb.net:
Form1.Text="HAHA"
Label1.Text="HAHA"

[okyzx]

这边有我转载的文章你看看...
VB6
　 VB.NET
-----------------------------------------------------
DoEvents
　System.Windows.Forms.Application.DoEvents()
Command1.BackColor = vbRed
　Command1.BackColor = System.Drawing.Color.Red
Command1.BackColor = System.Drawing.Color.FromARGB(&H80C0FF)
ComboBox1.AddItem "one"
　ComboBox1.Items.Add("one")
Command1.BackColor = &H80C0FF
　Command1.BackColor = System.Drawing.ColorTranslator.FromOle(&H80C0FF&)
Form1.Caption = "Sample"
　Form1.DefInstance.Text = "Sample"
Form1.Top
　Form1.DefInstance.Top
MsgBox "message", vbInformation, "title"
　MsgBox("message", MsgBoxStyle.Information, "title")
Form1.Height = 3500
　Form1.DefInstance.Height = VB6.TwipsToPixelsY(3500)
Set MyObject = Command1
　MyObject = Command1
Text1.SetFocus
　Text1.Focus()
Command1.ToolTipText = "click me"
　ToolTip1.SetToolTip(Command1, "click me")
Dim objAbout As AboutForm
　Dim objAbout As Pharfruminsain_AboutForm_v1r0.AboutForm
sPath = App.Path
　sPath = Application.StartupPath
Private Sub Form_Unload(Cancel As Integer)
　Private Sub Form1_Closed(....) Handles MyBase.Closed
List1.RemoveItem (0)
　ListBox1.Items.Remove(0)
Dim arOne(10) As String
　Dim arOne As New ArrayList(10)
Print #1, "sample text"
　PrintLine(1, "sample text")
Open "c:\myfile.txt" For Input As #1
　FileOpen(1, "c:\myfile.txt", OpenMode.Input)
Line Input #1, sTemp
　sTemp = LineInput(1)
VB6:
s=App.Comments
VB.Net:
Imports System.Diagnostics
Imports System.Reflection
s=FileVersionInfo.GetVersionInfo([Assembly].GetExecutingAssembly.Location).Comments

VB6:
s=App.CompanyName
VB.Net:
Imports System.Diagnostics
Imports System.Reflection
s=FileVersionInfo.GetVersionInfo([Assembly].GetExecutingAssembly.Location).CompanyName)

VB6:
s=App.EXEName
VB.Net:
Imports System.Reflection
With New System.IO.FileInfo([Assembly].GetExecutingAssembly.Location)
s=.Name.Substring(0, .Name.Length - .Extension.Length)
End With
or
s=System.AppDomain.CurrentDomain.FriendlyName
Note: this includes the extension which would need to be parsed.

VB6:
s=App.FileDescription
VB.Net:
Imports System.Diagnostics
Imports System.Reflection
s=FileVersionInfo.GetVersionInfo([Assembly].GetExecutingAssembly.Location).FileDescription)

VB6:
App.HelpFile
VB.Net:
No direct replacement

VB6:
i=App.hInstance
VB.Net:
Imports System.Runtime.InteropServices
i=Marshal.GetHINSTANCE([Assembly].GetExecutingAssembly.GetModules()(0)).ToInt32

VB6:
s=App.LegalCopyright
VB.Net:
Imports System.Diagnostics
Imports System.Reflection
s=FileVersionInfo.GetVersionInfo([Assembly].GetExecutingAssembly.Location).LegalCopyright)

VB6:
s=App.LegalTrademarks
VB.Net:
Imports System.Diagnostics
Imports System.Reflection
s=FileVersionInfo.GetVersionInfo([Assembly].GetExecutingAssembly.Location).LegalTrademarks)

VB6:
App.LogMode
App.LogPath
VB.Net:
No direct replacement; see the EventLog object

VB6:
i=App.Major
VB.Net:
Imports System.Diagnostics
Imports System.Reflection
i=FileVersionInfo.GetVersionInfo([Assembly].GetExecutingAssembly.Location).FileMajorPart)

VB6:
i=App.Minor
VB.Net:
Imports System.Diagnostics
Imports System.Reflection
i=FileVersionInfo.GetVersionInfo([Assembly].GetExecutingAssembly.Location).FileMinorPart)

VB6:
App.NonModalAllowed
VB.Net:
No replacement

VB6:
App.OleRequestPendingMsgText
App.OleRequestPendingMsgTitle
App.OleRequestPendingTimeout
App.OleServerBusyMsgText
App.OleServerBusyMsgTitle
App.OleServerBusyRaiseError
App.OleServerBusyTimeout
VB.Net:
No replacement; OLE automation not supported

VB6:
s=App.Path
VB.Net:
s=System.Windows.Forms.Application.StartupPath
or
Imports System.Reflection
With New System.IO.FileInfo([Assembly].GetExecutingAssembly.Location)
s = .FullName.Substring(0, .FullName.Length - .Name.Length - 1)
End With
Note: this will return the path with no trailing backslash even if the application is in the root directory. The VB 6.0 App.Path method return included the trailing backslash when the executable was in a root directory.

VB6:
b=App.PrevInstance
VB.Net:
Imports System.Diagnostics
b=(UBound(Process.GetProcessesByName(Process.GetCurrentProcess.ProcessName)) > 0)

VB6:
s=App.ProductName
VB.Net:
Imports System.Diagnostics
Imports System.Reflection
s=FileVersionInfo.GetVersionInfo([Assembly].GetExecutingAssembly.Location).ProductName)

VB6:
App.RetainedProject
VB.Net:
No replacement; state not supported

VB6:
i=App.Revision
VB.Net:
Imports System.Diagnostics
Imports System.Reflection
i=FileVersionInfo.GetVersionInfo([Assembly].GetExecutingAssembly.Location).FileBuildPart)
and/or:
i=FileVersionInfo.GetVersionInfo([Assembly].GetExecutingAssembly.Location).FilePrivatePart)

VB6:
App.StartMode
VB.Net:
No direct replacement

VB6:
App.TaskVisible
VB.Net:
No direct replacement

VB6:
App.ThreadID
VB.Net:
No direct replacement; see the System.Threading.Thread object

VB6:
App.Title
VB.Net:
The Text (caption) of the top-level form. If there are no forms then the process does not appear in Task Manager.

VB6:
App.UnattendedApp
VB.Net:
No direct replacement

Methods:

VB6:
App.StartLogging
App.LogEvent
VB.Net:
No direct replacement; see the EventLog object

[okyzx]

TO:楼主
不一定全对,哦,参考参考!!

[okyzx2]

THX
谢谢!!