注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

好好工作

要记得学习期间一定要谦卑才能学到真本事

 
 
 

日志

 
 

《机房收费系统》二:那根本就不是picturebox;批量清空文本框模块调用法(参数的使用)  

2014-08-22 11:12:08|  分类: 机房收费系统 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

非常感谢刘晓春的帮助,我自己奋斗了两三天无果,

两个问题:

问题一:主窗体上不是picturebox框,而是如假包换的form窗体,想达到这种效果:

 

《机房收费系统》二:那根本就不是picturebox;批量清空文本框模块调用法(参数的使用) - 韩林 - 韩林 廊坊师范学院信息技术提高班十一期

 

操作如下(实验工程):

1.添加两个窗体和一个MDI窗体,并把两个窗体的MDIChild属性改为true

 

《机房收费系统》二:那根本就不是picturebox;批量清空文本框模块调用法(参数的使用) - 韩林 - 韩林 廊坊师范学院信息技术提高班十一期

 

2.将form1改为无边框窗体(这是我们将要看到的主界面),并添加一个命令按钮command1,用于显示form2,在mdiform1上我还添加了个菜单,也可点击显示form2

(《机房收费系统》中就是在这个form1上画控件)

 

《机房收费系统》二:那根本就不是picturebox;批量清空文本框模块调用法(参数的使用) - 韩林 - 韩林 廊坊师范学院信息技术提高班十一期

 

3.将form1的backcolor复制粘贴到mdiform1的backcolor处,实现背景颜色一致,然后调整form1的大小,使其和mdiform1的大小差不多,要比mdiform1小点儿,这样才可以在下方出现子窗体

【《机房收费系统》软件,将最小化后的窗体拖的靠上点儿,一点击靠上点儿的区域(这个区域就是form1的窗体大小),它(那个小条儿)就飞了,消失不见了,应该是掉到form1窗体下面去了,隐藏了…这个是当做主界面的窗体form1设置太小的缘故…】

 

《机房收费系统》二:那根本就不是picturebox;批量清空文本框模块调用法(参数的使用) - 韩林 - 韩林 廊坊师范学院信息技术提高班十一期

 

 

4.写代码,启动窗体为mdiform1,在它的form_load里面写form1.show,form1的command1的click事件里写form2.show

 

5.保存运行,点击窗口控制按钮,尽情享受…

 

《机房收费系统》二:那根本就不是picturebox;批量清空文本框模块调用法(参数的使用) - 韩林 - 韩林 廊坊师范学院信息技术提高班十一期

 

form2最大化后:

 

《机房收费系统》二:那根本就不是picturebox;批量清空文本框模块调用法(参数的使用) - 韩林 - 韩林 廊坊师范学院信息技术提高班十一期

 

 

问题二:调用模块里的一段代码,批量清空文本框内容

 

1.模块中写,一定注意把参数加上

 

Public Function da(frm)
    Dim ctrl As Control
        For Each ctrl In frm.Controls
            If TypeOf ctrl Is TextBox Then   '是否为文本框TextBox
                ctrl.Text = ""
            End If
            If TypeOf ctrl Is ComboBox Then
                ctrl.Text = ""
            End If
        Next
End Function

 

2.窗体中写

 

Call da(Me)

 

代码很简单,应该都懂。

 

实现这个功能我遇到的问题:

 

1.function定义函数,sub定义过程,两个都行

2.形参一直不知道怎么写,因为其他窗体得调用,实参好确定,是me或者窗体名称,然后赋给形参,多方尝试,此法可行,如有它法,望告知。

3.参数的使用

对于这句,Public Function da(frm)

API函数经常会见到括号里带一堆儿参数,自己当时没想到在这儿写,现在懂了

4.当然因为需要批量清空的窗体很多,所以这种方法也得不断ctrl v,不过,我感觉还是有些提高吧

 


友情链接
  评论这张
 
阅读(155)| 评论(55)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017