none
实在不会做,会的请帮帮忙啊,,,急啊! RRS feed

  • 问题

  •  

    题目是这样的:创建一个工程,
    单击“窗体背景色修改”按钮,可使背景色改变为红色,再单击变为绿色,然后又转为红色循环变化
    单击“退出”按钮时,可退出应用程序
    2008年3月16日 13:11

答案

  •  asiadata 写:

     

    Private Sub Command1_Click()
    If Form1.BackColor = &H8000000F Then
    Command1.Caption = "还原"
    Form1.BackColor = &HFF&

    elseIf Form1.BackColor = ???? Then'其他背景色

    Else
    Form1.BackColor = &H8000000F
    Command1.Caption = "变色"
    End If
    End Sub

    Private Sub Command2_Click()
    Unload Me
    End Sub

     

    他已经帮你写出来了,关于IF语句具体的你多看下书,重要的还是自己理解

    2008年3月20日 2:10
    版主

全部回复

  • 到底哪一点不会?

     

    通过一个变量,判断当前背景色,然后再改变颜色

     

    2008年3月17日 4:01
    版主
  •  

    Private Sub Command1_Click()
    If Form1.BackColor = &H8000000F Then
    Command1.Caption = "还原"
    Form1.BackColor = &HFF&
    Else
    Form1.BackColor = &H8000000F
    Command1.Caption = "变色"
    End If
    End Sub

    Private Sub Command2_Click()
    Unload Me
    End Sub

    2008年3月17日 13:52
  •  

    我们刚刚开始学VB,什么语句什么的都不会用,现在要完成一道题是这样的:创建一个工程,窗口界面如图:单击“窗体背景色修改”按钮,可使窗口背景色改变为红色,再单击变为绿色,再单击变为蓝色,然后又转为红色循环变化。单击退出按钮时可退出应用程序。
    2008年3月17日 14:45
  • 谢谢你吖,可是我昨天写题目的时候漏了一句话,还要再单击变绿色的,所以还是没有完成、、、

    2008年3月17日 15:00
  •  asiadata 写:

     

    Private Sub Command1_Click()
    If Form1.BackColor = &H8000000F Then
    Command1.Caption = "还原"
    Form1.BackColor = &HFF&

    elseIf Form1.BackColor = ???? Then'其他背景色

    Else
    Form1.BackColor = &H8000000F
    Command1.Caption = "变色"
    End If
    End Sub

    Private Sub Command2_Click()
    Unload Me
    End Sub

     

    他已经帮你写出来了,关于IF语句具体的你多看下书,重要的还是自己理解

    2008年3月20日 2:10
    版主
  • 谢谢大家的帮忙,我根据他给我写的那部分,看了几遍书做出来了。

    2008年3月22日 13:18