• 所有问题

    • 怎样在vb中能把窗体的颜色设置为自动的颜色

    如题所述

    举报该问题
    推荐答案   2017-02-13
    VB中窗体颜色可通过设置窗体的BackColor来改变。
    BackColor、ForeColor 属性
    BackColor－返回或设置对象的背景颜色。ForeColor－返回或设置在对象里显示图片和文本的前景颜色。
    以下代码是改变窗体背景色和改变图片框背景和前景色的代码：

    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12

    Private Sub Form_Load()
    Timer1.Interval = 500
    Picture1.FontSize = 30
    <a href="https://www.baidu.com/s?wd=End&tn=44039180_cpr&fenlei=mv6quAkxTZn0IZRqIHckPjm4nH00T1Y3nycYmyckuWRYmHDkrAfL0ZwV5Hcvrjm3rH6sPfKWUMw85HfYnjn4nH6sgvPsT6KdThsqpZwYTjCEQLGCpyw9Uz4Bmy-bIi4WUvYETgN-TLwGUv3EnHfYnHb3n1Dv" target="_blank" class="baidu-highlight">End</a> Sub

    Private Sub Timer1_Timer()
    Picture1.Cls
    BackColor = QBColor(Rnd * 15)
    Picture1.BackColor = QBColor(Rnd * 15)
    Picture1.ForeColor = QBColor(Rnd * 10)
    Picture1.Print "ABC"
    <a href="https://www.baidu.com/s?wd=End&tn=44039180_cpr&fenlei=mv6quAkxTZn0IZRqIHckPjm4nH00T1Y3nycYmyckuWRYmHDkrAfL0ZwV5Hcvrjm3rH6sPfKWUMw85HfYnjn4nH6sgvPsT6KdThsqpZwYTjCEQLGCpyw9Uz4Bmy-bIi4WUvYETgN-TLwGUv3EnHfYnHb3n1Dv" target="_blank" class="baidu-highlight">End</a> Sub
    温馨提示：答案为网友推荐，仅供参考
    相似回答
    VB如何实现颜色随机选择答：2008-06-04 用VB实现,通过随机函数实现随机改变窗体背景颜色 5 2013-01-06 vb程序中,如何在运行程序后使command按钮的颜色不断自... 2 2015-06-10 vb画出射线后,怎样设置射线为随机颜色 1 2016-07-11 请问一下在vb中如何在标签中显示随机颜色的三个数值 2010-03-02 VB中用print如何设置字体随机颜色...
    VB中窗体颜色怎么改变?答：Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)form1.backcolor = vbRed endsubPrivate Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)form1.backcolor = vbGreen end sub ...
    vb中,如何设置窗体的颜色随时间改变的代码?答：在一个时钟过程中写入你要改变的颜色，就可以了。比如我随机改变颜色(设置interval的属性值为2000，意思是间隔2秒改变一次)Private Sub Timer1_Timer()Randomize Dim r, g, b r = 255 * Rnd g = 255 * Rnd b = 255 * Rnd Me.BackColor = RGB(r, g, b)End Sub ...
    在VB中如何将窗体的颜色改为指定的颜色?答：如果说的是窗体背景色 Private Sub Form_Load()BackColor = &H123456'范围 &H0－&HFFFFFF End Sub
    怎样运用VB随机函数改变窗体颜色和文本框字体的大小。答：在窗体上画一timer控件和一文本框，然后写以下代码：Private Sub Form_Load()Timer1.Enabled = True Timer1.Interval = 1000 End Sub Private Sub Timer1_Timer()Randomize x = Int(Rnd()90 + 10)Text1.FontSize = x Randomize a = Int(Rnd()255)b = Int(Rnd()255)c = Int(Rnd()255...
    大家正在搜
    vb中怎样设置主窗体vb设置窗体背景颜色的属性vb窗体背景怎么设置vb窗体标题属性怎么设置vb怎么设置窗体最大化vb如何设置窗体背景色vb窗体设计窗口是用来设计vb窗体大小设置vb设置窗体标题