OptionButton 控件（针对 Visual Basic 6.0 用户）

更新：2007 年 11 月

Visual Basic 6.0 中的 OptionButton 控件在 Visual Basic 2008 中由 Windows 窗体 RadioButton 控件所取代。某些属性、方法、事件和常数的名称是不同的，在某些情况下，行为也有所不同。

概念差异

在 Visual Basic 6.0 中，OptionButton 控件的 Click 事件仅当其 Value 属性更改为 True 时才引发。

在 Visual Basic 2008 中，RadioButton 控件的 CheckedChanged 事件在每次 Checked 属性值更改为 True 或 False 时都会引发。

此外，还有许多适用于所有控件的概念差异，包括数据绑定、字体处理、拖放功能、帮助支持等方面的差异。有关更多信息，请参见适用于 Visual Basic 6.0 用户的 Windows 窗体概念。

OptionButton 控件的代码更改

下面的示例演示 Visual Basic 6.0 与 Visual Basic 2008 在编码方法方面的差异。

以编程方式选择 OptionButton 的代码更改

下面的代码演示如何在运行时从包含 OptionButton 和 RadioButton 控件的组中选择这两个控件之一。

' Visual Basic 6.0
If Option1.Value = True Then
    Option2.Value = True
Else
    Option1.Value = True
End If

' Visual Basic
If RadioButton1.Checked = True Then
    RadioButton2.Checked = True
Else
    RadioButton1.Checked = True
End If

确定选择 OptionButton 的时间的代码更改

下面的代码演示如何处理 OptionButton 控件的 Click 事件，以及如何处理 RadioButton 控件的 CheckedChanged 事件。

' Visual Basic 6.0
' The Click event is only fired when the Value is True
Private Sub Option1_Click()
    MsgBox "Option1 was clicked"
End Sub

Private Sub Option2_Click()
    MsgBox "Option2 was clicked"
End Sub

' Visual Basic
' The CheckChanged event fires each time the RadioButton's Checked 
' value changes to either True or False.
Private Sub RadioButton1_CheckedChanged(ByVal sender As Object, ByVal _
e As System.EventArgs) Handles RadioButton1.CheckedChanged, _
RadioButton2.CheckedChanged
    ' Only execute if the Checked value is True.
    If sender.Checked = True Then
        MsgBox(sender.Name & " was clicked")
    End If
End Sub

OptionButton 控件的属性、方法和事件等效项

下表列出了 Visual Basic 6.0 属性、方法和事件，以及它们的 Visual Basic 2008 等效项。具有相同的名称和行为的属性、方法和事件未予列出。如果适用，常量在属性或方法的下面缩进。除非另有说明，否则所有的 Visual Basic 2008 枚举都映射到 System.Windows.Forms 命名空间。

此表提供相关主题的链接，这些主题对行为之间的差异进行说明。如果 Visual Basic 2008 中没有直接等效项，则提供指向介绍其他替代项的主题的链接。

属性

Visual Basic 6.0	Visual Basic 2008 等效项
Alignment	TextAlign
Appearance	FlatStyle
BackColor	BackColor 说明： 有关常数的列表，请参见 颜色处理（针对 Visual Basic 6.0 用户）。 说明： 颜色在 Visual Basic 2008 中以不同方式处理。有关更多信息，请参见颜色处理（针对 Visual Basic 6.0 用户）。
Caption	Text
Container	Parent
DisabledPicture DownPicture	新的实现。有关更多信息，请参见 Style 属性（针对 Visual Basic 6.0 用户）。
DragIcon DragMode	新的实现。有关更多信息，请参见拖放（针对 Visual Basic 6.0 用户）。
Font FontBold FontItalic FontName FontSize FontStrikethrough FontUnderline	Font 说明： 字体在 Visual Basic 2008 中以不同方式处理。有关更多信息，请参见 Font 对象（针对 Visual Basic 6.0 用户）。
ForeColor	ForeColor 说明： 有关常数的列表，请参见 颜色处理（针对 Visual Basic 6.0 用户）。 说明： 颜色在 Visual Basic 2008 中以不同方式处理。有关更多信息，请参见颜色处理（针对 Visual Basic 6.0 用户）。
Height	Height, Size 说明： 坐标在 Visual Basic 2008 中以不同方式处理。有关更多信息，请参见坐标系统（针对 Visual Basic 6.0 用户）。
HelpContextID	新的实现。有关更多信息，请参见帮助支持（针对 Visual Basic 6.0 用户）。
HWnd	Handle
Index	新的实现。有关更多信息，请参见控件数组（针对 Visual Basic 6.0 用户）。
Left	Left 说明： 坐标在 Visual Basic 2008 中以不同方式处理。有关更多信息，请参见坐标系统（针对 Visual Basic 6.0 用户）。
MaskColor	新的实现。有关更多信息，请参见 MaskColor（针对 Visual Basic 6.0 用户）
MouseIcon	新的实现。有关更多信息，请参见无法设置自定义 MousePointer。
MousePointer	Cursor 有关常数的列表，请参见 MousePointer（针对 Visual Basic 6.0 用户）。
OLEDropMode	新的实现。有关更多信息，请参见拖放（针对 Visual Basic 6.0 用户）。
Parent	FindForm 方法
Picture	Image
RightToLeft:  True  False	RightToLeft  Yes 枚举值  No 枚举值
Style	Appearance 说明： Visual Basic 2008 中对 Graphical 样式的处理方式有所不同。有关更多信息，请参见 Style 属性（针对 Visual Basic 6.0 用户）。
ToolTipText	ToolTip 组件 有关更多信息，请参见工具提示支持（针对 Visual Basic 6.0 用户）。
Top	Top 说明： 坐标在 Visual Basic 2008 中以不同方式处理。有关更多信息，请参见坐标系统（针对 Visual Basic 6.0 用户）。
UseMaskColor	新的实现。有关更多信息，请参见 MaskColor（针对 Visual Basic 6.0 用户）。
Value	Checked
WhatsThisHelpID	新的实现。有关更多信息，请参见帮助支持（针对 Visual Basic 6.0 用户）。
Width	Width, Size 说明： 坐标在 Visual Basic 2008 中以不同方式处理。有关更多信息，请参见坐标系统（针对 Visual Basic 6.0 用户）。

方法

Visual Basic 6.0	Visual Basic 2008 等效项
Drag	新的实现。有关更多信息，请参见拖放（针对 Visual Basic 6.0 用户）。
Move	SetBounds 说明： 坐标在 Visual Basic 2008 中以不同方式处理。有关更多信息，请参见坐标系统（针对 Visual Basic 6.0 用户）。
OLEDrag	新的实现。有关更多信息，请参见拖放（针对 Visual Basic 6.0 用户）。
SetFocus	Focus
ShowWhatsThis	新的实现。有关更多信息，请参见帮助支持（针对 Visual Basic 6.0 用户）。
ZOrder	BringToFront 或 SendToBack 方法

事件

Visual Basic 6.0	Visual Basic 2008 等效项
Click	CheckedChanged 说明： 在 Visual Basic 6.0 中，Click 事件仅当状态更改为 True 时才引发；在 Visual Basic 2008 中，状态更改为 True 和 False 时都引发。
DblClick	DoubleClick
DragDrop DragOver	新的实现。有关更多信息，请参见拖放（针对 Visual Basic 6.0 用户）。
GotFocus	Enter
LostFocus	Leave
OLECompleteDrag OLEDragDrop OLEDragOver OLEGiveFeedback OLESetData OLEStartDrag	新的实现。有关更多信息，请参见拖放（针对 Visual Basic 6.0 用户）。
Validate	Validating

升级说明

当 Visual Basic 6.0 应用程序升级到 Visual Basic 2008 时，所有 OptionButton 控件都升级为 Windows 窗体 RadioButton 控件，属性、方法和事件升级为其各自的等效项。在可能存在行为差异的情况下，向代码中插入升级注释。

请参见

参考

RadioButton 控件概述（Windows 窗体）