关闭

学生信息管理系统优化

标签: 学生优化
282人阅读 评论(5) 收藏 举报
分类:

1·vb中text输入时tab跳转到下一个text

设置text1的tabindex属性值为0,text2的tabindex属性值 为1即可

 

2·VB的程序窗口固定大小

更改窗体的BorderStyle属性为FixedSingle或Fixed Dialog或Fixed ToolWindow

也可以使用代码Me.BorderStyle = 1或 Me.BorderStyle = 3或 Me.BorderStyle = 4

一般使用FixedSingle,即 Me.BorderStyle = 1

 

3·vb编程里,如何实现点击窗体中一个文本框出现日历控件,然后可以选择相应的日期,填入文本框,日历控件消失?

首先在默认form1窗体上画一个文本框text1、再画一个日历控件MonthView1,排列好它们两个的位置即可,属性使用默认。然后复制以下代码到form1的代码窗口里运行即可看到结果(如图):

<span style="font-size:18px;">PrivateSub Form_Load()
    MonthView1.Visible = False
EndSub
PrivateSub Text1_Click()
    MonthView1.Visible = True
EndSub
PrivateSub MonthView1_DateClick(ByVal DateClicked As Date)
    Text1.Text = MonthView1.Year &"-" & MonthView1.Month & "-" & MonthView1.Day
    MonthView1.Visible = False
EndSub</span>


4·combox控件只允许选择下拉列表框中的内容

combox这是选择框,不应该还能往里边输入文本,这里的style属性有3个,应该设为style=2(Dropdwon List)下拉列表组合框,不接受文本输入;style=0 (Dropdown Combo)可以下文本框内输入 ;style=1(Simple Combo)列表项目始终显示在列表框中。


5·学号只能由数字组成

<span style="font-size:18px;">Private SubtxtSID_KeyPress(KeyAscii As Integer)
'学号只能输入数字
    If (KeyAscii < 48 and KeyAscii >= 9Or KeyAscii > 57 or KeyAscii<8) Then
        MsgBox "学号只能由数字组成!", vbOKOnly+ vbExclamation, "警告"
        KeyAscii = 0
    End If
End Sub</span>


6·在程序删除最后一条数据是产生实时错误3021,关于BOF EOF


关于问题的解决推荐子腾的解决方法:http://blog.csdn.net/liuziteng0228/article/details/51407558


7·在学生学号或电话号码中输入较长的数会产生错误


关于这个问题腾儿的博客也有详细的问题说明和解决方法:http://blog.csdn.net/liuziteng0228/article/details/51476798




0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:730次
    • 积分:40
    • 等级:
    • 排名:千里之外
    • 原创:2篇
    • 转载:0篇
    • 译文:0篇
    • 评论:10条
    文章分类
    文章存档
    最新评论