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 + -
显示快捷键?