VB 怎么改变窗体的颜色 怎么显示一段话 vb中怎么设置每摁一下窗体变换一次颜色?

\u600e\u4e48\u5728vb\u7a97\u4f53\u4e0a\u76f4\u63a5\u663e\u793a\u5185\u5bb9\uff08\u6c49\u5b57\uff09\uff0c\u53ef\u4ee5\u6539\u53d8\u5b83\u51fa\u73b0\u7684\u4f4d\u7f6e\uff0c\u5927\u5c0f\uff0c\u989c\u8272\u7b49\uff1f\u8bf7\u95ee\u9ad8\u624b\u4e86

1\u3001\u6253\u5f00VB\u8f6f\u4ef6\uff0c\u5728\u7a97\u4f53\u4e0a\u6dfb\u52a0\u4e00\u4e2a\u6807\u7b7e\u3002

2\u3001\u70b9\u51fb\u6807\u7b7e\uff0c\u5728\u5c5e\u6027\u7a97\u53e3\u8bbe\u7f6e\u6807\u7b7e\u7684\u5c5e\u6027\u548c\u540d\u79f0\uff0c\u5c06\u5176Caption\u8bbe\u7f6e\u4e3a\u201c\u5feb\u4e50\u5b66\u4e60\u201d\u3002

3\u3001\u518d\u5728\u7a97\u4f53\u4e0a\u9762\uff0c\u6dfb\u52a0\u4e00\u4e2a\u5217\u8868\u6846\u63a7\u4ef6\u3002

4\u3001\u53cc\u51fb\u5217\u8868\u6846\uff0c\u5f00\u59cb\u7f16\u8f91\u4ee3\u7801\u3002

5\u3001\u8fd0\u884c\u7a0b\u5e8f\uff0c\u70b9\u51fb\u5217\u8868\u6846\u4e2d\u4e0d\u540c\u7684\u6570\u503c\uff0c\u89c2\u5bdf\u6807\u7b7e\u4e2d\u5b57\u4f53\u7684\u5927\u5c0f\u53d8\u5316\u3002

\u6ce8\u610f\u4e8b\u9879\uff1a
VB\u62e5\u6709\u56fe\u5f62\u7528\u6237\u754c\u9762\uff08GUI\uff09\u548c\u5feb\u901f\u5e94\u7528\u7a0b\u5e8f\u5f00\u53d1\uff08RAD\uff09\u7cfb\u7edf\uff0c\u53ef\u4ee5\u8f7b\u6613\u7684\u4f7f\u7528DAO\u3001RDO\u3001ADO\u8fde\u63a5\u6570\u636e\u5e93\uff0c\u6216\u8005\u8f7b\u677e\u7684\u521b\u5efaActive X\u63a7\u4ef6\uff0c\u7528\u4e8e\u9ad8\u6548\u751f\u6210\u7c7b\u578b\u5b89\u5168\u548c\u9762\u5411\u5bf9\u8c61\u7684\u5e94\u7528\u7a0b\u5e8f\u3002

\u6211\u4e4b\u524d\u7ea0\u7ed3\u4e86\u5f88\u4e45\u600e\u4e48\u505a\u5230\u6709\u89c4\u5f8b\u5730\u70b9\u51fb\u6362\u989c\u8272\uff0c\u521a\u624d\u7a81\u7136\u60f3\u5230\u4e86\uff0c\u8bbe\u7f6e\u4e00\u4e2a\u53d8\u91cfn
dim n as integer
private sub form1_load\uff08\uff09
scale\uff080,0\uff09-\uff0820,20\uff09
circle\uff0810,10\uff09,2, vb red
end sub
private sub form1_click
n=n+1
if n mod 3=0 then form1.forecolor= vbred
if \uff08n+1\uff09mod 3=0 then form1.forecolor = vbblue
if \uff08n+2\uff09mod 3=0 then form1.forecolor = vbyellow
end sub

第一个问题：

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

因为是在按钮上按下,
而不是窗体上按下时触发事件,所以楼上的代码要稍改一下
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

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

扩展阅读：vb窗体上下移动 ... vb如何运行第二个窗体 ... vb怎么直接显示在窗体上 ... vb清除窗体内容代码 ... vb改变窗口背景颜色 ... vb改变窗体大小的方法 ... vba 根据条件 填充颜色 ... c#窗体设置背景图片 ... vb窗体背景颜色怎么设置 ...