-
VB工程--百例49--显示文件路径
所属栏目：[大数据] 日期：2020-12-16 热度：146
Option Explicit Private Sub Dir1_Change() File1.Path = Dir1.Path Label1.Caption = Dir1.Path End Sub Private Sub Drive1_Change() Dir1.Path = Drive1.Drive Label1.Caption = Drive1.Drive End Sub Private Sub File1_Click() If Right(Dir1.Path,1)[详细]
-
VB---百例51--删除文件
所属栏目：[大数据] 日期：2020-12-16 热度：159
Option Explicit Private Sub Command1_Click() Dim killedfile As String,choicedfile As String 定义变量 Dim x If Right(Dir1.Path,1) = "" Then choicedfile = Dir1.Path + File1.FileName Else choicedfile = Dir1.Path + "" + File1.FileName End If[详细]
-
VB 超链接
所属栏目：[大数据] 日期：2020-12-16 热度：193
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long,ByVal lpOperation As String,ByVal lpFile As String,ByVal lpParameters As String,ByVal lpDirectory As String,ByVal nShowCmd As Long) As Long Pr[详细]
-
学无止境
所属栏目：[大数据] 日期：2020-12-16 热度：165
今天上午在一片欢声笑语渡过，不过，在笑声中，也蕴含着深刻的哲理！ 学无止境，这是我总结上午开会的中心思想。 一、面对海量的学习知识，与学习任务，让自己有一个好的心态，不要急功近利。 相信我们都还记得，老师为我们打开百度的更多的时候，我们当时心[详细]
-
VB工程--百例53--文件改名
所属栏目：[大数据] 日期：2020-12-16 热度：163
Option Explicit Private Sub Command1_Click() Dim oldname As String Dim newname As String If Right(Dir1.Path,1) = "" Then oldname = Dir1.Path File1.FileName Else oldname = Dir1.Path "" File1.FileName End If newname = InputBox("请输入新文[详细]
-
总结——不断的提高
所属栏目：[大数据] 日期：2020-12-16 热度：185
最近一直在学习VB，顺便携带着英语SB的学习，当然总结就少不了了。 知识网，编制结点；宏观把控，微观处理；思想上移，行动下移；善于找中心，勤于建联系…… 非常非常多，都是我们总结时需要注意的，需要利用的，需要要求自己的。 在VB的总结中我出现了一些[详细]
-
二极管与门电路原理
所属栏目：[大数据] 日期：2020-12-16 热度：180
---------------------------------------------------------------------------------------------- 本文系本站原创,欢迎转载! 转载请注明出处: http://www.jb51.cc/article/p-ydvquilw-bhb.html --------------------------------------------------------[详细]
-
VB工程--百例59--指数、对数函数计算器
所属栏目：[大数据] 日期：2020-12-16 热度：176
Option Explicit Private Sub cmd1_Click() If Val(txt1.Text) 709 Then 若文本框txt1.中输入的数值大于709 txt2.Text = "数值过大，请重新输入" 则在txt2.显示 "数值过大，请重新输入" Else 若文本框txt1输入的数值小于709 txt2.Text = Exp(Val(txt1.Text))[详细]
-
VB工程--百例54--鼠标跟随
所属栏目：[大数据] 日期：2020-12-16 热度：177
Option Explicit Private Sub lbl1_click() End End Sub Private Sub Form_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single) lbl1.Move X,Y 使标签框以鼠标指针的位置移动 End Sub 这个程序很简单，只有短短的几行代码。但是却透露出[详细]
-
用mindmanager总结的vb系统常量
所属栏目：[大数据] 日期：2020-12-16 热度：104
单击图片下载[详细]
-
VB.NET使文本框只能输入数字
所属栏目：[大数据] 日期：2020-12-16 热度：132
编制计算类程序时文本框一般都用于输入数字数据，此时可以通过以下步骤来确保用户输入数据的正确性： 首先添加好文本框控件TextBox后把属性IMEMode的值改成Disable，这样在该文本框中就不能使用中文输入法了。然后对文本框的KeyPress事件添加以下代码 Privat[详细]
-
VB工程--百例56--用键盘控制小方块移动
所属栏目：[大数据] 日期：2020-12-16 热度：67
Option Explicit Dim i As Integer Private Sub form_keydown(keycode As Integer,shift As Integer) If keycode = 37 Then 如果按下键值为37的键 Shape1.Left = Shape1.Left - 100 图形控件想左移动 ElseIf keycode = 38 Then Shape1.Top = Shape1.Top - 10[详细]
-
VB工程---百例57--判断是否为大写字母
所属栏目：[大数据] 日期：2020-12-16 热度：171
Option Explicit Private Sub text1_KeyPress(KeyAscii As Integer) If KeyAscii 65 Or KeyAscii 90 Then （ 数 65--90代表的是ASCii中的A---W26个字母） 若keyascii不在65--90之间 Label1.Caption = "输入的不是大写字母，请重新输入" 显示不是大写字母的信[详细]
-
VB工程--实例58--判断键值
所属栏目：[大数据] 日期：2020-12-16 热度：139
这个程序简单，但是很实用！以后ASCii码值可不用愁啦！[详细]
-
机房收费系统——感触自己的成长
所属栏目：[大数据] 日期：2020-12-16 热度：172
其实对于这次的机房收费系统，在开始做之前一直是抵触的心里，首先，UML画图感觉当初没有学好，VB.NET也就是几天就结束了，设计模式，不说学的好不好，那时候是用C#语言学的，要转换成VB.NET我感觉是困难的,何况学设计模式时他的例子相对都比较简单，如果用[详细]
-
VB对象
所属栏目：[大数据] 日期：2020-12-16 热度：181
对象就是指 操作的某一事物,属性是指对象的特征,人做对象时的属性就是男女,高矮胖瘦等特征,事件就是发生在对象身上的动作,你若是对象的话,打你就是事件,(鼠标单击双击等),方法也是一种类似事件. 事件: private sub()对象名_事件名 (事件内容) End sub 方法：[详细]
-
VB总结 异同
所属栏目：[大数据] 日期：2020-12-16 热度：82
学习进步的基础是会总结。 学习中会有很多相似或相反的东西，我们学习就是要把同类的放在一起，相比较的记忆。记住其中的特例。。 下面是在学习过程中遇到的比较容易混淆的东西放在一块记忆。 一：弹出框 input msgbox 补充：关于msgbox msgbox的格式为：msg[详细]
-
IL
所属栏目：[大数据] 日期：2020-12-16 热度：98
IL 和Java 的字节代码的理念基本是一样的，都是一种低级语言，都用数字表示，可以非常 快速度的转 化为机器代码，这样执行效率会高很多，同时这也就是我们经常说的“平台无 关性”的实现很 重要的一个环节。VB.NET C# J# 的源码都可以被编译成相同的IL,也就实[详细]
-
VB工程--实例62--显示上下午
所属栏目：[大数据] 日期：2020-12-16 热度：92
Option Explicit Private Sub Command1_Click() Timer1.Enabled = True 计时器timer1可用 Timer2.Enabled = False 计时器timer2不可用 End Sub Private Sub Command2_Click() Timer1.Enabled = False Timer2.Enabled = True End Sub Private Sub Command3_Cl[详细]
-
设计模式之模板方法模式
所属栏目：[大数据] 日期：2020-12-16 热度：52
从看大话结束，到现在差不多有2个多月了。其实刚开始看大话，只是觉得他讲的特别好，每个模式用故事来分析，印象很深。但是，我想说的是，这些故事，不仅仅给予一个印象深的作用，更重要的是一种思想。这个里面，有好多例子都是一步步改进才得到最后的模式。[详细]
-
浅谈.NET平台
所属栏目：[大数据] 日期：2020-12-16 热度：110
.NET是微软最新平台技术，是.netframeworkSDK的一种语言。编译以后生成的可执行文件被称为Assembly，即程序集他分为两个很重要的部分 1 CLR(CommonLanguageRuntime)，CLR是公共语言运行时，和Java虚拟机一样也是一个运行时环境，它负责资源管理（内存分配和[详细]
-
Visual Basic 简介
所属栏目：[大数据] 日期：2020-12-16 热度：98
Visual Basic编程语言 Visual Basic6.0开始界面 vb是 Visual Basic 的简称，是由 美国微软公司 于1991年开发的一种可视化的、 面向对象 和采用事件驱动方式的结构化高级 程序设计语言 ，可用于开发 Windows 环境下的各类 应用程序 。它简单易学、效率高，且[详细]
-
VB.NET DataGridView中的数据导入到Excel
所属栏目：[大数据] 日期：2020-12-16 热度：193
背景介绍 ：数据库里"卡信息表"中数据已成功在DataGridView1控件中显示，实现代码请见博客《 VB.NET 中DataGridView显示数据库中的数据 》，瑕疵颇多，望高人指教；这里只介绍DataGridView控件中的数据是如何导入到Excel表中的。 操作步骤,主要谈谈需要注意[详细]
-
VB工程--实例63--秒表计时器
所属栏目：[大数据] 日期：2020-12-16 热度：108
Option Explicit Dim starttime As Variant,endtime As Variant Private Sub cmdend_Click() endtime = Now '捕获现在的时间 Timer1.Enabled = True '计时器不可用 txt3.Text = Format(endtime - starttime,"hh:mm:ss") End Sub Private Sub cmdstart_Click([详细]
-
VB工程--百例64光标位置
所属栏目：[大数据] 日期：2020-12-16 热度：153
Option Explicit Private Sub Command1_Click() txt1.Text = "欢迎来到廊坊师范学院" End Sub Private Sub Command2_Click() txt1.Text = "" End Sub Private Sub Command3_Click() End End Sub Private Sub Option1_Click() txt1.SelStart = 0 '起始点在左[详细]
