17077.html

来自「VB技巧问答10000例,是一个教程」· HTML 代码 · 共 23 行

HTML
23
字号
<html>  <head>    <title>Re: File1.Pattern.Value = Combo1.Text ?????????</title>  </head>  <body bgcolor="#FFFFFF" vlink="#808080">    <center>      <h1>Re: File1.Pattern.Value = Combo1.Text ?????????</h1>    </center><hr size=7 width=75%><hr size=7 width=75%><p>Posted by <a href="mailto:luo570@ms31.hinet.net">小琳</a> on August 11, 1999 at 22:28:09:<p>In Reply to: <a href="17023.html">File1.Pattern.Value = Combo1.Text ?????????</a> posted by 初学者 on August 10, 1999 at 21:07:36:<p>: 请问大家:  要怎样才能把File1(FileListBox)的pattern的值设为Combo1(ComboBox)里的值。以下为部分程式码:(但不太正确)<br>: Private Sub Combo1_Change()<br>:     File1.Pattern.Value = Combo1.Text<br>: End Sub<br>: Private Sub Form_Load()<br>:     fil_pat(0) = "*.*"<br>:     fil_pat(1) = "*.bmp"<br>:     fil_pat(2) = "*.bmp;*.ico"<br>:     fil_pat(3) = "*.bmp;*.ico;*.jpg;*.tif"<br>:     fil_pat(4) = "*.vbp;*.frm"<br>:     For i = 0 To 4<br>:         Combo1.AddItem fil_pat(i)<br>:     Next i<br>:     <br>: End Sub<p>:::Pattern己经是属性,没有所谓的Pattern.Value的东西!!!<br><br><hr size=7 width=75%><p><a name="followups">Follow Ups:</a><br><ul><!--insert: 17077--></ul><!--end: 17077--><br><hr size=7 width=75%><p></body></html>

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?