# vb问题,救救我吧

Posted by coco on January 18, 1999 at 17:08:31:

hi~
程式中有个listbox的清单,点选前面的Checkbox
就把其值带到另一个表单的testbox....
这样子让如何做啊???

程式如下:
frmnew表单
Sub cmdAddr_Click()
frmAddr.Show
Dim idx As Integer
Dim myrecord As employeerecord

idx = 0
i = 1
rfp = FreeFile

Open "c:\aa.txt" For Random As rfp Len = LenB(myrecord)

Do While Not EOF(rfp)
Get #rfp, i, myrecord
If Trim$(StrConv(myrecord.txt, vbUnicode)) <> "" Then
frmAddr.Addr.AddItem StrConv(myrecord.txt, vbUnicode), idx
End If
i = i + 1
Loop
End Sub
====================================================================
frmAddr表单

Private Sub cmdOK_Click()
frmnew.Text1.Text = addr.text
^^^^^^^^^^^^^^^^^^^^^^^^^^^这边该如何写才能把所点选的项目传到frmnew.text1

Unload Me
End Sub

谢谢

Follow Ups:

- Re: vb问题,救救我吧 尧仔 21:03:19 1/18/99 (0)