|
Style
返回或设置一个值，该值用来指示控件的显示类型和行为。在运行时是只读的。
语法：object.Style
对于 Checkbox、CommandButton 和 OptionButton 控件，Style 属性的设置值为：
VbButtonStandard 0 （缺省的） 标准的。控件按它们在 Visual Basic 老版本中的样子显示。也就是，Checkbox
控件显示为在其身旁有一个标签的复选框，OptionButton 显示为在其身旁有一个标签的选项按钮，而 CommandButton 显示为标准的、没有相关图形的
CommandButton。
VbButtonGraphical 1 图形的。控件用图形的样式显示。即，Checkbox 控件显示为类似按钮的 CommandButton，它能上下切换；OptionButton
显示为类似按钮的 CommandButton，它保持向上或向下的切换，直到它的选项群组内的另一个 OptionButton 被选中；而
CommandButton 显示为标准的、也能显示相关图形的 CommandButton。
对于 ComboBox 控件， Style 属性值为：
VbComboDropDown 0 （缺省值）下拉式组合框。包括一个下拉式列表和一个文本框。可以从列表选择或在文本框中输入。
VbComboSimple 1 简单组合框。包括一个文本框和一个不能下拉的列表。可以从列表中选择或在文本框中输入。简单
组合框的大小包括编辑和列表部分。按缺省规定，简单组合框的大小调整在没有任何列表显示的状态。增加 Height 属性值可显示列表的更多部分。
VbComboDrop-DownList 2 下拉式列表。这种样式仅允许从下拉式列表中选择。
对于 ListBox 控件，Style 属性值为：
VbListBoxStandard 0 （缺省值）标准的。ListBox 控件按它在Visual Basic 老版本中的样子显示；即，象是文本项的列表。
VbListBoxCheckbox 1 复选框。在 ListBox 控件中，每一个文本项的边上都有一个复选框。在 ListBox 中可以选择多项。
说明：
对于 ComboBox 控件，根据下面这些原则来决定选用哪种设置值：
使用设置值 0（下拉式组合框）或设置值 1（简单组合框）来给用户一选择列表。每种风格都使用户能在文本框中输入一个选择。设置值 0
能节省窗体上的空间，因为列表部分在用户选择一个项时将关闭。
使用设置值 2（下拉式列表）能显示一个从中选择一个项的固定选择列表。列表部分在用户选择一个项时关闭。
Stretch 返回或设置一个值，该值用来指定一个图形是否要调整大小，以适应与 Image 控件的大小。
语法：
object.Stretch [= boolean]
Boolean 一个用来指定是否要调整图形的大小的布尔表达式，按照设置值的描述。
boolean 的设置值为：
True 表示图形要调整大小以与控件相适合。
False （缺省值）表示控件要调整大小以与图形相适。
说明：
如果 Stretch 被设置为 True，那么，控件大小的调整使得它所包含的图形的大小也要调整。
例：本例从一个图标目录将一个箭头图标装入 Image 控件。当 Stretch 属性设置为 True
时，该箭头将缓慢地移过窗体，而当 Stretch 属性设置为 False
时，该箭头将跳跃式通过窗体。要试用此例，先将下面的代码粘贴到包含一个 Image 控件、一个 CheckBox 控件、以及一个
Timer 控件的窗体的声明部分，然后按 F5 键 并单击该窗体。应确认图标目录所在的路径，必要时可以改变。单击
CheckBox，然后再次单击窗体，就可以看到 Stretch 属性的影响。
Dim ImgW ' 声明变量。
Private Sub Form_Load ()
' 将图标装入 Image 控件。
Image1.Picture = LoadPicture("ICONS\ARROWS\ARW02RT.ICO")
Image1.Left = 0 ' 将图象移动到左部边界处。
ImgW = Image1.Width ' 保存图象的宽度。
Timer1.Interval = 300
Timer1.Enabled = False ' 关闭计时器。
Check1.Caption = "Stretch Property"
End Sub
Private Sub Form_Click ()
Timer1.Enabled = True ' 打开计时器。
End Sub
Private Sub Timer1_Timer ()
Static MoveIcon As Integer ' 移动图标的标志。
If Not MoveIcon Then
Image1.Move Image1.Left + ImgW, Image1.Top, ImgW * 2
Else
' 移动图象并使它返回原来的宽度。
Image1.Move Image1.Left + ImgW, Image1.Top, ImgW
End If
' 如果图象在窗体的边界之外，那么将导致结束。
If Image1.Left > ScaleWidth Then
Image1.Left = 0
Timer1.Enabled = False
End If
MoveIcon = Not MoveIcon ' 复位标志。
End Sub
Private Sub Check1_Click ()
Image1.Stretch = Check1.Value
End Sub
|
