📄 9329.html

📁 VB技巧问答10000例 VB技巧问答10000例

💻 HTML

字号:

<html>
  <head>
    <title>vb问题,救救我吧</title>
  </head>
  <body bgcolor="#FFFFFF" vlink="#808080">
    <center>
      <h1>vb问题,救救我吧</h1>
    </center>
<hr size=7 width=75%>

<hr size=7 width=75%><p>
Posted by <a href="mailto:fei@ms12.url.com.tw">coco</a> on January 18, 1999 at 17:08:31:<p>
hi~<br>程式中有个listbox的清单,点选前面的Checkbox<br>就把其值带到另一个表单的testbox....<br>这样子让如何做啊???<p>程式如下:<br>frmnew表单<br>Sub cmdAddr_Click()<br>   frmAddr.Show<br>  Dim idx As Integer<br>  Dim myrecord As employeerecord<p>idx = 0<br>i = 1<br>rfp = FreeFile<p>    Open "c:\aa.txt" For Random As rfp Len = LenB(myrecord)<p>     Do While Not EOF(rfp)<br>     Get #rfp, i, myrecord<br>             If Trim$(StrConv(myrecord.txt, vbUnicode)) <> "" Then<br>                frmAddr.Addr.AddItem StrConv(myrecord.txt, vbUnicode), idx<br>             End If<br>        i = i + 1<br>    Loop<br>End Sub<br>====================================================================<br>frmAddr表单<p>Private Sub cmdOK_Click()<br>   frmnew.Text1.Text = addr.text<br>   ^^^^^^^^^^^^^^^^^^^^^^^^^^^这边该如何写才能把所点选的项目传到frmnew.text1<p>   Unload Me<br>End Sub<p><br>谢谢<br>
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 9329-->
<!--top: 9339--><li><a href="9339.html">Re: vb问题,救救我吧</a> <b>尧仔</b> <i>21:03:19 1/18/99</i>
(<!--responses: 9339-->0)
<ul><!--insert: 9339-->
</ul><!--end: 9339-->
</ul><!--end: 9329-->
<br><hr size=7 width=75%><p>

</body></html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -