求帮助 解决多个控件颜色改变逐一改变不同时改变问题

wx9288 2018-03-27 03:04:51
在form1 里面建立 4个GROUPBOX
GROUPBOX1 GROUPBOX2 GROUPBOX3 GROUPBOX4

想实现点击按钮时候这4个 GROUPBOX 的背景颜色逐一改变，但无论是写循环都好还是直接指定颜色改变都好，最终改变都是一起改变，请高手解决


Imports System.Threading

Public Class Form2

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim ctl As Control
For Each ctl In Me.Controls
If TypeOf (ctl) Is GroupBox Then
ctl.BackColor = System.Drawing.Color.PaleGreen
thread.sleep(1000) '--想引入进程休眠 来获得每个GROUPBOX 颜色逐一改变，但执行后还是同时改变
End If
Next
End Sub
End Class

‘=============================================================================’
Imports System.Threading

Public Class Form2

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

GROUPBOX1 .backcolor=Color.Aqua

thread.sleep(1000) '--想引入进程休眠 来获得每个GROUPBOX 颜色逐一改变，但执行后还是同时改变

GROUPBOX2.backcolor=Color.Aqua

thread.sleep(1000)
GROUPBOX3.backcolor=Color.Aqua
thread.sleep(1000)
GROUPBOX4 .backcolor=Color.Aqua
thread.sleep(1000)

End Sub
End Class


以上两种方法都无法让控件背景颜色逐一改变，都会是自动同时改变！！求助各位解决

...全文
377 14 打赏 收藏 转发到动态 举报
写回复
用AI写文章
14 条回复
切换为时间正序
请发表友善的回复…
发表回复
FainSheeg 2018-03-28
  • 打赏
  • 举报
 回复
应该没问题的吧，我测试了的。
wx9288 2018-03-28
  • 打赏
  • 举报
 回复
引用 11 楼 yangliu0512 的回复:
最简单的方法是手动刷新： 
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        GroupBox1.BackColor = Color.Aqua
        Me.Refresh() '手动刷新
        Thread.Sleep(1000)   '--想引入进程休眠 来获得每个GROUPBOX 颜色逐一改变，但执行后还是同时改变
        GroupBox2.BackColor = Color.Aqua
        Me.Refresh() '手动刷新
        Thread.sleep(1000)
        GroupBox3.BackColor = Color.Aqua
        Me.Refresh() '手动刷新
        Thread.sleep(1000)
        GroupBox4.BackColor = Color.Aqua
        Me.Refresh() '手动刷新
        Thread.Sleep(1000)
    End Sub
或者换一个延时方法： 
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        GroupBox1.BackColor = Color.Aqua
        Sleep(1000)   '--想引入进程休眠 来获得每个GROUPBOX 颜色逐一改变，但执行后还是同时改变
        GroupBox2.BackColor = Color.Aqua
        Sleep(1000)
        GroupBox3.BackColor = Color.Aqua
        Sleep(1000)
        GroupBox4.BackColor = Color.Aqua
        Sleep(1000)
    End Sub

    Public Shared Sub Sleep(ByVal Interval)
        Dim __time As DateTime = DateTime.Now
        Dim __Span As Int64 = Interval * 10000   '因为时间是以100纳秒为单位。   
        While (DateTime.Now.Ticks - __time.Ticks < __Span)
            Application.DoEvents()
        End While
    End SubPrivate Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        GroupBox1.BackColor = Color.Aqua
        Sleep(1000)   '--想引入进程休眠 来获得每个GROUPBOX 颜色逐一改变，但执行后还是同时改变
        GroupBox2.BackColor = Color.Aqua
        Sleep(1000)
        GroupBox3.BackColor = Color.Aqua
        Sleep(1000)
        GroupBox4.BackColor = Color.Aqua
        Sleep(1000)
    End Sub

    Public Shared Sub Sleep(ByVal Interval)
        Dim __time As DateTime = DateTime.Now
        Dim __Span As Int64 = Interval * 10000   '因为时间是以100纳秒为单位。   
        While (DateTime.Now.Ticks - __time.Ticks < __Span)
            Application.DoEvents()
        End While
    End Sub
或者用楼上的Timer方法。 用委托也可以，不过感觉没啥必要。
谢谢@FainSheeg 使用了你上面的2种办法，第一种可行，不过效率偏低，但也是能解决问题。。。第二种不可行，还是同时改变
FainSheeg 2018-03-28
  • 打赏
  • 举报
 回复
引用 11 楼 yangliu0512 的回复:
最简单的方法是手动刷新： 
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        GroupBox1.BackColor = Color.Aqua
        Me.Refresh() '手动刷新
        Thread.Sleep(1000)   '--想引入进程休眠 来获得每个GROUPBOX 颜色逐一改变，但执行后还是同时改变
        GroupBox2.BackColor = Color.Aqua
        Me.Refresh() '手动刷新
        Thread.sleep(1000)
        GroupBox3.BackColor = Color.Aqua
        Me.Refresh() '手动刷新
        Thread.sleep(1000)
        GroupBox4.BackColor = Color.Aqua
        Me.Refresh() '手动刷新
        Thread.Sleep(1000)
    End Sub
或者换一个延时方法： 
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        GroupBox1.BackColor = Color.Aqua
        Sleep(1000)   '--想引入进程休眠 来获得每个GROUPBOX 颜色逐一改变，但执行后还是同时改变
        GroupBox2.BackColor = Color.Aqua
        Sleep(1000)
        GroupBox3.BackColor = Color.Aqua
        Sleep(1000)
        GroupBox4.BackColor = Color.Aqua
        Sleep(1000)
    End Sub

    Public Shared Sub Sleep(ByVal Interval)
        Dim __time As DateTime = DateTime.Now
        Dim __Span As Int64 = Interval * 10000   '因为时间是以100纳秒为单位。   
        While (DateTime.Now.Ticks - __time.Ticks < __Span)
            Application.DoEvents()
        End While
    End SubPrivate Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        GroupBox1.BackColor = Color.Aqua
        Sleep(1000)   '--想引入进程休眠 来获得每个GROUPBOX 颜色逐一改变，但执行后还是同时改变
        GroupBox2.BackColor = Color.Aqua
        Sleep(1000)
        GroupBox3.BackColor = Color.Aqua
        Sleep(1000)
        GroupBox4.BackColor = Color.Aqua
        Sleep(1000)
    End Sub

    Public Shared Sub Sleep(ByVal Interval)
        Dim __time As DateTime = DateTime.Now
        Dim __Span As Int64 = Interval * 10000   '因为时间是以100纳秒为单位。   
        While (DateTime.Now.Ticks - __time.Ticks < __Span)
            Application.DoEvents()
        End While
    End Sub
或者用楼上的Timer方法。 用委托也可以，不过感觉没啥必要。
一不小心粘贴了两次。。。。。
FainSheeg 2018-03-28
  • 打赏
  • 举报
 回复
最简单的方法是手动刷新： 
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        GroupBox1.BackColor = Color.Aqua
        Me.Refresh() '手动刷新
        Thread.Sleep(1000)   '--想引入进程休眠 来获得每个GROUPBOX 颜色逐一改变，但执行后还是同时改变
        GroupBox2.BackColor = Color.Aqua
        Me.Refresh() '手动刷新
        Thread.sleep(1000)
        GroupBox3.BackColor = Color.Aqua
        Me.Refresh() '手动刷新
        Thread.sleep(1000)
        GroupBox4.BackColor = Color.Aqua
        Me.Refresh() '手动刷新
        Thread.Sleep(1000)
    End Sub
或者换一个延时方法： 
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        GroupBox1.BackColor = Color.Aqua
        Sleep(1000)   '--想引入进程休眠 来获得每个GROUPBOX 颜色逐一改变，但执行后还是同时改变
        GroupBox2.BackColor = Color.Aqua
        Sleep(1000)
        GroupBox3.BackColor = Color.Aqua
        Sleep(1000)
        GroupBox4.BackColor = Color.Aqua
        Sleep(1000)
    End Sub

    Public Shared Sub Sleep(ByVal Interval)
        Dim __time As DateTime = DateTime.Now
        Dim __Span As Int64 = Interval * 10000   '因为时间是以100纳秒为单位。   
        While (DateTime.Now.Ticks - __time.Ticks < __Span)
            Application.DoEvents()
        End While
    End SubPrivate Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        GroupBox1.BackColor = Color.Aqua
        Sleep(1000)   '--想引入进程休眠 来获得每个GROUPBOX 颜色逐一改变，但执行后还是同时改变
        GroupBox2.BackColor = Color.Aqua
        Sleep(1000)
        GroupBox3.BackColor = Color.Aqua
        Sleep(1000)
        GroupBox4.BackColor = Color.Aqua
        Sleep(1000)
    End Sub

    Public Shared Sub Sleep(ByVal Interval)
        Dim __time As DateTime = DateTime.Now
        Dim __Span As Int64 = Interval * 10000   '因为时间是以100纳秒为单位。   
        While (DateTime.Now.Ticks - __time.Ticks < __Span)
            Application.DoEvents()
        End While
    End Sub
或者用楼上的Timer方法。 用委托也可以，不过感觉没啥必要。
wx9288 2018-03-27
  • 打赏
  • 举报
 回复
t.Tick += (ts, te) => 这句里面的是什么意思 += (ts, te) => ？ ts，te请问在这里有啥意义
引用 8 楼 xomix 的回复:

        private void button1_Click(object sender, EventArgs e)

        {
            List<GroupBox> lst = new List<GroupBox>();
            foreach (Control item in this.Controls)
            {
                if (item.GetType()==(new GroupBox()).GetType())
                {
                    lst.Add((GroupBox)item);
                }
            }
            List<GroupBox> orderlst = lst.OrderBy(c => c.Name).ToList();
            Timer t = new Timer();
            t.Interval = 1000;
            t.Tick += (ts, te) =>
            {
                if (orderlst.Count > 0)
                {
                    GroupBox g = orderlst[0];
                    g.BackColor = Color.BurlyWood;
                    orderlst.RemoveAt(0);
                }
                else
                {
                    t.Stop();
                }
            };
            t.Start();
        }
修改了一下排序和突出了一下颜色，你只要有多个groupbox在窗体中就可以实现自动延时变化了。
谢谢。真的解决我的问题 ，虽然要转换为VB.net 需要再费一些劲.....不过挺好的，我之前却没想过用TIME，原想通过其他事件驱动来用
非专业开发Five 2018-03-27
  • 打赏
  • 举报
 回复 

        private void button1_Click(object sender, EventArgs e)
        {
            List<GroupBox> lst = new List<GroupBox>();
            foreach (Control item in this.Controls)
            {
                if (item.GetType()==(new GroupBox()).GetType())
                {
                    lst.Add((GroupBox)item);
                }
            }
            List<GroupBox> orderlst = lst.OrderBy(c => c.Name).ToList();
            Timer t = new Timer();
            t.Interval = 1000;
            t.Tick += (ts, te) =>
            {
                if (orderlst.Count > 0)
                {
                    GroupBox g = orderlst[0];
                    g.BackColor = Color.BurlyWood;
                    orderlst.RemoveAt(0);
                }
                else
                {
                    t.Stop();
                }
            };
            t.Start();
        }
修改了一下排序和突出了一下颜色，你只要有多个groupbox在窗体中就可以实现自动延时变化了。
非专业开发Five 2018-03-27
  • 打赏
  • 举报
 回复
引用 6 楼 wx9288 的回复:
[quote=引用 4 楼 xomix 的回复:] 想做动画啊，老老实实用 background task 和委托吧。
大概，不过只需要执行一次就行，不需要反复执行，，只要点按钮能执行一次 能按顺序将控件颜色逐一改变就行[/quote] 你看，timer也可以实现分别变化
非专业开发Five 2018-03-27
  • 打赏
  • 举报
 回复 

        private void button1_Click(object sender, EventArgs e)
        {
            List<GroupBox> lst = new List<GroupBox>();
            foreach (Control item in this.Controls)
            {
                if (item.GetType()==(new GroupBox()).GetType())
                {
                    lst.Add((GroupBox)item);
                }
            }
            Timer t = new Timer();
            t.Interval = 1000;
            t.Tick += (ts, te) =>
            {
                if (lst.Count > 0)
                {
                    GroupBox g = lst[0];
                    g.BackColor = Color.AliceBlue;
                    lst.RemoveAt(0);
                }
                else
                {
                    t.Stop();
                }
            };
            t.Start();
        }
试了一下效果不错。 我就不给你翻译成vb了自己想办法。
wx9288 2018-03-27
  • 打赏
  • 举报
 回复
引用 4 楼 xomix 的回复:
想做动画啊，老老实实用 background task 和委托吧。
大概，不过只需要执行一次就行，不需要反复执行，，只要点按钮能执行一次 能按顺序将控件颜色逐一改变就行
非专业开发Five 2018-03-27
  • 打赏
  • 举报
 回复
哦对应该可以用timer，我去试试看
非专业开发Five 2018-03-27
  • 打赏
  • 举报
 回复
想做动画啊，老老实实用 background task 和委托吧。
wx9288 2018-03-27
  • 打赏
  • 举报
 回复
引用 1 楼 yangliu0512 的回复:
在thread.sleep(1000)前面手动刷新界面。或者用其他的延时方式，不要用thread.sleep
有啥解决办法吗？要自动刷新的，是不是得用进程和委托？具体该怎么写我不知道
wx9288 2018-03-27
  • 打赏
  • 举报
 回复
不想手动刷新啊
FainSheeg 2018-03-27
  • 打赏
  • 举报
 回复
在thread.sleep(1000)前面手动刷新界面。或者用其他的延时方式，不要用thread.sleep
VC学习大纲 VC学习讲义
第一课： Windows程序运行原理及程序编写流程，窗口产生过程，句柄原理，消息队列，回调函数，窗口关闭与应用程序退出的工作关系，使用VC++的若干小技巧，stdcall与cdecl调用规范的比较，初学者常犯错误及注意事项。我们通常不必要知晓每一个函数和消息。但另一方面，也不得不记住其中的一部分，否则很难将VC++运用自如。到底该记住哪些，这在我们的课程中都会涉及到。 第二课： C++经典语法与应用，类的编写与应用，构造与析构函数，函数的重载，类的继承，函数覆盖，基类与派生类的构造函数、析构函数先后调用顺序，如何在派生类构造函数中向基类的构造函数传递参数，this成员变量，类型转换的内幕，虚拟函数与奇妙多态性。VC工程的编译原理与过程，将工程中不同的类拆分到不同的原文件中，每一个类由一个.h和.cpp文件共同完成，然后解决头文件重复定义问题，培养了学员良好的编程习惯，也为以后分析MFC Appwizard生成的工程奠定了良好基础。 第三课： 讲述MFC AppWizard的原理与MFC程序框架的剖析。AppWizard是一个原代码生成工具,是计算机辅助程序设计软件，Winmain在MFC程序中是如何从源程序中被隐藏的，theApp全局变量是如何被分配的，MFC框架中的几个类的作用与相互关系，MFC框架窗口是如何产生和销毁的，对窗口类的PreCreateWidow和OnCreate两个函数的着重分析,Windows窗口与C++中的CWnd类的关系。 第四课： 讲述如何运用ClassWizard及对MFC消息响应函数机制的分析，理解发送给窗口的消息是如何被MFC框架通过窗口句柄映射表和消息映射表来用窗口类的函数进行响应的。掌握设备描述表及其封装类CDC的使用，CDC是如何与具体的设备发生关联的，融合具体的画图程序进行分析。如何设置封闭图形的填充刷子（位图画刷与透明画刷的使用）。 第五课： 掌握CDC的文字处理程序的编写，如何产生自定义字体和自定义插入符，熟悉对CString类的使用。通过对kala ok程序的编写，讲解定时器的使用和DrawText函数的巧妙运用。讲解如何使用CDC的裁减功能。 第六课： 菜单的工作原理及编写应用，菜单命令消息在MFC框架程序的几个类中的传递顺序和处理过程。标记菜单的实现原理、图形菜单的实现及常犯错误的分析，GetSystemMetrics的应用，快捷弹出菜单的实现方式及其命令响应函数有效范围（与弹出菜单时所指定的父窗口有密切的关系，最底层的子窗口具有最优先的处理机会）。 第七课.： 动态菜单的编写,如何让程序在运行时产生新的菜单项及如何手工为这些新产生的菜单命令安排处理函数，如何在顶层窗口中截获对菜单命令的处理，更进一步掌握CString类的应用。 第八课.： 对话框用户界面程序的编写，如何向对话框控件联接数据成员及其实现机理，如何向对话框控关联控件类，如何利用对话框类的成员函数向控件发送消息和获取对话框控件的类指针，如何直接利用对话框控件类操纵对话框控件（发送消息和直接调用成员函数）。如何在程序运行时产生和销毁控件。对话框控件的几种操作方式的优劣比较分析。 第九课： 如何让对话框上的文本框在程序启动后立即获得焦点，如何利用SetWindowLong改变窗口的回调函数，通过改变文本框的默认回车处理方式进行演示。实现多个输入文本框间通过回车逐一向下传递焦点的另一种巧妙方法（用缺省按钮来处理）。利用SetWindowLong和定时器轮回改变窗口的图标。如何实现对话框的部分收缩和展开。如何在主对话框程序启动时立即隐藏对话框的巧妙实现方式与精妙思想（不能直接在OnInitDialog处理。包括自定义消息的实现） 第十课： 如何制作属性页对话框和向导对话框，融合讲解组合框（如何调整组合框的大小）、列表框、单选按钮、复选按钮 等常用对话框控件的多种使用方法。如何限制用户在不满足设定的条件时切换到其他属性页和向导页。 第十一课： 如何修改MFC AppWizard向导生成的框架程序的外观，包括修改标题栏的多种方式及原理，修改图标、光标、背景的两种方法。如何给应用程序增加工具栏和删除工具栏按钮。定制状态栏，在CView中获取状态栏对象的几种方式，在状态栏中添加时钟显示（掌握CTime类和静态成员变量和函数的用法），鼠标坐标显示，进度条（主窗口产生后立即产生进度条的巧妙思想，不能在OnCreate函数中直接处理，要用到自定义消息的方法）。如何为窗口添加背景位图。 第十二课： 如何使用自定义画笔（颜色，线宽，线形），画刷（形状，颜色）。如何为程序中添加选项菜单和选项设置对话框，如何使用标准颜色对话框，窗口重绘原理，在选项对话框中实现预览功能。实现选项对话框和窗口类中的数据交换。 第十三课： 如何让CDC上输出的文字、图形具有保持功能，元文件设备描述表的使用，CpaintDC与CClientDC的区别与应用，OnPaint与Ondraw在CView中的关系及实现内幕，集合类CObArray的使用，滚动窗口的实现，设备坐标与逻辑坐标的转换。 第十四课： 文件读写，CFileDialog,CFile,fstream,CArchive类的使用与比较。在应用中讲解const char *与char * const的区别，字符串的使用原理，如何使用CString的内存缓冲区。注册表与win.ini文件的读写方式及相关知识点。 第十五课： 如何利用CDocument类的串行化存储功能及MFC框架程序提供的文件打开与保存功能的实现原理。如何实现类对串行化的支持，CObArray的串行化实现内幕。MFC框架程序的几个主要类之间如何获得相互的指针引用。 第十六课： 网络程序的编写，Socket是连接应用程序与网络驱动程序的桥梁，Socket在应用程序中创建，通过bind与驱动程序建立关系。此后，应用程序送给Socket的数据，由Socket交给驱动程序向网络上发送出去。计算机从网络上收到与该Socket绑定的IP+Port相关的数据后，由驱动程序交给Socket,应用程序便可从该Socket中提取接收到的数据。网络应用程序就是这样通过socket进行数据的发送与接收的。UDP与TCP的工作原理与编写过程，包含如何在程序中连接库文件，telnet工具软件在编写网络程序中的用途 第十七课： 多线程程序的编写，如何通过互斥来保证多线程的安全。如何利用命名互斥保证只有一份程序实例被运行，结合多线程，网络编程，自定义消息，数据类型转换，如何改变文本框对回车的默认处理方式等技术编写网络聊天程序。 第十八课： 动态连接库程序的编写，库函数的两种输出方式。调用程序对动态连接库的静态连接与动态连接方式，如何利用工具查看动态连接库里的函数，C/C++连接规范中的命名转变问题分析，如何获得动态连接库里的函数 的指针，如何用typedef声明指向函数的指针类型。如何调试动态连接库。 第十九课： ActiveX控件的应用与工作原理，ActiveX控件的编写，如何为控件安排属性，方法，事件，属性页，持久性存储。如何注册控件与取消控件注册。如何测试与调试控件。 第二十课： 综合答疑与一些高深主题的介绍，包括如何安装系统钩子函数，dll连接库里的全局变量数据共享问题分析，ADO数据库编程，如何将数据库记录显示在Clistview网格中。 以上内容为作者对课件的初步整理，还有很多课堂上要讲到，但在本大纲中还没有被撰稿的内容，以后将逐渐完善本大大纲。
详细学习Pyqt5的9种显示控件
在PyQt5界面设计中，显示控件扮演着至关重要的角色。它们不仅负责向用户展示信息、图像、或其他多媒体内容，而且在很大程度上决定了应用程序的用户体验和交互效果。通过精心设计和使用这些控件，可以创建出直观、易于操作且视觉上吸引人的界面。了解这些控件如何工作及其适用场景，对于设计高效、美观的用户界面至关重要。接下来，我们将逐一深入探讨每个控件的特点和使用方法。
Android界面控件难点精讲
同时，在Android开发中，如果能够使用MVC模式进行开发，则开发效率会高很多，此时，我们则可以使用AdapterView与Adapter高级控件来实现类似MVC的模式进行开发，从而大大提高开发效率本课中会给出AdapterView与...
Android学习——TextView简单控件的使用
这个 可以说是安卓里面最简单的一个控件啦，在empty里面显示的hello world其实就是用的我们TextView这个控件这是我们学习的第一个控件，我们在前一篇博客里面讲述了如何在java代码里面去调用我们的布局文件，那就是在MainActivity里面使用重写的onCreate方法。控件的使用思路和布局文件的使用思路差不多，都是在xml布局文件中设置相应的控件以及属性，然后在java里面通过代码找到你添加的这个控件，然后进行一系列操作。但是如何在代码里面找到呢？接下来通过代码来逐一讲解。。
GDI 波形控件

编者记：
09年暑假正好在学院实验室呆了一段时间，做了个完整的上位机软件（具体实现：根据下位机的指令，实现通过串口来操纵下位机进行实验，并将采集的数据进行处理和保存，并以图形的方式显示），整个项目边学C# WinForm边设计，这个波形显示控件就是项目中的一部分，也花了自己绝大多数时间。暑假一结束，也就没有再去接触C#了，主要精力放在C++，Windows编程上去了。此外，顺便将该波形显示控件当作自己毕业设计的内容，下文实际上是节选自自己的本科毕业论文的呵呵，希望对大家能有所帮助。由于
VB

16,554

社区成员

110,527

社区内容

发帖
与我相关
我的任务
社区描述
VB技术相关讨论，主要为经典vb，即VB6.0
社区管理员
  • VB.NET
  • 水哥阿乐
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章