| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 922 人关注过本帖
标题:关于简化问题!!!各位帮忙看看!!!!!!!
只看楼主 加入收藏
qiziyun
Rank: 1
等 级:新手上路
帖 子:49
专家分:0
注 册:2013-1-14
结帖率:83.33%
收藏
已结贴  问题点数:10 回复次数:22 
关于简化问题!!!各位帮忙看看!!!!!!!
程序代码:
[local]1[/local]
Private Sub Command1_Click()
       Call 写入INI("Form设置", "Text1", Text1.Text)
       Call 写入INI("Form设置", "Text2", Text2.Text)
       Call 写入INI("Form设置", "Text3", Text3.Text) '
       Call 写入INI("Form设置", "Text4", Text4.Text)
       Call 写入INI("Form设置", "Text5", Text5.Text)
       Call 写入INI("Form设置", "Text6", Text6.Text)
       Call 写入INI("Form设置", "Text7", Text7.Text)
       Call 写入INI("Form设置", "Text8", Text8.Text)
       Call 写入INI("Form设置", "Text9", Text9.Text)
       Call 写入INI("Form设置", "Text10", Text10.Text)
       Call 写入INI("Form设置", "Text11", Text11.Text)
       Call 写入INI("Form设置", "Text12", Text12.Text)
       Call 写入INI("Form设置", "Text13", Text13.Text)
       Call 写入INI("Form设置", "Text14", Text14.Text)
       Call 写入INI("Form设置", "Text15", Text15.Text)
       Call 写入INI("Form设置", "Text16", Text16.Text)
       Call 写入INI("Form设置", "Text17", Text17.Text)
       Call 写入INI("Form设置", "Text18", Text18.Text)
       Call 写入INI("Form设置", "Text19", Text19.Text)
       Call 写入INI("Form设置", "Text20", Text20.Text)
       Call 写入INI("Form设置", "Text21", Text21.Text)
       Call 写入INI("Form设置", "Text22", Text22.Text)
       Call 写入INI("Form设置", "Text26", Text26.Text)
       Call 写入INI("Form设置", "Text24", Text24.Text)
       Call 写入INI("Form设置", "Text25", Text25.Text)
       Call 写入INI("Form设置", "Text26", Text26.Text)
       Call 写入INI("Form设置", "Text27", Text27.Text)
       Call 写入INI("Form设置", "Text28", Text28.Text)
       Call 写入INI("Form设置", "Text29", Text29.Text)
       Call 写入INI("Form设置", "Text30", Text30.Text)
'       Call 写入INI("Form设置", "Text31", Text31.Text)
'       Call 写入INI("Form设置", "Text32", Text32.Text)
'       Call 写入INI("Form设置", "Text33", Text33.Text)
'       Call 写入INI("Form设置", "Text34", Text34.Text)
End Sub

Private Sub Command2_Click()
      Text1 = 读取INI("Form设置", "Text1", "默认值")
      Text2 = 读取INI("Form设置", "Text2", "默认值")
      Text3 = 读取INI("Form设置", "Text3", "默认值")
      Text4 = 读取INI("Form设置", "Text4", "默认值")
      Text5 = 读取INI("Form设置", "Text5", "默认值")
      Text6 = 读取INI("Form设置", "Text6", "默认值")
      Text7 = 读取INI("Form设置", "Text7", "默认值")
      Text8 = 读取INI("Form设置", "Text8", "默认值")
      Text9 = 读取INI("Form设置", "Text9", "默认值")
      Text10 = 读取INI("Form设置", "Text10", "默认值")
      Text11 = 读取INI("Form设置", "Text11", "默认值")
      Text12 = 读取INI("Form设置", "Text12", "默认值")
      Text13 = 读取INI("Form设置", "Text13", "默认值")
      Text14 = 读取INI("Form设置", "Text14", "默认值")
      Text15 = 读取INI("Form设置", "Text15", "默认值")
      Text16 = 读取INI("Form设置", "Text16", "默认值")
      Text17 = 读取INI("Form设置", "Text17", "默认值")
      Text18 = 读取INI("Form设置", "Text18", "默认值")
      Text19 = 读取INI("Form设置", "Text19", "默认值")
      Text20 = 读取INI("Form设置", "Text20", "默认值")
      Text21 = 读取INI("Form设置", "Text21", "默认值")
      Text22 = 读取INI("Form设置", "Text22", "默认值")
      Text24 = 读取INI("Form设置", "Text24", "默认值")
      Text25 = 读取INI("Form设置", "Text25", "默认值")
      Text26 = 读取INI("Form设置", "Text26", "默认值")
      Text27 = 读取INI("Form设置", "Text27", "默认值")
      Text28 = 读取INI("Form设置", "Text28", "默认值")
      Text29 = 读取INI("Form设置", "Text29", "默认值")
      Text30 = 读取INI("Form设置", "Text30", "默认值")


我想把这个代码简化一下!

思路是列如:
a=Text(i) + 1
Call 写入INI("Form设置", "& a &", a.Text)
具体应该怎么书写啊,不然控件多了就一老大一串!麻烦各位了!!!



[ 本帖最后由 qiziyun 于 2013-2-4 06:07 编辑 ]

2013-02-04_05-59-04.jpg (63.07 KB)
图片附件: 游客没有浏览图片的权限,请 登录注册
搜索更多相关主题的帖子: 8000 color 
2013-01-31 21:38
lowxiong
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:27
帖 子:653
专家分:3402
注 册:2008-5-7
收藏
得分:2 
如果你规定好所有文本控件命名规则不变的话,可以用如下代码简化
Private Sub Command1_Click()
  Dim a As Control, i As Integer, n As String
  For i = 1 To 30
    n = "TEXT" & Trim(Str(i))
    For Each a In Me.Controls
      If UCase(a.Name) = n Then a=读取INI("Form设置", a.Name, a)
    Next
  Next
End Sub
Private Sub Command2_Click()
  Dim a As Control, i As Integer, n As String
  For i = 1 To 30
    n = "TEXT" & Trim(Str(i))
    For Each a In Me.Controls
      If UCase(a.Name) = n Then a=读取INI("Form设置", a.Name, "默认值")
    Next
  Next
End Sub

2013-01-31 23:22
yz1025
Rank: 8Rank: 8
等 级:蝙蝠侠
威 望:6
帖 子:491
专家分:919
注 册:2012-10-26
收藏
得分:0 
Control Array(index) 能缩更短
编程前先想好就能省很多心

不要投我
2013-02-01 08:54
yz1025
Rank: 8Rank: 8
等 级:蝙蝠侠
威 望:6
帖 子:491
专家分:919
注 册:2012-10-26
收藏
得分:1 
程序代码:
Option Explicit

Private Const Name1 = "Form设置"
Private Const Name2 = "默认值"

Private Sub Command1_Click()
Dim i As Integer

    For i = 0 To Text1.Count - 1
       Call 写入INI(Name1, "Text1" & i, Text1(i).Text)
    Next i
    
End Sub

Private Sub Command2_Click()
Dim i As Integer

    For i = 0 To Text1.Count - 1
       Text1(i) = 读取INI(Name1, "Text1" & i, Name2)
    Next i
    
End Sub


就算几百个控件~一样就这几行~

[ 本帖最后由 yz1025 于 2013-2-1 09:07 编辑 ]

不要投我
2013-02-01 09:03
qiziyun
Rank: 1
等 级:新手上路
帖 子:49
专家分:0
注 册:2013-1-14
收藏
得分:0 
回复 4楼 yz1025
提示未找到方法或数据成员,.Count提示是这个!但是这个好像要加val函数吧!但是好像有了Count不加val也行吧!我实验了一直出错!!!麻烦你看看咯是不是那里没写对!!
2013-02-02 04:40
qiziyun
Rank: 1
等 级:新手上路
帖 子:49
专家分:0
注 册:2013-1-14
收藏
得分:0 
回复 2楼 lowxiong
lowxiong    Control  怎么是改变这个呢!!没跟上你思路!我需要动态改变的!你这个一旦写入就改不了了!!
2013-02-02 04:49
bczgvip
Rank: 14Rank: 14Rank: 14Rank: 14
等 级:贵宾
威 望:66
帖 子:1310
专家分:5312
注 册:2009-2-26
收藏
得分:0 
点击 Text1 控件 按 Ctrl+C 复制,再粘贴。就能得到控件数组。
2013-02-02 06:05
lowxiong
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:27
帖 子:653
专家分:3402
注 册:2008-5-7
收藏
得分:0 
回复 6楼 qiziyun
我的程序是用来扫描窗体里控件的,发现是文本控件名称是“Text+编号”的,就调用你的子程序,你试着运行下就知道了,我的代码通过调试了的,能达到你的要求。3楼的是要你把所有的文本控件设置成控件数组,这样就非常方便简化代码了。
2013-02-02 07:05
qiziyun
Rank: 1
等 级:新手上路
帖 子:49
专家分:0
注 册:2013-1-14
收藏
得分:0 
回复 7楼 bczgvip
bczgvip 早啊!!你说的是要我在那里复制呢?主要是代码复制进去我直接就不能运行!具体应该怎么写啊麻烦你了
2013-02-02 08:09
qiziyun
Rank: 1
等 级:新手上路
帖 子:49
专家分:0
注 册:2013-1-14
收藏
得分:0 
我明白你意思了!是叫我在制作控件时候就复制然后就产生TEXE(1)2、3。。。。。这样控件是吗!这样的话我其他代码也要全改了!不能像前面你教我了一个写入注册表的方法
Private Sub Command1_Click()
    SaveSettingEx Text1, Text2, Text3, Text4, Text5, Text6
End Sub
这样来实现吗!注册表那个他麻烦了!
具体需要怎么写呢!

bczgvip就麻烦你啦
2013-02-02 08:23
快速回复:关于简化问题!!!各位帮忙看看!!!!!!!
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.077597 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved