网页资讯贴吧知道视频音乐图片地图文库
进入贴吧全吧搜索吧内搜索

 
 
 
日一二三四五六
       
       
       
       
       
       

签到排名:今日本吧第个签到,

本吧因你更精彩,明天继续来努力!

本吧签到人数:0

一键签到
成为超级会员,使用一键签到
一键签到
本月漏签0次!
0
成为超级会员,赠送8张补签卡
如何使用?
点击日历上漏签日期,即可进行补签。
连续签到:天  累计签到:天
0
超级会员单次开通12个月以上,赠送连续签到卡3张
使用连续签到卡
04月15日漏签0天
vb吧 关注:119,800贴子:1,133,328
  • 看贴

  • 图片

  • 精品

  • 游戏

  • 51回复贴,共1页
<<返回vb吧
>0< 加载中...

请教大家一个新问题。

  • 只看楼主
  • 收藏

  • 回复
  • studentxuefei
  • 网络通信
    11
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
在窗体上有一个label数组控件,大概有50个左右,分别是label18(0),label18(1),label18(2).。。。
一直到label18(60).
我想当点击label18(0)时,这个label18(0)就变成红色,点击label18(1)时,这个label18(1)也变成红色,
依此类推。。。。。。。。
并且当第二次运行这个软件的时候,被点击过的label仍然是红色的。没被点击的label还保持原来的颜色。


  • studentxuefei
  • 网络通信
    11
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
想了很长时间了,没解决,只解决了点击就能变红色,但是,保存不了,也就是重新运行这个程序就不能变红色了

不知道怎么办,哪位高手帮一下忙?

谢谢大家


  • TERA_ARISU
  • 数据库
    10
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
把这些label的状态(红不红)写入一个txt里,每次开程序先从txt里读label的状态


  • 狡猾的皮球
  • 多线程
    14
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
把数据存在文件里,每次打开程序读取文件进行颜色设置


  • sunruisunrui
  • 小吧主
    12
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
对的,楼上的回答都是对的,可是楼主呢?


  • studentxuefei
  • 网络通信
    11
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
对于label控件数组,里面有很多label,就懵了,希望详细介绍一下方法,谢谢


  • oshi001
  • 钩子编程
    15
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
这个很容易


  • sbj518
  • 网络通信
    11
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
Private Sub Form_Load()
Dim s As String

Open App.Path & "\1.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, s
Print s
Loop
Close #1
For i = 0 To 59
If Mid(s, i + 1, 1) = "0" Then
Label1(i).BackColor = vbWhite
Else
Label1(i).BackColor = vbRed
End If
Next i
End Sub

Private Sub Form_Unload(Cancel As Integer)
Dim s As String
s = ""
For i = 0 To 59
If Label1(i).BackColor = vbWhite Then
s = s & "0"
Else
s = s & "1"
End If
Next i
Open App.Path & "\1.txt" For Output As #1
Print #1, s
Close #1
End Sub


  • B_C_JackShut
  • 基本语句
    5
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
其实用API去写config最简单


  • studentxuefei
  • 网络通信
    11
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼

Dim s As String
Open App.Path & "\1.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, s
Print s
Loop
Close #1


这几句代码的意图是什么?麻烦解释一下
谢谢


  • 小小噤
  • 简易程序
    9
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
'测试OK,点一次变红。再点一次恢复。重新打开恢复上次的样式 小噤 QQ 574221329
Private Sub Form_Load()
For i = 0 To Me.Label18.Count - 1
Label18(i).ForeColor = GetSetting("VB贴吧", "控件点击保存", i, vbBlack)
Next
End Sub


Private Sub Label18_Click(Index As Integer)
SaveSetting "VB贴吧", "控件点击保存", Index, vbRed - Label18(Index).ForeColor
Label18(Index).ForeColor = GetSetting("VB贴吧", "控件点击保存", Index, vbBlack)
End Sub


  • 小小噤
  • 简易程序
    9
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
如果要点了之后永远红色,在vbRed后面加一个分号'


  • 小小噤
  • 简易程序
    9
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼


登录百度帐号

扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频!
  • 贴吧页面意见反馈
  • 违规贴吧举报反馈通道
  • 贴吧违规信息处理公示
  • 51回复贴,共1页
<<返回vb吧
分享到:
©2020 Baidu贴吧协议|隐私政策|吧主制度|意见反馈|网络谣言警示