恺撒2012798的个人资料

各位VB吧里的大神，小弟初来本吧，有一个程序跪求大神指导 Option Explicit Public mode As Integer Dim photo As Boolean Private Sub cmdEdit_Click() Dim i As Integer '如果是新城市，则添加到列表中 For i = 0 To comCity.ListCount - 1 If Trim(comCity.List(i)) = Trim(comCity.Text) Then Exit For Next If i > comCity.ListCount - 1 Then comCity.AddItem comCity.Text frmMain.comCity.AddItem comCity.Text ReDim Preserve Cities(UBound(Cities) + 1) Cities(UBound(Cities)) = comCity.Text End If '如果是新职称，则添加到列表中 For i = 0 To comTitle.ListCount - 1 If Trim(comTitle.List(i)) = Trim(comTitle.Text) Then Exit For Next If i > comTitle.ListCount - 1 Then comTitle.AddItem comTitle.Text frmMain.comTitle.AddItem comTitle.Text ReDim Preserve Titles(UBound(Titles) + 1) Titles(UBound(Titles)) = comTitle.Text End If Select Case mode Case 1 '添加 RecNum = RecNum + 1 ReDim Preserve Addrs(RecNum) With Addrs(RecNum) .Name = txtName .Sex = optMale .Birthday = DateValue(txtbirthday.Text) .City = comCity.Text .Company = txtCompany .Tencent = txtTencent .Xuehao = txtXuehao .PostalCode = txtPostalCode .Email = txtEmail .Mobile = txtMobile .Address = txtAddress .Title = comTitle .photo = photo End With Addrs(i).Modified = True If Trim(comCity.Text) = Trim(frmMain.comCity) Or Trim(frmMain.comCity) = "全部" Then If frmMain.comSex.Text = "全部" Or Addrs(RecNum).Sex And frmMain.comSex.Text = "男" Or Not Addrs(RecNum).Sex And frmMain.comSex.Text = "女" Then frmMain.lstName.AddItem txtName frmMain.lstName.ItemData(frmMain.lstName.NewIndex) = RecNum End If End If Case 2 i = frmMain.lstName.ItemData(frmMain.lstName.ListIndex) '当前记录号 With Addrs(i) .Name = txtName .Sex = optMale .City = comCity.Text .Company = txtCompany .Tencent = txtTencent .Xuehao = txtXuehao .PostalCode = txtPostalCode .Email = txtEmail .Mobile = txtMobile .Address = txtAddress .Title = comTitle .photo = photo End With frmMain.lstName.List(frmMain.lstName.ListIndex) = Addrs(i).Name Addrs(i).Modified = True Unload Me End Select End Sub Private Sub cmdClose_Click() Unload Me End Sub Private Sub cmdPhoto_Click() CD.DialogTitle = "指定照片文件" CD.FileName = "" CD.ShowOpen If CD.FileName = "" Then Exit Sub FileCopy CD.FileName, App.Path & "\photos\" & Trim(txtName) & ".jpg" imgPhoto.Picture = LoadPicture(App.Path & "\photos\" & Trim(txtName) & ".jpg") photo = True End Sub Private Sub cmdPhotoDel_Click() If Not photo Then Exit Sub photo = False imgPhoto.Picture = LoadPicture() Kill App.Path & "\photos\" & Trim(txtName) & ".jpg" End Sub Private Sub Form_Load() Dim i As Integer Select Case mode Case 1 '添加 Caption = "添加新记录" photo = False Case 2 '修改 i = frmMain.lstName.ItemData(frmMain.lstName.ListIndex) txtName.Enabled = False With Addrs(i) txtName = .Name If .Sex Then optMale = True Else optFemale = True txtbirthday = .Birthday comCity.Text = .City txtCompany = .Company txtTencent = .Tencent txtXuehao = .Xuehao txtPostalCode = .PostalCode txtEmail = .Email txtMobile = .Mobile txtAddress = .Address comTitle = .Title photo = .photo If .photo = True Then imgPhoto.Picture = LoadPicture(App.Path & "\photos\" & Trim(Addrs(i).Name) & ".jpg") End If End With Caption = "修改当前记录" cmdEdit.Caption = "确定" cmdClose.Caption = "取消" End Select For i = 1 To UBound(Cities) comCity.AddItem Cities(i) Next For i = 1 To UBound(Titles) comTitle.AddItem Titles(i) Next End Sub

发个帖，无聊打发时间 ——来自华为荣耀旗舰版，卓然天成，为发烧而生！

问一个问题 ————来自华为荣耀16核版，时间锁住的记忆，只有时间能打开！

一个关于磁贴的问题一楼度娘 ————来自华为荣耀16核版，时间锁住的记忆，只有时间能打开！

关于磁贴的问题！！！本人小白一个，规矩有点懂，有个问题想问大家一下，开始菜单里，我的磁贴只有三行，怎么可以增加行数了？

有人统计吧里多少人登上神船了吗？我已登上神船，，很多人说它的质量不怎么样！我不认可！很多人它的外观不怎么样，诚然，但我想很多人都是支持神船的！这里面有你吗？

跪求，小白一枚，跪求高人指导神舟超级本他们都说上图不会沉，所以果断上图，跪求高人指导神船UI47 和UI45中的超级本，以及评价！

小白路过，求大神推荐华硕超级本对游戏要求不高，外观要好一点，主要是用于办公学习，日常娱乐活动(电影，音乐)价位在5000左右，有吗？