【VB开源代码栏目提醒】:文章导读:在新的一年中,各位网友都进入紧张的学习或是工作阶段。网学会员整理了VB开源代码-WORDWRAP.FRM的相关内容供大家参考,祝大家在新的一年里工作和学习顺利!
VERSION 5.00
Begin VB.Form frmWordWrap
Caption = "“字折行”和“自动调整大小”示例"
ClientHeight = 4320
ClientLeft = 1110
ClientTop = 1665
ClientWidth = 5760
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
LinkTopic = "Form1"
ScaleHeight = 4320
ScaleWidth = 5760
Begin VB.CommandButton cmdCycle
Caption = "循环(&Y)"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 480
TabIndex = 2
Top = 2520
Width = 1215
End
Begin VB.CheckBox chkAutoSize
Caption = "自动调整大小(&A)"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 3840
TabIndex = 0
Top = 1080
Width = 1695
End
Begin VB.CheckBox chkWordWrap
Caption = "字折行(&W)"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 3840
TabIndex = 1
Top = 1680
Width = 1575
End
Begin VB.CommandButton cmdClose
Cancel = -1 'True
Caption = "关闭(&C)"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 3840
TabIndex = 3
Top = 2520
Width = 1215
End
Begin
VB.Label lblHelp
BackColor = &H00C0C0C0&
Caption = "选中“自动调整大小”或“字折行”按钮,在标签中观看效果。"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Left = 480
TabIndex = 5
Top = 3360
Width = 2895
End
Begin VB.Label lblDisplay
BorderStyle = 1 'Fixed Single
Caption = "AutoSize 和 WordWrap 属性的示范。"
Height = 230
Left = 480
TabIndex = 4
Top = 480
Width = 2175
End
End
Attribute VB_Name = "frmWordWrap"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Sub Display()
' 本子过程改变 label 控件的显示特征
' 重新设置例子
lblDisplay.AutoSize = False
lblDisplay.WordWrap = False
lblDisplay.Width = 2175
lblDisplay.Height = 225
' 判断“字折行”和“自动调整大小”是否选中
If chkWordWrap.Value = 1 Then
lblDisplay.WordWrap = True
End If
If chkAutoSize.Value = 1 Then
lblDisplay.AutoSize = True
End If
End Sub
Private Sub chkAutoSize_Click()
' 调用 Display 子过程
Call Display
End Sub
Private Sub chkWordWrap_Click()
' 调用 Display 子过程
Call Display
End Sub
Private Sub cmdClose_Click()
Unload Me ' 卸载窗体
End Sub
Private Sub cmdCycle_Click()
' 循环遍历四种可能的组合
' 一个复选框都没选中
If chkAutoSize.Value = 0 And _
chkWordWrap.Value = 0 Then
' 选中“自动调整大小”复选框
chkAutoSize.Value = 1
' 两个复选框都选中
ElseIf chkAutoSize.Value = 1 And _
chkWordWrap.Value = 1 Then
' 不选中“自动调整大小”复选框而选中“字折行”复选框
chkAutoSize.Value = 0
chkWordWrap.Value = 1
' 只选中“字折行”复选框
ElseIf chkAutoSize.Value = 0 And _
chkWordWrap.Value = 1 Then
' 两个复选框都不选中
chkAutoSize.Value = 0
chkWordWrap.Value = 0
' 只选中“自动调整大小”复选框
Else
' 选中“字折行”复选框,而“自动调整大小”复选框已经被选中
chkWordWrap.Value = 1
End If
End Sub