VB辅导实例编程完整版

要掌握 VB 使用 ArrayList 类，只需两个步骤：

一、了解 .NET 基类的基

在使用 ArrayList 类之前，了解 .NET 基类如何处理对象数组是很重要的。.NET 提供了一系列基本的类来处理和操作数组。ArrayList 类是其中一个重要的类，它实现了一个可以动态调整大小的对象数组。

二、在 VB 中使用 ArrayList 类

1. 导入命名空间： 在 VB 中使用 ArrayList 类，需要导入 System.Collections 命名空间。这可以让你使用 ArrayList 类来存储和管理对象。

   vb

   复制代码

   Imports System.Collections


2. 基本操作：

   • 创建和添加元素： 创建一个 ArrayList 实例并添加元素到其中。

     vb

     复制代码

     Dim szElement As String = "insert-me"
Dim szArray As New ArrayList()
szArray.Add(szElement)


   • 检索元素： 可以通过索引来访问数组中的元素，也可以使用 Item() 方法。方括号 [] 是 Item() 方法的简写。

     vb

     复制代码

     Console.WriteLine(szArray(0)) ' 使用方括号
Console.WriteLine(szArray.Item(0)) ' 使用 Item() 方法


通过以上两个步骤，你可以在 VB 中有效地使用 ArrayList 类来管理和操作动态数组。

联调 VB 和 VC 的步骤

1. 创建工程：

   • 在 VB 中建立一个 Standard EXE 工程（例如 project1.vbp），在该工程中调用由 VC 编写的 DLL。
   • 在 VC 中建立一个 DLL 工程（例如 TestDll），编写相关的函数实现。

2. 配置 VC 工程：

   • 设置输出路径：在 VC 工程的 General 选项卡中，将输出文件路径设置为 VB 工程所在目录。
   • 设置调试参数：在 Debug 选项卡中，将 “Executable for debug session” 设置为 VB6.exe，将 “Working directory” 设置为 VB 工程目录，”Program arguments” 中填写 project1.vbp。可以添加 /r 参数来自动启动调试。
   • 确认链接选项：确保 DLL 输出路径和名称设置正确。

3. 调试步骤：

   • 在 VC 的源代码中设置断点，然后按 F5 开始调试。
   • 如果配置了 /r 参数，VB 工程会自动打开并运行。如果没有设置，手动在 VB 中开始调试。
   • 当 VB 调用 DLL 函数时，VC 环境会自动切换到前面，你可以在 VC 环境中调试 DLL。
   • 使用 F11 进行函数的退出调试，VC 环境会自动切换回 VB 环境。

通过这些步骤，你可以实现 VB 和 VC 的联合调试，以便更高效地调试和分析 DLL 函数的执行。

以下是将 VB 的 `PictureBox` 完整内容复制到剪贴板的代码示例：

### **步骤 1: 创建 VB 项目**

1. **创建新项目**：
– 打开 VB6 或 VB.NET，新建一个 Windows Forms 项目。

2. **添加控件**：
– 在窗体上放置一个 `CommandButton` 和一个 `PictureBox`。
– 设置 `PictureBox` 的 `AutoRedraw` 属性为 `True`（VB6）或 `AutoSize` 属性为 `True`（VB.NET）。

### **步骤 2: 添加标准模块**

1. **添加标准模块**：
– 在项目中添加一个标准模块，通常可以在项目资源管理器中右击项目，选择“添加” -> “模块”。

2. **复制以下代码**：

“`vb
‘ 定义RECT类型
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type

‘ GDI函数
Private Declare Function BitBlt Lib “gdi32” (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
Private Declare Function CreateCompatibleDC Lib “gdi32” (ByVal hDC As Long) As Long
Private Declare Function CreateCompatibleBitmap Lib “gdi32” (ByVal hDC As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long
Private Declare Function SelectObject Lib “gdi32” (ByVal hDC As Long, ByVal hObject As Long) As Long
Private Declare Function DeleteObject Lib “gdi32” (ByVal hObject As Long) As Long

‘ 剪贴板函数
Private Declare Function OpenClipboard Lib “USER32” (ByVal hWnd As Long) As Long
Private Declare Function CloseClipboard Lib “USER32” () As Long
Private Declare Function SetClipboardData Lib “USER32” (ByVal wFormat As Long, ByVal hMem As Long) As Long
Private Declare Function EmptyClipboard Lib “USER32” () As Long

Private Const CF_BITMAP = 2
Private Const SRCCOPY = &HCC0020 ‘ (DWORD) dest = source

‘ 复制 PictureBox 内容到剪贴板
Public Function CopyEntirePicture(ByRef objFrom As Object) As Boolean
Dim lhDC As Long
Dim lhBMP As Long
Dim lhBMPOld As Long

‘ 在内存中建立一个指向 PictureBox 的 DC
lhDC = CreateCompatibleDC(objFrom.hDC)
If (lhDC <> 0) Then
‘ 创建一张与 PictureBox 同大小的位图
lhBMP = CreateCompatibleBitmap(objFrom.hDC, objFrom.ScaleWidth \ Screen.TwipsPerPixelX, objFrom.ScaleHeight \ Screen.TwipsPerPixelY)
If (lhBMP <> 0) Then
‘ 选入位图到内存 DC 中，并保存原位图
lhBMPOld = SelectObject(lhDC, lhBMP)
‘ 复制 PictureBox 内容到内存中的位图
BitBlt lhDC, 0, 0, objFrom.ScaleWidth \ Screen.TwipsPerPixelX, objFrom.ScaleHeight \ Screen.TwipsPerPixelY, objFrom.hDC, 0, 0, SRCCOPY
‘ 恢复 DC 中的内容
SelectObject lhDC, lhBMPOld
‘ 将位图装入剪贴板
EmptyClipboard
OpenClipboard 0
SetClipboardData CF_BITMAP, lhBMP
CloseClipboard
‘ 释放 GDI 对象
DeleteObject lhBMP
End If
DeleteObject lhDC
End If
CopyEntirePicture = True
End Function
“`

### **步骤 3: 使用模块**

1. **在窗体代码中调用函数**：
– 在窗体的 `CommandButton` 的点击事件中调用 `CopyEntirePicture` 函数。

“`vb
Private Sub Command1_Click()
Call CopyEntirePicture(PictureBox1)
MsgBox “PictureBox 内容已复制到剪贴板！”
End Sub
“`

### **步骤 4: 测试程序**

1. **运行项目**：
– 点击 `CommandButton`，它会将 `PictureBox` 的全部内容复制到剪贴板。

2. **验证**：
– 打开一个图像编辑工具（如 Paint），使用粘贴功能验证 `PictureBox` 的内容是否成功复制。

通过上述步骤，你可以将 `PictureBox` 控件的完整内容复制到剪贴板，超越了 VB 默认的限制，确保包括所有图形内容。