Question

VB 怎么改变窗体的颜色 怎么显示一段话

Answer 1

第一个问题：

1.打开VB，在“工程”→“部件”中选择“Microsoft Common Dialog Control 6.0”单击确定。
2.在窗体中添加这个Commondialog控件，再添加一个按钮。

3.双击按钮再添加如下代码：
Private Sub Command1_Click()
CommonDialog1.ShowColor
Form1.BackColor = CommonDialog1.Color
End Sub

4.按F5键启动程序，单击按钮就可以给程序界面更换颜色了！
5.利用这种方法你可以更改任何控件的前景或背景色。比如我们再在窗体中添加一个文本框控件，接着双击按钮添加如下代码：

Private Sub Command1_Click()
CommonDialog1.ShowColor
Form1.BackColor = CommonDialog1.Color
End Sub

第二个问题：
在窗体上添加一个label，在Form_Load中输入代码,例下：

Private Sub Form_Load()
Dim StrTemp As String
StrTemp = "话语" & vbCrLf
StrTemp = StrTemp & "话语" & vbCrLf
StrTemp = StrTemp & "话语" & vbCrLf
StrTemp = StrTemp & "话语" & vbCrLf
StrTemp = StrTemp & "话语" & vbCrLf'这些你可以无限下去，如果你的窗体够大
StrTemp = StrTemp & "话语"
Me.Label1.Caption = StrTemp
End Sub

Answer 2

因为是在按钮上按下,
而不是窗体上按下时触发事件,所以楼上的代码要稍改一下
private
sub
command1_mousedown(button
as
integer,
shift
as
integer,
x
as
single,
y
as
single)
form1.backcolor
=
vbred
endsub
private
sub
command1_mouseup(button
as
integer,
shift
as
integer,
x
as
single,
y
as
single)
form1.backcolor
=
vbgreen
end
sub

Answer 3

背景颜色改变 窗口的Backcolor属性
显示的话 先把Autoredraw属性设为True 在代码中加入 Print "文字内容"