VB程序题

1、KeyPress

2、KeyAscii >=48 AND KeyAscii <=57

3、Text2.Text &Chr(KeyAscii)

以上是在Text2上将每次符合条件的字符都依次连接起来显示。如果是每次要在Text2上只显示一个字符，则将第3空改为：

Chr(KeyAscii)

通过使用CommonDialog 控件的Filter 属性来过滤。

可以设置它的Filter 属性，这样对话就只显示某种文件类型，如文本文件。

Filter 属性（公共对话框），返回或设置在对话框的类型列表框中所显示的过滤器。

CommonDialog

控件（“打开”、“另存为”对话框）示例

下例显示“打开”对话框只能选文本文件，然后在信息框中显示所选文本文件的文件名：

Private Sub Command1_Click()

    ' 设置“CancelError”为 True

    CommonDialog1.CancelError = True

    On Error GoTo ErrHandler

    ' 设置标志

    CommonDialog1.Flags = cdlOFNHideReadOnly

    ' 设置过滤器

'    CommonDialog1.Filter = "All Files (*.*)|*.*|Text Files" & _

'    "(*.txt)|*.txt|Batch Files (*.bat)|*.bat"

    CommonDialog1.Filter = "Text Files" & "(*.txt)|*.txt|" '本行代码设置只显示文本文件的过滤器

    ' 指定缺省的过滤器

    CommonDialog1.FilterIndex = 2

    ' 显示“打开”对话框

    CommonDialog1.ShowOpen

    ' 显示选定文件的名字

    MsgBox CommonDialog1.FileName

    Exit Sub

ErrHandler:

    ' 用户按了“取消”按钮

    Exit Sub

End Sub

Filter 属性（公共对话框），返回或设置在对话框的类型列表框中所显示的过滤器。

说明

过滤器指定在对话框的文件列表框中显示的文件的类型。例如，选择过滤器为 *.txt，就显示所有的文本文件。

使用该属性可当对话框显示时提供一个过滤器列表，用它可以进行选择。

使用管道 ( | ) 符号 (ASCII 124) 将 fifter 与 description 的值隔开。管道符号的前后都不要加空格，因为这些空格会被与 fifter 与 description

的值一起显示。

下列代码给出一个过滤器的例子，该过滤器允许选择文本文件或含有位图和图标的图形文件：

Text (*.txt)|*.txt|Pictures (*.bmp*.ico)|*.bmp*.ico

CommonDialog

控件（“打开”、“另存为”对话框）示例

Private Sub Command1_Click()

    ' 设置“CancelError”为 True

    CommonDialog1.CancelError = True

    On Error GoTo ErrHandler

    ' 设置标志

    CommonDialog1.Flags = cdlOFNHideReadOnly

    ' 设置过滤器

    CommonDialog1.Filter = "All Files (*.*)|*.*|Text Files" & _

    "(*.txt)|*.txt|Batch Files (*.bat)|*.bat"

    ' 指定缺省的过滤器

    CommonDialog1.FilterIndex = 2

    ' 显示“打开”对话框

    CommonDialog1.ShowOpen

    ' 显示选定文件的名字

    MsgBox CommonDialog1.FileName

    Exit Sub

ErrHandler:

    ' 用户按了“取消”按钮

    Exit Sub

End Sub

---