17023.html
来自「以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题」· HTML 代码 · 共 26 行
HTML
26 行
<html> <head> <title>File1.Pattern.Value = Combo1.Text ?????????</title> </head> <body bgcolor="#FFFFFF" vlink="#808080"> <center> <h1>File1.Pattern.Value = Combo1.Text ?????????</h1> </center><hr size=7 width=75%><hr size=7 width=75%><p>Posted by <a href="mailto:f1222205@ms31.hinet.net">初学者</a> 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<br><br><br><hr size=7 width=75%><p><a name="followups">Follow Ups:</a><br><ul><!--insert: 17023--><!--top: 17077--><li><a href="17077.html">Re: File1.Pattern.Value = Combo1.Text ?????????</a> <b>小琳</b> <i>22:28:09 8/11/99</i>(<!--responses: 17077-->0)<ul><!--insert: 17077--></ul><!--end: 17077--></ul><!--end: 17023--><br><hr size=7 width=75%><p></body></html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?