vb鼠标点击取当前记录号

Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)

MeText1Text = MyRecordsetFields(0)Value & "|" & MyRecordsetFields(1)Value

End Sub

Private

Sub

Timer1_Timer()

text1

=

format(now(),"yyyy-mm-dd

tttt")

End

Sub

format是格式化输出日期和时间格式函数,yyyy-mm-dd是完整显示年月日，tttt是显示时分秒。

timer1interval的值大于0而小于等于1000之间的任意一个整数。

DS=Weekday(Date())

IF DS=1 THEN

DF="星期日"

ELSEIF DS=2 THEN

DF="星期一"

ELSEIF DS=3 THEN

DF="星期二"

ELSEIF DS=4 THEN

DF="星期三"

ELSEIF DS=5 THEN

DF="星期四"

ELSEIF DS=6 THEN

DF="星期五"

ELSEIF DS=7 THEN

DF="星期六"

END IF

DF就是当前的星期数

这是不可能的。

VB脚本（vbscript）根本就不提供这样的功能。

如果是用VB，肯定是可以实现的。给你一个理念：每台电脑都安装此VB软件，当下班后（时间到五点）系统的此VB程序自动发送未关机信息到服务器。当服务器收到此消息，返回数据，驱动VB发出提示是否有人，声明如果不点击某按钮则视为无人，在十五分钟后强制关机，然后时间到了的话用VB来关闭系统。

如果是要通用的获得软件版本号的功能，就要用到API函数GetFileVersionInfo()：

Public

Declare

Function

GetFileVersionInfo

Lib

"versiondll"

Alias

"GetFileVersionInfoA"

(ByVal

lptstrFilename

As

String,

ByVal

dwHandle

As

Long,

ByVal

dwLen

As

Long,

lpData

As

Any)

As

Long

以上就是关于vb鼠标点击取当前记录号全部的内容，包括:vb鼠标点击取当前记录号、在VB里用什么函数获取系统的当前时间、VB中可否直接获得当前日期是星期几等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！