vb教程编程实例详解pdf_vb程序设计教程答案第四版实验

vb教程编程实例详解pdf_vb程序设计教程答案第四版实验实验8-3VB程序题:设计一个如图2.8.4所示的应用程序,要求如下:(1.)单击“打开文件”按钮弹出一个通用对话框,选择文件后显示在文本框中(2).单击“保存文件”按钮后弹出通用对话框,确定文件名后保存。(3)单击“查找下一个”按钮后在文本文件中查找单词“VB”,找到后以高亮度显示。解题,画4个按钮,1个文本框控件,再加上一个通用对话框控件,代码如下:PrivateSub…

大家好,又见面了,我是你们的朋友全栈君。如果您正在找激活码,请点击查看最新教程,关注关注公众号 “全栈程序员社区” 获取激活教程,可能之前旧版本教程已经失效.最新Idea2022.1教程亲测有效,一键激活。

Jetbrains全系列IDE稳定放心使用

实验8-3

VB程序题:设计一个如图2.8.4所示的应用程序,要求如下:
(1.)单击“打开文件”按钮弹出一个通用对话框,选择文件后显示在文本框中
(2).单击“保存文件”按钮后弹出通用对话框,确定文件名后保存。
(3) 单击“查找下一个”按钮后在文本文件中查找单词“VB”,找到后以高亮度显示。

解题,画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

版权声明:本文内容由互联网用户自发贡献,该文观点仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 举报,一经查实,本站将立刻删除。

发布者:全栈程序员-用户IM,转载请注明出处:https://javaforall.cn/184985.html原文链接:https://javaforall.cn

【正版授权,激活自己账号】: Jetbrains全家桶Ide使用,1年售后保障,每天仅需1毛

【官方授权 正版激活】: 官方授权 正版激活 支持Jetbrains家族下所有IDE 使用个人JB账号...

(0)


相关推荐

  • 虚拟机开启就会蓝屏的解决方法是_虚拟机无限蓝屏

    虚拟机开启就会蓝屏的解决方法是_虚拟机无限蓝屏VMware与win10(专业版)不兼容的问题前两天系统出了点问题,然后重置了系统,结果今天装VMware的时候发现一开虚拟机就蓝屏了。一、首先打开控制面板,找到启动或关闭Windows功能二、打开win+R,输入gpedit.msc三、打开控制面板>程序>查看已安装的更新,卸载最近的更新。总结前两天系统出了点问题,然后重置了系统,结果今天装VMware的时候发现一开虚拟机就蓝屏了。找了好些方法,重启了十几次电脑,后面才弄好提示:以下是本篇文章正文内容,下面案例可供参考一、首先打开控制

  • win10电脑设置提醒任务_win10添加计划任务

    win10电脑设置提醒任务_win10添加计划任务博主公司周报漏交一次要缴纳50RMB部门经费,另外博主每天上午下午都需要活动10分钟(好像放风。。),防止职业病+让自己的工作状态更好。步骤:1、打开Win10控制面板—>点选管理工

  • JAVA对象、数组转JSON[通俗易懂]

    JAVA对象、数组转JSON[通俗易懂]1.需要库:commons-beanutils-1.7.0.jarcommons-collections-3.1.jarcommons-lang-2.1.jarcommons-logging-1.1.3.jarezmorph-1.0.2.jarjson-lib-2.4-jdk15.jar2.转换方法:  //对象转json sqlModelmodel…

  • springboot实现拦截器_Spring拦截器

    springboot实现拦截器_Spring拦截器集成拦截器登录验证为例添加拦截器public class LoginInterceptor implements HandlerInterceptor { private Logger log = LoggerFactory.getLogger(getClass()); //Controller逻辑执行之前 @Override public boolean preHandle(HttpServletRequest request, HttpServletRe

  • vs2012创建WCF应用程序

    vs2012创建WCF应用程序vs2012创建WCF应用程序

  • 如何理解掩码、反掩码、通配符「建议收藏」

    如何理解掩码、反掩码、通配符「建议收藏」反掩码、掩码和通配符的区别一、掩码在掩码中,1表示精确匹配,0表示随机1和0,永远不交叉;1永远在左边,0永远在右边;在配置IP地址以及路由的时候,会使用掩码;二、反掩码在反掩码中,1表示随机,0表示精确匹配0和1,永远不交叉;0永远在左边,1永远在右边;在路由协议的配置中,通过network命令进行网段宣告时,会使用三、通配符在统配符中,1表示随机,0表示精确匹配0和1的位置,没有任何的固定限制可以连续,可以交叉在ACL中,使用的通配符通配符掩码表CIDR子网掩码反掩

发表回复

您的电子邮箱地址不会被公开。

关注全栈程序员社区公众号