英语翻译PrivateSubFormLoad()SetbjcsRecPri=NewADODB.RecordsetMe.Picture=MainFrm.XywyLst.ListImages.Item(1).PictureTitleLvw.Picture=MainFrm.XywyLst.ListImages.Item(1).PictureReturnImg.Picture=Me.ImageLst.ListImages.Item(1).Pic

Question

英语翻译
Private Sub Form_Load()
Set bjcs_Rec_Pri = New ADODB.Recordset
Me.Picture = Main_Frm.Xywy_Lst.ListImages.Item(1).Picture
Title_Lvw.Picture = Main_Frm.Xywy_Lst.ListImages.Item(1).Picture
Return_Img.Picture = Me.Image_Lst.ListImages.Item(1).Picture
bjcs_Rec_Pri.Open "SELECT * FROM care",Nf_Cnt_Pub,adOpenForwardOnly,adLockReadOnly,adCmdText
Title_Lvw.ColumnHeaders.Item(1).Text = "请点击以下相应标题"
If bjcs_Rec_Pri.RecordCount > 0 Then
For i = 1 To bjcs_Rec_Pri.RecordCount
Title_Lvw.ListItems.Add ,," "
Title_Lvw.ListItems.Add ,bjcs_Rec_Pri!Title,bjcs_Rec_Pri!Title
bjcs_Rec_Pri.MoveNext
Next i
Title_Lvw.ListItems.Item(2).Selected = True
End If
End Sub

Answer 1

Private Sub Form_Load()
Set bjcs_Rec_Pri = New ADODB.Recordset '引用记录集变量

Me.Picture = Main_Frm.Xywy_Lst.ListImages.Item(1).Picture ‘设置背景图片

Title_Lvw.Picture = Main_Frm.Xywy_Lst.ListImages.Item(1).Picture

Return_Img.Picture = Me.Image_Lst.ListImages.Item(1).Picture

bjcs_Rec_Pri.Open "SELECT * FROM care", Nf_Cnt_Pub, adOpenForwardOnly, adLockReadOnly, adCmdText ’打开记录
Title_Lvw.ColumnHeaders.Item(1).Text = "请点击以下相应标题"

If bjcs_Rec_Pri.RecordCount > 0 Then

For i = 1 To bjcs_Rec_Pri.RecordCount ‘为列表框付值

Title_Lvw.ListItems.Add , , " "

Title_Lvw.ListItems.Add , bjcs_Rec_Pri!Title, bjcs_Rec_Pri!Title
bjcs_Rec_Pri.MoveNext

Next i
Title_Lvw.ListItems.Item(2).Selected = True
End If