📄 9020.html

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

💻 HTML

字号:

<html>
  <head>
    <title>Re: combox 和 text</title>
  </head>
  <body bgcolor="#FFFFFF" vlink="#808080">
    <center>
      <h1>Re: combox 和 text</h1>
    </center>
<hr size=7 width=75%>

<hr size=7 width=75%><p>
Posted by <a href="mailto:harlem73@ms26.hinet.net">哈林</a> on January 10, 1999 at 16:41:35:<p>
In Reply to: <a href="9017.html">combox 和 text</a> posted by who on January 10, 1999 at 13:58:22:<p>
:Option Explicit<br>:Dim RText As String<br>:Dim RData As String<br>:<br>:Private Sub Combo1_Click()<br>:Select Case Combo1.ListIndex<br>:       Case 0<br>:            RData = "TestText1"<br>:       Case 1<br>:            RData = "TestText2"<br>:End Select<br>:RText = Combo1.ListIndex & "," & Combo1.Text & :"," & RData<br>:Text1.Text = RText<br>:End Sub<br>:<br>:Private Sub Form_Load()<br>:Combo1.AddItem "Item1"<br>:Combo1.AddItem "Item2"<br>:End Sub<br>
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 9020-->
</ul><!--end: 9020-->
<br><hr size=7 width=75%><p>

</body></html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -