几个小问题

Question

1.    MsgBox Time()
2.用shell调用dos命令xcopy(好象不是很好)

Answer 1

Time 函数
      返回一个指明当前系统时间的 Variant (Date)。语法Time说明为了设置系统时间，请使用 Time 语句。读取：
Dim TempFile As Long
Dim LoadBytes() As ByteTempFile=FreeFile
Open 文件名 For Binary As #TempFile
Redim LoadBytes(1 To Lof(TempFile)) As Byte
Get #TempFile,,LoadBytes
Close TempFileText1.Text=StrConv(LoadBytes,vbUniCode)写入：
Dim TempFile As Long
Dim SaveBytes() As ByteSaveBytes=StrConv(Text1.Text,vbFromUniCode)TempFile=FreeFile
Open 文件名 For Binary As #TempFile
Put #TempFile,,SaveBytes
Close TempFile 
KeyDown、KeyUp 事件
      这些事件是当一个对象具有焦点时按下 ( KeyDown ) 或松开 ( KeyUp ) 一个键时发生的。（要解释 ANSI 字符，应使用 KeyPress 事件。）语法Private Sub Form_KeyDown(keycode As Integer, shift As Integer)Private Sub object_KeyDown([index As Integer,]keycode As Integer, shift As Integer)Private Sub Form_KeyUp(keycode As Integer, shift As Integer)Private Sub object_KeyUp([index As Integer,]keycode As Integer, shift As Integer)KeyDown 和 KeyUp 事件包括下列部分：部分 描述 
object 一个对象表达式，其值是“应用于”列表中的一个对象。 
index 是一个整数，它用来唯一标识一个在控件数组中的控件。 
keycode 是一个键代码，诸如 vbKeyF1 （ F1 键）或 vbKeyHome （ HOME 键）。要指定键代码，可使用对象浏览器中的 Visual Basic ( VB ) 对象库中的常数。 
shift 是在该事件发生时响应 SHIFT ,CTRL 和 ALT 键的状态的一个整数。shift 参数是一个位域，它用最少的位响应 SHIFT 键（位 0 ）、CTRL 键（位 1 ）和 ALT 键（位 2 ）。这些位分别对应于值 1、2 和 4。可通过对一些、所有或无位的设置来指明有一些、所有或零个键被按下。例如，如果 CTRL 和 ALT 这两个键都被按下，则 shift 的值为 6。 
说明对于这两个事件来说，带焦点的对象都接收所有击键。一个窗体只有在不具有可视的和有效的控件时才可以获得焦点。虽然 KeyDown 和 KeyUp 事件可应用于大多数键，它们最经常地还是应用于： 扩展的字符键如功能键等。
定位键。
键盘修饰键和按键的组合。
区别数字小键盘和常规数字键。 
在需要对按下和松开一个键都响应时，可使用 KeyDown 和 KeyUp 事件过程。下列情况不能引用 KeyDown 和 KeyUp 事件： 窗体有一个 CommandButton 控件，并且 Default 属性设置为 True 时的 ENTER 键。
窗体有一个 CommandButton 控件，并且 Cancel 属性设置为 True 时的 ESC 键。
TAB 键。 
KeyDown 和 KeyUp 用两种参数解释每个字符的大写形式和小写形式：keycode —显示物理的键（将 A 和 a 作为同一个键返回）和 shift —显示 shift + key 键的状态而且返回 A 或 a 其中之一。如果需要测试 shift 参数，可使用该参数中定义各位的 shift 常数。该常数有下列值：常数 值 描述 
vbShiftMask 1 SHIFT 键的位屏蔽。 
VbCtrlMask 2 CTRL 键的位屏蔽。 
VbAltMask 4 ALT 键的位屏蔽。 
该常数用作位屏蔽。它可被用来测试任何键组合。测试一个条件时，首先将每个结果分配给一个临时整数变量，然后将 shift 与一个位屏蔽进行对比。如下例，可用 And 运算符和 shift 参数一起来测试条件是否大于 0。该条件说明该修正键被按下：ShiftDown = (Shift And vbShiftMask) > 0可按此例在一个过程中测试任何条件的组合：If ShiftDown And CtrlDown Then注意 如果 KeyPreview 属性被设置为 True，则一个窗体先于该窗体上的控件接收到此事件。可用 KeyPreview 属性来创建全局键盘处理例程。

Answer 2

1.text1.text=time()
2.shell app.path & "\Xcopy *.* C:\BAK /x"    '将Xcopy文件拷到目录下
3.在控件的keydown事件里判断

Answer 3

1.text1.text=time()
2.shell app.path & "\Xcopy *.* C:\BAK /x"    '将Xcopy文件拷到目录下
3.在控件的keydown事件里判断

Answer 4

怎样得到系统时间?(函数,及使用的例子,一两行语句即可)now
怎样复制一个文件加和里面的所有文件(我是想做备份用)
可以用shell+XCOPY实现，  不过这样兼容性不太好怎样添加shift和ctrl按键对程序的控制写菜单的时候就可以加的

Answer 5

1/同意楼上观点
NOW，TIME都可以用。想化成具体时间可再加 HOUR，MINUTE，SECOND等函数。
2/用SHELL+XCOPY比较简单，但效率不高，而且也不好看。
我建议考虑递归方法遍历文件夹，算法及程序见http://getian.myetang.com/html/passage/pasvb2.htm
3/同意楼上观点，具体可以自己看一下帮助

Answer 6

用time()函数
例如：Msgbox(Time())

Answer 7

1.系统时间NowTime=Time(),设置系统时间Time="09:00"
2.
3.KeyDown KeyUp事件里的Shift属性值

Answer 8

1.系统时间NowTime=Time(),设置系统时间Time="09:00"
2.
3.KeyDown KeyUp事件里的Shift属性值

Answer 9

怎样复制一个文件加和里面的所有文件(我是想做备份用)??
怎样添加shift和ctrl按键对程序的控制??

Answer 10

怎样复制一个文件加和里面的所有文件(我是想做备份用)??
有个思路，不知行不行？！
先在一个窗口打开该文件夹的上一个路径，选中该文件夹，然后向该窗口发送^c(sendkeys "^c")，再用同样的方法打开目标路径，再发送^v(sendkeys "^V")。我也不知到能不能实现。

Answer 11

Private Sub Form_KeyDown(keycode As Integer, shift As Integer)
Private Sub object_KeyDown([index As Integer,]keycode As Integer, shift As Integer)
Private Sub Form_KeyUp(keycode As Integer, shift As Integer)
Private Sub object_KeyUp([index As Integer,]keycode As Integer, shift As Integer)KeyDown 和 KeyUp 事件包括下列部分：部分 描述
object 一个对象表达式，其值是“应用于”列表中的一个对象。
index 是一个整数，它用来唯一标识一个在控件数组中的控件。
keycode 是一个键代码，诸如 vbKeyF1 （ F1 键）或 vbKeyHome （ HOME 键）。要指定键代码，可使用对象浏览器中的 Visual Basic ( VB ) 对象库中的常数。
shift 是在该事件发生时响应 SHIFT ,CTRL 和 ALT 键的状态的一个整数。shift 参数是一个位域，它用最少的位响应 SHIFT 键（位 0 ）、CTRL 键（位 1 ）和 ALT 键（位 2 ）。这些位分别对应于值 1、2 和 4。可通过对一些、所有或无位的设置来指明有一些、所有或零个键被按下。例如，如果 CTRL 和 ALT 这两个键都被按下，则 shift 的值为 6。
说明对于这两个事件来说，带焦点的对象都接收所有击键。一个窗体只有在不具有可视的和有效的控件时才可以获得焦点。虽然 KeyDown 和 KeyUp 事件可应用于大多数键，它们最经常地还是应用于：?扩展的字符键如功能键等。
?定位键。
?键盘修饰键和按键的组合。
?区别数字小键盘和常规数字键。在需要对按下和松开一个键都响应时，可使用 KeyDown 和 KeyUp 事件过程。下列情况不能引用 KeyDown 和 KeyUp 事件：?窗体有一个 CommandButton 控件，并且 Default 属性设置为 True 时的 ENTER 键。
?窗体有一个 CommandButton 控件，并且 Cancel 属性设置为 True 时的 ESC 键。
?TAB 键。KeyDown 和 KeyUp 用两种参数解释每个字符的大写形式和小写形式：keycode —显示物理的键（将 A 和 a 作为同一个键返回）和 shift —显示 shift + key 键的状态而且返回 A 或 a 其中之一。如果需要测试 shift 参数，可使用该参数中定义各位的 shift 常数。该常数有下列值：常数 值 描述
vbShiftMask 1 SHIFT 键的位屏蔽。
VbCtrlMask 2 CTRL 键的位屏蔽。
VbAltMask 4 ALT 键的位屏蔽。
该常数用作位屏蔽。它可被用来测试任何键组合。测试一个条件时，首先将每个结果分配给一个临时整数变量，然后将 shift 与一个位屏蔽进行对比。如下例，可用 And 运算符和 shift 参数一起来测试条件是否大于 0。该条件说明该修正键被按下：ShiftDown = (Shift And vbShiftMask) > 0可按此例在一个过程中测试任何条件的组合：If ShiftDown And CtrlDown Then注意   如果 KeyPreview 属性被设置为 True，则一个窗体先于该窗体上的控件接收到此事件。可用 KeyPreview 属性来创建全局键盘处理例程。

Answer 12

你所提的三个问题中，我看第一个已经有人为你解决了，其余的若有什么不懂的地方，可以问我朋友。他的Email：[email protected]他在这个网站的账号名是叫“成皓”