登录
首页 » VB源码 » VB 利用Tag属性存储用户名

VB 利用Tag属性存储用户名

于 2022-02-04 发布 文件大小:3.22 kB
0 114
下载积分: 2 下载次数: 1

代码说明:

VB 利用Tag属性存储用户名   If Text1.Text = "" Or Text2.Text = "" Then    MsgBox "用户名或密码不能为空", vbCritical, "信息提示"    Exit Sub   Else    If Text1.Text = "TSoft" And Text2.Text = "111" Then    Me.Tag = Text1.Text    Frm_Main.Show 1    Unload Me    Else    MsgBox "输入的名户名或密码不正确", vbCritical, "信息提示"    End If   End If

下载说明:请别用迅雷下载,失败请重下,重下不扣分!

发表评论

0 个回复

  • vb IsDate判断字符串是否为日期或时间
    vb 判断字符串是否为日期或时间,在输入框输入任意字符串类型,程序将会判断出该字符串是否是时间字符串,这个判断方法VB员自带有函数,使用IsDate即可实现,下面是使用IsDate的简单用法示例:   If IsDate(Text1) = True Then    Text2.Text = "是日期"   Else    Text2.Text = "不是日期"   End If   您也可以在本页下载完整的源码实例。
    2022-08-18 06:21:54下载
    积分:1
  • VB 6.0 打印与打印预览功能
    VB 6.0 打印与打印预览功能源码,这个打印预览可以调节预览的放大倍率,在不同的放大状态下预览打印内容,支持打印文字内容和图片的内容,自动调用Windows默认的打印机进行打印,如测试截图所示的效果。
    2023-05-22 11:35:03下载
    积分:1
  • VB.NET 软件在线自动升级功能演示
    VB.NET 软件在线自动升级功能演示,含源代码,程序自动更新版本源码中核心文件为UpdatingForm.vb,此文件包括了程序自动升级的主要功能,比如更新显示信息、删除不需要的文件、查找客户端需要更新的文件和需要删除的文件、查找服务器端新增需要下载的文件、版本控制文件为必须下载文件、设置当前下载的文件序数、强制结束进程等。   本程序需要一个存放软件最新版本的服务器或者是网址,程序运行后最先检测该网址下的软件是否是最新,若该网址不存在或出错,程序将不再继续,直接退出,如图所示。
    2022-07-23 12:00:34下载
    积分:1
  • VB输入限制:只允许输入汉字
    VB输入限制功能一例:只允许输入汉字,本实例只允许用户输入汉字,如果输入其它类型的字符,程序将不允许输入,且会提醒用户。原理是获取键盘上的ASCII值,并判断是否在中文汉字的范围,若不在,就禁止输入。实现本功能的关键代码,分享给大家:   If KeyAscii > 0 And KeyAscii 13 And KeyAscii 8 Then    KeyAscii = 0    MsgBox "只允许输入汉字!", 48, "提示"   End If   因为是对键盘的控制实现对输入的限制,因此若鼠标复制了一段包含其它字符的文字,则程序无能为力,因为鼠标不在监控范围。
    2023-02-18 18:05:03下载
    积分:1
  • 分享一个VB Excel表格生成模块
    分享一个VB Excel表格生成模块,借助了模块中的ChangeToExcel.ocx组件来生成,使用时需要引入此组件。该组件中具备创建Excel文件、向Excel文件中插入内容、出错处理等功能。   Excel表格生成模块为该组件的源代码文件,你还可以通过源码对组件功能进行调整。   Demo文件夹下是使用此组件导出Excel文件的例子,单击按钮即可生成Excel文件。
    2022-11-26 13:10:03下载
    积分:1
  • VB6.0 顺序文件写操作的操作演示
    VB6.0 顺序文件写操作的操作演示,三种方法写数据,包括了完整的源码项目下载,是学习VB文件读写操作的好范例。   这三种方法是:   把文件的内容一次性的写入   把字符一个一个写入   依次写入顺序文件
    2022-01-26 17:24:14下载
    积分:1
  • VB Val与汉字的相互转化
    VB 数字与字符串的相互转换(汉字区位码与汉字的相互转化)的例子,主要是使用Val函数来实现转换功能,Val的用法很简单,如Text4.Text = Val(Text3),将此行代码添加到自定义的按钮事件中即可,当用户单击按钮后,可触发此代码执行区位码转换。实现的功能为:   把数字转换成字符串,把字符串转换成数字。
    2022-02-10 12:28:52下载
    积分:1
  • vb实现调用其他应用程序的菜单
    vb演示如何调用其他应用程序菜单的方法,程序演示了在VB程序中,调用 windows记事本程序的菜单,不过测试发现,本程序在Windows 7中失效了,本代码写于2010年的,有些早了,当时可能只考虑了Windows XP,可能需要对以下代码加以修正,才能适用于windows 7/10环境:   hwnd = FindWindow(vbNullString, "无标题 - 记事本菜单")   If hwnd = 0 Then Exit Sub   hMainMenu = GetMenu(hwnd)   hMenu = GetSubMenu(hMainMenu, 0)   MenuID = GetMenuItemID(hMenu, 3)   AppActivate "无标题 - 记事本菜单"   Ret = SendMessage(hwnd, WM_COMMAND, MenuID, 0&)
    2022-06-26 16:44:01下载
    积分:1
  • VB.net与OMRON CP系列PLC通讯的实例
    VB.net与OMRON CP系列PLC通讯,截图是辅助程序:FCS校验计算器的运行效果,与PLC通讯的实例在PLC-PC文件夹下,源码在VB.NET环境编译。   LBIndustrialCtrls.dll放在debug目录中,与exe文件同级。
    2023-03-30 11:55:03下载
    积分:1
  • VB演示矩阵的加法运算
    VB6.0演示矩阵的加法运算,本例中一共是两个矩阵,每一个矩阵都根据不同的算法生成矩阵数字序列,然后把这两个矩阵求和,最后一栏展示的是矩阵相加后的结果,以指定格式输出。看了代码,我暂时没搞懂是什么算法,感兴趣的自己下载源码,研究学习吧。
    2022-04-27 13:59:41下载
    积分:1
  • 696516资源总数
  • 106914会员总数
  • 0今日下载