vb编写代码单击命令按钮改变窗体颜色
vb编写代码单击命令按钮改变窗体颜色 -
’命令按钮的名称为Command1Private Sub Command1_Click()Randomize TimerBackColor = RGB(Rnd * 256, Rnd * 256, Rnd * 256)End Sub
建一个工程窗体上加一个按纽代码复制进去直接点就行了Dim i As Integer Private Sub Command1_Click()i = i + 1 If i Mod 2 = 0 Then Me.BackColor = vbRed Else Me.BackColor = vbGreen End If End Sub
’命令按钮的名称为Command1Private Sub Command1_Click()Randomize TimerBackColor = RGB(Rnd * 256, Rnd * 256, Rnd * 256)End Sub
建一个工程窗体上加一个按纽代码复制进去直接点就行了Dim i As Integer Private Sub Command1_Click()i = i + 1 If i Mod 2 = 0 Then Me.BackColor = vbRed Else Me.BackColor = vbGreen End If End Sub
BackColor 属性不适用于命令按钮控制，ForeColor 属性不适用于命令组控制、选项组控制或形状控制。语法Object.BackColor[ = nColor]Object.ForeColor[ = nColor]设置nColor指定单个颜色值。下表列出常用的颜色值：颜色 RGB 值 nColor 值白色 255, 255, 255 16777215 黑色 0, 0, 0希望你能满意。
改颜色：Me.labMain.ForeColor = 【打上颜色，如vbRed】改字体：Me.labMain.FontName = 【输入字体名称，如“宋体”】改字体大小：Me.labMain.FontSize = 【输入大小，如20】改为粗体：Me.labMain.FontBold = 【True or False】还有几个，就不一一列出来了。
怎么在VB中用单击一次命令按钮的方式变换标签中的文字和颜色,这样的...
Private Sub Command1_Click()Label1.Caption = "开始变色咯" '改变标签文字Label1.ForeColor = rgb(rnd*255,rnd*255,rnd*255) '随机变色End Sub
5妙）enabled设为false(不可用)Dim color as long 在Command1_click加入以下代码color=command1.backcolor Command1.backcolor=vbred Timer1.enable=true 说明，让按钮颜色变为红色，让时间记可用…双击timer1 在Timer1_timer事件中添加代码command1.backcolor=color timer1.enabled=false 后面会介绍。
VB怎样设计单击某一命令按钮后该按钮呈灰色,其他命令按钮可操作?
你可以在那个按钮事件中写比如Command1.Enabled = False '禁用某按钮Command2.Enabled = True 有帮助请点赞。如果按钮较多也可以封装成函数，
好像不能禁用关闭按钮的，只能禁用最大化、最小化按钮。属性框中有两个项：minbutton和maxbutton，改成false就行了还有一个方法，选择borderstyle的值也能改变（就是不能禁用关闭按钮）
如何实现VB的命令按钮command1单击后按钮上的文字变成红色,再单击变 ...
VB自带的command控件不支持文字变色，只有默认黑色。你可以使用一个label标签代替command，这样就行了。label也支持Click、mousemove等事件，只是没有command的立体感强。
在Form中的代码： Private Sub Form_Load() 'Initialize each button color. SetButton Command1.hWnd, vbRed SetButton Command2.hWnd, &H8000& '深绿色 'Assign this one a DT_BOTTOM alignment because SetButton Command3.hWnd, vbBlue, DT_BOTTOM '含有图片，将文本放置在按钮底部 SetButton 好了吧！