用vb做一个学生信息录入程序，下面有个图。
就是在左边输入的信息在右边的列表框中显示，在日期那一栏得规定格式，如果格式不对用下面MsgBox"出生日期格式范例为：1985年01月01日",,"日期格式"，当你修改左...
就是在左边输入的信息在右边的列表框中显示，在日期那一栏得规定格式，如果格式不对用下面 MsgBox "出生日期格式范例为：1985年01月01日", , "日期格式" ，当你修改左边输入的信息时，在列表框中相应的改变你所修改的那一项信息。
展开
1个回答
展开全部
追问
那样不对啊！
你看我上面的要求～！！你把程序给我打出来吧，谢谢了～
追答
你把窗体画好,专业填好,基本信息里要怎样显示发我邮箱
clk186@163.com
我要你画好的空的工程文件啊亲,你终究不是要建立的么?有源码更好,全对不更是没事了么
从你的代码可以看出你完全可以搞定,好了,不说了
Private Sub Command1_Click()
Label5.Caption = Text1.Text & "基本信息:"
List1.Clear
List1.AddItem Text1.Text
List1.AddItem IIf(Option1.Value = True, "男", "女")
List1.AddItem Text2.Text
List1.AddItem Text3.Text
List1.AddItem Combo1.Text
If Check1.Value = 1 Then List1.AddItem "读书"
If Check2.Value = 1 Then List1.AddItem "游泳"
If Check3.Value = 1 Then List1.AddItem "篮球"
If Check4.Value = 1 Then List1.AddItem "绘画"
If Check5.Value = 1 Then List1.AddItem "舞蹈"
If Check6.Value = 1 Then List1.AddItem "音乐"
End Sub
Private Sub Text2_LostFocus()
If IsDate(Text2.Text) = False Then
MsgBox "出生日期格式范例为:1985年01月01日", , "日期格式"
Text2.SetFocus
End If
End Sub
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
