【VB建文件夹】用VB在硬盘上创建一个文件夹:Mkdir语句

★ 用VB在硬盘上创建一个文件夹:Mkdir语句。格式:
Mkdir "路径及文件夹名"
mkdir "c:\windows\desktop\李新宁" 在桌面上创建个名为"李新宁"的文件夹
又如: Private Sub Command2_Click()
MkDir "c:\windows\desktop\mydir"
End Sub
如果缺省路径,则为本VB程序的当前路径,如:mkdir "mydir",在当前目录下创建一个文件夹,名为mydir.
用VB删除一个文件夹(空文件夹):RmDir语句,格式:
rmdir "路径及文件夹名"
用法与上面类似,此不再说明.如果一个文件夹内有文件,那么,要先用KILL语句删除文件,再用rmdir删除文件夹。格式:
kill "路径及文件名"
在路径及文件名中,省略路径则指当前路径,并可用通配符"*"和"?"来删除多个文件,如:kill "*.txt" ,将当前目录下的所有文本文件全部删除。注意:KILL语句删除的文件不会放入回收站。
在调用函数或过程时,该函数或过程如果作为表达式,则其实参要括号,如果调用时是作为语句,实参则不要括号。下面两句是等价的。
SetWindowTextA Form1.hwnd, "API函数修改标题栏文字" --函数语句
Call SetWindowTextA(Form1.hwnd, "API函数修改标题栏文字") --函数为表达式
API调用格式中的 lib"库名" 有一点要注意,如果不是调用Windows\system文件夹下的DLL库,则要指明路径名,如:
public declare function lxnsdll lib "d:\student\mydll.dll"(byval a as integer,byval b as integer) as long
在程序中窗体的运行位置是用一个叫做"窗体布局"的窗口来调整的,可否用另外的替代法,而不用这个不精确的"窗体布局"窗口呢?
当然可以,那就是在代码中,例如要使窗体居于显示器中央,有两个新属性变量,screen.width和screen.height,分别表示本显示器的屏幕宽度(screen.width)和显示器高度(screen.height).用屏幕宽度减去窗体FORM1宽度再除以2,就可得到FORM的left左边距了(也就是横坐标吧),用屏幕高度减FORM1高度再除以2。就可得到FORM的top上边距了(纵坐标),这样便可居中,如下:
Form1.Left = (Screen.Width - Form1.Width) / 2
Form1.Top = (Screen.Height - Form1.Height) / 2
VB基本概念:对象--对象是具有某些特性的具体事物的抽象。
我在使用VB时遇到一个问题,我想用一个组框(frame1)将几个按纽括在一起,可是当组框画上去后却会把按纽都覆盖掉。按纽不见了(在frame1图层下面),怎么办?什么办法可以决定几个对象重合时,哪个在上,哪个在下?办法如下:1,选中要改变图层前后的对象;2,在"格式"菜单中"顺序"菜单项中选"置前"(在上面)或"置后"(在下面)即可。另外,在代码中也可以,用zorder方法,格式:
对象名.zorder 0或1(0为置前,1为置后)
frame1.zorder 1
重点笔记: 事件
在WINDOWS中最主要的事件就是鼠标事件,特别是其中的click单击事件,此外还有dblclick事件:双击事件,用法与click一样。
mousedown事件:鼠标按下时发生,有一个值得注意的参数button,它返回按下鼠标左键还是鼠标右键,采用if button=vbleftbutton...代码来写。
mouseup事件:鼠标先按下然后抬起时发生,用法与mousedown一样。
mousemove事件:鼠标经过时发生。
第二类的事件就是键盘事件,这类事件的掌握要加强。一个控件得到焦点后,就可以触发这一类事件,有以下几种:
keydown事件:按下键盘上某个键时发生。但键盘上键那么多,需要用它返回的keycode参数来指明按了哪个键,例下:
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyB Then
Print "你按下了字母B"
ElseIf KeyCode = vbKeyF1 Then
Print "你按下了F1键"
End If
End Sub
注:在keycode参数中,主键盘上的数字键和数字小键盘上的数字键是不同的,主键盘上用vbkey0-vbkey9表示,而小键盘上的键用vbkeyNumpad0-vbkeyNumpad9来表示。
keyup事件:松开按键时发生,与keydown事件用法一样。
keypress事件:按下某个键接着松开这个键时发生。注意,它的参数与keydown及keyup不同,它是采用字符ASCII码的方式,即用一个叫Keyascii的参数名,可以区分大小写,但有些功能键不能用。
if keyascii=0到255的一个整数 then ...来写,例如:
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 120 Then '120是小写字母x的ASCII码值
Unload Me
ElseIf KeyAscii < 48 Or KeyAscii > 57 Then '数字键的ASCII码在这个范围内
MsgBox ("你输入的不是数字"), 48
End If
End Sub
其他重要的事件有:
change事件:当对象的内容改变时发生。
gotfocus事件:当焦点从一个对象移动到当前对象时,当前对象发生gotfocus事件。
lostfocus事件:当焦点从当前对象移出时,当前对象会发生lostfocus事件。
★ keydown事件和keypress事件有什么实际运用上的差别?keydown多常用于功能键(如F1),需要shift,ctrl,Alt+字符键的"组合键",区分数字小键盘和常规数字键等keypress所不能的情况,keypress以ASCII码来区分按键,侧重"键的内容",而keydown和keyup侧重"键的位置"。
我想在文本框中限制只能输入数字,怎么办最方便?可用keypress事件,如下:
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii < 48 Or KeyAscii > 57 Then
KeyAscii = 0 等于0表示没按键,它在text1对象text属性接入字符前产生,因
Beep 此可限制输入。
End If
End Sub

 

 

集合(collection):用来存储类似数组的一组同类变量,它与数组不同的是,集合是一种对象,它不仅可通过索引值来访问其中的元素,还可通过关健字来访问其中元素。声明格式:
DIM(或PUBLIC) 集合名 as new collection
dim lxn as new collection
既然集合是一个对象,就用方法和属性去操作它,有三个方法和一个属性:
ADD方法:添加元素到集合对象中;格式:
集合名.add 元素内容,关健字,添加到…前,添加到…后(添加位置)
lxn.add 23,"李新宁", ,"李冬冬"
上例表示在集合中"李冬冬"关健字所对应元素后面添加"李新宁"为关健字的元素23(我是想表示年纪)。
REMOVE方法:删除一个元素;
集合名.remove "关健字或索引位置"
lxn.remove "李新宁" 或 lxn.remove 5 (如果元素"23"的索引号为5)
索引值是VB自动给每个集合元素添加的,从第1个元素索引号为1开始。
ITEM方法:引用集合对象中的元素,可省略,格式: 集合名.item(关健字)
省略为:集合名(关健字或索引位置)
x=lxn("李新宁") x就等于23。
也可用索引位置,如 x=lxn(5)(如果"李新宁"所对元素的索引为5),索引位置(其实就是下标)最小从1开始。
COUNT属性:返回集合中的元素个数。格式:集合名.count.如y=lxn.count,y就等于集合中元素个数。
自定义过程:Private(或public,static) sub 过程名(形参)
……
end sub
调用:Call 过程名(实参) 或 过程名 实参
自定义函数:private(或public,static) function 函数名(形参)as 类型
……
函数名=值
end function
调用:函数名(实参) 为一个确定值,
上面函数与过程区别是:函数一定有返回值,所以定义时要指明(返回值)类型,并在函数过程中设定"函数名=值"来确定返回值。调用函数时如果也用CALL,则函数的返回值就失去意义(这样合是合法)。
★ 基本的类操作:类形象理解为"控件"即可,创建一个类,也就是自已创建一个象工具箱中控件那样的"新"控件。自己设置添加它的属性,方法。只不过自己发明的新控件没有图标,所有属性,方法,事件只能在代码中进行而已。
类是用来创建对象实例的模板。
1,在"工程"菜单中选"添加类模块"。在属性窗口修改它的"(名称)"属性为想要的名字,这个名字将作为这个类(为好理解,叫成"新控件")的名字。
2,制作新控件属性:在类模块中通用部分(此时全都是)用Public声明一群变量,要指明具体类型,这些所有变量就成了新控件的属性。就这么简单。
3,制作新控件方法:在类模块中建立新过程(用public sub...end sub或public function...end function),这些过程名将作为新控件的方法名。在过程里编写新控件功能的代码。
4,编写类模块事件,类模块事件只有initialize和terminate两种。当我们在程序中用"新控件"创建一个对象时,在刚刚创建一刹那,触发这里的initialize事件,这个事件可处理对象实例创建时需要处理的初始化。
新控件的运用:如何使用自己新做的"控件"呢?因为它没有在工具箱中的图标,不可直按"画"到窗体上,而要完全在代码中进行。
1,在通用部分声明一个对象变量,使它指向"新控件"。如Dim lxn As class1
class1是我自定的"新控件"名。注意:此时只是声明变量lxn为对象变量,但并没有具体代表哪个对象,要用SET语句来确定对象变量的值。用set…new…新建类模块对象。
2,在FORM LOAD事件中创建一个"新控件"的对象,用SET…NEW语句,
set 对象变量=new 新控件
set lxn=new class1
这时,对象变量名就成了创建的对象的名字(注:没有NEW是普通的赋值,有NEW就是新建对象)。
3,进行对象可进行的各种操作。如:lxn.condition=true
下面是自制一个"跑表"控件的例子。
A ,类模块中:
Option Explicit
Public timectl As Date '这三个变量作为"跑表"类的属性
Public condition As Boolean 'timectl为时间长度,condition为计时/停止状态
Public starttime As Date 'starttime为基准时间
Public Sub start() '开始计时方法
condition = True
starttime = Time starttime赋值为系统时钟的当前时间
End Sub
Public Sub stoptime() '停止计时方法
Dim lxn As Date
condition = False
lxn = Time - starttime 时间差
timectl = timectl + lxn 进行多次调用该过程时累积时间长度
End Sub
Public Sub reset() '清0方法
condition = False
timectl = 0
starttime = Time
End Sub

 

 

Private Sub Class_Initialize() 供新建实例时初始化
starttime = Time
timectl = Time - starttime
condition = False
End Sub
B,程序中:
Dim mywatch As myclass 声明对象变量将指向myclass创建的实例

 

 

Private Sub Command1_Click()
Set mywatch = New myclass 重新新建
Text1.Text = mywatch.timectl

 

 

End Sub

 

 

Private Sub Command2_Click()
Select Case mywatch.condition
Case False
mywatch.start
Text1.Text = "on......"
Case True
mywatch.stoptime
Text1.Text = mywatch.timectl
End Select
End Sub

 

 

Private Sub Form_Load()
Set mywatch = New myclass 新建对象
Text1.Text = mywatch.timectl
End Sub
★ 程序中的APP对象,它主要提供如本程序的标题,版本信息,路径等有时很必要的信息,常用属性有:
App.Title:返回本程序的标题。
App.Path:返回本程序所在的路径。与curdir不完全相同,curdir是指当前路径。如果1个程序创建了快捷方式,则App.path和curdir就可能不同了。应以App.path为准。
App.EXEname:返回本程序不含扩展名的根名
如何在VB中控制关机?除了以前讲到的exitwindowsex函数外,还有一种更简单的方法,只要在你需要的地方,比如按扭等等,在事件过程中加入
Shell "rundll32.exe user.exe,exitwindows" 就可以了。对WIN2000无效!
在VB中可打开控制面板,由用户进行设置,打开主面板:在事件过程中写
x = Shell("rundll32.exe shell32.dll,Control_RunDLL",1)
也可打开各个具体项目,如
x = Shell("rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl", 1)
打开的是控制面板中"多媒体"项。而
x = Shell("rundll32.exe shell32.dll,Control_RunDLL access.cpl,,5", 1)
打开的是"辅助选项"项目。而
x = Shell("rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,2", 1)显示的是"显示器"项目(中的"外观"选项卡,注:各个选项卡由尾部参数决定,这里是2)。
在文本输入时,我们可通过设置ASCII码的chr(13)+chr(10)来使文本换行,而在VB程序中,可用一个常数vbCrLf来代替这两个ASCII码表示换行,如:
text1.text="您如果需要的话" & chr(13)+chr(10) & "可以来找我"
可写为: text1.text="您如果需要的话" & vbCrLf & "可以来找我"
关于在VB程序中用键盘的问题:1,很多控件运行时的使用都可以采用在其caption属性中写"& 快捷键"的方式指定键盘访问键(如菜单,按纽,复选框,选项按纽等等) 2,TAB键常用来对各对象间的切换。
3,设计时改变选定对象的大小:Shift+方向键;
设计时改变选定对象的位置:Ctrl+方向键。

posted on 2022-10-04 01:31  bdy  阅读(1066)  评论(0编辑  收藏  举报

导航