精华内容
下载资源
问答
  • [VB.NET]提示信息

    2008-12-04 20:51:00
    提示信息 实例说明在本实例中,我们将介绍使用如何使用ToolTip控件来显示提示信息。程序运行后,可以设置显示提示信息的时间以及是否显示提示信息。程序运行结果如图71-1所示。图71-1 运行结果<!--google_ad_client ...
    提示信息 
    

    实例说明

    在本实例中,我们将介绍使用如何使用ToolTip控件来显示提示信息。程序运行后,可以设置显示提示信息的时间以及是否显示提示信息。程序运行结果如图71-1所示。

    图71-1 运行结果

    <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>

    技术要点

    l ToolTip控件

    l 显示/隐藏提示信息

    l 显示提示信息的时间

    实现过程

    ■ 新建项目

    打开Visual Studio.NET,选择"新建项目",在项目类型窗口中选择"Visual Basic项目",在模板窗口中选择"Windows应用程序",在名称域中输入"ToolTipExam",然后选择保存路径。单击"确认"。

    ■ 添加控件

    向窗体上添加一个Label控件,用于测试提示信息。添加一个GroupBox控件,在GroupBox控件上放置两个CheckBox控件,然后再添加三个Label控件和三个TextBox控件,用于设置提示时间。最后添加两个Button控件。

    ■ 设置属性

    对窗体上的控件设置属性,在本实例中,我们只需要将所有控件的Text属性改为和界面一致。

    ■ 添加代码

    '是否显示提示信息

    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged

    ToolTip1.Active = CheckBox1.Checked

    End Sub

    '是否显示提示信息,当窗体没有获得焦点时

    Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged

    ToolTip1.ShowAlways = CheckBox1.Checked

    End Sub

    '提示信息延迟时间

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

    ToolTip1.AutomaticDelay = Val(TextBox1.Text) * 1000

    End Sub

    '提示信息弹出时间

    Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged

    ToolTip1.AutoPopDelay = Val(TextBox2.Text) * 1000

    End Sub

    '提示信息刷新时间

    Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged

    ToolTip1.ReshowDelay = Val(TextBox3.Text) * 1000

    End Sub

    ■ 运行程序

    单击菜单"调试|启动"或单击 图标运行程序。

    小结

    我们在本实例中主要讲解了ToolTip控件的使用方法。ToolTip控件几乎在我们的每个程序中都要使用。相信大家一定会掌握好这个控件的。

    展开全文
  • 平时我们使用充值卡进行话费充值的时候,要么通过电脑端输入手机号码和充值卡密码进行充值,要么就是用手机按提示逐一输入相关信息进行充值,这些手段都比较慢。我今天临时充值的时候才发现利用电信营业厅 APP 进行...

    平时我们使用充值卡进行话费充值的时候,要么通过电脑端输入手机号码和充值卡密码进行充值,要么就是用手机按提示逐一输入相关信息进行充值,这些手段都比较慢。我今天临时充值的时候才发现利用电信营业厅 APP 进行充值竟然可以智能读取充值卡密码,无需人工输入,这个充值效率高很多。

    第一步,肯定是要刮开充值卡密码区上面的涂层,让密码清楚显示出来。

    第二步,打开电信营业厅 APP >> 在首页点击“话费充值”>> 在充值页面点击下方特色服务中的“充值卡充话费”>> 将扫描线对准充值卡的密码并对其左右边缘 >> 成功读取密码之后核对读取的密码是否正确(PS:偶尔会出现某个数字错误,所以建议核对)>> 读取的密码确认无误后点击【立即充值】按钮即可成功充值。具体见下图:

    d8d99022-5417-eb11-8da9-e4434bdf6706.png

    第二步看文字好像很多,其实操作起来很简单,只要你提前刮开充值卡密码区的涂层,然后用这个智能 AI 扫描读取密码,充值的效率比起传统的充值方式快很多。如果你也习惯用充值卡充值话费的话,不妨试试。至于移动和联通 APP 是否有这个功能我倒是没注意,目前主要还是用电信卡。

    原文:https://www.yigujin.cn/2009.html

    展开全文
  • VB自定义窗口的状态栏,一个使用StatusBar的例子,使状态栏显示时间,字体和相关的操作提示信息,主要是使用VB StatusBar实现,学习一下如何对其进行设置等。下面的参数设置对应实现状态栏显示的功能:  名称-----...
  • 如何使用VB做出水印字体

    热门讨论 2018-12-19 17:42:18
    水印字体,我们随处...在VB中实现水印字体,首先要弄明白水印字体的关键,在text文本框为空时,提示输入信息,当获得焦点或文本框有内容时,提示信息消失,并能显示输入信息,这就是水印字体的原理所在了。 接下...

    水印字体,我们随处可见,比如说QQ登录界面
    在这里插入图片描述
    水印字体的作用就是美观,简洁,一个text文本框既能输入文本,又能提示信息。那么,如何在VB中实现这个功能呢?就拿我们都有接触的机房来说,怎样实现这个功能,优化登录界面?
    在VB中实现水印字体,首先要弄明白水印字体的关键,在text文本框为空时,提示输入信息,当获得焦点或文本框有内容时,提示信息消失,并能显示输入信息,这就是水印字体的原理所在了。
    接下来就是要思考在VB中实现水印字体的功能一共涉及到几个事件呢?经过考虑,实现水印字体一共涉及到两个事件,一个是获得焦点事件,另一个是失去焦点事件。当用户名框获得焦点时,清空文本框提示信息,显示用户输入的信息,当点击密码文本框时,用户名文本框输入的信息不能被清空。
    效果如下图
    在这里插入图片描述
    当输入用户名“11”后,原用户名提示信息消失
    在这里插入图片描述
    当输入密码后,用户名依旧在,密码提示信息消失,密码输入不可见
    水印字体的整体效果图如下,以机房登录界面为例
    在这里插入图片描述
    水印字体代码展示

    用户名获得焦点事件
    Private Sub txtUserID_GotFocus()
        If (txtUserID.Text = "请输入用户名") Then
            txtUserID.Text = ""
            txtUserID.ForeColor = QBColor(0)
            txtUserID.FontItalic = False
            txtUserID.FontSize = 16
    
        End If
    End Sub
    用户名失去焦点事件
    Private Sub txtUserID_LostFocus()
        If txtUserID.Text = "" Then
            txtUserID.Text = "请输入用户名"
            txtUserID.ForeColor = QBColor(8)
            txtUserID.FontItalic = True
            txtUserID.Font = "隶书"
            txtUserID.FontSize = 16
        End If
    
    End Sub
    ‘密码获得焦点事件
    Private Sub txtPWD_GotFocus()
        If (txtPWD.Text = "请输入登录密码" Or txtPWD.Text = "") Then    '获取焦点时
            txtPWD.Text = ""            '清空txt框
            txtPWD.PasswordChar = "*"   '输入的文本被隐藏
            txtPWD.ForeColor = QBColor(0)
            txtPWD.FontItalic = False
            txtPWD.FontSize = 16
        End If
    End Sub
    密码失去焦点事件
    Private Sub txtPWD_LostFocus()
        If txtPWD.Text = "" Then
            txtPWD.Text = "请输入登录密码"
            txtPWD.PasswordChar = ""
            txtPWD.ForeColor = QBColor(8)
            txtPWD.FontItalic = True
            txtPWD.Font = "隶书"
            txtPWD.FontSize = 16
        End If
    End Sub
    

    不要以为到这就结束了,就能实现水印字体功能了,在form窗体上也是有代码的,用来显示运行窗体时的效果展示

      txtUserID.Text = "请输入用户名"
         txtUserID.ForeColor = QBColor(8)
         txtUserID.FontItalic = True
         txtUserID.Font = "隶书"
         txtUserID.FontSize = 18
         
         txtPWD.Text = "请输入登录密码"
         txtPWD.ForeColor = QBColor(8)
         txtPWD.FontItalic = True
         txtPWD.Font = "隶书"
         txtPWD.FontSize = 18
    

    此时虽然已经实现了水印字体的功能,但并不完美,因为可能打开登录界面输入用户名框直接获得焦点,就像这样
    在这里插入图片描述
    原因是VB获得焦点的顺序是根据索引值的大小来排序的,哪个控件的索引值最小,运行程序时最先获得焦点
    把命令按钮的索引值设为0即可
    在这里插入图片描述
    我已经分享完了,你学会了吗?欢迎大家评论区留言!

    展开全文
  • Set rs = gConn.Execute("select *,'第 '+...如果用gConn.Execute "update acievement SET 排名 = '" & Trim(rs("rownum")) & "'"他就会把"第一名"这个信息赋给所有的名次(名次属性列全部显示的是第一名) 求大佬解答
  • VB课程设计俄罗斯方块

    热门讨论 2011-02-25 10:46:55
    随着21世纪信息社会的到来,计算机在人们的工作和生活中的深入,要求我们越来越多地与计算机打交道,为了使用户在繁忙的日程工作中得到放松,于是出现了各种各样的休闲软件,如聊天工具,游戏等等。于是我们小组着手设计...
  • VB编程资源大全

    2007-10-17 20:47:23
    hlitactx.zip 加亮鼠标所在的区域(4KB) 82,appbar4.zip 模拟Windows 95/98的任务条(3KB) 83,bkwait.zip 延时程序(1KB) 84,keyboard5.zip 显示键盘信息(7KB) 85,listsrch.zip 在列表...
  • VB.net 演示主线程异常捕获错误的方法,如何捕获错误的例子,采用异常委托处理程序,使用MyException.Exception.Source和MyException.Exception.Message获取错误信息代码和具体的消息,将程序运行时发生的错误消息,...
  • 如果你不嫌麻烦,不用花6分下载本工程,直接按照我的提示,花时间学习一下如何使用GlobalMemoryStatusEx方法以及PerformanceCounter,也是可以获得内存信息的,网上多的是,我也是试了一下午研究明白的!结论和网上...
  • 1:无法显示连接状态和错误信息 2:只能发送不能接收 3:使用主机名的连接方式,无法直接使用,一开始 4:无法显示byte值 5:界面修改 6:连接的时候,不断开以前的连接,造成重复连接 提示 vbRichClient5的手册找遍...
  • vb Script参考文档

    2009-07-28 22:13:02
    InputBox 函数 在对话框中显示提示,等待用户输入文本或者单击按钮,并返回文本框的内容。 InStr 函数 返回一个字符串在另一个字符串中第一次出现的位置。 InStrRev 函数 返回一个字符串在另一个字符串中出现的...
  • VB的系统对象Screen记录了当前显示模式的高度和宽度,可以利用这个值来设置窗体的位置。 引用: Sub CenterForm(frm As Form) ‘定义过程  frm.Move (Screen.width - frm.width)\ 2, (Screen.Height - frm....
  • VB编程资源大全(源码 网络)

    热门讨论 2007-10-17 22:54:27
    (73KB) 121,i012.zip 如何vb中调用i/o口的例子(10KB) 122,i011.zip 演示连接/断开network(3KB) 123,i010.zip chat程序例子(12KB) 124,i009.zip 简单的邮件发送例子 (13KB) 125,i008....
  • 这是一套是一套非常完善的图形系统,适合在电力、煤炭、化工、仿真、网络、自动化等各种工业监控软件以及图形建模、图形管理、图形分析、中小型GIS系统、工作流、...如果画面脚本出现错误时,则会显示出脚本错误信息
  • 该功能对身份证号码的真伪进行校验,并显示该身份证的相关信息。 查询方法: 在最上方的空白栏中输入18位身份证号码,然后单击“查询”或者按回车键即可。 主机所在地查询 该功能可以查询某域名(网站)主机所在...
  • 这是一套是一套非常完善的图形系统,适合在电力、煤炭、化工、仿真、网络、自动化等各种工业监控软件以及图形建模、图形管理、图形分析、中小型GIS系统、工作流、...如果画面脚本出现错误时,则会显示出脚本错误信息
  • win7 64位操作系统如何安装Microsoft Date and Time Picker Control 6.0(SP6)控件 我依下列步骤操作出现如附档【找不到模块】的错误信息 1.下载控件:http://activex.microsoft.com/controls/vb6/mscomct2.cab 2....
  • │ │ ├─实例124 如何显示和修改数据库中的图像信息 │ │ └─实例125 如何使用水晶报表向导创建报表 │ ├─第7章 网络应用 │ │ ├─实例126 如何下载网页 │ │ ├─实例127 如何上下载文件 │ │ ├─实例...
  • C#源码大集合 01(共3卷)

    千次下载 热门讨论 2008-07-18 10:43:46
    │ ├─实例121 如何直接操作主从关系表 │ │ ├─实例122 如何以Web方式查询Access数据库 │ │ ├─实例123 如何使用列表视图显示数据库信息 │ │ ├─实例124 如何显示和修改数据库中的图像信息 ...
  • C#源码大集合 03(共3卷)

    千次下载 热门讨论 2008-07-18 10:54:39
    │ ├─实例121 如何直接操作主从关系表 │ │ ├─实例122 如何以Web方式查询Access数据库 │ │ ├─实例123 如何使用列表视图显示数据库信息 │ │ ├─实例124 如何显示和修改数据库中的图像信息 ...
  • 实例018 取得WAV文件信息 45 实例019 利用DirectSound编程实现实时混音 46 实例020 利用API播放CD 48 实例021 播放MIDI声音文件 50 1.3 音频设备控制 51 实例022 利用PC喇叭播放声音 51 实例023 检查是否安装...
  • 实例018 取得WAV文件信息 45 实例019 利用DirectSound编程实现实时混音 46 实例020 利用API播放CD 48 实例021 播放MIDI声音文件 50 1.3 音频设备控制 51 实例022 利用PC喇叭播放声音 51 实例023 检查是否安装...
  • 实例299 带提示功能的工具栏 实例300 为工具栏添加事件处理代码 实例301 带下拉菜单的工具栏 实例302 可调整按钮位置的工具栏 实例303 浮动工具栏 实例304 根据表中数据动态生成工具栏 实例305 利用CoolBar...
  • 实例299 带提示功能的工具栏 实例300 为工具栏添加事件处理代码 实例301 带下拉菜单的工具栏 实例302 可调整按钮位置的工具栏 实例303 浮动工具栏 实例304 根据表中数据动态生成工具栏 实例305 利用CoolBar...
  • 80 Vbp.htm 为VB应用程序定制浮动提示 3K 81 Wav_res.htm 如何将Wav文件做到EXE文件里 3K 82 Winapi.htm 充分利用Windows API扩展Delphi函数 16K 83 Wisql.htm 使用WISQL32同时访问SQL SERVER和SYBASE数据库 9...
  • 理论上讲,本程序完全可以解决c++未安装所带来的任何错误(如提示缺少msvcr140.dll文件等),但之所以程序在这些系统上不做任何提示,是考虑到绝大部分电脑都会缺失c++组件,如果均进行提示,则此提示将变成必出现的...
  • vc++ 应用源码包_1

    热门讨论 2012-09-15 14:22:12
    实例使用了加载类似xml文件读取信息,然后显示。 COM_ATL_Tutorial 简单的atl控件演示 COM接口挂钩及其应用 如题。 CSkinSlier CSliderCtrl自绘 Cursor 生成图标,运行到鼠标图标。 cutscene win32下实现视频...
  • vc++ 应用源码包_2

    热门讨论 2012-09-15 14:27:40
    实例使用了加载类似xml文件读取信息,然后显示。 COM_ATL_Tutorial 简单的atl控件演示 COM接口挂钩及其应用 如题。 CSkinSlier CSliderCtrl自绘 Cursor 生成图标,运行到鼠标图标。 cutscene win32下实现视频...
  • vc++ 应用源码包_6

    热门讨论 2012-09-15 14:59:46
    实例使用了加载类似xml文件读取信息,然后显示。 COM_ATL_Tutorial 简单的atl控件演示 COM接口挂钩及其应用 如题。 CSkinSlier CSliderCtrl自绘 Cursor 生成图标,运行到鼠标图标。 cutscene win32下实现视频...
  • vc++ 应用源码包_5

    热门讨论 2012-09-15 14:45:16
    实例使用了加载类似xml文件读取信息,然后显示。 COM_ATL_Tutorial 简单的atl控件演示 COM接口挂钩及其应用 如题。 CSkinSlier CSliderCtrl自绘 Cursor 生成图标,运行到鼠标图标。 cutscene win32下实现视频...

空空如也

空空如也

1 2 3 4
收藏数 68
精华内容 27
关键字:

vb如何显示提示信息