恺撒2012798 恺撒2012798
每个人都是生活的导演,做好自己,同时尊重别人做自己。
关注数: 37 粉丝数: 18 发帖数: 1,082 关注贴吧数: 25
各位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
1 下一页