学VB，用VS2005，怎么调试运行。

Question

本帖最后由 cobra_chen 于 2010-07-12 11:06:49 编辑

Answer 1

新建项目->vb->windows应用程序
后边的和vb6.0下差不多了，调试用F5，单步F8

Answer 2

看这代码不向VS05的代码，象VB6的代码。
'---------------------------------------------------VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{B67F7066-1968-43CE-93E0-C3AA33B28D49}#1.0#0"; "McList.dll"
Begin VB.Form Form1 
  Caption = "Form1"
  ClientHeight = 6096
  ClientLeft = 48
  ClientTop = 348
  ClientWidth = 9912
  LinkTopic = "Form1"
  ScaleHeight = 6096
  ScaleWidth = 9912
  StartUpPosition = 3 '窗口缺省
  Begin VB.CommandButton Command2 
  Caption = "E&xit"
  BeginProperty Font 
  Name = "Tahoma"
  Size = 7.8
  Charset = 0
  Weight = 400
  Underline = 0 'False
  Italic = 0 'False
  Strikethrough = 0 'False
  EndProperty
  Height = 396
  Left = 8556
  TabIndex = 3
  Top = 5580
  Width = 1284
  End
  Begin VB.CommandButton Command1 
  Caption = "Refresh"
  BeginProperty Font 
  Name = "Tahoma"
  Size = 7.8
  Charset = 0
  Weight = 400
  Underline = 0 'False
  Italic = 0 'False
  Strikethrough = 0 'False
  EndProperty
  Height = 396
  Left = 7104
  TabIndex = 2
  Top = 5580
  Width = 1284
  End
  Begin MCLISTLibCtl.McListCtrl McListCtrl1 
  Height = 420
  Left = 108
  OleObjectBlob = "Form1.frx":0000
  TabIndex = 1
  Top = 5556
  Width = 468
  End
  Begin MSComctlLib.ListView ListView1 
  Height = 5436
  Left = 48
  TabIndex = 0
  Top = 48
  Width = 9816
  _ExtentX = 17314
  _ExtentY = 9589
  View = 3
  LabelWrap = -1 'True
  HideSelection = -1 'True
  FlatScrollBar = -1 'True
  FullRowSelect = -1 'True
  GridLines = -1 'True
  _Version = 393217
  ForeColor = -2147483640
  BackColor = -2147483643
  BorderStyle = 1
  Appearance = 1
  BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  Name = "Tahoma"
  Size = 7.8
  Charset = 0
  Weight = 400
  Underline = 0 'False
  Italic = 0 'False
  Strikethrough = 0 'False
  EndProperty
  NumItems = 0
  End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
  ListView1.ListItems.Clear
  McListCtrl1.Refresh
End SubPrivate Sub Command2_Click()
  End
End SubPrivate Sub Form_Load()
  Dim clmAdd As ColumnHeader
  Set clmAdd = ListView1.ColumnHeaders.Add(Text:="UserCheck")
   
  Set clmAdd = ListView1.ColumnHeaders.Add(Width:=900, Text:="Interface")
  Set clmAdd = ListView1.ColumnHeaders.Add(Text:="Device Name")
  Set clmAdd = ListView1.ColumnHeaders.Add(Text:="Model Version")
  Set clmAdd = ListView1.ColumnHeaders.Add(Text:="Mac Address")
  Set clmAdd = ListView1.ColumnHeaders.Add(Text:="IP Address")
  Set clmAdd = ListView1.ColumnHeaders.Add(Text:="Gateway")
End SubPrivate Sub McListCtrl1_OnReceiveData(ByVal bNewItem As Long, ByVal nIndex As Long)  If CBool(bNewItem) Then
   
  McListCtrl1.GetAt nIndex
   
  Dim l As ListItem
   
  If McListCtrl1.IsUserCheck Then
  Set l = ListView1.ListItems.Add(Text:="Yes")
  Else
  Set l = ListView1.ListItems.Add(Text:="No")
  End If
   
  'l.ListSubItems.Add Text:=McListCtrl1.IsUserCheck
   
  l.ListSubItems.Add Text:=McListCtrl1.NetInterface
  l.ListSubItems.Add Text:=McListCtrl1.DeviceName
  l.ListSubItems.Add Text:=McListCtrl1.Model
  l.ListSubItems.Add Text:=McListCtrl1.MacAddress
  l.ListSubItems.Add Text:=McListCtrl1.IPAddress & ":" & McListCtrl1.HttpPort
  l.ListSubItems.Add Text:=McListCtrl1.DefaultGateway
  
  End If
End Sub'----------------------------------------
复制以上------------间内容到一个文本文件中，保存为form1.frm
然后用VB6打开它。