当前位置:首页 » VB程序题 » 正文

VB程序题:设计一个如图H.4所示的应用程序。龚沛曾 源码

VB程序题:设计一个如图H.4所示的应用程序。龚沛曾 源码

要求:
1. 单击“打开文件”按钮弹出一个通用对话框,选择文件后显示在文本框中
2. 单击“保存文件”按钮后弹出通用对话框,确定文件名后保存。
3. 单击“查找下一个”按钮后在文本文件中查找单词“VB”,找到后以高亮度显示。

图H.4:


解题,画4个按钮,1个文本框控件,再加上一个通用对话框控件,代码如下:
Private Sub Command1_Click()
    CommonDialog1.Action = 1
    Text1.Text = ""
    Open CommonDialog1.FileName For Input As #1
    Do While Not EOF(1)
        Line Input #1, inputdata
        Text1.Text = Text1.Text & inputdata & vbCrLf
    Loop
    Close #1
End Sub

Private Sub Command2_Click()
    CommonDialog1.FileName = "Default.Txt"
    CommonDialog1.DefaultExt = "Txt"
    CommonDialog1.Action = 2
    Open CommonDialog1.FileName For Output As #1
    Print #1, Text1.Text
    Close #1
End Sub

Private Sub Command3_Click()
    Static j%
    Text1.SetFocus
    j = InStr(j + 1, Text1, "VB")

    If j > 0 Then
        Text1.SelStart = j - 1
        Text1.SelLength = 2
        j = j + 1
    Else:
        MsgBox "找不到!"
    End If
End Sub

Private Sub Command4_Click()
    End
End Sub

来自 wb86.com
Visual Basic程序设计教程(第3版) (龚沛曾等编)课后实验源码

来源:济亨网

本文链接:http://wb86.com/post/109.html

    << 上一篇 下一篇 >>

    湘公网安备 43011102000514号 - 湘ICP备08100508号