减少代码冗余 机房 妖狐艹你老母 2022-05-09 05:33 213阅读 0赞 一:防止往下拉菜单输入: Private Sub comboRelation2_KeyPress(KeyAscii As Integer) '防止输入字符 KeyAscii = 0 'keyAscii=0?表示:取消本次输入的字符 End Sub 二:定义一个检查文本框是否为空的函数: 在模块中设函数: Public Function testtxt(txt As String) As Boolean '参数是txt,即文本框内容 If Trim(txt) = "" Then testtxt = False Else testtxt = True End If End Function 调用函数判断是不是为空(不仅仅限用文本框) If Not testtxt(Combouser.Text) Then MsgBox "请选择用户级别!", vbOKOnly + vbExclamation, "提示" Combouser.SetFocus Exit Sub End If 三:设置case1: Case1: With MSHFlexGrid1 .Rows = 1 .TextMatrix(0, 0) = "序列号" .TextMatrix(0, 1) = "教师" .TextMatrix(0, 2) = "级别" .TextMatrix(0, 3) = "注册日期" .TextMatrix(0, 4) = "注册时间" .TextMatrix(0, 5) = "注销日期" .TextMatrix(0, 6) = "注销时间" .TextMatrix(0, 7) = "机器名" .TextMatrix(0, 8) = "状态" End With 在同一个事件下面直接调用:GoTo Case1 四:限制特殊字符输入: 在模块中定义这个函数: Public Function IsNumber(KeyAscii As Integer) As Integer Select Case KeyAscii Case 48 To 57 '只能输入数字 Case 65 To 90 '只能输入大写字母 Case 97 To 122 '只能输入小写字母 Case 8 '只能输入退格 Case Else KeyAscii = 0 '无效 End Select End Function 在窗体中调用函数: Private Sub txtid_KeyPress(KeyAscii As Integer) Call IsNumber(KeyAscii) If Len(txtID) >= 3 Then txtID.Text = "" KeyAscii = 0 '输入字符清零 MsgBox "输入字符位数过长", vbOKCancel, "提示" End If End Sub 不能输入特殊字符,也不能超过三个数。 五:导出为Excel: 在模块中放置: Public Function EduceExcel(myGrid As MSFlexGrid) '定义导出Excel函数 Dim xlexc As New Excel.Application '声明Excel对象 Dim xlbook As Excel.Workbook '声明工作簿对象 Dim xlsheet As Excel.Worksheet '声明工作表单 Dim i As Integer Dim j As Integer If myGrid.Text = "" Then MsgBox "没有记录可导出", vbOKOnly + vbExclamation, "警告" Exit Function Else Set xlexc = CreateObject("excel.application") '调用Excel程序 Set xlbook = xlexc.Workbooks.Add(1) '创建新的空白簿 Set xlsheet = xlbook.Worksheets(1) '创建新的工作表单 For i = 0 To myGrid.Rows - 1 '填入数据 For j = 0 To myGrid.Cols - 1 xlsheet.Cells(i + 1, j + 1) = myGrid.TextMatrix(i, j) 'cell(a,b)表示a行,b列,这样写是因为vb中默认是从0开始的,而Excel是从1开始的 Next j Next i xlexc.Visible = True '显示Excel表格 Set xlexc = Nothing '交还控制给Excel End If End Function 在窗体上调用: Private Sub CmdDerive_Click() Call EduceExcel(MSFlexGrid1) End Sub
相关 如何避免Java代码冗余? 在Java编程中,避免代码冗余非常重要,这可以提高代码的可读性、可维护性和复用性。以下是一些避免代码冗余的方法: 1. 使用设计模式:设计模式如工厂模式、单例模式等可以帮助你 曾经终败给现在/ 2024年09月16日 06:03/ 0 赞/ 12 阅读
相关 代码优化挑战:减少Java代码冗余实例 在Java编程中,冗余代码通常意味着重复的工作或者逻辑。优化的目标是消除这些重复,提高代码的可读性和维护性。以下是一些减少Java代码冗余的例子: 1. **使用方法和变量* 小灰灰/ 2024年09月10日 09:24/ 0 赞/ 16 阅读
相关 C++ 编码优化 | 减少冗余拷贝或赋值 ![1a578cde9b6ef8a178b1a526cbf8d20a.gif][] 置顶/星标公众号????,硬核文章第一时间送达! 链接 | http://www.708 旧城等待,/ 2022年10月12日 01:56/ 0 赞/ 117 阅读
相关 C++编码优化之减少冗余拷贝或赋值 临时变量 目前遇到的一些产生临时变量的情况:函数实参、函数返回值、隐式类型转换、多余的拷贝。 1. 函数实参 这点应该比较容易理解,函数参数,如果是实参传递的话, 淩亂°似流年/ 2022年10月11日 13:57/ 0 赞/ 129 阅读
相关 冗余代码检查工具Simian [冗余代码检查工具Simian][Simian] 微软web2.0开发示例[Kobe][],重蹈了[Oxite][]的覆辙。[Ayende][]连续发表了五篇高质量的[K 小咪咪/ 2022年05月09日 21:06/ 0 赞/ 423 阅读
相关 减少代码冗余 机房 一:防止往下拉菜单输入: Private Sub comboRelation2_KeyPress(KeyAscii As Integer) '防止输入字符 妖狐艹你老母/ 2022年05月09日 05:33/ 0 赞/ 214 阅读
相关 dao层公共接口设计(抽取公共代码,减少代码冗余) ![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3UwMTEy 墨蓝/ 2022年03月09日 16:48/ 0 赞/ 216 阅读
相关 struts2公共action做法(抽取公共代码,减少代码冗余) ![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3UwMTEy 约定不等于承诺〃/ 2022年03月09日 15:54/ 0 赞/ 187 阅读
相关 机房收费系统之减少代码冗余(快速清空文本框、限制字符且清空) 机房收费系统中有很多都是重复的代码,代码冗余很严重,降低了代码利用率,也浪费自己的时间去敲重复的代码。所以我们为什么不想一个办法去解决这个问题呢。懒是发明的第一推动力。 一 浅浅的花香味﹌/ 2021年09月23日 19:00/ 0 赞/ 252 阅读
还没有评论,来说两句吧...